| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_external_fields_load.F |
106 |
OBCS_EXTERNAL_FIELDS_LOAD |
Iftm = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc) |
|
./pkg/obcs/obcs_external_fields_load.F |
108 |
OBCS_EXTERNAL_FIELDS_LOAD |
iRec0 = 1 + INT(Iftm/Ifprd) |
|
./pkg/obcs/obcs_external_fields_load.F |
111 |
OBCS_EXTERNAL_FIELDS_LOAD |
aWght = FLOAT( Iftm-Ifprd*(iRec0 - 1) ) |
|
./pkg/obcs/obcs_external_fields_load.F |
117 |
OBCS_EXTERNAL_FIELDS_LOAD |
& Iftm-Ifprd*(iRec0-1) .EQ. 0 |
|
./pkg/obcs/obcs_external_fields_load.F |
86 |
OBCS_EXTERNAL_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/offline/offline_fields_load.F |
114 |
OFFLINE_FIELDS_LOAD |
Iftm = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc) |
|
./pkg/offline/offline_fields_load.F |
116 |
OFFLINE_FIELDS_LOAD |
intime0= 1 + INT(Iftm/Ifprd) |
|
./pkg/offline/offline_fields_load.F |
119 |
OFFLINE_FIELDS_LOAD |
aWght = FLOAT( Iftm-Ifprd*(intime0 - 1) ) |
|
./pkg/offline/offline_fields_load.F |
125 |
OFFLINE_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1) .EQ. 0 |
|
./pkg/offline/offline_fields_load.F |
68 |
OFFLINE_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/rbcs/rbcs_fields_load.F |
115 |
RBCS_FIELDS_LOAD |
Iftm = Imytm-Ifprd/2 |
|
./pkg/rbcs/rbcs_fields_load.F |
116 |
RBCS_FIELDS_LOAD |
Ifmod = F90MODULO(Iftm,Ifprd) |
|
./pkg/rbcs/rbcs_fields_load.F |
118 |
RBCS_FIELDS_LOAD |
intime0 = (Iftm-Ifmod)/Ifprd |
|
./pkg/rbcs/rbcs_fields_load.F |
57 |
RBCS_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm,Ifmod |
|
./model/src/external_fields_load.F |
63 |
EXTERNAL_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./model/src/external_fields_load.F |
78 |
EXTERNAL_FIELDS_LOAD |
Iftm = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc) |
|
./model/src/external_fields_load.F |
80 |
EXTERNAL_FIELDS_LOAD |
intime0 = 1 + INT(Iftm/Ifprd) |
|
./model/src/external_fields_load.F |
87 |
EXTERNAL_FIELDS_LOAD |
tmp1Wght = FLOAT( Iftm-Ifprd*(intime0 - 1) ) |
|
./model/src/external_fields_load.F |
93 |
EXTERNAL_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1) .EQ. 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
122 |
BULKF_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./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 |
186 |
BULKF_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1) .EQ. 0 |
|
./pkg/cfc/cfc_fields_load.F |
38 |
CFC_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/cfc/cfc_fields_load.F |
62 |
CFC_FIELDS_LOAD |
Iftm = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc) |
|
./pkg/cfc/cfc_fields_load.F |
64 |
CFC_FIELDS_LOAD |
intime0= 1 + INT(Iftm/Ifprd) |
|
./pkg/cfc/cfc_fields_load.F |
67 |
CFC_FIELDS_LOAD |
aWght = FLOAT( Iftm-Ifprd*(intime0 - 1) ) |
|
./pkg/cfc/cfc_fields_load.F |
74 |
CFC_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1).EQ. 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
206 |
CHEAPAML_FIELDS_LOAD |
Iftm=mod( Imytm+Ifcyc-Ifprd/2 ,Ifcyc) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
208 |
CHEAPAML_FIELDS_LOAD |
intime0=int(Iftm/Ifprd) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
211 |
CHEAPAML_FIELDS_LOAD |
aWght=dfloat( Iftm-Ifprd*intime0 )/dfloat( Ifprd ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
218 |
CHEAPAML_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1) .EQ. 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
84 |
CHEAPAML_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/dic/dic_aver.F |
39 |
DIC_AVER |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/dic/dic_aver.F |
65 |
DIC_AVER |
Iftm=mod( Imytm+Ifcyc ,Ifcyc) |
|
./pkg/dic/dic_aver.F |
66 |
DIC_AVER |
it=int(Iftm/Ifprd)+1 |
|
./pkg/dic/dic_fields_load.F |
44 |
DIC_FIELDS_LOAD |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/dic/dic_fields_load.F |
60 |
DIC_FIELDS_LOAD |
Iftm = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc) |
|
./pkg/dic/dic_fields_load.F |
62 |
DIC_FIELDS_LOAD |
intime0 = 1 + INT(Iftm/Ifprd) |
|
./pkg/dic/dic_fields_load.F |
65 |
DIC_FIELDS_LOAD |
aWght = FLOAT( Iftm-Ifprd*(intime0 - 1) ) |
|
./pkg/dic/dic_fields_load.F |
71 |
DIC_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1).EQ. 0 |
|
./pkg/dic/dic_surfforcing_init.F |
41 |
DIC_SURFFORCING_INIT |
INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm |
|
./pkg/dic/dic_surfforcing_init.F |
73 |
DIC_SURFFORCING_INIT |
Iftm = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc) |
|
./pkg/dic/dic_surfforcing_init.F |
75 |
DIC_SURFFORCING_INIT |
intime0 = 1 + INT(Iftm/Ifprd) |
|
./pkg/dic/dic_surfforcing_init.F |
78 |
DIC_SURFFORCING_INIT |
aWght = FLOAT( Iftm-Ifprd*(intime0 - 1) ) |