| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/bulkf_fields_load.F |
122 |
BULKF_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/bulk_force/bulkf_fields_load.F |
173 |
BULKF_FIELDS_LOAD |
Ifprd = NINT(externForcingPeriod*rdt) |
|
./pkg/bulk_force/bulkf_fields_load.F |
175 |
BULKF_FIELDS_LOAD |
Iftm = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc) |
|
./pkg/bulk_force/bulkf_fields_load.F |
177 |
BULKF_FIELDS_LOAD |
intime0= 1 + INT(Iftm/Ifprd) |
|
./pkg/bulk_force/bulkf_fields_load.F |
180 |
BULKF_FIELDS_LOAD |
tmp1Wght = FLOAT( Iftm-Ifprd*(intime0 - 1) ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
181 |
BULKF_FIELDS_LOAD |
tmp2Wght = FLOAT( Ifprd ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
186 |
BULKF_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1) .EQ. 0 |
|
./pkg/dic/dic_aver_final.F |
47 |
DIC_AVER_FINAL |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/dic/dic_aver.F |
47 |
DIC_AVER |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/dic/dic_aver.F |
72 |
DIC_AVER |
Ifprd=int(externForcingPeriod*rdt+0.5) |
|
./pkg/dic/dic_aver.F |
75 |
DIC_AVER |
it=int(Iftm/Ifprd)+1 |
|
./pkg/dic/dic_fields_load.F |
46 |
DIC_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/dic/dic_fields_load.F |
59 |
DIC_FIELDS_LOAD |
Ifprd=int(externForcingPeriod*rdt+0.5) |
|
./pkg/dic/dic_fields_load.F |
61 |
DIC_FIELDS_LOAD |
Iftm=mod( Imytm+Ifcyc-Ifprd/2 ,Ifcyc) |
|
./pkg/dic/dic_fields_load.F |
64 |
DIC_FIELDS_LOAD |
intime0=int(Iftm/Ifprd) |
|
./pkg/dic/dic_fields_load.F |
66 |
DIC_FIELDS_LOAD |
aWght=float( Iftm-Ifprd*intime0 )/float( Ifprd ) |
|
./pkg/dic/dic_fields_load.F |
74 |
DIC_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1).EQ. 0 |
|
./pkg/dic/dic_aver_init.F |
51 |
DIC_AVER_INIT |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/dic/dic_surfforcing_init.F |
45 |
DIC_SURFFORCING_INIT |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/dic/dic_surfforcing_init.F |
69 |
DIC_SURFFORCING_INIT |
Ifprd=int(externForcingPeriod*rdt+0.5) |
|
./pkg/dic/dic_surfforcing_init.F |
71 |
DIC_SURFFORCING_INIT |
Iftm=mod( Imytm+Ifcyc-Ifprd/2 ,Ifcyc) |
|
./pkg/dic/dic_surfforcing_init.F |
72 |
DIC_SURFFORCING_INIT |
intime0=int(Iftm/Ifprd) |
|
./pkg/dic/dic_surfforcing_init.F |
74 |
DIC_SURFFORCING_INIT |
aWght=float( Iftm-Ifprd*intime0 )/float( Ifprd ) |
|
./pkg/offline/offline_fields_load.F |
110 |
OFFLINE_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/offline/offline_fields_load.F |
155 |
OFFLINE_FIELDS_LOAD |
Ifprd=int(offlineForcingPeriod*rdt+0.5) |
|
./pkg/offline/offline_fields_load.F |
157 |
OFFLINE_FIELDS_LOAD |
Iftm=mod( Imytm+Ifcyc-Ifprd/2 ,Ifcyc) |
|
./pkg/offline/offline_fields_load.F |
159 |
OFFLINE_FIELDS_LOAD |
intime0=int(Iftm/Ifprd) |
|
./pkg/offline/offline_fields_load.F |
161 |
OFFLINE_FIELDS_LOAD |
aWght=float( Iftm-Ifprd*intime0 )/float( Ifprd ) |
|
./pkg/offline/offline_fields_load.F |
168 |
OFFLINE_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1) .EQ. 0 |
|
./pkg/offline/offline_fields_load.F |
189 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
193 |
OFFLINE_FIELDS_LOAD |
& intime1*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
203 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
206 |
OFFLINE_FIELDS_LOAD |
& intime1*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
215 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
218 |
OFFLINE_FIELDS_LOAD |
& intime1*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
227 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
230 |
OFFLINE_FIELDS_LOAD |
& intime1*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
239 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
242 |
OFFLINE_FIELDS_LOAD |
& intime1*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
251 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
254 |
OFFLINE_FIELDS_LOAD |
& intime1*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
265 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
268 |
OFFLINE_FIELDS_LOAD |
& intime1*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
277 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
280 |
OFFLINE_FIELDS_LOAD |
& intime1*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
289 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
292 |
OFFLINE_FIELDS_LOAD |
& intime1*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
302 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
305 |
OFFLINE_FIELDS_LOAD |
& intime1*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
314 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
317 |
OFFLINE_FIELDS_LOAD |
& intime1*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
327 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
330 |
OFFLINE_FIELDS_LOAD |
& intime1*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
339 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
342 |
OFFLINE_FIELDS_LOAD |
& intime1*Ifprd +offlineIter0 |
|
./verification/natl_box/code/external_fields_load.F |
106 |
EXTERNAL_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1) .EQ. 0 |
|
./verification/natl_box/code/external_fields_load.F |
63 |
EXTERNAL_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./verification/natl_box/code/external_fields_load.F |
93 |
EXTERNAL_FIELDS_LOAD |
Ifprd=int(externForcingPeriod*rdt) |
|
./verification/natl_box/code/external_fields_load.F |
97 |
EXTERNAL_FIELDS_LOAD |
intime0=int(Iftm/Ifprd) |
|
./model/src/external_fields_load.F |
100 |
EXTERNAL_FIELDS_LOAD |
Ifprd = NINT(externForcingPeriod*rdt) |
|
./model/src/external_fields_load.F |
102 |
EXTERNAL_FIELDS_LOAD |
Iftm = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc) |
|
./model/src/external_fields_load.F |
104 |
EXTERNAL_FIELDS_LOAD |
intime0 = 1 + INT(Iftm/Ifprd) |
|
./model/src/external_fields_load.F |
113 |
EXTERNAL_FIELDS_LOAD |
tmp1Wght = FLOAT( Iftm-Ifprd*(intime0 - 1) ) |
|
./model/src/external_fields_load.F |
114 |
EXTERNAL_FIELDS_LOAD |
tmp2Wght = FLOAT( Ifprd ) |
|
./model/src/external_fields_load.F |
119 |
EXTERNAL_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1) .EQ. 0 |
|
./model/src/external_fields_load.F |
64 |
EXTERNAL_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/cfc/cfc_fields_load.F |
46 |
CFC_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/cfc/cfc_fields_load.F |
70 |
CFC_FIELDS_LOAD |
Ifprd=int(externForcingPeriod*rdt+0.5) |
|
./pkg/cfc/cfc_fields_load.F |
72 |
CFC_FIELDS_LOAD |
Iftm=mod( Imytm+Ifcyc-Ifprd/2 ,Ifcyc) |
|
./pkg/cfc/cfc_fields_load.F |
75 |
CFC_FIELDS_LOAD |
intime0=int(Iftm/Ifprd) |
|
./pkg/cfc/cfc_fields_load.F |
77 |
CFC_FIELDS_LOAD |
aWght=float( Iftm-Ifprd*intime0 )/float( Ifprd ) |
|
./pkg/cfc/cfc_fields_load.F |
86 |
CFC_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1).EQ. 0 |
|
./pkg/obcs/obcs_external_fields_load.F |
100 |
OBCS_EXTERNAL_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1) .EQ. 0 |
|
./pkg/obcs/obcs_external_fields_load.F |
77 |
OBCS_EXTERNAL_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/obcs/obcs_external_fields_load.F |
87 |
OBCS_EXTERNAL_FIELDS_LOAD |
Ifprd=int(externForcingPeriod*rdt+0.5) |
|
./pkg/obcs/obcs_external_fields_load.F |
89 |
OBCS_EXTERNAL_FIELDS_LOAD |
Iftm=mod( Imytm+Ifcyc-Ifprd/2 ,Ifcyc) |
|
./pkg/obcs/obcs_external_fields_load.F |
91 |
OBCS_EXTERNAL_FIELDS_LOAD |
intime0=int(Iftm/Ifprd) |
|
./pkg/obcs/obcs_external_fields_load.F |
93 |
OBCS_EXTERNAL_FIELDS_LOAD |
aWght=float( Iftm-Ifprd*intime0 )/float( Ifprd ) |
|
./pkg/rbcs/rbcs_fields_load.F |
109 |
RBCS_FIELDS_LOAD |
Ifprd=int(rbcsForcingPeriod*rdt+0.5) |
|
./pkg/rbcs/rbcs_fields_load.F |
111 |
RBCS_FIELDS_LOAD |
Iftm=mod( Imytm+Ifcyc-Ifprd/2 ,Ifcyc) |
|
./pkg/rbcs/rbcs_fields_load.F |
113 |
RBCS_FIELDS_LOAD |
intime0=int(Iftm/Ifprd) |
|
./pkg/rbcs/rbcs_fields_load.F |
115 |
RBCS_FIELDS_LOAD |
aWght=float( Iftm-Ifprd*intime0 )/float( Ifprd ) |
|
./pkg/rbcs/rbcs_fields_load.F |
124 |
RBCS_FIELDS_LOAD |
Ifprd=0 |
|
./pkg/rbcs/rbcs_fields_load.F |
130 |
RBCS_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1) .EQ. 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
59 |
RBCS_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |