| File |
Line number |
Procedure |
Code |
|
./model/src/write_state.F |
101 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'U', uVel,iRec,myIter,myThid) |
|
./model/src/write_state.F |
102 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'V', vVel,iRec,myIter,myThid) |
|
./model/src/write_state.F |
103 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'T', theta,iRec,myIter,myThid) |
|
./model/src/write_state.F |
104 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'S', salt,iRec,myIter,myThid) |
|
./model/src/write_state.F |
105 |
WRITE_STATE |
CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid) |
|
./model/src/write_state.F |
106 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
|
./model/src/write_state.F |
109 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid) |
|
./model/src/write_state.F |
74 |
WRITE_STATE |
INTEGER iRec |
|
./model/src/write_state.F |
85 |
WRITE_STATE |
iRec = 1 |
|
./model/src/write_state.F |
87 |
WRITE_STATE |
iRec = int ( (myTime-startTime) / dumpFreq +1.5 ) |
|
./pkg/offline/offline_state.F |
43 |
OFFLINE_STATE |
INTEGER iRec |
|
./pkg/offline/offline_state.F |
52 |
OFFLINE_STATE |
iRec = 1 |
|
./pkg/offline/offline_state.F |
54 |
OFFLINE_STATE |
iRec = int ( (myTime-startTime) / dumpFreq +1.5 ) |
|
./pkg/seaice/seaice_get_forcing.F |
137 |
SEAICE_GET_FORCING |
iRec = int((YearTime-WindForcingStart)/WindForcingPeriod) + 1 |
|
./pkg/seaice/seaice_get_forcing.F |
141 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,uwind0,iRec ,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
142 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,uwind1,iRec+1,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
147 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,vwind0,iRec ,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
148 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,vwind1,iRec+1,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
151 |
SEAICE_GET_FORCING |
iRec = int((YearTime-FluxForcingStart)/FluxForcingPeriod) + 1 |
|
./pkg/seaice/seaice_get_forcing.F |
155 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,atemp0,iRec ,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
156 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,atemp1,iRec+1,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
161 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,aqh0,iRec ,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
162 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,aqh1,iRec+1,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
167 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,lwdown0,iRec ,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
168 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,lwdown1,iRec+1,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
173 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,swdown0,iRec ,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
174 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,swdown1,iRec+1,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
179 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,precip0,iRec ,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
180 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,precip1,iRec+1,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
185 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,evap0,iRec ,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
186 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,evap1,iRec+1,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
191 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,runoff0,iRec ,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
192 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,runoff1,iRec+1,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
195 |
SEAICE_GET_FORCING |
iRec = int((YearTime-SSTforcingStart)/SSTforcingPeriod) + 1 |
|
./pkg/seaice/seaice_get_forcing.F |
199 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,SSTsi0,iRec ,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
200 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,SSTsi1,iRec+1,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
203 |
SEAICE_GET_FORCING |
iRec = int((YearTime-SSSforcingStart)/SSSforcingPeriod) + 1 |
|
./pkg/seaice/seaice_get_forcing.F |
205 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( saltClimFile,SSSsi0,iRec ,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
206 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( saltClimFile,SSSsi1,iRec+1,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
235 |
SEAICE_GET_FORCING |
iRec = int((YearTime-WindForcingStart)/WindForcingPeriod) + 2 |
|
./pkg/seaice/seaice_get_forcing.F |
247 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,uwind0,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
249 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,uwind1,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
256 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,vwind0,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
258 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,vwind1,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
272 |
SEAICE_GET_FORCING |
iRec = int((YearTime-FluxForcingStart)/FluxForcingPeriod) + 2 |
|
./pkg/seaice/seaice_get_forcing.F |
284 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,atemp0,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
286 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,atemp1,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
293 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,aqh0,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
295 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,aqh1,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
302 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,lwdown0,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
304 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,lwdown1,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
311 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,swdown0,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
313 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,swdown1,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
320 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,precip0,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
322 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,precip1,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
329 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,evap0,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
331 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,evap1,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
338 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,runoff0,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
340 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,runoff1,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
366 |
SEAICE_GET_FORCING |
iRec = int((YearTime-SSTforcingStart)/SSTforcingPeriod) + 2 |
|
./pkg/seaice/seaice_get_forcing.F |
376 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,SSTsi0,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
378 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( fName,SSTsi1,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
391 |
SEAICE_GET_FORCING |
iRec = int((YearTime-SSSforcingStart)/SSSforcingPeriod) + 2 |
|
./pkg/seaice/seaice_get_forcing.F |
399 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( saltClimFile,SSSsi0,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
401 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( saltClimFile,SSSsi1,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
46 |
SEAICE_GET_FORCING |
INTEGER bi,bj,i,j,iRec,iEnd |