| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
44 |
FIZHI_INIT_VEGSURFTILES |
CHARACTER*80 fn |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
56 |
FIZHI_INIT_VEGSURFTILES |
WRITE(fn,'(a,I8,a,I2.2,a)') |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
59 |
FIZHI_INIT_VEGSURFTILES |
WRITE(fn,'(a,I8,a,I2.2,a)') |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
73 |
FIZHI_INIT_VEGSURFTILES |
open(iUnit,file=fn,status='old',access='direct',recl=recl) |
|
./pkg/fizhi/fizhi_read_pickup.F |
102 |
FIZHI_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter |
|
./pkg/fizhi/fizhi_read_pickup.F |
104 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'uphy',uphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
105 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'vphy',vphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
106 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'thphy',thphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
107 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'sphy',sphy,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 |
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 |
56 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,uphy, 1,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
57 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,vphy, 2,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
58 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,thphy, 3,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
59 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,sphy, 4,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
60 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldtot_lw, 5,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
61 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldras_lw, 6,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
62 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldlsp_lw, 7,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
63 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,lwlz, 8,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
64 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldtot_sw, 9,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
65 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldras_sw,10,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
66 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldlsp_sw,11,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
67 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,swlz, 12,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
68 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,qliqavelw,13,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
69 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,qliqavesw,14,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
70 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,fccavelw, 15,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
71 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,fccavesw, 16,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
72 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,temp, 17,myIter,myThid ) |
|
./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*(*) 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 |
112 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,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 WRITE_REC_3D_RL(fn,prec,Nrphys,uphy, 1,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
74 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,vphy, 2,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
75 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,thphy, 3,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
76 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,sphy, 4,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
78 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldtot_lw, 5,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
79 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldras_lw, 6,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
80 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldlsp_lw, 7,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
81 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,lwlz, 8,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
82 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldtot_sw, 9,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
83 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldras_sw,10,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
84 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldlsp_sw,11,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
85 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,swlz, 12,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
86 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,qliqavelw,13,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
87 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,qliqavesw,14,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
88 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,fccavelw, 15,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
89 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,fccavesw, 16,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_state.F |
46 |
FIZHI_WRITE_STATE |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/fizhi/fizhi_write_state.F |
59 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,I10.10)' ) 'fizhi_U.', myIter |
|
./pkg/fizhi/fizhi_write_state.F |
60 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, uphy, 1, myIter,myThid ) |
|
./pkg/fizhi/fizhi_write_state.F |
61 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,I10.10)' ) 'fizhi_V.', myIter |
|
./pkg/fizhi/fizhi_write_state.F |
62 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, vphy, 1, myIter,myThid ) |
|
./pkg/fizhi/fizhi_write_state.F |
63 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,I10.10)' ) 'fizhi_T.', myIter |
|
./pkg/fizhi/fizhi_write_state.F |
64 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, thphy, 1, myIter,myThid ) |
|
./pkg/fizhi/fizhi_write_state.F |
65 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,I10.10)' ) 'fizhi_S.', myIter |
|
./pkg/fizhi/fizhi_write_state.F |
66 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, sphy, 1, myIter,myThid ) |
|
./pkg/flt/flt_init_varia.F |
107 |
FLT_INIT_VARIA |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_init_varia.F |
122 |
FLT_INIT_VARIA |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_init_varia.F |
169 |
FLT_INIT_VARIA |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_init_varia.F |
182 |
FLT_INIT_VARIA |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_init_varia.F |
56 |
FLT_INIT_VARIA |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/flt/flt_init_varia.F |
87 |
FLT_INIT_VARIA |
fn = flt_file |
|
./pkg/flt/flt_init_varia.F |
90 |
FLT_INIT_VARIA |
WRITE(fn,'(A,I10.10)') 'pickup_flt.', nIter0 |
|
./pkg/flt/flt_init_varia.F |
93 |
FLT_INIT_VARIA |
iL = ILNBLNK(fn) |
|
./pkg/flt/flt_init_varia.F |
95 |
FLT_INIT_VARIA |
& 'FLT_INIT_VARIA: reading Floats from: ', fn(1:iL) |
|
./pkg/flt/flt_traj.F |
101 |
FLT_TRAJ |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_traj.F |
171 |
FLT_TRAJ |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_traj.F |
51 |
FLT_TRAJ |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/flt/flt_traj.F |
59 |
FLT_TRAJ |
fn = 'float_trajectories' |
|
./pkg/flt/flt_traj.F |
67 |
FLT_TRAJ |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_up.F |
162 |
FLT_UP |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_up.F |
48 |
FLT_UP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/flt/flt_up.F |
52 |
FLT_UP |
fn = 'float_profiles' |
|
./pkg/flt/flt_up.F |
60 |
FLT_UP |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_up.F |
93 |
FLT_UP |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_write_pickup.F |
41 |
FLT_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/flt/flt_write_pickup.F |
54 |
FLT_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_flt.', suff(1:iLen) |
|
./pkg/flt/flt_write_pickup.F |
74 |
FLT_WRITE_PICKUP |
CALL MDS_WRITEVEC_LOC( fn, precFloat64, ioUnit, |
|
./pkg/flt/flt_write_pickup.F |
93 |
FLT_WRITE_PICKUP |
CALL MDS_WRITEVEC_LOC( fn, precFloat64, ioUnit, |
|
./pkg/generic_advdiff/gad_read_pickup.F |
115 |
GAD_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_somS.', myIter |
|
./pkg/generic_advdiff/gad_read_pickup.F |
117 |
GAD_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_somS.', pickupSuff |
|
./pkg/generic_advdiff/gad_read_pickup.F |
122 |
GAD_READ_PICKUP |
I fn, '.data', 'GAD_READ_PICKUP', |
|
./pkg/generic_advdiff/gad_read_pickup.F |
131 |
GAD_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/generic_advdiff/gad_read_pickup.F |
41 |
GAD_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn, filNam |
|
./pkg/generic_advdiff/gad_read_pickup.F |
74 |
GAD_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_somT.', myIter |
|
./pkg/generic_advdiff/gad_read_pickup.F |
76 |
GAD_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_somT.', pickupSuff |
|
./pkg/generic_advdiff/gad_read_pickup.F |
81 |
GAD_READ_PICKUP |
I fn, '.data', 'GAD_READ_PICKUP', |
|
./pkg/generic_advdiff/gad_read_pickup.F |
90 |
GAD_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/generic_advdiff/gad_write_pickup.F |
101 |
GAD_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, |
|
./pkg/generic_advdiff/gad_write_pickup.F |
52 |
GAD_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/generic_advdiff/gad_write_pickup.F |
76 |
GAD_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_somT' |
|
./pkg/generic_advdiff/gad_write_pickup.F |
78 |
GAD_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_somT.',suff(1:lChar) |
|
./pkg/generic_advdiff/gad_write_pickup.F |
84 |
GAD_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, |
|
./pkg/generic_advdiff/gad_write_pickup.F |
93 |
GAD_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_somS' |
|
./pkg/generic_advdiff/gad_write_pickup.F |
95 |
GAD_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_somS.',suff(1:lChar) |
|
./pkg/ggl90/ggl90_checkpoint.F |
24 |
GGL90_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ggl90/ggl90_checkpoint.F |
40 |
GGL90_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_ggl90.',suff |
|
./pkg/ggl90/ggl90_checkpoint.F |
41 |
GGL90_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
|
./pkg/ggl90/ggl90_checkpoint.F |
80 |
GGL90_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ggl90/ggl90_checkpoint.F |
86 |
GGL90_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_ggl90.',suff |
|
./pkg/ggl90/ggl90_checkpoint.F |
88 |
GGL90_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
|
./pkg/land/land_output.F |
214 |
LAND_OUTPUT |
WRITE(fn,'(A,I10.10)') 'land_tave.', myIter |
|
./pkg/land/land_output.F |
215 |
LAND_OUTPUT |
CALL WRITE_REC_3D_RL( fn, writeBinaryPrec, land_nLev, |
|
./pkg/land/land_output.F |
217 |
LAND_OUTPUT |
CALL WRITE_REC_3D_RL( fn, writeBinaryPrec, land_nLev, |
|
./pkg/land/land_output.F |
219 |
LAND_OUTPUT |
CALL WRITE_REC_3D_RL( fn, writeBinaryPrec, land_nLev, |
|
./pkg/land/land_output.F |
222 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_sTtave, k+1, myIter, myThid ) |
|
./pkg/land/land_output.F |
223 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_hStave, k+2, myIter, myThid ) |
|
./pkg/land/land_output.F |
224 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_sAtave, k+3, myIter, myThid ) |
|
./pkg/land/land_output.F |
225 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_ROftave, k+4, myIter, myThid ) |
|
./pkg/land/land_output.F |
226 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_eROtave, k+5, myIter, myThid ) |
|
./pkg/land/land_output.F |
241 |
LAND_OUTPUT |
fn(k:k) = ' ' |
|
./pkg/land/land_output.F |
243 |
LAND_OUTPUT |
WRITE(fn,'(a)') 'land_tave' |
|
./pkg/land/land_output.F |
244 |
LAND_OUTPUT |
CALL MNC_CW_SET_UDIM(fn, -1, myThid) |
|
./pkg/land/land_output.F |
245 |
LAND_OUTPUT |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/land/land_output.F |
246 |
LAND_OUTPUT |
CALL MNC_CW_SET_UDIM(fn, 0, myThid) |
|
./pkg/land/land_output.F |
247 |
LAND_OUTPUT |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
|
./pkg/land/land_output.F |
248 |
LAND_OUTPUT |
CALL MNC_CW_RL_W(pf,fn,0,0, |
|
./pkg/land/land_output.F |
250 |
LAND_OUTPUT |
CALL MNC_CW_RL_W(pf,fn,0,0, |
|
./pkg/land/land_output.F |
252 |
LAND_OUTPUT |
CALL MNC_CW_RL_W(pf,fn,0,0, |
|
./pkg/land/land_output.F |
255 |
LAND_OUTPUT |
CALL MNC_CW_RL_W(pf,fn,0,0, |
|
./pkg/land/land_output.F |
257 |
LAND_OUTPUT |
CALL MNC_CW_RL_W(pf,fn,0,0, |
|
./pkg/land/land_output.F |
259 |
LAND_OUTPUT |
CALL MNC_CW_RL_W(pf,fn,0,0, |
|
./pkg/land/land_output.F |
261 |
LAND_OUTPUT |
CALL MNC_CW_RL_W(pf,fn,0,0, |
|
./pkg/land/land_output.F |
263 |
LAND_OUTPUT |
CALL MNC_CW_RL_W(pf,fn,0,0, |
|
./pkg/land/land_output.F |
54 |
LAND_OUTPUT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/land/land_read_pickup.F |
41 |
LAND_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/land/land_read_pickup.F |
48 |
LAND_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_land.',myIter |
|
./pkg/land/land_read_pickup.F |
53 |
LAND_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, land_nLev, |
|
./pkg/land/land_read_pickup.F |
55 |
LAND_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, land_nLev, |
|
./pkg/land/land_read_pickup.F |
61 |
LAND_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, land_nLev, |
|
./pkg/land/land_read_pickup.F |
63 |
LAND_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, land_nLev, |
|
./pkg/land/land_read_pickup.F |
66 |
LAND_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, |
|
./pkg/land/land_read_pickup.F |
68 |
LAND_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, |
|
./pkg/land/land_read_pickup.F |
70 |
LAND_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, |
|
./pkg/land/land_read_pickup.F |
81 |
LAND_READ_PICKUP |
fn(k:k) = ' ' |
|
./pkg/land/land_read_pickup.F |
83 |
LAND_READ_PICKUP |
WRITE(fn,'(A)') 'pickup_land' |
|
./pkg/land/land_read_pickup.F |
84 |
LAND_READ_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/land/land_read_pickup.F |
85 |
LAND_READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/land/land_read_pickup.F |
86 |
LAND_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
|
./pkg/land/land_read_pickup.F |
88 |
LAND_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0, |
|
./pkg/land/land_read_pickup.F |
90 |
LAND_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0, |
|
./pkg/land/land_read_pickup.F |
93 |
LAND_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0, |
|
./pkg/land/land_read_pickup.F |
95 |
LAND_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0, |
|
./pkg/land/land_read_pickup.F |
97 |
LAND_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0, |
|
./pkg/land/land_write_pickup.F |
100 |
LAND_WRITE_PICKUP |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
|
./pkg/land/land_write_pickup.F |
101 |
LAND_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/land/land_write_pickup.F |
103 |
LAND_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0, |
|
./pkg/land/land_write_pickup.F |
105 |
LAND_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0, |
|
./pkg/land/land_write_pickup.F |
108 |
LAND_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0, |
|
./pkg/land/land_write_pickup.F |
110 |
LAND_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0, |
|
./pkg/land/land_write_pickup.F |
112 |
LAND_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0, |
|
./pkg/land/land_write_pickup.F |
53 |
LAND_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/land/land_write_pickup.F |
63 |
LAND_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar) |
|
./pkg/land/land_write_pickup.F |
66 |
LAND_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, land_nLev, |
|
./pkg/land/land_write_pickup.F |
68 |
LAND_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, land_nLev, |
|
./pkg/land/land_write_pickup.F |
71 |
LAND_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1, |
|
./pkg/land/land_write_pickup.F |
73 |
LAND_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1, |
|
./pkg/land/land_write_pickup.F |
75 |
LAND_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1, |
|
./pkg/land/land_write_pickup.F |
84 |
LAND_WRITE_PICKUP |
fn(k:k) = ' ' |
|
./pkg/land/land_write_pickup.F |
87 |
LAND_WRITE_PICKUP |
WRITE(fn,'(A)') 'pickup_land' |
|
./pkg/land/land_write_pickup.F |
89 |
LAND_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar) |
|
./pkg/land/land_write_pickup.F |
91 |
LAND_WRITE_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/land/land_write_pickup.F |
92 |
LAND_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/land/land_write_pickup.F |
94 |
LAND_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./pkg/land/land_write_pickup.F |
96 |
LAND_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
|
./pkg/land/land_write_pickup.F |
98 |
LAND_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/mypackage/mypackage_read_pickup.F |
49 |
MYPACKAGE_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/mypackage/mypackage_read_pickup.F |
57 |
MYPACKAGE_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_mypackage.',myIter |
|
./pkg/mypackage/mypackage_read_pickup.F |
59 |
MYPACKAGE_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_mypackage.',pickupSuff |
|
./pkg/mypackage/mypackage_read_pickup.F |
64 |
MYPACKAGE_READ_PICKUP |
I fn, |
|
./pkg/mypackage/mypackage_write_pickup.F |
103 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/mypackage/mypackage_write_pickup.F |
109 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/mypackage/mypackage_write_pickup.F |
134 |
MYPACKAGE_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./pkg/mypackage/mypackage_write_pickup.F |
57 |
MYPACKAGE_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/mypackage/mypackage_write_pickup.F |
66 |
MYPACKAGE_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_mypackage' |
|
./pkg/mypackage/mypackage_write_pickup.F |
68 |
MYPACKAGE_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_mypackage.',suff(1:lChar) |
|
./pkg/mypackage/mypackage_write_pickup.F |
78 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
83 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
88 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
92 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/obcs/obcs_output.F |
100 |
OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'obcs_N.', myIter |
|
./pkg/obcs/obcs_output.F |
101 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
102 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
103 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
104 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
107 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
114 |
OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'obcs_S.', myIter |
|
./pkg/obcs/obcs_output.F |
115 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
116 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
117 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
118 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
121 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
128 |
OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'obcs_E.', myIter |
|
./pkg/obcs/obcs_output.F |
129 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
130 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
131 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
132 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
135 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
142 |
OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'obcs_W.', myIter |
|
./pkg/obcs/obcs_output.F |
143 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
144 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
145 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
146 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
149 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
44 |
OBCS_OUTPUT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/obcs/obcs_read_pickup.F |
100 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
101 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
102 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
103 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
104 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
105 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
106 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
107 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
108 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
109 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
110 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_US , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
111 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_VS , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
112 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_TS , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
113 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_SS , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
116 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
117 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
118 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
119 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
120 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_WS , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
121 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, OBSw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
130 |
OBCS_READ_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiE.',suff |
|
./pkg/obcs/obcs_read_pickup.F |
131 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
132 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
133 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
134 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
135 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
136 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
137 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
138 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
139 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
140 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
141 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
142 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
143 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
144 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
145 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
146 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
147 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_UE , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
148 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_VE , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
149 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_TE , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
150 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_SE , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
153 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
154 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
155 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
156 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
157 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_WE , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
158 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, OBEw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
166 |
OBCS_READ_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiW.',suff |
|
./pkg/obcs/obcs_read_pickup.F |
167 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
168 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
169 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
170 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
171 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
172 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
173 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
174 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
175 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
176 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
177 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
178 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
179 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
180 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
181 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
182 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
183 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_UW , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
184 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_VW , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
185 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_TW , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
186 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_SW , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
189 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
190 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
191 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
192 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
193 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_WW , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
194 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, OBWw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
38 |
OBCS_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/obcs/obcs_read_pickup.F |
57 |
OBCS_READ_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiN.',suff |
|
./pkg/obcs/obcs_read_pickup.F |
58 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
59 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
60 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
61 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
62 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
63 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
64 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
65 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
66 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
67 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
68 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
69 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
70 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
71 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
72 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
73 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
74 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_UN , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
75 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_VN , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
76 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_TN , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
77 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_SN , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
80 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
81 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
82 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
83 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
84 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_WN , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
85 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, OBNw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
93 |
OBCS_READ_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiS.',suff |
|
./pkg/obcs/obcs_read_pickup.F |
94 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
95 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
96 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
97 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
98 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
99 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
100 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
101 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
102 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
103 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
104 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
105 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
106 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
107 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
108 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
109 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
110 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
111 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
112 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
113 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
114 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
115 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_US , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
116 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_VS , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
117 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_TS , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
118 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_SS , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
121 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
122 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
123 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
124 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
125 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_WS , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
126 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, OBSw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
135 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiE.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
136 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
137 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
138 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
139 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
140 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
141 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
142 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
143 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
144 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
145 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
146 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
147 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
148 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
149 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
150 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
151 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
152 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_UE , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
153 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_VE , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
154 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_TE , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
155 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_SE , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
158 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
159 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
160 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
161 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
162 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_WE , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
163 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, OBEw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
171 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiW.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
172 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
173 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
174 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
175 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
176 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
177 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
178 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
179 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
180 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
181 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
182 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
183 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
184 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
185 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
186 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
187 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
188 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_UW , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
189 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_VW , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
190 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_TW , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
191 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_SW , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
194 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
195 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
196 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
197 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
198 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_WW , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
199 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, OBWw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
46 |
OBCS_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/obcs/obcs_write_pickup.F |
62 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiN.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
63 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
64 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
65 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
66 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
67 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
68 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
69 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
70 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
71 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
72 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
73 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
74 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
75 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
76 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
77 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
78 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
79 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_UN , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
80 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_VN , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
81 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_TN , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
82 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_SN , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
85 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
86 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
87 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
88 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
89 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_WN , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
90 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, OBNw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
98 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiS.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
99 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_1, 1,myIter,myThid) |
|
./pkg/ocn_compon_interf/cpl_output.F |
100 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, FWtave , 6, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
101 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SFxtave , 7, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
102 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SICtave , 8, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
103 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, MXLtave , 9, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
104 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SSTtave , 10, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
105 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SSStave , 11, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
106 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, vSqtave , 12, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
108 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, aCO2tave , 13, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
109 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, sWSpdtave, 14, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
110 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, iceftave , 15, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
111 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, fCO2tave , 16, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
54 |
CPL_OUTPUT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ocn_compon_interf/cpl_output.F |
94 |
CPL_OUTPUT |
WRITE(fn,'(A,I10.10)') 'cplFldtave.', myIter |
|
./pkg/ocn_compon_interf/cpl_output.F |
95 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SLPtave , 1, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
96 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, HFtave , 2, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
97 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, QSWtave , 3, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
98 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, TXtave , 4, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
99 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, TYtave , 5, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
51 |
CPL_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
54 |
CPL_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_cpl.',suff |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
59 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, atmSLPr , 1, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
60 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, HeatFlux , 2, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
61 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, qShortWave, 3, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
67 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tauX , 4, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
68 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tauY , 5, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
69 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, FWFlux , 6, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
70 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, iceSaltFlx, 7, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
71 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, seaIceMass, 8, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
82 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
47 |
OCN_CPL_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
52 |
OCN_CPL_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
54 |
OCN_CPL_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_cpl.', pickupSuff |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
60 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,atmSLPr , 1,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
61 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,HeatFlux , 2,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
62 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,qShortWave, 3,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
63 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,tauX , 4,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
64 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,tauY , 5,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
65 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,FWFlux , 6,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
66 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,iceSaltFlx, 7,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
67 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,seaIceMass, 8,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
78 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, |
|
./pkg/offline/offline_fields_load.F |
146 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Uvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
149 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, uvel0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
150 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Uvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
153 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, uvel1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
159 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Vvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
161 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, vvel0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
162 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Vvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
164 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, vvel1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
170 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Wvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
172 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, wvel0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
173 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Wvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
175 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, wvel1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
181 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Thetfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
183 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, tave0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
184 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Thetfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
186 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, tave1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
192 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Saltfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
194 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, save0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
195 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Saltfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
197 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, save1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
203 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') ConvFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
205 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, conv0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
206 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') ConvFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
208 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, conv1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
215 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
217 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkx0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
218 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
220 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkx1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
226 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwyFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
228 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmky0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
229 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwyFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
231 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmky1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
237 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwzFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
239 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkz0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
240 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwzFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
242 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkz1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
249 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') HFluxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
251 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, hflx0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
252 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') HFluxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
254 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, hflx1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
260 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') SFluxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
262 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, sflx0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
263 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') SFluxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
265 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, sflx1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
271 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') IceFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
273 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, icem0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
274 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') IceFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
276 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, icem1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
283 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') KPP_DiffSFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
285 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kdfs0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
286 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') KPP_DiffSFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
288 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kdfs1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
296 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') KPP_ghatKFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
298 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kght0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
299 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') KPP_ghatKFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
301 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kght1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
61 |
OFFLINE_FIELDS_LOAD |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ptracers/ptracers_read_pickup.F |
105 |
PTRACERS_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_ptracers.',myIter |
|
./pkg/ptracers/ptracers_read_pickup.F |
107 |
PTRACERS_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_ptracers.',pickupSuff |
|
./pkg/ptracers/ptracers_read_pickup.F |
112 |
PTRACERS_READ_PICKUP |
I fn, |
|
./pkg/ptracers/ptracers_read_pickup.F |
169 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
187 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
202 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
206 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
265 |
PTRACERS_READ_PICKUP |
WRITE(fn,'(3A,I10.10)') 'pickup_somTRAC', |
|
./pkg/ptracers/ptracers_read_pickup.F |
268 |
PTRACERS_READ_PICKUP |
WRITE(fn,'(3A,A10)') 'pickup_somTRAC', |
|
./pkg/ptracers/ptracers_read_pickup.F |
276 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( fn, standardMessageUnit, |
|
./pkg/ptracers/ptracers_read_pickup.F |
282 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
56 |
PTRACERS_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ptracers/ptracers_read_pickup.F |
69 |
PTRACERS_READ_PICKUP |
WRITE(fn,'(a)') 'pickup_ptracers' |
|
./pkg/ptracers/ptracers_read_pickup.F |
70 |
PTRACERS_READ_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/ptracers/ptracers_read_pickup.F |
71 |
PTRACERS_READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/ptracers/ptracers_read_pickup.F |
72 |
PTRACERS_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
|
./pkg/ptracers/ptracers_read_pickup.F |
74 |
PTRACERS_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0, PTRACERS_names(iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
79 |
PTRACERS_READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 2, myThid) |
|
./pkg/ptracers/ptracers_read_pickup.F |
81 |
PTRACERS_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0, PTRACERS_names(iTracer), |
|
./pkg/ptracers/ptracers_write_pickup.F |
100 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/ptracers/ptracers_write_pickup.F |
102 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0, PTRACERS_names(iTracer), |
|
./pkg/ptracers/ptracers_write_pickup.F |
123 |
PTRACERS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_ptracers' |
|
./pkg/ptracers/ptracers_write_pickup.F |
125 |
PTRACERS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_ptracers.',suff(1:lChar) |
|
./pkg/ptracers/ptracers_write_pickup.F |
136 |
PTRACERS_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_write_pickup.F |
147 |
PTRACERS_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_write_pickup.F |
170 |
PTRACERS_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE., |
|
./pkg/ptracers/ptracers_write_pickup.F |
183 |
PTRACERS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_somTRAC',PTRACERS_ioLabel(iTracer) |
|
./pkg/ptracers/ptracers_write_pickup.F |
185 |
PTRACERS_WRITE_PICKUP |
WRITE(fn,'(4A)') 'pickup_somTRAC',PTRACERS_ioLabel(iTracer), |
|
./pkg/ptracers/ptracers_write_pickup.F |
193 |
PTRACERS_WRITE_PICKUP |
CALL PRINT_MESSAGE( fn, standardMessageUnit, |
|
./pkg/ptracers/ptracers_write_pickup.F |
199 |
PTRACERS_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_write_pickup.F |
62 |
PTRACERS_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/ptracers/ptracers_write_pickup.F |
75 |
PTRACERS_WRITE_PICKUP |
WRITE(fn,'(A)') 'pickup_ptracers' |
|
./pkg/ptracers/ptracers_write_pickup.F |
78 |
PTRACERS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_ptracers.', suff(1:lChar) |
|
./pkg/ptracers/ptracers_write_pickup.F |
80 |
PTRACERS_WRITE_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/ptracers/ptracers_write_pickup.F |
82 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/ptracers/ptracers_write_pickup.F |
84 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
|
./pkg/ptracers/ptracers_write_pickup.F |
86 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
|
./pkg/ptracers/ptracers_write_pickup.F |
89 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/ptracers/ptracers_write_pickup.F |
92 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
|
./pkg/ptracers/ptracers_write_pickup.F |
93 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/ptracers/ptracers_write_pickup.F |
95 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0, PTRACERS_names(iTracer), |
|
./pkg/ptracers/ptracers_write_pickup.F |
98 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 2, myThid) |
|
./pkg/ptracers/ptracers_write_pickup.F |
99 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
|
./model/src/do_write_pickup.F |
104 |
DO_WRITE_PICKUP |
& "%CHECKPOINT ",myIter,fn |
|
./model/src/do_write_pickup.F |
58 |
DO_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./model/src/do_write_pickup.F |
96 |
DO_WRITE_PICKUP |
WRITE(fn,'(I10.10)') myIter |
|
./model/src/do_write_pickup.F |
98 |
DO_WRITE_PICKUP |
WRITE(fn,'(A)') checkPtSuff(nCheckLev) |
|
./pkg/seaice/seaice_obcs_output.F |
50 |
SEAICE_OBCS_OUTPUT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/seaice/seaice_obcs_output.F |
65 |
SEAICE_OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'seaice_ob_N.', myIter |
|
./pkg/seaice/seaice_obcs_output.F |
66 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNa, 1,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
67 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNh, 2,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
68 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNsl, 3,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
69 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNsn, 4,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
70 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNuice, 5,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
71 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNvice, 6,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
74 |
SEAICE_OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'seaice_ob_S.', myIter |
|
./pkg/seaice/seaice_obcs_output.F |
75 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSa, 1,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
76 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSh, 2,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
77 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSsl, 3,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
78 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSsn, 4,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
79 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSuice, 5,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
80 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSvice, 6,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
83 |
SEAICE_OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'seaice_ob_E.', myIter |
|
./pkg/seaice/seaice_obcs_output.F |
84 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEa, 1,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
85 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEh, 2,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
86 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEsl, 3,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
87 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEsn, 4,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
88 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEuice, 5,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
89 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEvice, 6,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
92 |
SEAICE_OBCS_OUTPUT |
WRITE(fn,'(A,I10.10)') 'seaice_ob_W.', myIter |
|
./pkg/seaice/seaice_obcs_output.F |
93 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWa, 1,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
94 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWh, 2,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
95 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWsl, 3,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
96 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWsn, 4,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
97 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWuice, 5,myIter,myThid) |
|
./pkg/seaice/seaice_obcs_output.F |
98 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWvice, 6,myIter,myThid) |
|
./pkg/seaice/seaice_read_pickup.F |
132 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,MULTDIM, TICES, nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
135 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, TICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
140 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSNOW , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
142 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, UICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
144 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, VICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
146 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HEFF , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
148 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, AREA , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
152 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma1,nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
154 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma2,nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
156 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma12,nj,nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
161 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSALT , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
165 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, ICEAGE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
48 |
SEAICE_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/seaice/seaice_read_pickup.F |
59 |
SEAICE_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_seaice.',nIter0 |
|
./pkg/seaice/seaice_read_pickup.F |
61 |
SEAICE_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_seaice.',pickupSuff |
|
./pkg/seaice/seaice_read_pickup.F |
72 |
SEAICE_READ_PICKUP |
I fn, |
|
./pkg/seaice/seaice_write_pickup.F |
102 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSNOW , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
107 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSALT , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
113 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, ICEAGE, nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
121 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, UICE , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
126 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, VICE , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
133 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, seaice_sigma1, |
|
./pkg/seaice/seaice_write_pickup.F |
139 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, seaice_sigma2, |
|
./pkg/seaice/seaice_write_pickup.F |
145 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, seaice_sigma12, |
|
./pkg/seaice/seaice_write_pickup.F |
165 |
SEAICE_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./pkg/seaice/seaice_write_pickup.F |
55 |
SEAICE_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/seaice/seaice_write_pickup.F |
64 |
SEAICE_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_seaice.',suff |
|
./pkg/seaice/seaice_write_pickup.F |
78 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,fp,MULTDIM,TICES, nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
85 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, TICE , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
92 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, AREA , nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
97 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HEFF , nj, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
189 |
THSICE_OUTPUT |
WRITE(fn,'(A,I10.10)') 'thSIce_tave.', myIter |
|
./pkg/thsice/thsice_output.F |
191 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_fract_Ave, 1, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
192 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_iceH_Ave, 2, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
193 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_snowH_Ave, 3, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
194 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_Tsrf_Ave, 4, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
195 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_Tice1_Ave, 5, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
196 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_Tice2_Ave, 6, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
197 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_snowPr_Ave, 7, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
198 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_albedo_Ave, 8, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
199 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_flx2oc_Ave, 9, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
200 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_frw2oc_Ave,10, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
202 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_salFx_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
205 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_flxAtm_Ave,kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
207 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_frwAtm_Ave,kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
211 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_tMxL_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
213 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_sMxL_Ave, kl, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
51 |
THSICE_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) fn |
|
./pkg/thsice/thsice_read_pickup.F |
38 |
THSICE_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/thsice/thsice_read_pickup.F |
43 |
THSICE_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter |
|
./pkg/thsice/thsice_read_pickup.F |
45 |
THSICE_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_ic.',pickupSuff |
|
./pkg/thsice/thsice_read_pickup.F |
47 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, iceMask, 1, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
48 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, iceHeight,2, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
49 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1,snowHeight,3, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
50 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tsrf, 4, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
51 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tice1, 5, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
52 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tice2, 6, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
53 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Qice1, 7, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
54 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Qice2, 8, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
55 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, snowAge, 9, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
58 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, tOceMxL, 10, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
59 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, sOceMxL, 11, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
66 |
THSICE_READ_PICKUP |
WRITE(fn,'(A)') 'pickup_ic' |
|
./pkg/thsice/thsice_read_pickup.F |
67 |
THSICE_READ_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
68 |
THSICE_READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
69 |
THSICE_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
70 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'iceMask', iceMask, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
71 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'iceHeight', iceHeight, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
72 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'snowHeight',snowHeight,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
73 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Tsrf', Tsrf, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
74 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Tice1', Tice1, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
75 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Tice2', Tice1, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
76 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Qice1', Qice1, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
77 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Qice2', Qice2, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
78 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'snowAge', snowAge, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
80 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'tOceMxL',tOceMxL,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
81 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'sOceMxL',sOceMxL,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
45 |
THSICE_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/thsice/thsice_write_pickup.F |
50 |
THSICE_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_ic.',suff |
|
./pkg/thsice/thsice_write_pickup.F |
52 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, iceMask, 1, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
53 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, iceHeight,2, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
54 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1,snowHeight,3, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
55 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tsrf, 4, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
56 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tice1, 5, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
57 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tice2, 6, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
58 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Qice1, 7, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
59 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Qice2, 8, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
60 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, snowAge, 9, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
63 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tOceMxL, 10, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
64 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, sOceMxL, 11, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
71 |
THSICE_WRITE_PICKUP |
WRITE(fn,'(A)') 'pickup_ic' |
|
./pkg/thsice/thsice_write_pickup.F |
73 |
THSICE_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_ic.',suff |
|
./pkg/thsice/thsice_write_pickup.F |
76 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 0, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
78 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
80 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
83 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
84 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
86 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'iceMask', iceMask, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
87 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'iceHeight', iceHeight, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
88 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'snowHeight',snowHeight,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
89 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Tsrf', Tsrf, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
90 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Tice1', Tice1, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
91 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Tice2', Tice1, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
92 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Qice1', Qice1, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
93 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Qice2', Qice2, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
94 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'snowAge', snowAge, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
96 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'tOceMxL',tOceMxL,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
97 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'sOceMxL',sOceMxL,myThid) |
|
./model/src/read_pickup.F |
103 |
READ_PICKUP |
I fn, |
|
./model/src/read_pickup.F |
163 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
164 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gU, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
165 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 3, myIter,myThid ) |
|
./model/src/read_pickup.F |
166 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 4, myIter,myThid ) |
|
./model/src/read_pickup.F |
167 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gV, 5, myIter,myThid ) |
|
./model/src/read_pickup.F |
168 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 6, myIter,myThid ) |
|
./model/src/read_pickup.F |
169 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 7, myIter,myThid ) |
|
./model/src/read_pickup.F |
170 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gT, 8, myIter,myThid ) |
|
./model/src/read_pickup.F |
171 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 9, myIter,myThid ) |
|
./model/src/read_pickup.F |
172 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 10, myIter,myThid ) |
|
./model/src/read_pickup.F |
173 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gS, 11, myIter,myThid ) |
|
./model/src/read_pickup.F |
174 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1,12, myIter,myThid ) |
|
./model/src/read_pickup.F |
176 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, etaN, |
|
./model/src/read_pickup.F |
180 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn, fp, 1, etaH, |
|
./model/src/read_pickup.F |
189 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
190 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm(1-Olx,1-Oly,1,1,1,1), |
|
./model/src/read_pickup.F |
192 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm(1-Olx,1-Oly,1,1,1,2), |
|
./model/src/read_pickup.F |
195 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
196 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm(1-Olx,1-Oly,1,1,1,1), |
|
./model/src/read_pickup.F |
198 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm(1-Olx,1-Oly,1,1,1,2), |
|
./model/src/read_pickup.F |
201 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta,nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
202 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm(1-Olx,1-Oly,1,1,1,1), |
|
./model/src/read_pickup.F |
204 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm(1-Olx,1-Oly,1,1,1,2), |
|
./model/src/read_pickup.F |
207 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
208 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm(1-Olx,1-Oly,1,1,1,1), |
|
./model/src/read_pickup.F |
210 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm(1-Olx,1-Oly,1,1,1,2), |
|
./model/src/read_pickup.F |
214 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
215 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
216 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 3, myIter,myThid ) |
|
./model/src/read_pickup.F |
217 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 4, myIter,myThid ) |
|
./model/src/read_pickup.F |
218 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 5, myIter,myThid ) |
|
./model/src/read_pickup.F |
219 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 6, myIter,myThid ) |
|
./model/src/read_pickup.F |
220 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 7, myIter,myThid ) |
|
./model/src/read_pickup.F |
221 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1, 8, myIter,myThid ) |
|
./model/src/read_pickup.F |
224 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,1, etaN, nj*Nr+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
227 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,dEtaHdt,nj*Nr+2,myIter,myThid ) |
|
./model/src/read_pickup.F |
230 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1, etaH, nj*Nr+3, myIter,myThid ) |
|
./model/src/read_pickup.F |
236 |
READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_ph.',suff |
|
./model/src/read_pickup.F |
237 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, totPhiHyd,1,myIter,myThid ) |
|
./model/src/read_pickup.F |
241 |
READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_nh.',suff |
|
./model/src/read_pickup.F |
242 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phi_nh, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
244 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm(1-Olx,1-Oly,1,1,1,1), |
|
./model/src/read_pickup.F |
246 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm(1-Olx,1-Oly,1,1,1,2), |
|
./model/src/read_pickup.F |
249 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm1, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
433 |
READ_PICKUP |
WRITE(fn,'(A)') 'pickup' |
|
./model/src/read_pickup.F |
434 |
READ_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./model/src/read_pickup.F |
435 |
READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./model/src/read_pickup.F |
436 |
READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
|
./model/src/read_pickup.F |
437 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'U',uVel, myThid) |
|
./model/src/read_pickup.F |
438 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'V',vVel, myThid) |
|
./model/src/read_pickup.F |
439 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Temp',theta, myThid) |
|
./model/src/read_pickup.F |
440 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'S',salt, myThid) |
|
./model/src/read_pickup.F |
441 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Eta',etaN, myThid) |
|
./model/src/read_pickup.F |
443 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'gUnm1',guNm1, myThid) |
|
./model/src/read_pickup.F |
444 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'gVnm1',gvNm1, myThid) |
|
./model/src/read_pickup.F |
445 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'gTnm1',gtNm1, myThid) |
|
./model/src/read_pickup.F |
446 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'gSnm1',gsNm1, myThid) |
|
./model/src/read_pickup.F |
454 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'dEtaHdt',dEtaHdt,myThid) |
|
./model/src/read_pickup.F |
457 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'EtaH', etaH, myThid) |
|
./model/src/read_pickup.F |
462 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'phi_nh', phi_nh, myThid) |
|
./model/src/read_pickup.F |
465 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'gWnm1', gwNm1, myThid) |
|
./model/src/read_pickup.F |
470 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'phiHyd',totPhiHyd,myThid) |
|
./model/src/read_pickup.F |
60 |
READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./model/src/read_pickup.F |
84 |
READ_PICKUP |
fn(j:j) = ' ' |
|
./model/src/read_pickup.F |
91 |
READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup.',suff |
|
./model/src/write_pickup.F |
112 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, uVel, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
115 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, vVel, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
119 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, theta, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
122 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, salt, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
132 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm(1-Olx,1-Oly,1,1,1,m1), |
|
./model/src/write_pickup.F |
138 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm(1-Olx,1-Oly,1,1,1,m2), |
|
./model/src/write_pickup.F |
145 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm(1-Olx,1-Oly,1,1,1,m1), |
|
./model/src/write_pickup.F |
151 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm(1-Olx,1-Oly,1,1,1,m2), |
|
./model/src/write_pickup.F |
160 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm(1-Olx,1-Oly,1,1,1,m1), |
|
./model/src/write_pickup.F |
169 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm(1-Olx,1-Oly,1,1,1,m2), |
|
./model/src/write_pickup.F |
181 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm(1-Olx,1-Oly,1,1,1,m1), |
|
./model/src/write_pickup.F |
190 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm(1-Olx,1-Oly,1,1,1,m2), |
|
./model/src/write_pickup.F |
203 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm(1-Olx,1-Oly,1,1,1,m1), |
|
./model/src/write_pickup.F |
209 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm(1-Olx,1-Oly,1,1,1,m2), |
|
./model/src/write_pickup.F |
218 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
221 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
226 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
231 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
237 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
246 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr,totPhiHyd,-j,myIter, myThid ) |
|
./model/src/write_pickup.F |
252 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, phi_nh, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
260 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr,addMass,-j,myIter, myThid ) |
|
./model/src/write_pickup.F |
269 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1 , etaN, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
275 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dPhiNH, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
283 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dEtaHdt, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
291 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, etaHnm1, nj, myIter, myThid ) |
|
./model/src/write_pickup.F |
312 |
WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./model/src/write_pickup.F |
324 |
WRITE_PICKUP |
WRITE(fn,'(A)') 'pickup' |
|
./model/src/write_pickup.F |
326 |
WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup.',checkPtSuff(nCheckLev) |
|
./model/src/write_pickup.F |
329 |
WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 0, myThid) |
|
./model/src/write_pickup.F |
331 |
WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./model/src/write_pickup.F |
333 |
WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
|
./model/src/write_pickup.F |
336 |
WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./model/src/write_pickup.F |
337 |
WRITE_PICKUP |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
|
./model/src/write_pickup.F |
338 |
WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
|
./model/src/write_pickup.F |
339 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'U', uVel, myThid) |
|
./model/src/write_pickup.F |
340 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'V', vVel, myThid) |
|
./model/src/write_pickup.F |
341 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Temp', theta, myThid) |
|
./model/src/write_pickup.F |
342 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'S', salt, myThid) |
|
./model/src/write_pickup.F |
343 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Eta', etaN, myThid) |
|
./model/src/write_pickup.F |
345 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'gUnm1', guNm1, myThid) |
|
./model/src/write_pickup.F |
346 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'gVnm1', gvNm1, myThid) |
|
./model/src/write_pickup.F |
347 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'gTnm1', gtNm1, myThid) |
|
./model/src/write_pickup.F |
348 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'gSnm1', gsNm1, myThid) |
|
./model/src/write_pickup.F |
351 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'dEtaHdt', dEtaHdt, myThid) |
|
./model/src/write_pickup.F |
352 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'EtaH', etaHnm1, myThid) |
|
./model/src/write_pickup.F |
356 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'phi_nh', phi_nh, myThid) |
|
./model/src/write_pickup.F |
359 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'gWnm1', gwNm1, myThid) |
|
./model/src/write_pickup.F |
364 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'phiHyd', totPhiHyd, myThid) |
|
./model/src/write_pickup.F |
366 |
WRITE_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./model/src/write_pickup.F |
65 |
WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./model/src/write_pickup.F |
92 |
WRITE_PICKUP |
fn(j:j) = ' ' |
|
./model/src/write_pickup.F |
95 |
WRITE_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup.',myIter |
|
./model/src/write_pickup.F |
97 |
WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup.',checkPtSuff(nCheckLev) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
42 |
ATM_CPL_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
44 |
ATM_CPL_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cpl.',myIter |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
57 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, ocMxlD , 1, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
58 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, SSTocn , 2, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
59 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, SSSocn , 3, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
60 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, vSqocn , 4, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
62 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, atmSLPr , 5, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
63 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, HeatFlux , 6, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
64 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, qShortWave, 7, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
65 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, tauX , 8, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
66 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, tauY , 9, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
67 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, EvMPrFlux , 10, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
68 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, RunOffFlux, 11, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
69 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, RunOffEnFx, 12, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
70 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, iceSaltFlx, 13, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
71 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, seaIceMass, 14, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
74 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, flxCO2ocn , 15, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
75 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, airCO2 , 16, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
76 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, sWSpeed , 17, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
77 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, fracIce , 18, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
45 |
CPL_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
49 |
CPL_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_cpl.',suff |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
64 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, ocMxlD , 1, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
65 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, SSTocn , 2, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
66 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, SSSocn , 3, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
67 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, vSqocn , 4, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
69 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, atmSLPr , 5, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
70 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, HeatFlux , 6, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
71 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, qShortWave, 7, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
72 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tauX , 8, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
73 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tauY , 9, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
74 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, EvMPrFlux , 10, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
75 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, RunOffFlux, 11, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
76 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, RunOffEnFx, 12, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
77 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, iceSaltFlx, 13, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
78 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, seaIceMass, 14, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
81 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,1, flxCO2ocn , 15, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
82 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,1, airCO2 , 16, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
83 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,1, sWSpeed , 17, myIter,myThid ) |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
84 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,1, fracIce , 18, myIter,myThid ) |
|
./pkg/aim_v23/aim_do_co2.F |
106 |
AIM_DO_CO2 |
WRITE(fn,'(A,I10.10)') 'pickup_aimCo2.',nIter0 |
|
./pkg/aim_v23/aim_do_co2.F |
107 |
AIM_DO_CO2 |
ilo = IFNBLNK(fn) |
|
./pkg/aim_v23/aim_do_co2.F |
108 |
AIM_DO_CO2 |
ihi = ILNBLNK(fn) |
|
./pkg/aim_v23/aim_do_co2.F |
111 |
AIM_DO_CO2 |
OPEN(UNIT=iUnit,FILE=fn(ilo:ihi),STATUS='old', |
|
./pkg/aim_v23/aim_do_co2.F |
128 |
AIM_DO_CO2 |
WRITE(msgBuf,'(2A)') '// AIM_DO_CO2: Read pickup ',fn(ilo:ihi) |
|
./pkg/aim_v23/aim_do_co2.F |
153 |
AIM_DO_CO2 |
fn(i:i) = ' ' |
|
./pkg/aim_v23/aim_do_co2.F |
155 |
AIM_DO_CO2 |
WRITE(fn,'(A,I10.10)') 'pickup_aimCo2.',myIter+1 |
|
./pkg/aim_v23/aim_do_co2.F |
159 |
AIM_DO_CO2 |
OPEN(UNIT=iUnit,FILE=fn,STATUS='unknown', |
|
./pkg/aim_v23/aim_do_co2.F |
57 |
AIM_DO_CO2 |
CHARACTER*(MAX_LEN_FNAM) fn, msgBuf |
|
./pkg/aim_v23/aim_write_tave.F |
164 |
AIM_WRITE_TAVE |
WRITE(fn,'(A,I10.10)') 'aimPhytave.',myIter |
|
./pkg/aim_v23/aim_write_tave.F |
165 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, USTRtave, 1, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
166 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, VSTRtave, 2, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
167 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, TSRtave , 3, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
168 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, OLRtave , 4, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
169 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, SSRtave , 5, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
170 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, SLRtave , 6, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
171 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, SHFtave , 7, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
172 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, EVAPtave, 8, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
173 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, PRECNVtave, 9, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
174 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, PRECLStave, 10, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
175 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, CLOUDCtave, 11, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
176 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, CLTOPtave, 12, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
177 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, CBMFtave, 13, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
178 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, DRAGtave, 14, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
179 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, aimV0tave, 15, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
180 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, aimT0tave, 16, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
181 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, aimQ0tave, 17, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
182 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, EnFxPrtave, 18, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
183 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, albedotave, 19, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
184 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, dTsurftave, 20, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
46 |
AIM_WRITE_TAVE |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/atm2d/atm2d_read_pickup.F |
34 |
ATM2D_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/atm2d/atm2d_read_pickup.F |
41 |
ATM2D_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_atm2d.',nIter0 |
|
./pkg/atm2d/atm2d_read_pickup.F |
43 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_slp, 1, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
44 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_qnet, 2, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
45 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_solarnet, 3, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
46 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_fu, 4, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
47 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_fv, 5, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
48 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_precip, 6, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
49 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_evap, 7, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
50 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_runoff, 8, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
51 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_wspeed, 9, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
52 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_pCO2, 10, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
53 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_sIceLoad,11, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
55 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,sHeating, 12, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
56 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,flxCndBt, 13, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
57 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_prcAtm, 14, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
58 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,snowPrc, 15, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
59 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,icFrwAtm, 16, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
60 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,icFlxSw, 17, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
61 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,siceAlb, 18, nIter0, myThid) |
|
./pkg/atm2d/atm2d_write_pickup.F |
140 |
ATM2D_WRITE_PICKUP_NOW |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/atm2d/atm2d_write_pickup.F |
148 |
ATM2D_WRITE_PICKUP_NOW |
WRITE(fn,'(A,I10.10)') 'pickup_atm2d.',myIter |
|
./pkg/atm2d/atm2d_write_pickup.F |
150 |
ATM2D_WRITE_PICKUP_NOW |
WRITE(fn,'(A,A)') 'pickup_atm2d.',checkPtSuff(nCheckLev) |
|
./pkg/atm2d/atm2d_write_pickup.F |
153 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_slp, 1,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
154 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_qnet, 2,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
155 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_solarnet, 3,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
156 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_fu, 4,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
157 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_fv, 5,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
158 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_precip, 6,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
159 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_evap, 7,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
160 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_runoff, 8,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
161 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_wspeed, 9,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
162 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_pCO2, 10,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
163 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_sIceLoad,11,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
165 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,sHeating, 12,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
166 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,flxCndBt, 13,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
167 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_prcAtm, 14,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
168 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,snowPrc, 15,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
169 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,icFrwAtm, 16,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
170 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,icFlxSw, 17,myIter,myThid ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
171 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,siceAlb, 18,myIter,myThid ) |
|
./pkg/atm2d/tave_end_diags.F |
174 |
TAVE_END_DIAGS |
WRITE(fn,'(A,I5.5)') 'attauu.', simYr |
|
./pkg/atm2d/tave_end_diags.F |
175 |
TAVE_END_DIAGS |
OPEN(dUnit, FILE=fn, STATUS='unknown', |
|
./pkg/atm2d/tave_end_diags.F |
180 |
TAVE_END_DIAGS |
WRITE(fn,'(A,I5.5)') 'attauv.', simYr |
|
./pkg/atm2d/tave_end_diags.F |
181 |
TAVE_END_DIAGS |
OPEN(dUnit, FILE=fn, STATUS='unknown', |
|
./pkg/atm2d/tave_end_diags.F |
186 |
TAVE_END_DIAGS |
WRITE(fn,'(A,I5.5)') 'atwind.', simYr |
|
./pkg/atm2d/tave_end_diags.F |
187 |
TAVE_END_DIAGS |
OPEN(dUnit, FILE=fn, STATUS='unknown', |
|
./pkg/atm2d/tave_end_diags.F |
192 |
TAVE_END_DIAGS |
WRITE(fn,'(A,I5.5)') 'atps4ocn.', simYr |
|
./pkg/atm2d/tave_end_diags.F |
193 |
TAVE_END_DIAGS |
OPEN(dUnit, FILE=fn, STATUS='unknown', |
|
./pkg/atm2d/tave_end_diags.F |
34 |
TAVE_END_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff, fn |
|
./pkg/cd_code/cd_code_read_pickup.F |
34 |
CD_CODE_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/cd_code/cd_code_read_pickup.F |
51 |
CD_CODE_READ_PICKUP |
WRITE(fn,'(A)') 'pickup_cd' |
|
./pkg/cd_code/cd_code_read_pickup.F |
52 |
CD_CODE_READ_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
53 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
54 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
55 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
56 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'uVelD',uVelD, myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
57 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'vVelD',vVelD, myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
58 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Unm1',Unm1, myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
59 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Vnm1',Vnm1, myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
60 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'etaNm1', etaNm1, myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
64 |
CD_CODE_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_cd.',suff |
|
./pkg/cd_code/cd_code_read_pickup.F |
67 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
68 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, vVelD, 2, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
69 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, uNM1, 3, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
70 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, vNM1, 4, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
72 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec, 1, etaNm1,6*Nr+1,myIter,myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
74 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec, 1, etaNm1,4*Nr+1,myIter,myThid) |
|
./pkg/cd_code/cd_code_write_pickup.F |
44 |
CD_CODE_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/cd_code/cd_code_write_pickup.F |
51 |
CD_CODE_WRITE_PICKUP |
WRITE(fn,'(A)') 'pickup_cd' |
|
./pkg/cd_code/cd_code_write_pickup.F |
53 |
CD_CODE_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_cd.',suff |
|
./pkg/cd_code/cd_code_write_pickup.F |
57 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/cd_code/cd_code_write_pickup.F |
59 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
|
./pkg/cd_code/cd_code_write_pickup.F |
61 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
|
./pkg/cd_code/cd_code_write_pickup.F |
63 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/cd_code/cd_code_write_pickup.F |
64 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'uVelD',uVelD, myThid) |
|
./pkg/cd_code/cd_code_write_pickup.F |
65 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'vVelD',vVelD, myThid) |
|
./pkg/cd_code/cd_code_write_pickup.F |
66 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Unm1',Unm1, myThid) |
|
./pkg/cd_code/cd_code_write_pickup.F |
67 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Vnm1',Vnm1, myThid) |
|
./pkg/cd_code/cd_code_write_pickup.F |
68 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'etaNm1', etaNm1, myThid) |
|
./pkg/cd_code/cd_code_write_pickup.F |
69 |
CD_CODE_WRITE_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
|
./pkg/cd_code/cd_code_write_pickup.F |
76 |
CD_CODE_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_cd.',suff |
|
./pkg/cd_code/cd_code_write_pickup.F |
78 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
79 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, vVelD, 2, myIter, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
80 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, uNM1, 3, myIter, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
81 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, vNM1, 4, myIter, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
82 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1,etaNm1,4*Nr+1,myIter,myThid) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
48 |
CHEAPAML_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
58 |
CHEAPAML_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cheapaml.',myIter |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
60 |
CHEAPAML_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_cheapaml.',pickupSuff |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
65 |
CHEAPAML_READ_PICKUP |
I fn, |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
106 |
CHEAPAML_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE., |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
56 |
CHEAPAML_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
65 |
CHEAPAML_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_cheapaml' |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
67 |
CHEAPAML_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_cheapaml.',suff(1:lChar) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
81 |
CHEAPAML_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, |
|
./pkg/diagnostics/diagnostics_out.F |
119 |
DIAGNOSTICS_OUT |
WRITE( fn, '(A,A,A)' ) fnames(listId)(1:ilen),'.',suff(1:10) |
|
./pkg/diagnostics/diagnostics_out.F |
472 |
DIAGNOSTICS_OUT |
I fn, prec, |
|
./pkg/diagnostics/diagnostics_out.F |
629 |
DIAGNOSTICS_OUT |
CALL MDS_WR_METAFILES(fn, prec, glf, .FALSE., |
|
./pkg/diagnostics/diagnostics_out.F |
78 |
DIAGNOSTICS_OUT |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
140 |
DIAGNOSTICS_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_qdiag.', nIter0 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
141 |
DIAGNOSTICS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
149 |
DIAGNOSTICS_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_ndiag.', nIter0 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
151 |
DIAGNOSTICS_READ_PICKUP |
OPEN( dUnit, file=fn ) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
38 |
DIAGNOSTICS_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./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/diagnostics/diagnostics_write_pickup.F |
177 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(fn,'(a,a)') 'pickup_qdiag.', suff(1:sn) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
179 |
DIAGNOSTICS_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, numDiags, qdiag, |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
185 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
187 |
DIAGNOSTICS_WRITE_PICKUP |
OPEN( dUnit, file=fn ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
49 |
DIAGNOSTICS_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
91 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 0, myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
93 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
95 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
98 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
|
./pkg/dic/carbon_chem.F |
189 |
CALC_PCO2 |
fn = k1local*x*diclocal/b + |
|
./pkg/dic/carbon_chem.F |
218 |
CALC_PCO2 |
deltax = - fn/df |
|
./pkg/dic/carbon_chem.F |
258 |
CALC_PCO2 |
fn = k1local*x*diclocal/b + |
|
./pkg/dic/carbon_chem.F |
270 |
CALC_PCO2 |
fni(hstep) = fn |
|
./pkg/dic/carbon_chem.F |
98 |
CALC_PCO2 |
_RL fn |
|
./pkg/dic/dic_read_co2_pickup.F |
37 |
DIC_READ_CO2_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn, filNam |
|
./pkg/dic/dic_read_co2_pickup.F |
47 |
DIC_READ_CO2_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_dic_co2atm.', myIter |
|
./pkg/dic/dic_read_co2_pickup.F |
49 |
DIC_READ_CO2_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_dic_co2atm.', pickupSuff |
|
./pkg/dic/dic_read_co2_pickup.F |
55 |
DIC_READ_CO2_PICKUP |
I fn, '.data', 'DIC_READ_CO2_PICKUP', |
|
./pkg/dic/dic_read_pickup.F |
30 |
DIC_READ_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn, filNam |
|
./pkg/dic/dic_read_pickup.F |
41 |
DIC_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_dic.', myIter |
|
./pkg/dic/dic_read_pickup.F |
43 |
DIC_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_dic.', pickupSuff |
|
./pkg/dic/dic_read_pickup.F |
49 |
DIC_READ_PICKUP |
I fn, '.data', 'DIC_READ_PICKUP', |
|
./pkg/dic/dic_read_pickup.F |
55 |
DIC_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, pH, 1, myIter, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
114 |
DIC_WRITE_PICKUP |
CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE., |
|
./pkg/dic/dic_write_pickup.F |
42 |
DIC_WRITE_PICKUP |
CHARACTER*(MAX_LEN_FNAM) fn |
|
./pkg/dic/dic_write_pickup.F |
64 |
DIC_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_dic_co2atm.',suff |
|
./pkg/dic/dic_write_pickup.F |
70 |
DIC_WRITE_PICKUP |
I fn, prec, ioUnit, |
|
./pkg/dic/dic_write_pickup.F |
78 |
DIC_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_dic.',suff |
|
./pkg/dic/dic_write_pickup.F |
89 |
DIC_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1, pH, nj, myIter, myThid ) |