| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_monitor.F |
102 |
PTRACERS_MONITOR |
WRITE(suff,'(A7,I2.2)') 'ptracer',ip |
|
./pkg/ptracers/ptracers_monitor.F |
107 |
PTRACERS_MONITOR |
& suff, maskC,hFacC,rA ,drF,myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
48 |
PTRACERS_MONITOR |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/ptracers/ptracers_write_state.F |
102 |
PTRACERS_WRITE_STATE |
WRITE(suff,'(A,I10.10)') 'PTRACERS',myIter |
|
./pkg/ptracers/ptracers_write_state.F |
106 |
PTRACERS_WRITE_STATE |
WRITE(suff,'(A7,I2.2,A1,I10.10)') |
|
./pkg/ptracers/ptracers_write_state.F |
112 |
PTRACERS_WRITE_STATE |
CALL WRITE_REC_XYZ_RL(suff, |
|
./pkg/ptracers/ptracers_write_state.F |
41 |
PTRACERS_WRITE_STATE |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/ptracers/ptracers_write_state.F |
87 |
PTRACERS_WRITE_STATE |
WRITE(suff,'(A)') 'PTRACERS' |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
100 |
PTRACERS_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_ptracers.',suff(1:lChar) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
11 |
PTRACERS_WRITE_CHECKPOINT |
& suff,myIter,myTime,myThid ) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
31 |
PTRACERS_WRITE_CHECKPOINT |
CHARACTER*(*) suff |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
63 |
PTRACERS_WRITE_CHECKPOINT |
lChar = ILNBLNK(suff) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
64 |
PTRACERS_WRITE_CHECKPOINT |
WRITE(fn,'(2a)') 'pickup_ptracers.', suff(1:lChar) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
97 |
PTRACERS_WRITE_CHECKPOINT |
DO iChar = 1,len(suff) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
98 |
PTRACERS_WRITE_CHECKPOINT |
IF ( suff(iChar:iChar) .NE. ' ') lChar=iChar |
|
./pkg/ptracers/ptracers_write_timeave.F |
128 |
PTRACERS_WRITE_TIMEAVE |
WRITE(suff,'(A7,I2.2,A1,I10.10)') 'PtrFluxtave', |
|
./pkg/ptracers/ptracers_write_timeave.F |
130 |
PTRACERS_WRITE_TIMEAVE |
CALL WRITE_FLD_XY_RL (suff,' ', |
|
./pkg/ptracers/ptracers_write_timeave.F |
133 |
PTRACERS_WRITE_TIMEAVE |
WRITE(suff,'(A7,I2.2,A1,I10.10)') 'PTRtave', |
|
./pkg/ptracers/ptracers_write_timeave.F |
135 |
PTRACERS_WRITE_TIMEAVE |
CALL WRITE_FLD_XYZ_RL(suff,' ', |
|
./pkg/ptracers/ptracers_write_timeave.F |
46 |
PTRACERS_WRITE_TIMEAVE |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./pkg/ptracers/ptracers_init_varia.F |
104 |
PTRACERS_INIT_VARIA |
WRITE(suff,'(I10.10)') nIter0 |
|
./pkg/ptracers/ptracers_init_varia.F |
106 |
PTRACERS_INIT_VARIA |
WRITE(suff,'(A10)') pickupSuff |
|
./pkg/ptracers/ptracers_init_varia.F |
34 |
PTRACERS_INIT_VARIA |
CHARACTER*(10) suff |
|
./pkg/shelfice/shelfice_do_diags.F |
141 |
SHELFICE_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/shelfice/shelfice_do_diags.F |
144 |
SHELFICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('SHICE_fwFluxtave.',suff, |
|
./pkg/shelfice/shelfice_do_diags.F |
146 |
SHELFICE_DO_DIAGS |
CALL WRITE_FLD_XY_RL('SHICE_heatFluxtave.',suff, |
|
./pkg/shelfice/shelfice_do_diags.F |
29 |
SHELFICE_DO_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/shelfice/shelfice_do_diags.F |
62 |
SHELFICE_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/shelfice/shelfice_do_diags.F |
65 |
SHELFICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'SHICE_fwFlux.',suff, |
|
./pkg/shelfice/shelfice_do_diags.F |
67 |
SHELFICE_DO_DIAGS |
CALL WRITE_FLD_XY_RS( 'SHICE_heatFlux.',suff, |
|
./pkg/pp81/pp81_do_diags.F |
100 |
PP81_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('PPdiffKr.',suff,PPdiffKr, |
|
./pkg/pp81/pp81_do_diags.F |
180 |
PP81_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/pp81/pp81_do_diags.F |
181 |
PP81_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('PPviscAr-T.',suff,PPviscArTave, |
|
./pkg/pp81/pp81_do_diags.F |
183 |
PP81_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('PPdiffKr-T.',suff,PPdiffKrTave, |
|
./pkg/pp81/pp81_do_diags.F |
63 |
PP81_DO_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/pp81/pp81_do_diags.F |
97 |
PP81_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/pp81/pp81_do_diags.F |
98 |
PP81_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('PPviscAr.',suff,PPviscAr, |
|
./pkg/gmredi/gmredi_output.F |
131 |
GMREDI_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/gmredi/gmredi_output.F |
132 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwx-T.',suff,GM_Kwx_T,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
133 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwy-T.',suff,GM_Kwy_T,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
134 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwz-T.',suff,GM_Kwz_T,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
137 |
GMREDI_OUTPUT |
& CALL WRITE_FLD_XY_RL('Visbeck_K-T.',suff,Visbeck_K_T, |
|
./pkg/gmredi/gmredi_output.F |
142 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_PsiXtave.',suff,GM_PsiXtave, |
|
./pkg/gmredi/gmredi_output.F |
144 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_PsiYtave.',suff,GM_PsiYtave, |
|
./pkg/gmredi/gmredi_output.F |
47 |
GMREDI_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/gmredi/gmredi_output.F |
62 |
GMREDI_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/gmredi/gmredi_output.F |
64 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kux.',suff,Kux,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
65 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kvy.',suff,Kvy,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
69 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kuz.',suff,Kuz,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
70 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kvz.',suff,Kvz,myIter,myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
12 |
DIAGNOSTICS_WRITE_PICKUP |
I suff, |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
180 |
DIAGNOSTICS_WRITE_PICKUP |
sn = ILNBLNK(suff) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
186 |
DIAGNOSTICS_WRITE_PICKUP |
write(fn,'(a,a)') 'pickup_qdiag.', suff(1:sn) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
196 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
37 |
DIAGNOSTICS_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
90 |
DIAGNOSTICS_WRITE_PICKUP |
ii = ILNBLNK(suff) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
92 |
DIAGNOSTICS_WRITE_PICKUP |
& 'pickup_diagnostics.',suff(1:ii) |
|
./pkg/diagnostics/diagnostics_out.F |
69 |
DIAGNOSTICS_OUT |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/diagnostics/diagnostics_out.F |
95 |
DIAGNOSTICS_OUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/diagnostics/diagnostics_out.F |
97 |
DIAGNOSTICS_OUT |
WRITE( fn, '(A,A,A)' ) fnames(listId)(1:ilen),'.',suff(1:10) |
|
./pkg/aim_v23/aim_diagnostics.F |
109 |
AIM_DIAGNOSTICS |
WRITE(suff,'(a)') 'aim_tend' |
|
./pkg/aim_v23/aim_diagnostics.F |
110 |
AIM_DIAGNOSTICS |
CALL MNC_CW_SET_UDIM(suff, -1, myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
111 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W_S('D',suff,0,0,'T',myTime,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
112 |
AIM_DIAGNOSTICS |
CALL MNC_CW_SET_UDIM(suff, 0, myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
113 |
AIM_DIAGNOSTICS |
CALL MNC_CW_I_W_S('I',suff,0,0,'iter',myIter,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
115 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0,'aim_dT_RSW',TT_RSW,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
116 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0,'aim_dT_RLW',TT_RLW,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
117 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0,'aim_dT_CNV',TT_CNV,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
118 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0,'aim_dT_PBL',TT_PBL,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
119 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0,'aim_dT_LSC',TT_LSC,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
120 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0,'aim_dQ_CNV',QT_CNV,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
121 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0,'aim_dQ_PBL',QT_PBL,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
122 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0,'aim_dQ_LSC',QT_LSC,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
135 |
AIM_DIAGNOSTICS |
WRITE(suff,'(I10.10)') myIter+1 |
|
./pkg/aim_v23/aim_diagnostics.F |
138 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_RelHum.',suff,Nr,RH(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
142 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,DRAG(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
144 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,SPEED0(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
146 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,TSR(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
148 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,OLR(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
150 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,SSR(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
152 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,SLR(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
154 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,SHF(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
156 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,EVAP(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
158 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,PRECNV(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
160 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,PRECLS(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
162 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,CLOUDC(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
164 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,CLTOP(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
166 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,CBMF(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
168 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,T0(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
170 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,Q0(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
172 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,EnPrec(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
174 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,alb1(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
176 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,dTsurf(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
181 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,TSWclr(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
183 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,OLWclr(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
185 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,SSWclr(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
187 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,SLWclr(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
197 |
AIM_DIAGNOSTICS |
WRITE(suff,'(a)') 'aim_state' |
|
./pkg/aim_v23/aim_diagnostics.F |
198 |
AIM_DIAGNOSTICS |
CALL MNC_CW_SET_UDIM(suff, -1, myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
199 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W_S('D',suff,0,0,'T',myTime,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
200 |
AIM_DIAGNOSTICS |
CALL MNC_CW_SET_UDIM(suff, 0, myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
201 |
AIM_DIAGNOSTICS |
CALL MNC_CW_I_W_S('I',suff,0,0,'iter',myIter,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
203 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
205 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
207 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
209 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
211 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
213 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
215 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
217 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
219 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
221 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
223 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
225 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
227 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
229 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
231 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
233 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
235 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
237 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
239 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
241 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
243 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
245 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,0,0, |
|
./pkg/aim_v23/aim_diagnostics.F |
45 |
AIM_DIAGNOSTICS |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/aim_v23/aim_diagnostics.F |
75 |
AIM_DIAGNOSTICS |
WRITE(suff,'(I10.10)') myIter+1 |
|
./pkg/aim_v23/aim_diagnostics.F |
78 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_RSW.',suff,Nr,TT_RSW(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
80 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_RLW.',suff,Nr,TT_RLW(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
82 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_CNV.',suff,Nr,TT_CNV(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
84 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_PBL.',suff,Nr,TT_PBL(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
86 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_LSC.',suff,Nr,TT_LSC(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
88 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dQ_CNV.',suff,Nr,QT_CNV(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
90 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dQ_PBL.',suff,Nr,QT_PBL(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
92 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dQ_LSC.',suff,Nr,QT_LSC(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
97 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_clskySW.',suff,Nr, |
|
./pkg/aim_v23/aim_diagnostics.F |
99 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aim_dT_clskyLW.',suff,Nr, |
|
./pkg/aim_v23/aim_write_tave.F |
200 |
AIM_WRITE_TAVE |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/aim_v23/aim_write_tave.F |
201 |
AIM_WRITE_TAVE |
CALL WRITE_FLD_XYZ_RL('aim_RHtave.',suff,aimRHtave, |
|
./pkg/aim_v23/aim_write_tave.F |
36 |
AIM_WRITE_TAVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf, suff, fn |
|
./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 |
36 |
AIM_WRITE_LOCAL |
CHARACTER*(*) pref,suff |
|
./pkg/aim_v23/aim_write_local.F |
79 |
AIM_WRITE_LOCAL |
CALL WRITE_LOCAL_RL(pref,suff,nNr,tmpFld, |
|
./pkg/autodiff/g_dummy_in_stepping.F |
102 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'G_Jdiffkr.',suff, g_diffkr, |
|
./pkg/autodiff/g_dummy_in_stepping.F |
106 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'G_Jkagm.',suff, g_kapgm, |
|
./pkg/autodiff/g_dummy_in_stepping.F |
57 |
G_DUMMY_IN_STEPPING |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./pkg/autodiff/g_dummy_in_stepping.F |
77 |
G_DUMMY_IN_STEPPING |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/autodiff/g_dummy_in_stepping.F |
83 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jtaux.',suff, g_fu, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
84 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jtauy.',suff, g_fv, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
85 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jqnet.',suff, g_qnet, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
86 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jempr.',suff, g_empmr, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
89 |
G_DUMMY_IN_STEPPING |
& 'G_Jtheta.',suff, g_theta, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
91 |
G_DUMMY_IN_STEPPING |
& 'G_Jsalt.',suff, g_salt, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
93 |
G_DUMMY_IN_STEPPING |
& 'G_Juvel.',suff, g_uvel, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
95 |
G_DUMMY_IN_STEPPING |
& 'G_Jvvel.',suff, g_vvel, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
97 |
G_DUMMY_IN_STEPPING |
& 'G_Jwvel.',suff, g_wvel, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
99 |
G_DUMMY_IN_STEPPING |
& 'G_Jetan.',suff, g_etan, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
115 |
ADDUMMY_IN_STEPPING |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/autodiff/addummy_in_stepping.F |
122 |
ADDUMMY_IN_STEPPING |
& 'ADJtheta.',suff, adtheta, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
124 |
ADDUMMY_IN_STEPPING |
& 'ADJsalt.',suff, adsalt, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
126 |
ADDUMMY_IN_STEPPING |
& 'ADJuvel.',suff, aduvel, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
128 |
ADDUMMY_IN_STEPPING |
& 'ADJvvel.',suff, advvel, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
130 |
ADDUMMY_IN_STEPPING |
& 'ADJwvel.',suff, adwvel, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
132 |
ADDUMMY_IN_STEPPING |
& 'ADJetan.',suff, adetan, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
133 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJtaux.',suff, adfu, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
134 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJtauy.',suff, adfv, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
135 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
136 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
140 |
ADDUMMY_IN_STEPPING |
& suff, adustress, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
142 |
ADDUMMY_IN_STEPPING |
& suff, advstress, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
144 |
ADDUMMY_IN_STEPPING |
& suff, adhflux, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
146 |
ADDUMMY_IN_STEPPING |
& suff, adsflux, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
149 |
ADDUMMY_IN_STEPPING |
& suff, adatemp, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
151 |
ADDUMMY_IN_STEPPING |
& suff, adaqh, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
153 |
ADDUMMY_IN_STEPPING |
& suff, adprecip, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
157 |
ADDUMMY_IN_STEPPING |
& suff, aduwind, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
159 |
ADDUMMY_IN_STEPPING |
& suff, advwind, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
163 |
ADDUMMY_IN_STEPPING |
& suff, adswdown, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
167 |
ADDUMMY_IN_STEPPING |
& suff, adclimsst, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
171 |
ADDUMMY_IN_STEPPING |
& suff, adclimsss, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
196 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJdiffkr.',suff, addiffkr, |
|
./pkg/autodiff/addummy_in_stepping.F |
200 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJkagm.',suff, adkapgm, |
|
./pkg/autodiff/addummy_in_stepping.F |
205 |
ADDUMMY_IN_STEPPING |
& 'ADJedtaux. ',suff, adeddytaux, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
209 |
ADDUMMY_IN_STEPPING |
& 'ADJedtauy. ',suff, adeddytauy, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
212 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL( 'ADJsst.',suff, adsst, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
215 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL( 'ADJsss.',suff, adsss, myIter, myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
66 |
ADDUMMY_IN_STEPPING |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./pkg/bulk_force/bulkf_output.F |
101 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL('BULK_flwup.',suff, |
|
./pkg/bulk_force/bulkf_output.F |
103 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL('BULK_flwupnet.',suff, |
|
./pkg/bulk_force/bulkf_output.F |
105 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL('BULK_solar.',suff, |
|
./pkg/bulk_force/bulkf_output.F |
107 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL('BULK_ssq.',suff, |
|
./pkg/bulk_force/bulkf_output.F |
47 |
BULKF_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/bulk_force/bulkf_output.F |
85 |
BULKF_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/bulk_force/bulkf_output.F |
87 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL('BULK_Qnet.',suff,BULK_Qnet_AVE, |
|
./pkg/bulk_force/bulkf_output.F |
89 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL('BULK_EmPmR.',suff, |
|
./pkg/bulk_force/bulkf_output.F |
91 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL('BULK_fu.',suff, |
|
./pkg/bulk_force/bulkf_output.F |
93 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL('BULK_fv.',suff, |
|
./pkg/bulk_force/bulkf_output.F |
95 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL('BULK_latent.',suff, |
|
./pkg/bulk_force/bulkf_output.F |
97 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL('BULK_sensible.',suff, |
|
./pkg/bulk_force/bulkf_output.F |
99 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL('BULK_evap.',suff, |
|
./pkg/matrix/matrix_write_tendency.F |
100 |
MATRIX_WRITE_TENDENCY |
CALL WRITE_REC_XYZ_RL(suff, |
|
./pkg/matrix/matrix_write_tendency.F |
28 |
MATRIX_WRITE_TENDENCY |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/matrix/matrix_write_tendency.F |
54 |
MATRIX_WRITE_TENDENCY |
WRITE(suff,'(A9,I2.2)') 'MATRIXEXP',iTracer |
|
./pkg/matrix/matrix_write_tendency.F |
57 |
MATRIX_WRITE_TENDENCY |
CALL WRITE_REC_XYZ_RL(suff, |
|
./pkg/matrix/matrix_write_tendency.F |
97 |
MATRIX_WRITE_TENDENCY |
WRITE(suff,'(A9,I2.2)') 'MATRIXIMP',iTracer |
|
./pkg/dic/dic_biotic_diags.F |
100 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XYZ_RL('DIC_cfluxtave.',suff,cfluxave, |
|
./pkg/dic/dic_biotic_diags.F |
38 |
DIC_BIOTIC_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/dic/dic_biotic_diags.F |
81 |
DIC_BIOTIC_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/dic/dic_biotic_diags.F |
82 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XYZ_RL('DIC_Biotave.',suff,BIOave, |
|
./pkg/dic/dic_biotic_diags.F |
84 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XYZ_RL('DIC_Cartave.',suff,CARave, |
|
./pkg/dic/dic_biotic_diags.F |
86 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_Surtave.',suff,SURave, |
|
./pkg/dic/dic_biotic_diags.F |
88 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_SurOtave.',suff,SUROave, |
|
./pkg/dic/dic_biotic_diags.F |
90 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_pHtave.',suff,pHave, |
|
./pkg/dic/dic_biotic_diags.F |
92 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_pCO2tave.',suff,pCO2ave, |
|
./pkg/dic/dic_biotic_diags.F |
94 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_fluxCO2ave.',suff,fluxCO2ave, |
|
./pkg/dic/dic_biotic_diags.F |
96 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XYZ_RL('DIC_OmegaCtave.',suff,OmegaCave, |
|
./pkg/dic/dic_biotic_diags.F |
98 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XYZ_RL('DIC_pfluxtave.',suff,pfluxave, |
|
./pkg/dic/dic_biotic_init.F |
32 |
DIC_BIOTIC_INIT |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/offline/offline_state.F |
42 |
OFFLINE_STATE |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/offline/offline_state.F |
73 |
OFFLINE_STATE |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/fizhi/fizhi_write_pickup.F |
36 |
FIZHI_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/fizhi/fizhi_write_pickup.F |
65 |
FIZHI_WRITE_PICKUP |
DO iChara = 1,len(suff) |
|
./pkg/fizhi/fizhi_write_pickup.F |
66 |
FIZHI_WRITE_PICKUP |
IF ( suff(iChara:iChara) .NE. ' ') lChar=iChara |
|
./pkg/fizhi/fizhi_write_pickup.F |
68 |
FIZHI_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_fizhi.',suff(1:lChar) |
|
./pkg/fizhi/fizhi_write_pickup.F |
8 |
FIZHI_WRITE_PICKUP |
SUBROUTINE FIZHI_WRITE_PICKUP( suff, myTime, myIter, myThid ) |
|
./pkg/fizhi/fizhi_write_state.F |
44 |
FIZHI_WRITE_STATE |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/fizhi/fizhi_write_state.F |
61 |
FIZHI_WRITE_STATE |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/fizhi/fizhi_write_state.F |
63 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
|
./pkg/fizhi/fizhi_write_state.F |
66 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
|
./pkg/fizhi/fizhi_write_state.F |
69 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
|
./pkg/fizhi/fizhi_write_state.F |
72 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
|
./pkg/cd_code/cd_code_checkpoint.F |
35 |
CD_CODE_READ_CHECKPOINT |
CHARACTER*(10) suff |
|
./pkg/cd_code/cd_code_checkpoint.F |
40 |
CD_CODE_READ_CHECKPOINT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/cd_code/cd_code_checkpoint.F |
42 |
CD_CODE_READ_CHECKPOINT |
WRITE(suff,'(A10)') pickupSuff |
|
./pkg/cd_code/cd_code_checkpoint.F |
66 |
CD_CODE_READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_cd.',suff |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_init_varia.F |
110 |
PTRACERS_INIT_VARIA |
WRITE(suff,'(I10.10)') nIter0 |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_init_varia.F |
112 |
PTRACERS_INIT_VARIA |
WRITE(suff,'(A10)') pickupSuff |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_init_varia.F |
34 |
PTRACERS_INIT_VARIA |
CHARACTER*(10) suff |
|
./model/src/checkpoint.F |
220 |
READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_ph.',suff |
|
./model/src/checkpoint.F |
225 |
READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup_nh.',suff |
|
./model/src/checkpoint.F |
82 |
READ_CHECKPOINT |
CHARACTER*(10) suff |
|
./model/src/checkpoint.F |
95 |
READ_CHECKPOINT |
WRITE(suff,'(I10.10)') myIter |
|
./model/src/checkpoint.F |
97 |
READ_CHECKPOINT |
WRITE(suff,'(A10)') pickupSuff |
|
./model/src/checkpoint.F |
99 |
READ_CHECKPOINT |
WRITE(fn,'(A,A10)') 'pickup.',suff |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
101 |
ADDUMMY_IN_STEPPING |
& 'ADJtheta.',suff, adtheta, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
103 |
ADDUMMY_IN_STEPPING |
& 'ADJsalt.',suff, adsalt, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
105 |
ADDUMMY_IN_STEPPING |
& 'ADJuvel.',suff, aduvel, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
107 |
ADDUMMY_IN_STEPPING |
& 'ADJvvel.',suff, advvel, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
109 |
ADDUMMY_IN_STEPPING |
& 'ADJwvel.',suff, adwvel, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
128 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJhFacC.',suff, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
130 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJhFacS.',suff, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
132 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJhFacW.',suff, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
134 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJrhFacC.',suff, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
136 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJrhFacS.',suff, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
138 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJrhFacW.',suff, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
53 |
ADDUMMY_IN_STEPPING |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
76 |
ADDUMMY_IN_STEPPING |
WRITE(suff,'(I10.10)') myIter |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
100 |
ADDUMMY_IN_HFAC |
WRITE(suff,'(I10.10)') myIter |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
108 |
ADDUMMY_IN_HFAC |
CALL WRITE_FLD_XYZ_RL ( 'ADJhFacC.', suff, adhfacc, |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
112 |
ADDUMMY_IN_HFAC |
CALL WRITE_FLD_XYZ_RL ( 'ADJhFacW.', suff, adhfacw, |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
116 |
ADDUMMY_IN_HFAC |
CALL WRITE_FLD_XYZ_RL ( 'ADJhFacS.', suff, adhfacs, |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
75 |
ADDUMMY_IN_HFAC |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
241 |
AIM_SURF_BC |
WRITE(suff,'(I10.10)') myIter |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
242 |
AIM_SURF_BC |
CALL AIM_WRITE_LOCAL('aim_SST.',suff,1,sst1(1,myThid), |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
63 |
AIM_SURF_BC |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./model/src/update_masks_etc.F |
280 |
UPDATE_MASKS_ETC |
WRITE(suff,'(I10.10)') optimcycle |
|
./model/src/update_masks_etc.F |
281 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XY_RS( 'Depth.',suff,tmpfld,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
282 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacC.',suff,hFacC,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
283 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacW.',suff,hFacW,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
284 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacS.',suff,hFacS,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
65 |
UPDATE_MASKS_ETC |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./model/src/write_state.F |
126 |
WRITE_STATE |
WRITE(suff,'(I10.10)') myIter |
|
./model/src/write_state.F |
127 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVel,myIter,myThid) |
|
./model/src/write_state.F |
128 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVel,myIter,myThid) |
|
./model/src/write_state.F |
129 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'T.',suff,theta,myIter,myThid) |
|
./model/src/write_state.F |
130 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid) |
|
./model/src/write_state.F |
131 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid) |
|
./model/src/write_state.F |
132 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid) |
|
./model/src/write_state.F |
134 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHyd,myIter,myThid) |
|
./model/src/write_state.F |
137 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid) |
|
./model/src/write_state.F |
141 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid) |
|
./model/src/write_state.F |
75 |
WRITE_STATE |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./model/src/calc_surf_dr.F |
195 |
CALC_SURF_DR |
WRITE(suff,'(I10.10)') myIter |
|
./model/src/calc_surf_dr.F |
55 |
CALC_SURF_DR |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/ggl90/ggl90_do_diags.F |
101 |
GGL90_DO_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/ggl90/ggl90_do_diags.F |
102 |
GGL90_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('GGL90viscAr.',suff,GGL90viscAr, |
|
./pkg/ggl90/ggl90_do_diags.F |
|