| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/bulkf_fields_load.F |
119 |
BULKF_FIELDS_LOAD |
INTEGER bi,bj,i,j,intime0,intime1 |
|
./pkg/bulk_force/bulkf_fields_load.F |
177 |
BULKF_FIELDS_LOAD |
intime0= 1 + INT(Iftm/Ifprd) |
|
./pkg/bulk_force/bulkf_fields_load.F |
178 |
BULKF_FIELDS_LOAD |
intime1= 1 + MOD(intime0,nForcingPeriods) |
|
./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/bulk_force/bulkf_fields_load.F |
196 |
BULKF_FIELDS_LOAD |
& intime0, intime1, myIter, myTime |
|
./pkg/bulk_force/bulkf_fields_load.F |
199 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( AirTempFile,tair0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
205 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( AirhumidityFile,qair0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
211 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( SolarFile,solar0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
217 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( LongwaveFile,flwdwn0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
223 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( CloudFile,cloud0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
230 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( WSpeedFile,wspeed0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
236 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( UWindFile,uwind0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
242 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( VWindFile,vwind0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
249 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( RainFile,rain0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
255 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( RunoffFile,runoff0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
261 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( SnowFile,snow0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
269 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( airPotTempFile, thAir0, intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
277 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( QnetFile,qnetch0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
283 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( EmpFile,empch0,intime0, |
|
./pkg/dic/dic_fields_load.F |
100 |
DIC_FIELDS_LOAD |
CALL READ_REC_XY_RS( SilicaFile,silica0,intime0, |
|
./pkg/dic/dic_fields_load.F |
106 |
DIC_FIELDS_LOAD |
CALL READ_REC_XY_RS( IceFile,ice0,intime0, |
|
./pkg/dic/dic_fields_load.F |
113 |
DIC_FIELDS_LOAD |
CALL READ_REC_XY_RS( Filename1,par0,intime0, |
|
./pkg/dic/dic_fields_load.F |
121 |
DIC_FIELDS_LOAD |
CALL READ_REC_XY_RS( IronFile,feinput0,intime0, |
|
./pkg/dic/dic_fields_load.F |
44 |
DIC_FIELDS_LOAD |
INTEGER bi,bj,i,j,intime0,intime1 |
|
./pkg/dic/dic_fields_load.F |
64 |
DIC_FIELDS_LOAD |
intime0=int(Iftm/Ifprd) |
|
./pkg/dic/dic_fields_load.F |
65 |
DIC_FIELDS_LOAD |
intime1=mod(intime0+1,nForcingPeriods) |
|
./pkg/dic/dic_fields_load.F |
66 |
DIC_FIELDS_LOAD |
aWght=float( Iftm-Ifprd*intime0 )/float( Ifprd ) |
|
./pkg/dic/dic_fields_load.F |
69 |
DIC_FIELDS_LOAD |
intime0=intime0+1 |
|
./pkg/dic/dic_fields_load.F |
74 |
DIC_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1).EQ. 0 |
|
./pkg/dic/dic_fields_load.F |
88 |
DIC_FIELDS_LOAD |
CALL READ_REC_XY_RS( WindFile,wspeed0,intime0, |
|
./pkg/dic/dic_fields_load.F |
94 |
DIC_FIELDS_LOAD |
CALL READ_REC_XY_RS( AtmospFile,atmosp0,intime0, |
|
./pkg/dic/dic_surfforcing_init.F |
42 |
DIC_SURFFORCING_INIT |
INTEGER intime0,intime1 |
|
./pkg/dic/dic_surfforcing_init.F |
72 |
DIC_SURFFORCING_INIT |
intime0=int(Iftm/Ifprd) |
|
./pkg/dic/dic_surfforcing_init.F |
73 |
DIC_SURFFORCING_INIT |
intime1=mod(intime0+1,nForcingPeriods) |
|
./pkg/dic/dic_surfforcing_init.F |
74 |
DIC_SURFFORCING_INIT |
aWght=float( Iftm-Ifprd*intime0 )/float( Ifprd ) |
|
./pkg/dic/dic_surfforcing_init.F |
77 |
DIC_SURFFORCING_INIT |
intime0=intime0+1 |
|
./pkg/dic/dic_surfforcing_init.F |
84 |
DIC_SURFFORCING_INIT |
& intime0, intime1 |
|
./pkg/dic/dic_surfforcing_init.F |
87 |
DIC_SURFFORCING_INIT |
CALL READ_REC_XY_RS( SilicaFile,silica0,intime0, |
|
./pkg/offline/offline_fields_load.F |
108 |
OFFLINE_FIELDS_LOAD |
INTEGER bi,bj,i,j,k,intime0,intime1 |
|
./pkg/offline/offline_fields_load.F |
159 |
OFFLINE_FIELDS_LOAD |
intime0=int(Iftm/Ifprd) |
|
./pkg/offline/offline_fields_load.F |
160 |
OFFLINE_FIELDS_LOAD |
intime1=mod(intime0+1,nForcingPeriods) |
|
./pkg/offline/offline_fields_load.F |
161 |
OFFLINE_FIELDS_LOAD |
aWght=float( Iftm-Ifprd*intime0 )/float( Ifprd ) |
|
./pkg/offline/offline_fields_load.F |
164 |
OFFLINE_FIELDS_LOAD |
intime0=intime0+1 |
|
./pkg/offline/offline_fields_load.F |
168 |
OFFLINE_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1) .EQ. 0 |
|
./pkg/offline/offline_fields_load.F |
178 |
OFFLINE_FIELDS_LOAD |
& , nIter0, intime0,intime1 |
|
./pkg/offline/offline_fields_load.F |
189 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
203 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
215 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
227 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
239 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
251 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
265 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
277 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
289 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
302 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
314 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
327 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./pkg/offline/offline_fields_load.F |
339 |
OFFLINE_FIELDS_LOAD |
& intime0*Ifprd +offlineIter0 |
|
./verification/natl_box/code/external_fields_load.F |
102 |
EXTERNAL_FIELDS_LOAD |
intime0=intime0+1 |
|
./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 |
119 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, taux0, intime0, myThid ) |
|
./verification/natl_box/code/external_fields_load.F |
125 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, tauy0, intime0, myThid ) |
|
./verification/natl_box/code/external_fields_load.F |
131 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, Qnet0, intime0, myThid ) |
|
./verification/natl_box/code/external_fields_load.F |
136 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, Qnet0, intime0, myThid ) |
|
./verification/natl_box/code/external_fields_load.F |
142 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, EmPmR0, intime0, myThid ) |
|
./verification/natl_box/code/external_fields_load.F |
148 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, SST0, intime0, myThid ) |
|
./verification/natl_box/code/external_fields_load.F |
154 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, SSS0, intime0, myThid ) |
|
./verification/natl_box/code/external_fields_load.F |
161 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, Qsw0, intime0, myThid ) |
|
./verification/natl_box/code/external_fields_load.F |
61 |
EXTERNAL_FIELDS_LOAD |
INTEGER bi,bj,i,j,intime0,intime1 |
|
./verification/natl_box/code/external_fields_load.F |
97 |
EXTERNAL_FIELDS_LOAD |
intime0=int(Iftm/Ifprd) |
|
./verification/natl_box/code/external_fields_load.F |
98 |
EXTERNAL_FIELDS_LOAD |
intime1=mod(intime0+1,nForcingPeriods) |
|
./model/src/external_fields_load.F |
104 |
EXTERNAL_FIELDS_LOAD |
intime0 = 1 + INT(Iftm/Ifprd) |
|
./model/src/external_fields_load.F |
105 |
EXTERNAL_FIELDS_LOAD |
intime1 = 1 + MOD(intime0,nForcingPeriods) |
|
./model/src/external_fields_load.F |
113 |
EXTERNAL_FIELDS_LOAD |
tmp1Wght = FLOAT( Iftm-Ifprd*(intime0 - 1) ) |
|
./model/src/external_fields_load.F |
119 |
EXTERNAL_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1) .EQ. 0 |
|
./model/src/external_fields_load.F |
129 |
EXTERNAL_FIELDS_LOAD |
& intime0, intime1, myIter, myTime |
|
./model/src/external_fields_load.F |
134 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, taux0, intime0, myThid ) |
|
./model/src/external_fields_load.F |
140 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, tauy0, intime0, myThid ) |
|
./model/src/external_fields_load.F |
146 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, Qnet0, intime0, myThid ) |
|
./model/src/external_fields_load.F |
151 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, Qnet0, intime0, myThid ) |
|
./model/src/external_fields_load.F |
157 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, EmPmR0, intime0, myThid ) |
|
./model/src/external_fields_load.F |
163 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, saltFlux0, intime0, myThid ) |
|
./model/src/external_fields_load.F |
169 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, SST0, intime0, myThid ) |
|
./model/src/external_fields_load.F |
175 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, SSS0, intime0, myThid ) |
|
./model/src/external_fields_load.F |
182 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, Qsw0, intime0, myThid ) |
|
./model/src/external_fields_load.F |
203 |
EXTERNAL_FIELDS_LOAD |
& 'RS', 1, pload0, intime0, myThid ) |
|
./model/src/external_fields_load.F |
360 |
EXTERNAL_FIELDS_LOAD |
& intime0,intime1,aWght,bWght |
|
./model/src/external_fields_load.F |
61 |
EXTERNAL_FIELDS_LOAD |
INTEGER bi,bj,i,j,intime0,intime1 |
|
./pkg/cfc/cfc_fields_load.F |
100 |
CFC_FIELDS_LOAD |
CALL READ_REC_XY_RS( WindFile,wspeed0,intime0, |
|
./pkg/cfc/cfc_fields_load.F |
106 |
CFC_FIELDS_LOAD |
CALL READ_REC_XY_RS( AtmospFile,atmosp0,intime0, |
|
./pkg/cfc/cfc_fields_load.F |
112 |
CFC_FIELDS_LOAD |
CALL READ_REC_XY_RS( IceFile,ice0,intime0, |
|
./pkg/cfc/cfc_fields_load.F |
44 |
CFC_FIELDS_LOAD |
INTEGER bi,bj,i,j,intime0,intime1 |
|
./pkg/cfc/cfc_fields_load.F |
75 |
CFC_FIELDS_LOAD |
intime0=int(Iftm/Ifprd) |
|
./pkg/cfc/cfc_fields_load.F |
76 |
CFC_FIELDS_LOAD |
intime1=mod(intime0+1,nForcingPeriods) |
|
./pkg/cfc/cfc_fields_load.F |
77 |
CFC_FIELDS_LOAD |
aWght=float( Iftm-Ifprd*intime0 )/float( Ifprd ) |
|
./pkg/cfc/cfc_fields_load.F |
80 |
CFC_FIELDS_LOAD |
intime0=intime0+1 |
|
./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 |
110 |
OBCS_EXTERNAL_FIELDS_LOAD |
& intime0, intime1, myIter, myTime |
|
./pkg/obcs/obcs_external_fields_load.F |
118 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBEu0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
124 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBEv0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
130 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBEt0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
136 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBEs0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
145 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBWu0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
151 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBWv0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
157 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBWt0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
163 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBWs0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
172 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBNu0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
178 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBNv0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
184 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBNt0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
190 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBNs0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
199 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBSu0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
205 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBSv0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
211 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBSt0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
217 |
OBCS_EXTERNAL_FIELDS_LOAD |
& 'RL', Nr, OBSs0, intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
231 |
OBCS_EXTERNAL_FIELDS_LOAD |
& intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
242 |
OBCS_EXTERNAL_FIELDS_LOAD |
& intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
253 |
OBCS_EXTERNAL_FIELDS_LOAD |
& intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
264 |
OBCS_EXTERNAL_FIELDS_LOAD |
& intime0, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
75 |
OBCS_EXTERNAL_FIELDS_LOAD |
INTEGER intime0,intime1,iTracer |
|
./pkg/obcs/obcs_external_fields_load.F |
91 |
OBCS_EXTERNAL_FIELDS_LOAD |
intime0=int(Iftm/Ifprd) |
|
./pkg/obcs/obcs_external_fields_load.F |
92 |
OBCS_EXTERNAL_FIELDS_LOAD |
intime1=mod(intime0+1,nForcingPeriods) |
|
./pkg/obcs/obcs_external_fields_load.F |
93 |
OBCS_EXTERNAL_FIELDS_LOAD |
aWght=float( Iftm-Ifprd*intime0 )/float( Ifprd ) |
|
./pkg/obcs/obcs_external_fields_load.F |
96 |
OBCS_EXTERNAL_FIELDS_LOAD |
intime0=intime0+1 |
|
./pkg/rbcs/rbcs_fields_load.F |
113 |
RBCS_FIELDS_LOAD |
intime0=int(Iftm/Ifprd) |
|
./pkg/rbcs/rbcs_fields_load.F |
114 |
RBCS_FIELDS_LOAD |
intime1=mod(intime0+1,nForcingPeriods) |
|
./pkg/rbcs/rbcs_fields_load.F |
115 |
RBCS_FIELDS_LOAD |
aWght=float( Iftm-Ifprd*intime0 )/float( Ifprd ) |
|
./pkg/rbcs/rbcs_fields_load.F |
118 |
RBCS_FIELDS_LOAD |
intime0=intime0+1 |
|
./pkg/rbcs/rbcs_fields_load.F |
122 |
RBCS_FIELDS_LOAD |
intime0=1 |
|
./pkg/rbcs/rbcs_fields_load.F |
130 |
RBCS_FIELDS_LOAD |
& Iftm-Ifprd*(intime0-1) .EQ. 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
140 |
RBCS_FIELDS_LOAD |
& , nIter0, intime0,intime1 |
|
./pkg/rbcs/rbcs_fields_load.F |
145 |
RBCS_FIELDS_LOAD |
& 'RS', Nr, rbct0, intime0, myThid ) |
|
./pkg/rbcs/rbcs_fields_load.F |
151 |
RBCS_FIELDS_LOAD |
& 'RS', Nr, rbcs0, intime0, myThid ) |
|
./pkg/rbcs/rbcs_fields_load.F |
162 |
RBCS_FIELDS_LOAD |
& 'RS', Nr, rbcptracer0(1,1,1,1,1,iTracer), intime0, myThid ) |
|
./pkg/rbcs/rbcs_fields_load.F |
57 |
RBCS_FIELDS_LOAD |
INTEGER bi,bj,i,j,k,intime0,intime1 |