| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
100 |
PTRACERS_READ_CHECKPOINT |
iRec = 2*iTracer |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
102 |
PTRACERS_READ_CHECKPOINT |
& gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),iRec,myThid) |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
38 |
PTRACERS_READ_CHECKPOINT |
INTEGER iTracer,prec,iRec |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
71 |
PTRACERS_READ_CHECKPOINT |
iRec = iTracer |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
73 |
PTRACERS_READ_CHECKPOINT |
& pTracer(1-Olx,1-Oly,1,1,1,iTracer),iRec,myThid) |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
79 |
PTRACERS_READ_CHECKPOINT |
iRec = iTracer + PTRACERS_num |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
81 |
PTRACERS_READ_CHECKPOINT |
& gPtr(1-Olx,1-Oly,1,1,1,iTracer),iRec,myThid) |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
85 |
PTRACERS_READ_CHECKPOINT |
iRec = iTracer + PTRACERS_num*2 |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
87 |
PTRACERS_READ_CHECKPOINT |
& gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),iRec,myThid) |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
97 |
PTRACERS_READ_CHECKPOINT |
iRec = 2*iTracer -1 |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
99 |
PTRACERS_READ_CHECKPOINT |
& pTracer(1-Olx,1-Oly,1,1,1,iTracer),iRec,myThid) |
|
./pkg/ptracers/ptracers_write_state.F |
103 |
PTRACERS_WRITE_STATE |
iRec=iTracer |
|
./pkg/ptracers/ptracers_write_state.F |
108 |
PTRACERS_WRITE_STATE |
iRec=1 |
|
./pkg/ptracers/ptracers_write_state.F |
113 |
PTRACERS_WRITE_STATE |
& pTracer(1-Olx,1-Oly,1,1,1,iTracer),iRec,myIter,myThid) |
|
./pkg/ptracers/ptracers_write_state.F |
42 |
PTRACERS_WRITE_STATE |
INTEGER iRec |
|
./pkg/ptracers/ptracers_write_state.F |
88 |
PTRACERS_WRITE_STATE |
iRec = int ( (myCurrentTime-startTime) |
|
./pkg/ptracers/ptracers_write_state.F |
90 |
PTRACERS_WRITE_STATE |
iRec = (iRec-1)*PTRACERS_num + iTracer + 1 |
|
./pkg/ptracers/ptracers_write_state.F |
94 |
PTRACERS_WRITE_STATE |
iRec = int ( (myCurrentTime-startTime) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
110 |
PTRACERS_WRITE_CHECKPOINT |
iRec = 2*iTracer - 1 |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
113 |
PTRACERS_WRITE_CHECKPOINT |
& iRec,myIter,myThid) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
114 |
PTRACERS_WRITE_CHECKPOINT |
iRec = 2*iTracer |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
117 |
PTRACERS_WRITE_CHECKPOINT |
& iRec,myIter,myThid) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
47 |
PTRACERS_WRITE_CHECKPOINT |
INTEGER i,iTracer,prec,iRec,iChar,lChar |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
24 |
SET_RUNOFFMAP |
INTEGER lengthName, lengthRec, iRec |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
39 |
SET_RUNOFFMAP |
iRec = 1 |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
40 |
SET_RUNOFFMAP |
READ(88,rec=iRec) rAc |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
66 |
SET_RUNOFFMAP |
iRec = n |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
67 |
SET_RUNOFFMAP |
READ(88,rec=iRec) r8seg |
|
./pkg/aim_v23/aim_write_local.F |
10 |
AIM_WRITE_LOCAL |
I pref,suff,nNr,field,bi,bj,iRec,myIter,myThid) |
|
./pkg/aim_v23/aim_write_local.F |
39 |
AIM_WRITE_LOCAL |
INTEGER bi, bj, iRec, myIter, myThid |
|
./pkg/aim_v23/aim_write_local.F |
80 |
AIM_WRITE_LOCAL |
& bi,bj,iRec,myIter,myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
101 |
MATRIX_WRITE_TENDENCY |
& MATRIX(1-Olx,1-Oly,1,1,1,iTracer,2),iRec,myIter,myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
27 |
MATRIX_WRITE_TENDENCY |
INTEGER bi,bj,i,j,k,iTracer,iRec |
|
./pkg/matrix/matrix_write_tendency.F |
39 |
MATRIX_WRITE_TENDENCY |
iRec=expMatrixWriteCount |
|
./pkg/matrix/matrix_write_tendency.F |
58 |
MATRIX_WRITE_TENDENCY |
& MATRIX(1-Olx,1-Oly,1,1,1,iTracer,1),iRec,myIter,myThid) |
|
./pkg/matrix/matrix_write_tendency.F |
82 |
MATRIX_WRITE_TENDENCY |
iRec=impMatrixWriteCount |
|
./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 ) |
|
./model/src/write_state.F |
104 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'U', uVel,iRec,myIter,myThid) |
|
./model/src/write_state.F |
105 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'V', vVel,iRec,myIter,myThid) |
|
./model/src/write_state.F |
106 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'T', theta,iRec,myIter,myThid) |
|
./model/src/write_state.F |
107 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'S', salt,iRec,myIter,myThid) |
|
./model/src/write_state.F |
108 |
WRITE_STATE |
CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid) |
|
./model/src/write_state.F |
109 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
|
./model/src/write_state.F |
112 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid) |
|
./model/src/write_state.F |
76 |
WRITE_STATE |
INTEGER iRec |
|
./model/src/write_state.F |
88 |
WRITE_STATE |
iRec = 1 |
|
./model/src/write_state.F |
90 |
WRITE_STATE |
iRec = int ( (myTime-startTime) / dumpFreq +1.5 ) |
|
./pkg/rw/write_local_rs.F |
20 |
WRITE_LOCAL_RS |
INTEGER iRec |
|
./pkg/rw/write_local_rs.F |
52 |
WRITE_LOCAL_RS |
& fType, nNr, field, bi, bj, iRec, myIter, myThid ) |
|
./pkg/rw/write_local_rs.F |
7 |
WRITE_LOCAL_RS |
I pref,suff,nNr,field,bi,bj,iRec,myIter,myThid) |
|
./pkg/rw/write_local_rl.F |
20 |
WRITE_LOCAL_RL |
INTEGER iRec |
|
./pkg/rw/write_local_rl.F |
57 |
WRITE_LOCAL_RL |
& fType, nNr, field, iRec, myIter, myThid ) |
|
./pkg/rw/write_local_rl.F |
61 |
WRITE_LOCAL_RL |
& fType, nNr, field, bi, bj, iRec, myIter, myThid ) |
|
./pkg/rw/write_local_rl.F |
7 |
WRITE_LOCAL_RL |
I pref,suff,nNr,field,bi,bj,iRec,myIter,myThid) |
|
./pkg/rw/write_myfield.F |
53 |
WRITE_MYFIELD |
INTEGER iRec, il |
|
./pkg/rw/write_myfield.F |
68 |
WRITE_MYFIELD |
iRec = 1 |
|
./pkg/rw/write_myfield.F |
70 |
WRITE_MYFIELD |
iRec = NINT ( (myTime-startTime) / dumpFreq + 1. ) |
|
./pkg/rw/write_myfield.F |
86 |
WRITE_MYFIELD |
CALL WRITE_REC_XYZ_RL( localfile, myField,iRec,myIter,myThid) |
|
./pkg/rw/read_write_rec.F |
117 |
READ_REC_XY_RL |
INTEGER iRec |
|
./pkg/rw/read_write_rec.F |
150 |
READ_REC_XYZ_RS |
SUBROUTINE READ_REC_XYZ_RS( fName,field,iRec,myIter,myThid) |
|
./pkg/rw/read_write_rec.F |
168 |
READ_REC_XYZ_RS |
INTEGER iRec |
|
./pkg/rw/read_write_rec.F |
202 |
READ_REC_XYZ_RL |
SUBROUTINE READ_REC_XYZ_RL( fName,field,iRec,myIter,myThid) |
|
./pkg/rw/read_write_rec.F |
220 |
READ_REC_XYZ_RL |
INTEGER iRec |
|
./pkg/rw/read_write_rec.F |
254 |
READ_REC_XZ_RS |
SUBROUTINE READ_REC_XZ_RS( fName,field,iRec,myIter,myThid) |
|
./pkg/rw/read_write_rec.F |
271 |
READ_REC_XZ_RS |
INTEGER iRec |
|
./pkg/rw/read_write_rec.F |
304 |
READ_REC_XZ_RL |
SUBROUTINE READ_REC_XZ_RL( fName,field,iRec,myIter,myThid) |
|
./pkg/rw/read_write_rec.F |
322 |
READ_REC_XZ_RL |
INTEGER iRec |
|
./pkg/rw/read_write_rec.F |
355 |
READ_REC_YZ_RS |
SUBROUTINE READ_REC_YZ_RS( fName,field,iRec,myIter,myThid) |
|
./pkg/rw/read_write_rec.F |
373 |
READ_REC_YZ_RS |
INTEGER iRec |
|
./pkg/rw/read_write_rec.F |
407 |
READ_REC_YZ_RL |
SUBROUTINE READ_REC_YZ_RL( fName,field,iRec,myIter,myThid) |
|
./pkg/rw/read_write_rec.F |
425 |
READ_REC_YZ_RL |
INTEGER iRec |
|
./pkg/rw/read_write_rec.F |
459 |
WRITE_REC_XY_RS |
SUBROUTINE WRITE_REC_XY_RS( fName,field,iRec,myIter,myThid) |
|
./pkg/rw/read_write_rec.F |
477 |
WRITE_REC_XY_RS |
INTEGER iRec |
|
./pkg/rw/read_write_rec.F |
515 |
WRITE_REC_XY_RL |
SUBROUTINE WRITE_REC_XY_RL( fName,field,iRec,myIter,myThid) |
|
./pkg/rw/read_write_rec.F |
52 |
READ_REC_XY_RS |
SUBROUTINE READ_REC_XY_RS( fName,field,iRec,myIter,myThid) |
|
./pkg/rw/read_write_rec.F |
533 |
WRITE_REC_XY_RL |
INTEGER iRec |
|
./pkg/rw/read_write_rec.F |
571 |
WRITE_REC_XYZ_RS |
SUBROUTINE WRITE_REC_XYZ_RS( fName,field,iRec,myIter,myThid) |
|
./pkg/rw/read_write_rec.F |
589 |
WRITE_REC_XYZ_RS |
INTEGER iRec |
|
./pkg/rw/read_write_rec.F |
627 |
WRITE_REC_XYZ_RL |
SUBROUTINE WRITE_REC_XYZ_RL( fName,field,iRec,myIter,myThid) |
|
./pkg/rw/read_write_rec.F |
645 |
WRITE_REC_XYZ_RL |
INTEGER iRec |
|
./pkg/rw/read_write_rec.F |
67 |
READ_REC_XY_RS |
INTEGER iRec |
|
./pkg/rw/read_write_rec.F |
99 |
READ_REC_XY_RL |
SUBROUTINE READ_REC_XY_RL( fName,field,iRec,myIter,myThid) |
|
./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 |