| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_diags.F |
268 |
SEAICE_DO_DIAGS |
CALL MNC_CW_I_W_S('I','sice_tave',0,0,'iter', myIter, myThid) |
|
./pkg/seaice/seaice_do_diags.F |
28 |
SEAICE_DO_DIAGS |
INTEGER myIter |
|
./pkg/seaice/seaice_do_diags.F |
292 |
SEAICE_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/seaice/seaice_do_diags.F |
295 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('FUtave.' ,suff,FUtave ,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
296 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('FVtave.' ,suff,FVtave ,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
297 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('EmPmRtave.',suff,EmPmRtave,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
298 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('QNETtave.' ,suff,QNETtave ,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
299 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('QSWtave.' ,suff,QSWtave ,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
300 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('UICEtave.' ,suff,UICEtave ,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
301 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('VICEtave.' ,suff,VICEtave ,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
302 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('HEFFtave.' ,suff,HEFFtave ,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
303 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('AREAtave.' ,suff,AREAtave ,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
50 |
SEAICE_DO_DIAGS |
CALL MNC_CW_I_W_S('I','sice',0,0,'iter', myIter, myThid) |
|
./pkg/seaice/seaice_do_diags.F |
63 |
SEAICE_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/seaice/seaice_do_diags.F |
66 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'UWIND.',suff,uwind,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
67 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'VWIND.',suff,vwind,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
68 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'FU.',suff,fu,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
69 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'FV.',suff,fv,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
6 |
SEAICE_DO_DIAGS |
SUBROUTINE SEAICE_DO_DIAGS( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
70 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'EmPmR.',suff,EmPmR,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
71 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'Qnet.',suff,Qnet,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
72 |
SEAICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'Qsw.',suff,Qsw,myIter,myThid) |
|
./pkg/seaice/seaice_do_diags.F |
78 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( uwind , 'Current uwind ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
79 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( vwind , 'Current vwind ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
80 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( atemp , 'Current atemp ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
81 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( aqh , 'Current aqh ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
82 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( lwdown, 'Current lwdown', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
83 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( swdown, 'Current swdown', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
84 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( precip, 'Current precip', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
85 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRL( evap , 'Current evap ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
86 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( runoff, 'Current runoff', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
87 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( SSS , 'Current SSS ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
88 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( SST , 'Current SST ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
89 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRL( fu , 'Current fu ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
90 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRL( fv , 'Current fv ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
91 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRL( EmPmR , 'Current EmPmR ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
92 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRL( Qnet , 'Current Qnet ', myIter, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
93 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRL( Qsw , 'Current Qsw ', myIter, myThid ) |
|
./model/src/cycle_tracer.F |
12 |
CYCLE_TRACER |
I myTime, myIter, myThid ) |
|
./model/src/cycle_tracer.F |
40 |
CYCLE_TRACER |
INTEGER myIter, myThid |
|
./pkg/seaice/dynsolver.F |
35 |
DYNSOLVER |
INTEGER myIter |
|
./pkg/seaice/dynsolver.F |
7 |
DYNSOLVER |
SUBROUTINE DYNSOLVER( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_init.F |
249 |
SEAICE_INIT |
myIter=0 |
|
./pkg/seaice/seaice_init.F |
251 |
SEAICE_INIT |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init.F |
253 |
SEAICE_INIT |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init.F |
255 |
SEAICE_INIT |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init.F |
257 |
SEAICE_INIT |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init.F |
259 |
SEAICE_INIT |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init.F |
261 |
SEAICE_INIT |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init.F |
263 |
SEAICE_INIT |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init.F |
265 |
SEAICE_INIT |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init.F |
267 |
SEAICE_INIT |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init.F |
269 |
SEAICE_INIT |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init.F |
271 |
SEAICE_INIT |
& myIter, myThid ) |
|
./pkg/seaice/seaice_init.F |
39 |
SEAICE_INIT |
INTEGER myIter, myTile |
|
./pkg/seaice/seaice_get_forcing.F |
135 |
SEAICE_GET_FORCING |
& 'S/R SEAICE_GET_FORCING: initialize',myTime,myIter |
|
./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 |
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 |
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 |
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 |
242 |
SEAICE_GET_FORCING |
& 'S/R SEAICE_GET_FORCING: reading winds',myTime,myIter |
|
./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 |
279 |
SEAICE_GET_FORCING |
& 'S/R SEAICE_GET_FORCING: reading fluxes',myTime,myIter |
|
./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 |
28 |
SEAICE_GET_FORCING |
INTEGER myIter |
|
./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 |
372 |
SEAICE_GET_FORCING |
write(0,*) 'S/R SEAICE_GET_FORCING: reading SST',myTime,myIter |
|
./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 |
397 |
SEAICE_GET_FORCING |
write(0,*) 'S/R SEAICE_GET_FORCING: reading SSS',myTime,myIter |
|
./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 |
7 |
SEAICE_GET_FORCING |
SUBROUTINE SEAICE_GET_FORCING( myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
96 |
SEAICE_GET_FORCING |
IF ( myIter .EQ. nIter0 ) THEN |
|
./model/src/freeze_surface.F |
10 |
FREEZE_SURFACE |
SUBROUTINE FREEZE_SURFACE( myTime, myIter, myThid ) |
|
./model/src/freeze_surface.F |
35 |
FREEZE_SURFACE |
INTEGER myIter |
|
./pkg/seaice/growth.F |
296 |
GROWTH |
CALL PLOT_FIELD_XYRS( GWATX,'Current GWATX ', myIter, myThid ) |
|
./pkg/seaice/growth.F |
297 |
GROWTH |
CALL PLOT_FIELD_XYRS( GWATY,'Current GWATY ', myIter, myThid ) |
|
./pkg/seaice/growth.F |
298 |
GROWTH |
CALL PLOT_FIELD_XYRL( FO,'Current FO ', myIter, myThid ) |
|
./pkg/seaice/growth.F |
299 |
GROWTH |
CALL PLOT_FIELD_XYRL( FHEFF,'Current FHEFF ', myIter, myThid ) |
|
./pkg/seaice/growth.F |
300 |
GROWTH |
CALL PLOT_FIELD_XYRL( QSW,'Current QSW ', myIter, myThid ) |
|
./pkg/seaice/growth.F |
301 |
GROWTH |
CALL PLOT_FIELD_XYRL( QNET,'Current QNET ', myIter, myThid ) |
|
./pkg/seaice/growth.F |
302 |
GROWTH |
CALL PLOT_FIELD_XYRL( EmPmR,'Current EmPmR ', myIter, myThid ) |
|
./pkg/seaice/growth.F |
310 |
GROWTH |
CALL PLOT_FIELD_XYRL( GHEFF,'Current UICE ', myIter, myThid ) |
|
./pkg/seaice/growth.F |
311 |
GROWTH |
CALL PLOT_FIELD_XYRL( GAREA,'Current HEFF ', myIter, myThid ) |
|
./pkg/seaice/growth.F |
34 |
GROWTH |
INTEGER myIter, myThid |
|
./pkg/seaice/growth.F |
7 |
GROWTH |
SUBROUTINE GROWTH( myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
101 |
GMREDI_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/gmredi/gmredi_output.F |
103 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwx-T.',suff,GM_Kwx_T,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
104 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwy-T.',suff,GM_Kwy_T,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
105 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwz-T.',suff,GM_Kwz_T,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
109 |
GMREDI_OUTPUT |
& myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
10 |
GMREDI_OUTPUT |
SUBROUTINE GMREDI_OUTPUT( myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
114 |
GMREDI_OUTPUT |
& myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
116 |
GMREDI_OUTPUT |
& myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
37 |
GMREDI_OUTPUT |
INTEGER myIter |
|
./pkg/gmredi/gmredi_output.F |
54 |
GMREDI_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/gmredi/gmredi_output.F |
56 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kux.',suff,Kux,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
57 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kvy.',suff,Kvy,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
61 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kuz.',suff,Kuz,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
62 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kvz.',suff,Kvz,myIter,myThid) |
|
./pkg/gchem/gchem_fields_load.F |
11 |
GCHEM_FIELDS_LOAD |
I myTime,myIter, myThid) |
|
./pkg/gchem/gchem_fields_load.F |
17 |
GCHEM_FIELDS_LOAD |
INTEGER myThid, myIter |
|
./pkg/gchem/gchem_fields_load.F |
37 |
GCHEM_FIELDS_LOAD |
call DIC_FIELDS_LOAD (myIter,myTime,myThid) |
|
./pkg/gchem/gchem_fields_load.F |
42 |
GCHEM_FIELDS_LOAD |
call CFC_FIELDS_LOAD(myIter,myTime,myThid) |
|
./pkg/gchem/gchem_calc_tendency.F |
107 |
GCHEM_CALC_TENDENCY |
& myIter, myTime, myThid ) |
|
./pkg/gchem/gchem_calc_tendency.F |
111 |
GCHEM_CALC_TENDENCY |
& myIter, myTime, myThid ) |
|
./pkg/gchem/gchem_calc_tendency.F |
11 |
GCHEM_CALC_TENDENCY |
I myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_calc_tendency.F |
38 |
GCHEM_CALC_TENDENCY |
INTEGER myThid, myIter |
|
./pkg/gchem/gchem_forcing_sep.F |
105 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
34 |
GCHEM_FORCING_SEP |
INTEGER myThid, myIter |
|
./pkg/gchem/gchem_forcing_sep.F |
97 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
|
./pkg/gchem/gchem_forcing_sep.F |
9 |
GCHEM_FORCING_SEP |
SUBROUTINE GCHEM_FORCING_SEP(myTime,myIter, myThid ) |
|
./model/src/calc_gt.F |
105 |
CALC_GT |
I myTime, myIter, myThid ) |
|
./model/src/calc_gt.F |
114 |
CALC_GT |
iterNb = myIter |
|
./model/src/calc_gt.F |
115 |
CALC_GT |
IF (staggerTimeStep) iterNb = myIter - 1 |
|
./model/src/calc_gt.F |
15 |
CALC_GT |
I myTime,myIter,myThid ) |
|
./model/src/calc_gt.F |
81 |
CALC_GT |
INTEGER myIter |
|
./pkg/gchem/gchem_add_tendency.F |
11 |
GCHEM_ADD_TENDENCY |
& iTracer, myTime,myIter, myThid ) |
|
./pkg/gchem/gchem_add_tendency.F |
39 |
GCHEM_ADD_TENDENCY |
INTEGER myThid, myIter |
|
./pkg/gchem/gchem_diags.F |
24 |
GCHEM_DIAGS |
INTEGER myThid, myIter |
|
./pkg/gchem/gchem_diags.F |
35 |
GCHEM_DIAGS |
IF (myIter.NE.nIter0) |
|
./pkg/gchem/gchem_diags.F |
36 |
GCHEM_DIAGS |
& call DIC_BIOTIC_DIAGS( myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_diags.F |
7 |
GCHEM_DIAGS |
SUBROUTINE GCHEM_DIAGS(myTime,myIter, myThid ) |
|
./model/src/convective_adjustment.F |
12 |
CONVECTIVE_ADJUSTMENT |
I myTime, myIter, myThid ) |
|
./model/src/convective_adjustment.F |
177 |
CONVECTIVE_ADJUSTMENT |
IF (myIter.ne.nIter0 .AND. taveFreq.GT.0.) THEN |
|
./model/src/convective_adjustment.F |
46 |
CONVECTIVE_ADJUSTMENT |
INTEGER myIter |
|
./pkg/pp81/pp81_do_diags.F |
101 |
PP81_DO_DIAGS |
& myIter,myThid) |
|
./pkg/pp81/pp81_do_diags.F |
10 |
PP81_DO_DIAGS |
SUBROUTINE PP81_DO_DIAGS( myCurrentTime, myIter, myThid ) |
|
./pkg/pp81/pp81_do_diags.F |
117 |
PP81_DO_DIAGS |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/pp81/pp81_do_diags.F |
130 |
PP81_DO_DIAGS |
IF ( myIter .EQ. nIter0 .OR. |
|
./pkg/pp81/pp81_do_diags.F |
151 |
PP81_DO_DIAGS |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/pp81/pp81_do_diags.F |
169 |
PP81_DO_DIAGS |
& pp_drctrecTave,myIter,myThid) |
|
./pkg/pp81/pp81_do_diags.F |
171 |
PP81_DO_DIAGS |
& pp_drctrecTave,myIter,myThid) |
|
./pkg/pp81/pp81_do_diags.F |
180 |
PP81_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/pp81/pp81_do_diags.F |
182 |
PP81_DO_DIAGS |
& myIter,myThid) |
|
./pkg/pp81/pp81_do_diags.F |
184 |
PP81_DO_DIAGS |
& myIter,myThid) |
|
./pkg/pp81/pp81_do_diags.F |
56 |
PP81_DO_DIAGS |
INTEGER myIter |
|
./pkg/pp81/pp81_do_diags.F |
80 |
PP81_DO_DIAGS |
& Nr, myIter, myThid ) |
|
./pkg/pp81/pp81_do_diags.F |
82 |
PP81_DO_DIAGS |
& Nr, myIter, myThid ) |
|
./pkg/pp81/pp81_do_diags.F |
90 |
PP81_DO_DIAGS |
& myIter,myThid) |
|
./pkg/pp81/pp81_do_diags.F |
92 |
PP81_DO_DIAGS |
& myIter,myThid) |
|
./pkg/pp81/pp81_do_diags.F |
97 |
PP81_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/pp81/pp81_do_diags.F |
99 |
PP81_DO_DIAGS |
& myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_import_external_data.F |
26 |
CPL_IMPORT_EXTERNAL_DATA |
INTEGER myIter |
|
./pkg/aim_compon_interf/cpl_import_external_data.F |
38 |
CPL_IMPORT_EXTERNAL_DATA |
IF ( (myIter/cplSendFrq_iter)*cplSendFrq_iter .EQ. myIter ) THEN |
|
./pkg/aim_compon_interf/cpl_import_external_data.F |
39 |
CPL_IMPORT_EXTERNAL_DATA |
WRITE(0,*) ' Importing oceanic fields at iteration ', myIter |
|
./pkg/aim_compon_interf/cpl_import_external_data.F |
8 |
CPL_IMPORT_EXTERNAL_DATA |
I myIter, myTime, myThid ) |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
10 |
ATM_STORE_SEAICE |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
42 |
ATM_STORE_SEAICE |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_apply_import.F |
13 |
ATM_APPLY_IMPORT |
I myTime, myIter, bi, bj, myThid ) |
|
./pkg/aim_compon_interf/atm_apply_import.F |
54 |
ATM_APPLY_IMPORT |
INTEGER myIter, bi, bj, myThid |
|
./pkg/aim_compon_interf/atm_store_qshortwave.F |
38 |
ATM_STORE_QSHORTWAVE |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_qshortwave.F |
9 |
ATM_STORE_QSHORTWAVE |
I myIter, |
|
./pkg/aim_compon_interf/cpl_write_diags.F |
27 |
CPL_WRITE_DIAGS |
INTEGER myIter |
|
./pkg/aim_compon_interf/cpl_write_diags.F |
7 |
CPL_WRITE_DIAGS |
SUBROUTINE CPL_WRITE_DIAGS( myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/cpl_export_my_data.F |
26 |
CPL_EXPORT_MY_DATA |
INTEGER myIter |
|
./pkg/aim_compon_interf/cpl_export_my_data.F |
37 |
CPL_EXPORT_MY_DATA |
IF ( (myIter/cplSendFrq_iter)*cplSendFrq_iter .EQ. myIter ) THEN |
|
./pkg/aim_compon_interf/cpl_export_my_data.F |
38 |
CPL_EXPORT_MY_DATA |
WRITE(0,*) ' Exporting atmospheric fluxes at iter. ', myIter |
|
./pkg/aim_compon_interf/cpl_export_my_data.F |
8 |
CPL_EXPORT_MY_DATA |
I myIter, myTime, myThid ) |
|
./pkg/aim_compon_interf/atm_store_roenfx.F |
10 |
ATM_STORE_ROENFX |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_roenfx.F |
47 |
ATM_STORE_ROENFX |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
10 |
ATM_STORE_RUNOFF |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
47 |
ATM_STORE_RUNOFF |
INTEGER myIter |
|
./model/src/adams_bashforth2.F |
12 |
ADAMS_BASHFORTH2 |
I myIter, myThid ) |
|
./model/src/adams_bashforth2.F |
38 |
ADAMS_BASHFORTH2 |
INTEGER myIter, myThid |
|
./model/src/adams_bashforth2.F |
50 |
ADAMS_BASHFORTH2 |
IF ( myIter.EQ.0 ) THEN |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
25 |
ATM_CPL_READ_PICKUP |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
34 |
ATM_CPL_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
7 |
ATM_CPL_READ_PICKUP |
SUBROUTINE ATM_CPL_READ_PICKUP( myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_saltfx.F |
38 |
ATM_STORE_SALTFX |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_saltfx.F |
9 |
ATM_STORE_SALTFX |
I myIter, |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
27 |
CPL_WRITE_PICKUP |
INTEGER myIter |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
40 |
CPL_WRITE_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
57 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,ocMxlD , 1,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
58 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSTocn , 2,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
59 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,SSSocn , 3,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
60 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,vSqocn , 4,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
62 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,atmSLPr , 5,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
63 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,HeatFlux , 6,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
64 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qShortWave, 7,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
70 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauX , 8,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
71 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tauY , 9,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
72 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,EvMPrFlux ,10,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
73 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,RunOffFlux,11,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
74 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,RunOffEnFx,12,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
75 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceSaltFlx,13,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
76 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,seaIceMass,14,myIter,myThid) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
8 |
CPL_WRITE_PICKUP |
& prec, lgf, permCheckPoint, myIter, myThid) |
|
./pkg/aim_compon_interf/atm_store_atmslp.F |
38 |
ATM_STORE_ATMSLP |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_atmslp.F |
9 |
ATM_STORE_ATMSLP |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
44 |
ATM_STORE_TAUY |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
9 |
ATM_STORE_TAUY |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_taux.F |
44 |
ATM_STORE_TAUX |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_taux.F |
9 |
ATM_STORE_TAUX |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_heatflux.F |
38 |
ATM_STORE_HEATFLUX |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_heatflux.F |
9 |
ATM_STORE_HEATFLUX |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
32 |
ATM_STORE_MY_DATA |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
41 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_ATMSLP( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
42 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_HEATFLUX( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
43 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_QSHORTWAVE( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
51 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_EVMPR( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
53 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_RUNOFF( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
54 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_ROENFX( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
57 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_SALTFX( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
58 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_SEAICE( bi,bj, myTime, myIter, myThid ) |
|
./pkg/aim_compon_interf/atm_store_my_data.F |
8 |
ATM_STORE_MY_DATA |
I myIter, |
|
./pkg/aim_compon_interf/atm_store_evmpr.F |
38 |
ATM_STORE_EVMPR |
INTEGER myIter |
|
./pkg/aim_compon_interf/atm_store_evmpr.F |
9 |
ATM_STORE_EVMPR |
I myIter, |
|
./pkg/monitor/mon_ke.F |
12 |
MON_KE |
I myIter, myThid ) |
|
./pkg/monitor/mon_ke.F |
27 |
MON_KE |
INTEGER myIter, myThid |
|
./pkg/monitor/monitor.F |
104 |
MONITOR |
IF (useSEAICE) CALL SEAICE_MONITOR( myIter, myTime, myThid ) |
|
./pkg/monitor/monitor.F |
12 |
MONITOR |
I myIter, myTime, myThid ) |
|
./pkg/monitor/monitor.F |
133 |
MONITOR |
CALL MON_KE(myIter, myThid) |
|
./pkg/monitor/monitor.F |
136 |
MONITOR |
CALL MON_VORT3(myIter, myThid) |
|
./pkg/monitor/monitor.F |
142 |
MONITOR |
CALL MON_SOLUTION( statsTemp, myTime, myIter, myThid ) |
|
./pkg/monitor/monitor.F |
33 |
MONITOR |
INTEGER myIter |
|
./pkg/monitor/monitor.F |
91 |
MONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid) |
|
./pkg/monitor/monitor.F |
99 |
MONITOR |
CALL EXF_MONITOR( myIter, myTime, myThid ) |
|
./pkg/monitor/mon_vort3.F |
12 |
MON_VORT3 |
I myIter, myThid ) |
|
./pkg/monitor/mon_vort3.F |
31 |
MON_VORT3 |
INTEGER myIter, myThid |
|
./pkg/monitor/mon_solution.F |
13 |
MON_SOLUTION |
I myTime, myIter, myThid ) |
|
./pkg/monitor/mon_solution.F |
30 |
MON_SOLUTION |
INTEGER myIter |