| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
101 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
39 |
PTRACERS_READ_CHECKPOINT |
CHARACTER*(MAX_LEN_MBUF) fn |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
45 |
PTRACERS_READ_CHECKPOINT |
WRITE(fn,'(a)') 'pickup_ptracers' |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
46 |
PTRACERS_READ_CHECKPOINT |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
47 |
PTRACERS_READ_CHECKPOINT |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
48 |
PTRACERS_READ_CHECKPOINT |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
50 |
PTRACERS_READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0, PTRACERS_names(iTracer), |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
54 |
PTRACERS_READ_CHECKPOINT |
CALL MNC_CW_SET_UDIM(fn, 2, myThid) |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
56 |
PTRACERS_READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0, PTRACERS_names(iTracer), |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
65 |
PTRACERS_READ_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_ptracers.',myIter |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
72 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
80 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
86 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
98 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./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 |
111 |
PTRACERS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
115 |
PTRACERS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
48 |
PTRACERS_WRITE_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
55 |
PTRACERS_WRITE_CHECKPOINT |
fn(i:i) = ' ' |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
61 |
PTRACERS_WRITE_CHECKPOINT |
WRITE(fn,'(a)') 'pickup_ptracers' |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
64 |
PTRACERS_WRITE_CHECKPOINT |
WRITE(fn,'(2a)') 'pickup_ptracers.', suff(1:lChar) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
66 |
PTRACERS_WRITE_CHECKPOINT |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
68 |
PTRACERS_WRITE_CHECKPOINT |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
70 |
PTRACERS_WRITE_CHECKPOINT |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
72 |
PTRACERS_WRITE_CHECKPOINT |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
75 |
PTRACERS_WRITE_CHECKPOINT |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
78 |
PTRACERS_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
79 |
PTRACERS_WRITE_CHECKPOINT |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
81 |
PTRACERS_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W('D',fn,0,0, PTRACERS_names(iTracer), |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
84 |
PTRACERS_WRITE_CHECKPOINT |
CALL MNC_CW_SET_UDIM(fn, 2, myThid) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
85 |
PTRACERS_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
86 |
PTRACERS_WRITE_CHECKPOINT |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
88 |
PTRACERS_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W('D',fn,0,0, PTRACERS_names(iTracer), |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
102 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
184 |
DIAGNOSTICS_WRITE_PICKUP |
fn(i:i) = ' ' |
|
./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 |
189 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',numdiags,qdiag, |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
194 |
DIAGNOSTICS_WRITE_PICKUP |
fn(i:i) = ' ' |
|
./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 |
198 |
DIAGNOSTICS_WRITE_PICKUP |
OPEN( dUnit, file=fn ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
50 |
DIAGNOSTICS_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
95 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 0, myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
97 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
99 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
143 |
DIAGNOSTICS_READ_PICKUP |
fn(i:i) = ' ' |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
145 |
DIAGNOSTICS_READ_PICKUP |
write(fn,'(A,I10.10)') 'pickup_qdiag', nIter0 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
146 |
DIAGNOSTICS_READ_PICKUP |
CALL MDSREADFIELD(fn,readBinaryPrec,'RL', |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
151 |
DIAGNOSTICS_READ_PICKUP |
fn(i:i) = ' ' |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
153 |
DIAGNOSTICS_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_ndiag.', nIter0 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
155 |
DIAGNOSTICS_READ_PICKUP |
OPEN( dUnit, file=fn ) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
37 |
DIAGNOSTICS_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/diagnostics/diagnostics_out.F |
338 |
DIAGNOSTICS_OUT |
CALL MDSWRITEFIELD_NEW(fn,precFloat32,glf,.FALSE., |
|
./pkg/diagnostics/diagnostics_out.F |
342 |
DIAGNOSTICS_OUT |
CALL MDSWRITEFIELD_NEW(fn,precFloat64,glf,.FALSE., |
|
./pkg/diagnostics/diagnostics_out.F |
346 |
DIAGNOSTICS_OUT |
CALL MDSWRITEFIELD_NEW(fn,writeBinaryPrec,glf,.FALSE., |
|
./pkg/diagnostics/diagnostics_out.F |
68 |
DIAGNOSTICS_OUT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/diagnostics/diagnostics_out.F |
97 |
DIAGNOSTICS_OUT |
WRITE( fn, '(A,A,A)' ) fnames(listId)(1:ilen),'.',suff(1:10) |
|
./pkg/diagnostics/diagnostics_summary.F |
39 |
DIAGNOSTICS_SUMMARY |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/diagnostics/diagnostics_summary.F |
60 |
DIAGNOSTICS_SUMMARY |
WRITE(fn,'(A,I10.10,A)') 'diagnostics_status.',myIter,'.txt' |
|
./pkg/diagnostics/diagnostics_summary.F |
61 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(fn) |
|
./pkg/diagnostics/diagnostics_summary.F |
63 |
DIAGNOSTICS_SUMMARY |
OPEN(dUnit,file=fn(1:iLen),status='unknown',form='formatted') |
|
./pkg/diagnostics/diagnostics_summary.F |
65 |
DIAGNOSTICS_SUMMARY |
& ' write diagnostics summary to file: ',fn(1:iLen) |
|
./pkg/aim_v23/aim_write_tave.F |
158 |
AIM_WRITE_TAVE |
WRITE(fn,'(A,I10.10)') 'aimPhytave.',myIter |
|
./pkg/aim_v23/aim_write_tave.F |
159 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
161 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
163 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
165 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
167 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
169 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
171 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
173 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
175 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
177 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
179 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
181 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
183 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
185 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
187 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
189 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
191 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
193 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
195 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
197 |
AIM_WRITE_TAVE |
CALL MDSWRITEFIELD(fn,writeBinaryPrec,gf, |
|
./pkg/aim_v23/aim_write_tave.F |
36 |
AIM_WRITE_TAVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf, suff, fn |
|
./pkg/flt/flt_traj.F |
113 |
FLT_TRAJ |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj,1, |
|
./pkg/flt/flt_traj.F |
160 |
FLT_TRAJ |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj, |
|
./pkg/flt/flt_traj.F |
55 |
FLT_TRAJ |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/flt/flt_traj.F |
68 |
FLT_TRAJ |
fn = 'float_trajectories' |
|
./pkg/flt/flt_traj.F |
76 |
FLT_TRAJ |
IL=ILNBLNK( fn ) |
|
./pkg/flt/flt_traj.F |
80 |
FLT_TRAJ |
& fn(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/flt/flt_traj.F |
83 |
FLT_TRAJ |
call MDSREADVECTOR_FLT(fn,globalFile,64,'RL', |
|
./pkg/flt/flt_up.F |
113 |
FLT_UP |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj,1, |
|
./pkg/flt/flt_up.F |
200 |
FLT_UP |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj, |
|
./pkg/flt/flt_up.F |
56 |
FLT_UP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/flt/flt_up.F |
69 |
FLT_UP |
fn = 'float_profiles' |
|
./pkg/flt/flt_up.F |
77 |
FLT_UP |
IL=ILNBLNK( fn ) |
|
./pkg/flt/flt_up.F |
81 |
FLT_UP |
& fn(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/flt/flt_up.F |
84 |
FLT_UP |
call MDSREADVECTOR_FLT(fn,globalFile,64,'RL', |
|
./pkg/dic/carbon_chem.F |
194 |
CALC_PCO2 |
fn = k1local*x*diclocal/b + |
|
./pkg/dic/carbon_chem.F |
223 |
CALC_PCO2 |
deltax = - fn/df |
|
./pkg/dic/carbon_chem.F |
263 |
CALC_PCO2 |
fn = k1local*x*diclocal/b + |
|
./pkg/dic/carbon_chem.F |
275 |
CALC_PCO2 |
fni(hstep) = fn |
|
./pkg/dic/carbon_chem.F |
93 |
CALC_PCO2 |
_RL fn |
|
./pkg/offline/offline_fields_load.F |
188 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
191 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uvel0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
192 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
195 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uvel1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
202 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
204 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vvel0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
205 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
207 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vvel1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
214 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
216 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,wvel0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
217 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
219 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,wvel1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
226 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
228 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,tave0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
229 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
231 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,tave1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
238 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
240 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,save0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
241 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
243 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,save1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
250 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
252 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,conv0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
253 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
255 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,conv1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
264 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
266 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmkx0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
267 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
269 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmkx1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
276 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
278 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmky0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
279 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
281 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmky1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
288 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
290 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmkz0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
291 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
293 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmkz1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
301 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
303 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',1,hflx0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
304 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
306 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',1,hflx1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
313 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
315 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',1,sflx0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
316 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
318 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',1,sflx1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
326 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
328 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,kdfs0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
329 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
331 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,kdfs1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
338 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
340 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,kght0, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
341 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
343 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,kght1, 1,myThid) |
|
./pkg/offline/offline_fields_load.F |
55 |
OFFLINE_FIELDS_LOAD |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
125 |
FIZHI_WRITE_VEGTILES |
& 'pickup_vegtiles.',fn(1:ilst),'.',iG,'.',jG,'.data' |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
316 |
FIZHI_READ_VEGTILES |
CHARACTER*80 fn |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
329 |
FIZHI_READ_VEGTILES |
WRITE(fn,'(a,I10.10)') 'pickup_vegtiles.',Iter |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
330 |
FIZHI_READ_VEGTILES |
ilst = ILNBLNK(fn) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
36 |
FIZHI_WRITE_VEGTILES |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
380 |
FIZHI_READ_VEGTILES |
& fn(1:ilst),'.',iG,'.',jG,'.data' |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
59 |
FIZHI_WRITE_VEGTILES |
ilst = ILNBLNK(fn) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
63 |
FIZHI_WRITE_VEGTILES |
WRITE(bnam,'(a,a)') 'pickup_vegtiles.', fn(1:ilst) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
67 |
FIZHI_WRITE_VEGTILES |
WRITE(bnam,'(a,a)') 'state_vegtiles.', fn(1:ilst) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
9 |
FIZHI_WRITE_VEGTILES |
SUBROUTINE FIZHI_WRITE_VEGTILES(fn,pickupflg,myTime,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
100 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavesw,16,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
124 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,temp,17,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
46 |
FIZHI_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./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 |
73 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,uphy,1,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
74 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,vphy,2,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
75 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,thphy,3,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
76 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,sphy,4,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
78 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldtot_lw,5,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
80 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldras_lw,6,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
82 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldlsp_lw,7,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
84 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,lwlz,8,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
86 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldtot_sw,9,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
88 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldras_sw,10,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
90 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,cldlsp_sw,11,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
92 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,swlz,12,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
94 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,qliqavelw,13,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
96 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,qliqavesw,14,myIter, |
|
./pkg/fizhi/fizhi_write_pickup.F |
98 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavelw,15,myIter, |
|
./pkg/fizhi/fizhi_read_pickup.F |
103 |
FIZHI_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter |
|
./pkg/fizhi/fizhi_read_pickup.F |
105 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'uphy',uphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
106 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'vphy',vphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
107 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'thphy',thphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
108 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'sphy',sphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
109 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'sphy',sphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
43 |
FIZHI_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/fizhi/fizhi_read_pickup.F |
48 |
FIZHI_READ_PICKUP |
fn(i:i) = ' ' |
|
./pkg/fizhi/fizhi_read_pickup.F |
50 |
FIZHI_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter |
|
./pkg/fizhi/fizhi_read_pickup.F |
57 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,uphy,1,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
58 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,vphy,2,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
59 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,thphy,3,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
60 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,sphy,4,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
61 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldtot_lw,5,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
62 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldras_lw,6,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
63 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldlsp_lw,7,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
64 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,lwlz,8,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
65 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldtot_sw,9,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
66 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldras_sw,10,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
67 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,cldlsp_sw,11,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
68 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,swlz,12,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
69 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,qliqavelw,13,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
70 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,qliqavesw,14,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
71 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavelw,15,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
72 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavesw,16,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
73 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,temp,17,myThid) |
|
./pkg/fizhi/fizhi_write_state.F |
45 |
FIZHI_WRITE_STATE |
CHARACTER*(80) fn |
|
./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 |
64 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,uphy,1,myIter,myThid) |
|
./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 |
67 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,vphy,1,myIter,myThid) |
|
./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 |
70 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_state.F |
72 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
|
./pkg/fizhi/fizhi_write_state.F |
73 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,sphy,1,myIter,myThid) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
41 |
FIZHI_INIT_VEGSURFTILES |
CHARACTER*80 fn |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
61 |
FIZHI_INIT_VEGSURFTILES |
WRITE(fn,'(a,I8,a,I2.2,a)')'vegtiles_cs32.d',nymd,'z',ihour,'.bin' |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
70 |
FIZHI_INIT_VEGSURFTILES |
open(iUnit,file=fn,status='old',access='direct',recl=recl) |
|
./model/src/packages_write_pickup.F |
133 |
PACKAGES_WRITE_PICKUP_NOW |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./model/src/packages_write_pickup.F |
147 |
PACKAGES_WRITE_PICKUP_NOW |
WRITE(fn,'(I10.10)') myIter |
|
./model/src/packages_write_pickup.F |
149 |
PACKAGES_WRITE_PICKUP_NOW |
WRITE(fn,'(A)') checkPtSuff(nCheckLev) |
|
./model/src/packages_write_pickup.F |
198 |
PACKAGES_WRITE_PICKUP_NOW |
CALL LAND_WRITE_PICKUP(permCheckPoint,fn, |
|
./model/src/packages_write_pickup.F |
206 |
PACKAGES_WRITE_PICKUP_NOW |
CALL FIZHI_WRITE_PICKUP(fn,myTime,myIter,myThid) |
|
./model/src/packages_write_pickup.F |
207 |
PACKAGES_WRITE_PICKUP_NOW |
CALL FIZHI_WRITE_VEGTILES(fn,0,myTime,myIter,myThid) |
|
./model/src/packages_write_pickup.F |
216 |
PACKAGES_WRITE_PICKUP_NOW |
& fn,myTime,myIter,myThid) |
|
./model/src/packages_write_pickup.F |
234 |
PACKAGES_WRITE_PICKUP_NOW |
& fn,myIter,myTime,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
129 |
CD_CODE_WRITE_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/cd_code/cd_code_checkpoint.F |
132 |
CD_CODE_WRITE_CHECKPOINT |
WRITE(fn,'(A)') 'pickup_cd' |
|
./pkg/cd_code/cd_code_checkpoint.F |
134 |
CD_CODE_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_cd.',checkPtSuff(nCheckLev) |
|
./pkg/cd_code/cd_code_checkpoint.F |
140 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
141 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
143 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
145 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
147 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
148 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W('D',fn,0,0,'uVelD',uVelD, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
149 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W('D',fn,0,0,'vVelD',vVelD, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
150 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W('D',fn,0,0,'Unm1',Unm1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
151 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W('D',fn,0,0,'Vnm1',Vnm1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
152 |
CD_CODE_WRITE_CHECKPOINT |
CALL MNC_CW_RL_W('D',fn,0,0,'etaNm1', etaNm1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
157 |
CD_CODE_WRITE_CHECKPOINT |
WRITE(fn,'(A,I10.10)') 'pickup_cd.',myIter |
|
./pkg/cd_code/cd_code_checkpoint.F |
159 |
CD_CODE_WRITE_CHECKPOINT |
WRITE(fn,'(A,A)') 'pickup_cd.',checkPtSuff(nCheckLev) |
|
./pkg/cd_code/cd_code_checkpoint.F |
163 |
CD_CODE_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,uVelD,1,myIter,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
164 |
CD_CODE_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,vVelD,2,myIter,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
165 |
CD_CODE_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,uNM1, 3,myIter,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
166 |
CD_CODE_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,vNM1, 4,myIter,myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
167 |
CD_CODE_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,etaNm1,4*Nr+1, |
|
./pkg/cd_code/cd_code_checkpoint.F |
34 |
CD_CODE_READ_CHECKPOINT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/cd_code/cd_code_checkpoint.F |
53 |
CD_CODE_READ_CHECKPOINT |
WRITE(fn,'(A)') 'pickup_cd' |
|
./pkg/cd_code/cd_code_checkpoint.F |
54 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
55 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
56 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
57 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
58 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'uVelD',uVelD, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
59 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'vVelD',vVelD, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
60 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'Unm1',Unm1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
61 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'Vnm1',Vnm1, myThid) |
|
./pkg/cd_code/cd_code_checkpoint.F |
62 |
CD_CODE_READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'etaNm1', etaNm1, |