File |
Line number |
Procedure |
Code |
./pkg/obcs/obcs_external_fields_load.F |
101 |
OBCS_EXTERNAL_FIELDS_LOAD |
rdt = 1. _d 0 / deltaTclock |
./pkg/obcs/obcs_external_fields_load.F |
103 |
OBCS_EXTERNAL_FIELDS_LOAD |
Imytm = NINT(myTime*rdt) |
./pkg/obcs/obcs_external_fields_load.F |
104 |
OBCS_EXTERNAL_FIELDS_LOAD |
Ifprd = NINT(externForcingPeriod*rdt) |
./pkg/obcs/obcs_external_fields_load.F |
105 |
OBCS_EXTERNAL_FIELDS_LOAD |
Ifcyc = NINT(externForcingCycle*rdt) |
./pkg/obcs/obcs_external_fields_load.F |
85 |
OBCS_EXTERNAL_FIELDS_LOAD |
_RL aWght,bWght,rdt |
./pkg/offline/offline_fields_load.F |
109 |
OFFLINE_FIELDS_LOAD |
rdt = 1. _d 0 / deltaToffline |
./pkg/offline/offline_fields_load.F |
111 |
OFFLINE_FIELDS_LOAD |
Imytm = NINT(myTime*rdt-offlineOffsetIter) |
./pkg/offline/offline_fields_load.F |
112 |
OFFLINE_FIELDS_LOAD |
Ifprd = NINT(offlineForcingPeriod*rdt) |
./pkg/offline/offline_fields_load.F |
113 |
OFFLINE_FIELDS_LOAD |
Ifcyc = NINT(offlineForcingCycle*rdt) |
./pkg/offline/offline_fields_load.F |
67 |
OFFLINE_FIELDS_LOAD |
_RL aWght,bWght,rdt |
./model/src/external_fields_load.F |
61 |
EXTERNAL_FIELDS_LOAD |
_RL aWght,bWght,rdt |
./model/src/external_fields_load.F |
72 |
EXTERNAL_FIELDS_LOAD |
rdt = 1. _d 0 / deltaTclock |
./model/src/external_fields_load.F |
74 |
EXTERNAL_FIELDS_LOAD |
Imytm = NINT(myTime*rdt) |
./model/src/external_fields_load.F |
75 |
EXTERNAL_FIELDS_LOAD |
Ifprd = NINT(externForcingPeriod*rdt) |
./model/src/external_fields_load.F |
76 |
EXTERNAL_FIELDS_LOAD |
Ifcyc = NINT(externForcingCycle*rdt) |
./pkg/bulk_force/bulkf_fields_load.F |
120 |
BULKF_FIELDS_LOAD |
_RL aWght,bWght,rdt |
./pkg/bulk_force/bulkf_fields_load.F |
170 |
BULKF_FIELDS_LOAD |
rdt = 1. _d 0 / deltaTclock |
./pkg/bulk_force/bulkf_fields_load.F |
172 |
BULKF_FIELDS_LOAD |
Imytm = NINT(myTime*rdt) |
./pkg/bulk_force/bulkf_fields_load.F |
173 |
BULKF_FIELDS_LOAD |
Ifprd = NINT(externForcingPeriod*rdt) |
./pkg/bulk_force/bulkf_fields_load.F |
174 |
BULKF_FIELDS_LOAD |
Ifcyc = NINT(externForcingCycle*rdt) |
./pkg/cfc/cfc_fields_load.F |
36 |
CFC_FIELDS_LOAD |
_RL aWght,bWght,rdt |
./pkg/cfc/cfc_fields_load.F |
56 |
CFC_FIELDS_LOAD |
rdt = 1. _d 0 / deltaTclock |
./pkg/cfc/cfc_fields_load.F |
59 |
CFC_FIELDS_LOAD |
Imytm = NINT(myTime*rdt) |
./pkg/cfc/cfc_fields_load.F |
60 |
CFC_FIELDS_LOAD |
Ifprd = NINT(CFC_forcingPeriod*rdt) |
./pkg/cfc/cfc_fields_load.F |
61 |
CFC_FIELDS_LOAD |
Ifcyc = NINT(CFC_forcingCycle*rdt) |
./pkg/cheapaml/cheapaml_fields_load.F |
200 |
CHEAPAML_FIELDS_LOAD |
rdt=1. _d 0 / deltaTclock |
./pkg/cheapaml/cheapaml_fields_load.F |
203 |
CHEAPAML_FIELDS_LOAD |
Imytm=int(myTime*rdt+0.5) |
./pkg/cheapaml/cheapaml_fields_load.F |
204 |
CHEAPAML_FIELDS_LOAD |
Ifprd=int(externForcingPeriod*rdt+0.5) |
./pkg/cheapaml/cheapaml_fields_load.F |
205 |
CHEAPAML_FIELDS_LOAD |
Ifcyc=int(externForcingCycle*rdt+0.5) |
./pkg/cheapaml/cheapaml_fields_load.F |
79 |
CHEAPAML_FIELDS_LOAD |
_RL aWght,bWght,rdt |
./pkg/dic/dic_aver.F |
38 |
DIC_AVER |
_RL rdt |
./pkg/dic/dic_aver.F |
60 |
DIC_AVER |
rdt=1. _d 0 / deltaTclock |
./pkg/dic/dic_aver.F |
62 |
DIC_AVER |
Imytm=int(myTime*rdt+0.5) |
./pkg/dic/dic_aver.F |
63 |
DIC_AVER |
Ifprd=int(externForcingPeriod*rdt+0.5) |
./pkg/dic/dic_aver.F |
64 |
DIC_AVER |
Ifcyc=int(externForcingCycle*rdt+0.5) |
./pkg/dic/dic_fields_load.F |
43 |
DIC_FIELDS_LOAD |
_RL aWght,bWght,rdt |
./pkg/dic/dic_fields_load.F |
54 |
DIC_FIELDS_LOAD |
rdt = 1. _d 0 / deltaTclock |
./pkg/dic/dic_fields_load.F |
57 |
DIC_FIELDS_LOAD |
Imytm = NINT(myTime*rdt) |
./pkg/dic/dic_fields_load.F |
58 |
DIC_FIELDS_LOAD |
Ifprd = NINT(DIC_forcingPeriod*rdt) |
./pkg/dic/dic_fields_load.F |
59 |
DIC_FIELDS_LOAD |
Ifcyc = NINT(DIC_forcingCycle*rdt) |
./pkg/dic/dic_surfforcing_init.F |
40 |
DIC_SURFFORCING_INIT |
_RL aWght,bWght,rdt |
./pkg/dic/dic_surfforcing_init.F |
67 |
DIC_SURFFORCING_INIT |
rdt = 1. _d 0 / deltaTclock |
./pkg/dic/dic_surfforcing_init.F |
70 |
DIC_SURFFORCING_INIT |
Imytm = NINT(startTime*rdt) |
./pkg/dic/dic_surfforcing_init.F |
71 |
DIC_SURFFORCING_INIT |
Ifprd = NINT(externForcingPeriod*rdt) |
./pkg/dic/dic_surfforcing_init.F |
72 |
DIC_SURFFORCING_INIT |
Ifcyc = NINT(externForcingCycle*rdt) |