| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_ad_dump.F |
103 |
EXF_AD_DUMP |
& 'ADJatemp.'//suff, writeBinaryPrec, 1, |
|
./pkg/exf/exf_ad_dump.F |
106 |
EXF_AD_DUMP |
& 'ADJaqh.'//suff, writeBinaryPrec, 1, |
|
./pkg/exf/exf_ad_dump.F |
109 |
EXF_AD_DUMP |
& 'ADJlwflux.'//suff, writeBinaryPrec, 1, |
|
./pkg/exf/exf_ad_dump.F |
112 |
EXF_AD_DUMP |
& 'ADJprecip.'//suff, writeBinaryPrec, 1, |
|
./pkg/exf/exf_ad_dump.F |
117 |
EXF_AD_DUMP |
& 'ADJrunoff.'//suff, writeBinaryPrec, 1, |
|
./pkg/exf/exf_ad_dump.F |
123 |
EXF_AD_DUMP |
& 'ADJuwind.'//suff, writeBinaryPrec, 1, |
|
./pkg/exf/exf_ad_dump.F |
126 |
EXF_AD_DUMP |
& 'ADJvwind.'//suff, writeBinaryPrec, 1, |
|
./pkg/exf/exf_ad_dump.F |
132 |
EXF_AD_DUMP |
& 'ADJswdown.'//suff, writeBinaryPrec, 1, |
|
./pkg/exf/exf_ad_dump.F |
135 |
EXF_AD_DUMP |
& 'ADJlwdown.'//suff, writeBinaryPrec, 1, |
|
./pkg/exf/exf_ad_dump.F |
64 |
EXF_AD_DUMP |
CHARACTER*(10) suff |
|
./pkg/exf/exf_ad_dump.F |
78 |
EXF_AD_DUMP |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/exf/exf_ad_dump.F |
80 |
EXF_AD_DUMP |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/exf/exf_ad_dump.F |
89 |
EXF_AD_DUMP |
& 'ADJhflux.'//suff, writeBinaryPrec, 1, |
|
./pkg/exf/exf_ad_dump.F |
92 |
EXF_AD_DUMP |
& 'ADJsflux.'//suff, writeBinaryPrec, 1, |
|
./pkg/exf/exf_ad_dump.F |
95 |
EXF_AD_DUMP |
& 'ADJustress.'//suff, writeBinaryPrec, 1, |
|
./pkg/exf/exf_ad_dump.F |
98 |
EXF_AD_DUMP |
& 'ADJvstress.'//suff, writeBinaryPrec, 1, |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
100 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_aqh, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
102 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_precip, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
106 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_uwind, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
108 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_vwind, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
112 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_swdown, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
116 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_climsst, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
120 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_climsss, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
60 |
G_EXF_ADJOINT_SNAPSHOTS |
CHARACTER*(10) suff |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
73 |
G_EXF_ADJOINT_SNAPSHOTS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
75 |
G_EXF_ADJOINT_SNAPSHOTS |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
86 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_ustress, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
88 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_vstress, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
90 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_hflux, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
92 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_sflux, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
98 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_atemp, myIter, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
109 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adustress, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
111 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, advstress, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
113 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adhflux, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
115 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adsflux, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
121 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adatemp, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
123 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adaqh, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
125 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adprecip, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
129 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adrunoff, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
134 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, aduwind, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
136 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, advwind, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
141 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adswdown, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
143 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adlwdown, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
147 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adclimsst, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
151 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adclimsss, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
156 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RS ( 'ADJtaux.',suff, adfu, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
157 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RS ( 'ADJtauy.',suff, adfv, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
158 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RS ( 'ADJqnet.',suff, adqnet, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
159 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RS ( 'ADJempr.',suff, adempmr, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
161 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RS ( 'ADJqsw.',suff, adqsw, myIter, myThid) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
71 |
ADEXF_ADJOINT_SNAPSHOTS |
CHARACTER*(10) suff |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
84 |
ADEXF_ADJOINT_SNAPSHOTS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
86 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/fizhi/fizhi_write_pickup.F |
36 |
FIZHI_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/fizhi/fizhi_write_pickup.F |
65 |
FIZHI_WRITE_PICKUP |
DO iChara = 1,len(suff) |
|
./pkg/fizhi/fizhi_write_pickup.F |
66 |
FIZHI_WRITE_PICKUP |
IF ( suff(iChara:iChara) .NE. ' ') lChar=iChara |
|
./pkg/fizhi/fizhi_write_pickup.F |
68 |
FIZHI_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_fizhi.',suff(1:lChar) |
|
./pkg/fizhi/fizhi_write_pickup.F |
8 |
FIZHI_WRITE_PICKUP |
SUBROUTINE FIZHI_WRITE_PICKUP( suff, myTime, myIter, myThid ) |
|
./pkg/flt/flt_init_varia.F |
101 |
FLT_INIT_VARIA |
WRITE(suff,'(A10)') pickupSuff |
|
./pkg/flt/flt_init_varia.F |
103 |
FLT_INIT_VARIA |
WRITE(fn,'(A,A10)') 'pickup_flt.',suff |
|
./pkg/flt/flt_init_varia.F |
58 |
FLT_INIT_VARIA |
CHARACTER*(10) suff |
|
./pkg/flt/flt_init_varia.F |
96 |
FLT_INIT_VARIA |
WRITE(suff,'(I10.10)') nIter0 |
|
./pkg/flt/flt_init_varia.F |
98 |
FLT_INIT_VARIA |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/flt/flt_write_pickup.F |
32 |
FLT_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/flt/flt_write_pickup.F |
53 |
FLT_WRITE_PICKUP |
iLen = ILNBLNK(suff) |
|
./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 |
8 |
FLT_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
|
./pkg/gchem/gchem_write_pickup.F |
13 |
GCHEM_WRITE_PICKUP |
SUBROUTINE GCHEM_WRITE_PICKUP( permPickup, suff, |
|
./pkg/gchem/gchem_write_pickup.F |
35 |
GCHEM_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/gchem/gchem_write_pickup.F |
46 |
GCHEM_WRITE_PICKUP |
CALL DIC_WRITE_PICKUP( permPickup, suff, |
|
./pkg/gchem/gchem_write_pickup.F |
53 |
GCHEM_WRITE_PICKUP |
CALL BLING_WRITE_PICKUP( permPickup, suff, |
|
./pkg/gchem/gchem_write_pickup.F |
60 |
GCHEM_WRITE_PICKUP |
CALL DARWIN_WRITE_PICKUP( permPickup, suff, |
|
./pkg/gchem/gchem_write_pickup.F |
63 |
GCHEM_WRITE_PICKUP |
CALL DIC_WRITE_PICKUP( permPickup, suff, |
|
./pkg/generic_advdiff/gad_read_pickup.F |
129 |
GAD_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
130 |
GAD_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_somS.', suff |
|
./pkg/generic_advdiff/gad_read_pickup.F |
41 |
GAD_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/generic_advdiff/gad_read_pickup.F |
78 |
GAD_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
79 |
GAD_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_somT.', suff |
|
./pkg/generic_advdiff/gad_write_pickup.F |
10 |
GAD_WRITE_PICKUP |
SUBROUTINE GAD_WRITE_PICKUP( suff, |
|
./pkg/generic_advdiff/gad_write_pickup.F |
32 |
GAD_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/generic_advdiff/gad_write_pickup.F |
71 |
GAD_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./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 |
95 |
GAD_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_somS.',suff(1:lChar) |
|
./pkg/ggl90/ggl90_output.F |
162 |
GGL90_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/ggl90/ggl90_output.F |
164 |
GGL90_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
166 |
GGL90_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GGL90viscArU-T.', suff, |
|
./pkg/ggl90/ggl90_output.F |
168 |
GGL90_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GGL90viscArV-T.', suff, |
|
./pkg/ggl90/ggl90_output.F |
170 |
GGL90_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GGL90diffKr-T.', suff, |
|
./pkg/ggl90/ggl90_output.F |
172 |
GGL90_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GGL90TKE-T.', suff, |
|
./pkg/ggl90/ggl90_output.F |
67 |
GGL90_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/ggl90/ggl90_output.F |
85 |
GGL90_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/ggl90/ggl90_output.F |
87 |
GGL90_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
90 |
GGL90_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GGL90viscArU.', suff, |
|
./pkg/ggl90/ggl90_output.F |
92 |
GGL90_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GGL90viscArV.', suff, |
|
./pkg/ggl90/ggl90_output.F |
94 |
GGL90_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GGL90diffKr.', suff, |
|
./pkg/ggl90/ggl90_output.F |
97 |
GGL90_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GGL90TKE.', suff, |
|
./pkg/ggl90/ggl90_read_pickup.F |
37 |
GGL90_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/ggl90/ggl90_read_pickup.F |
44 |
GGL90_READ_PICKUP |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/ggl90/ggl90_read_pickup.F |
46 |
GGL90_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_read_pickup.F |
49 |
GGL90_READ_PICKUP |
WRITE(suff,'(A10)') pickupSuff |
|
./pkg/ggl90/ggl90_read_pickup.F |
56 |
GGL90_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_ggl90.',suff |
|
./pkg/ggl90/ggl90_write_pickup.F |
35 |
GGL90_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/ggl90/ggl90_write_pickup.F |
50 |
GGL90_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_ggl90.',suff |
|
./pkg/ggl90/ggl90_write_pickup.F |
9 |
GGL90_WRITE_PICKUP |
SUBROUTINE GGL90_WRITE_PICKUP( permPickup, suff, |
|
./pkg/gmredi/gmredi_output.F |
142 |
GMREDI_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/gmredi/gmredi_output.F |
144 |
GMREDI_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
146 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwx-T.',suff,GM_Kwx_T,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
147 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwy-T.',suff,GM_Kwy_T,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
148 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwz-T.',suff,GM_Kwz_T,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
151 |
GMREDI_OUTPUT |
& CALL WRITE_FLD_XY_RL('Visbeck_K-T.',suff,Visbeck_K_T, |
|
./pkg/gmredi/gmredi_output.F |
156 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_PsiXtave.',suff,GM_PsiXtave, |
|
./pkg/gmredi/gmredi_output.F |
158 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_PsiYtave.',suff,GM_PsiYtave, |
|
./pkg/gmredi/gmredi_output.F |
50 |
GMREDI_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/gmredi/gmredi_output.F |
66 |
GMREDI_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/gmredi/gmredi_output.F |
68 |
GMREDI_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
71 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kux.',suff,Kux,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
72 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kvy.',suff,Kvy,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
76 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kuz.',suff,Kuz,myIter,myThid) |
|
./pkg/gmredi/gmredi_output.F |
77 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kvz.',suff,Kvz,myIter,myThid) |
|
./pkg/gmredi/gmredi_read_pickup.F |
48 |
GMREDI_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/gmredi/gmredi_read_pickup.F |
62 |
GMREDI_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
63 |
GMREDI_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_gmredi.', suff |
|
./pkg/gmredi/gmredi_write_pickup.F |
11 |
GMREDI_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_write_pickup.F |
30 |
GMREDI_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/gmredi/gmredi_write_pickup.F |
68 |
GMREDI_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/gmredi/gmredi_write_pickup.F |
72 |
GMREDI_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_gmredi.',suff(1:lChar) |
|
./pkg/kl10/kl10_output.F |
149 |
KL10_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/kl10/kl10_output.F |
151 |
KL10_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/kl10/kl10_output.F |
153 |
KL10_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'KLviscAr-T.', suff, |
|
./pkg/kl10/kl10_output.F |
155 |
KL10_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'KLeps-T.', suff, |
|
./pkg/kl10/kl10_output.F |
67 |
KL10_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/kl10/kl10_output.F |
88 |
KL10_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/kl10/kl10_output.F |
90 |
KL10_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/kl10/kl10_output.F |
92 |
KL10_OUTPUT |
CALL WRITE_FLD_XYZ_RL('KLviscAr.',suff,KLviscAr, |
|
./pkg/kl10/kl10_output.F |
94 |
KL10_OUTPUT |
CALL WRITE_FLD_XYZ_RL('KLeps.',suff,KLeps, |
|
./pkg/kpp/kpp_output.F |
156 |
KPP_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/kpp/kpp_output.F |
158 |
KPP_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_output.F |
160 |
KPP_OUTPUT |
CALL WRITE_FLD_XYZ_RL('KPPviscAz.',suff,KPPviscAz, |
|
./pkg/kpp/kpp_output.F |
162 |
KPP_OUTPUT |
CALL WRITE_FLD_XYZ_RL('KPPdiffKzT.',suff,KPPdiffKzT, |
|
./pkg/kpp/kpp_output.F |
164 |
KPP_OUTPUT |
CALL WRITE_FLD_XYZ_RL('KPPdiffKzS.',suff,KPPdiffKzS, |
|
./pkg/kpp/kpp_output.F |
166 |
KPP_OUTPUT |
CALL WRITE_FLD_XYZ_RL('KPPghat.',suff,KPPghat, |
|
./pkg/kpp/kpp_output.F |
168 |
KPP_OUTPUT |
CALL WRITE_FLD_XY_RL('KPPhbl.',suff,KPPhbl, |
|
./pkg/kpp/kpp_output.F |
314 |
KPP_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/kpp/kpp_output.F |
316 |
KPP_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/kpp/kpp_output.F |
318 |
KPP_OUTPUT |
CALL WRITE_FLD_XYZ_RL('KPPviscAz-T.',suff,KPPviscAztave, |
|
./pkg/kpp/kpp_output.F |
320 |
KPP_OUTPUT |
CALL WRITE_FLD_XYZ_RL('KPPdiffKzT-T.',suff,KPPdiffKzTtave, |
|
./pkg/kpp/kpp_output.F |
322 |
KPP_OUTPUT |
CALL WRITE_FLD_XYZ_RL('KPPdiffKzS-T.',suff,KPPdiffKzStave, |
|
./pkg/kpp/kpp_output.F |
324 |
KPP_OUTPUT |
CALL WRITE_FLD_XYZ_RL('KPPghatKS-T.',suff,KPPghatKStave, |
|
./pkg/kpp/kpp_output.F |
326 |
KPP_OUTPUT |
CALL WRITE_FLD_XY_RL('KPPhbl-T.',suff,KPPhbltave, |
|
./pkg/kpp/kpp_output.F |
86 |
KPP_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/land/land_output.F |
103 |
LAND_OUTPUT |
& 'land_RunOff.', suff, land_runOff, myIter, myThid ) |
|
./pkg/land/land_output.F |
105 |
LAND_OUTPUT |
& 'land_enRnOf.', suff, land_enRnOf, myIter, myThid ) |
|
./pkg/land/land_output.F |
107 |
LAND_OUTPUT |
& 'land_HeatFx.', suff, land_HeatFlx, myIter, myThid ) |
|
./pkg/land/land_output.F |
109 |
LAND_OUTPUT |
& 'land_frWaFx.', suff, land_Pr_m_Ev, myIter, myThid ) |
|
./pkg/land/land_output.F |
111 |
LAND_OUTPUT |
& 'land_EnWaFx.', suff, land_EnWFlux, myIter, myThid ) |
|
./pkg/land/land_output.F |
214 |
LAND_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/land/land_output.F |
216 |
LAND_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/land/land_output.F |
218 |
LAND_OUTPUT |
WRITE(fn,'(2A)') 'land_tave.', suff |
|
./pkg/land/land_output.F |
55 |
LAND_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/land/land_output.F |
80 |
LAND_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/land/land_output.F |
82 |
LAND_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/land/land_output.F |
86 |
LAND_OUTPUT |
CALL WRITE_FLD_3D_RL( 'land_groundT.', suff, land_nLev, |
|
./pkg/land/land_output.F |
88 |
LAND_OUTPUT |
CALL WRITE_FLD_3D_RL( 'land_enthalp.', suff, land_nLev, |
|
./pkg/land/land_output.F |
90 |
LAND_OUTPUT |
CALL WRITE_FLD_3D_RL( 'land_groundW.', suff, land_nLev, |
|
./pkg/land/land_output.F |
94 |
LAND_OUTPUT |
& 'land_skinT.', suff, land_skinT, myIter, myThid ) |
|
./pkg/land/land_output.F |
96 |
LAND_OUTPUT |
& 'land_hSnow.', suff, land_hSnow, myIter, myThid ) |
|
./pkg/land/land_output.F |
98 |
LAND_OUTPUT |
& 'land_snAge.', suff, land_snowAge, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
41 |
LAND_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/land/land_read_pickup.F |
52 |
LAND_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
53 |
LAND_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_land.',suff |
|
./pkg/land/land_write_pickup.F |
37 |
LAND_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/land/land_write_pickup.F |
58 |
LAND_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./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 |
89 |
LAND_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar) |
|
./pkg/land/land_write_pickup.F |
9 |
LAND_WRITE_PICKUP |
SUBROUTINE LAND_WRITE_PICKUP( isperm, suff, |
|
./pkg/layers/layers_calc.F |
233 |
LAYERS_CALC |
WRITE(suff,'(I2.2,A1,I10.10)') iLa, '.', myIter |
|
./pkg/layers/layers_calc.F |
236 |
LAYERS_CALC |
WRITE(suff,'(I2.2,A1,A)') iLa, '.', sufx |
|
./pkg/layers/layers_calc.F |
239 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_UH.', suff, Nlayers, |
|
./pkg/layers/layers_calc.F |
242 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_Hw.', suff, Nlayers, |
|
./pkg/layers/layers_calc.F |
247 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_VH.', suff, Nlayers, |
|
./pkg/layers/layers_calc.F |
250 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_Hs.', suff, Nlayers, |
|
./pkg/layers/layers_calc.F |
256 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_prho.', suff, Nr, |
|
./pkg/layers/layers_calc.F |
262 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_Ttottend.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
265 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_sw.', suff, Nr, |
|
./pkg/layers/layers_calc.F |
268 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_surfflux.', suff, 2, |
|
./pkg/layers/layers_calc.F |
270 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_dfx.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
272 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_dfy.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
274 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_dfr.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
276 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_afx.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
278 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_afy.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
280 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_afr.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
89 |
LAYERS_CALC |
CHARACTER*(13) suff |
|
./pkg/layers/layers_output.F |
122 |
LAYERS_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/layers/layers_output.F |
124 |
LAYERS_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/layers/layers_output.F |
127 |
LAYERS_OUTPUT |
CALL WRITE_FLD_3D_RL( 'layers_UH-tave.', suff, Nlayers, |
|
./pkg/layers/layers_output.F |
130 |
LAYERS_OUTPUT |
CALL WRITE_FLD_3D_RL( 'layers_Hw-tave.', suff, Nlayers, |
|
./pkg/layers/layers_output.F |
135 |
LAYERS_OUTPUT |
CALL WRITE_FLD_3D_RL( 'layers_VH-tave.', suff, Nlayers, |
|
./pkg/layers/layers_output.F |
138 |
LAYERS_OUTPUT |
CALL WRITE_FLD_3D_RL( 'layers_Hs-tave.', suff, Nlayers, |
|
./pkg/layers/layers_output.F |
145 |
LAYERS_OUTPUT |
& CALL WRITE_FLD_3D_RL( 'layers_prho-tave.', suff, Nr, |
|
./pkg/layers/layers_output.F |
47 |
LAYERS_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/matrix/matrix_write_tendency.F |
124 |
MATRIX_WRITE_TENDENCY |
WRITE(suff,'(A9,I2.2)') 'MATRIXIMP',iTracer |
|
./pkg/matrix/matrix_write_tendency.F |
125 |
MATRIX_WRITE_TENDENCY |
CALL WRITE_REC_XYZ_RL(suff, |
|
./pkg/matrix/matrix_write_tendency.F |
30 |
MATRIX_WRITE_TENDENCY |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./pkg/matrix/matrix_write_tendency.F |
65 |
MATRIX_WRITE_TENDENCY |
WRITE(suff,'(A9,I2.2)') 'MATRIXEXP',iTracer |
|
./pkg/matrix/matrix_write_tendency.F |
66 |
MATRIX_WRITE_TENDENCY |
CALL WRITE_REC_XYZ_RL(suff, |
|
./pkg/my82/my82_output.F |
101 |
MY82_OUTPUT |
CALL WRITE_FLD_XYZ_RL('MYdiffKr.',suff,MYdiffKr, |
|
./pkg/my82/my82_output.F |
103 |
MY82_OUTPUT |
CALL WRITE_FLD_XY_RL('MYhbl.',suff,MYhbl, |
|
./pkg/my82/my82_output.F |
184 |
MY82_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/my82/my82_output.F |
186 |
MY82_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/my82/my82_output.F |
188 |
MY82_OUTPUT |
CALL WRITE_FLD_XYZ_RL('MYviscAr-T.', suff, |
|
./pkg/my82/my82_output.F |
190 |
MY82_OUTPUT |
CALL WRITE_FLD_XYZ_RL('MYdiffKr-T.', suff, |
|
./pkg/my82/my82_output.F |
192 |
MY82_OUTPUT |
CALL WRITE_FLD_XY_RL( 'MYhbl-T.', suff, |
|
./pkg/my82/my82_output.F |
70 |
MY82_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/my82/my82_output.F |
95 |
MY82_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/my82/my82_output.F |
97 |
MY82_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/my82/my82_output.F |
99 |
MY82_OUTPUT |
CALL WRITE_FLD_XYZ_RL('MYviscAr.',suff,MYviscAr, |
|
./pkg/mypackage/mypackage_read_pickup.F |
49 |
MYPACKAGE_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/mypackage/mypackage_read_pickup.F |
61 |
MYPACKAGE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
62 |
MYPACKAGE_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_mypackage.', suff |
|
./pkg/mypackage/mypackage_write_pickup.F |
11 |
MYPACKAGE_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
30 |
MYPACKAGE_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/mypackage/mypackage_write_pickup.F |
65 |
MYPACKAGE_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/mypackage/mypackage_write_pickup.F |
69 |
MYPACKAGE_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_mypackage.',suff(1:lChar) |
|
./pkg/obcs/obcs_output.F |
106 |
OBCS_OUTPUT |
WRITE(fn,'(A,A)') 'obcs_N.', suff |
|
./pkg/obcs/obcs_output.F |
120 |
OBCS_OUTPUT |
WRITE(fn,'(A,A)') 'obcs_S.', suff |
|
./pkg/obcs/obcs_output.F |
134 |
OBCS_OUTPUT |
WRITE(fn,'(A,A)') 'obcs_E.', suff |
|
./pkg/obcs/obcs_output.F |
148 |
OBCS_OUTPUT |
WRITE(fn,'(A,A)') 'obcs_W.', suff |
|
./pkg/obcs/obcs_output.F |
45 |
OBCS_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/obcs/obcs_output.F |
98 |
OBCS_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/obcs/obcs_read_pickup.F |
136 |
OBCS_READ_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiE.',suff |
|
./pkg/obcs/obcs_read_pickup.F |
172 |
OBCS_READ_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiW.',suff |
|
./pkg/obcs/obcs_read_pickup.F |
227 |
OBCS_READ_PICKUP |
WRITE(fn,'(2A)') 'pickup_stevensN.',suff |
|
./pkg/obcs/obcs_read_pickup.F |
236 |
OBCS_READ_PICKUP |
WRITE(fn,'(2A)') 'pickup_stevensS.',suff |
|
./pkg/obcs/obcs_read_pickup.F |
245 |
OBCS_READ_PICKUP |
WRITE(fn,'(2A)') 'pickup_stevensE.',suff |
|
./pkg/obcs/obcs_read_pickup.F |
254 |
OBCS_READ_PICKUP |
WRITE(fn,'(2A)') 'pickup_stevensW.',suff |
|
./pkg/obcs/obcs_read_pickup.F |
40 |
OBCS_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/obcs/obcs_read_pickup.F |
45 |
OBCS_READ_PICKUP |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/obcs/obcs_read_pickup.F |
47 |
OBCS_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/obcs/obcs_read_pickup.F |
50 |
OBCS_READ_PICKUP |
suff = pickupSuff |
|
./pkg/obcs/obcs_read_pickup.F |
63 |
OBCS_READ_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiN.',suff |
|
./pkg/obcs/obcs_read_pickup.F |
99 |
OBCS_READ_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiS.',suff |
|
./pkg/obcs/obcs_write_pickup.F |
100 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiS.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
12 |
OBCS_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
|
./pkg/obcs/obcs_write_pickup.F |
137 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiE.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
173 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiW.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
211 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_stevensN.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
220 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_stevensS.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
229 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_stevensE.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
238 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_stevensW.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
34 |
OBCS_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/obcs/obcs_write_pickup.F |
51 |
OBCS_WRITE_PICKUP |
iL = ILNBLNK(suff) |
|
./pkg/obcs/obcs_write_pickup.F |
64 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiN.',suff(1:iL) |
|
./pkg/ocn_compon_interf/cpl_output.F |
52 |
CPL_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/ocn_compon_interf/cpl_output.F |
93 |
CPL_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
94 |
CPL_OUTPUT |
WRITE(fn,'(A,A)') 'cplFldtave.', suff |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
10 |
CPL_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
40 |
CPL_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
53 |
CPL_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_cpl.',suff |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
45 |
OCN_CPL_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
54 |
OCN_CPL_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
55 |
OCN_CPL_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_cpl.', suff |
|
./pkg/openad/openad_dumpAdjoint.F |
101 |
OPENAD_DUMPADJOINT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/openad/openad_dumpAdjoint.F |
103 |
OPENAD_DUMPADJOINT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/openad/openad_dumpAdjoint.F |
107 |
OPENAD_DUMPADJOINT |
call WRITE_FLD_XYZ_RL('adjtheta.',suff,foo5,myIter,1) |
|
./pkg/openad/openad_dumpAdjoint.F |
109 |
OPENAD_DUMPADJOINT |
call WRITE_FLD_XYZ_RL('adjsalt.',suff,foo5,myIter,1) |
|
./pkg/openad/openad_dumpAdjoint.F |
111 |
OPENAD_DUMPADJOINT |
call WRITE_FLD_XYZ_RL('adjuvel.',suff,foo5,myIter,1) |
|
./pkg/openad/openad_dumpAdjoint.F |
113 |
OPENAD_DUMPADJOINT |
call WRITE_FLD_XYZ_RL('adjvvel.',suff,foo5,myIter,1) |
|
./pkg/openad/openad_dumpAdjoint.F |
115 |
OPENAD_DUMPADJOINT |
call WRITE_FLD_XYZ_RL('adjwvel.',suff,foo5,myIter,1) |
|
./pkg/openad/openad_dumpAdjoint.F |
117 |
OPENAD_DUMPADJOINT |
call WRITE_FLD_XY_RL('adjetan.',suff,foo4,myIter,1) |
|
./pkg/openad/openad_dumpAdjoint.F |
121 |
OPENAD_DUMPADJOINT |
call WRITE_FLD_XY_RL('adjdiffkr.',suff,foo5,myIter,1) |
|
./pkg/openad/openad_dumpAdjoint.F |
125 |
OPENAD_DUMPADJOINT |
call WRITE_FLD_XY_RL('adjqnet.',suff,foo4,myIter,1) |
|
./pkg/openad/openad_dumpAdjoint.F |
129 |
OPENAD_DUMPADJOINT |
call WRITE_FLD_XY_RL('adjempmr.',suff,foo4,myIter,1) |
|
./pkg/openad/openad_dumpAdjoint.F |
133 |
OPENAD_DUMPADJOINT |
call WRITE_FLD_XY_RL('adjfu.',suff,foo4,myIter,1) |
|
./pkg/openad/openad_dumpAdjoint.F |
137 |
OPENAD_DUMPADJOINT |
call WRITE_FLD_XY_RL('adjfv.',suff,foo4,myIter,1) |
|
./pkg/openad/openad_dumpAdjoint.F |
141 |
OPENAD_DUMPADJOINT |
call WRITE_FLD_XY_RL('adjhfluxm.',suff,foo4,myIter,1) |
|
./pkg/openad/openad_dumpAdjoint.F |
97 |
OPENAD_DUMPADJOINT |
CHARACTER*(10) suff |
|
./pkg/openad/the_model_main.F |
308 |
THE_MODEL_MAIN |
CHARACTER*(10) suff |
|
./pkg/openad/the_model_main.F |
489 |
THE_MODEL_MAIN |
WRITE(suff,'(I10.10)') optimcycle |
|
./pkg/openad/the_model_main.F |
496 |
THE_MODEL_MAIN |
call WRITE_FLD_XYZ_RL(fname,suff,foo,myIter,1) |
|
./pkg/openad/the_model_main.F |
503 |
THE_MODEL_MAIN |
call WRITE_FLD_XYZ_RL(fname,suff,foo,myIter,1) |
|
./pkg/openad/the_model_main.F |
510 |
THE_MODEL_MAIN |
call WRITE_FLD_XYZ_RL(fname,suff,foo,myIter,1) |
|
./pkg/openad/the_model_main.F |
519 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/openad/the_model_main.F |
526 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/openad/the_model_main.F |
533 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/openad/the_model_main.F |
540 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/openad/the_model_main.F |
547 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/openad/the_model_main.F |
554 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/opps/opps_output.F |
137 |
OPPS_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/opps/opps_output.F |
139 |
OPPS_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/opps/opps_output.F |
141 |
OPPS_OUTPUT |
CALL WRITE_FLD_XYZ_RL('OPPSconvtave.',suff,OPPSconvCountTave, |
|
./pkg/opps/opps_output.F |
68 |
OPPS_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/pp81/pp81_output.F |
146 |
PP81_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/pp81/pp81_output.F |
148 |
PP81_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/pp81/pp81_output.F |
150 |
PP81_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'PPviscAr-T.', suff, |
|
./pkg/pp81/pp81_output.F |
152 |
PP81_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'PPdiffKr-T.', suff, |
|
./pkg/pp81/pp81_output.F |
67 |
PP81_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/pp81/pp81_output.F |
85 |
PP81_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/pp81/pp81_output.F |
87 |
PP81_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/pp81/pp81_output.F |
89 |
PP81_OUTPUT |
CALL WRITE_FLD_XYZ_RL('PPviscAr.',suff,PPviscAr, |
|
./pkg/pp81/pp81_output.F |
91 |
PP81_OUTPUT |
CALL WRITE_FLD_XYZ_RL('PPdiffKr.',suff,PPdiffKr, |
|
./pkg/ptracers/ptracers_ad_dump.F |
61 |
PTRACERS_AD_DUMP |
CHARACTER*(10) suff |
|
./pkg/ptracers/ptracers_ad_dump.F |
74 |
PTRACERS_AD_DUMP |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/ptracers/ptracers_ad_dump.F |
76 |
PTRACERS_AD_DUMP |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_ad_dump.F |
89 |
PTRACERS_AD_DUMP |
& prefix, suff, |
|
./pkg/ptracers/ptracers_monitor.F |
112 |
PTRACERS_MONITOR |
WRITE(suff,'(A7,A2)') 'ptracer',PTRACERS_ioLabel(ip) |
|
./pkg/ptracers/ptracers_monitor.F |
115 |
PTRACERS_MONITOR |
& Nr, pTracer(1-OLx,1-OLy,1,1,1,ip), suff, |
|
./pkg/ptracers/ptracers_monitor.F |
50 |
PTRACERS_MONITOR |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/ptracers/ptracers_monitor_ad.F |
110 |
ADPTRACERS_MONITOR |
WRITE(suff,'(A9,A2)') 'adptracer',PTRACERS_ioLabel(ip) |
|
./pkg/ptracers/ptracers_monitor_ad.F |
112 |
ADPTRACERS_MONITOR |
& Nr, adptracer(1-OLx,1-OLy,1,1,1,ip), suff, |
|
./pkg/ptracers/ptracers_monitor_ad.F |
58 |
ADPTRACERS_MONITOR |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/ptracers/ptracers_read_pickup.F |
111 |
PTRACERS_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
112 |
PTRACERS_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_ptracers.', suff |
|
./pkg/ptracers/ptracers_read_pickup.F |
289 |
PTRACERS_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
291 |
PTRACERS_READ_PICKUP |
& PTRACERS_ioLabel(iTracer),'.', suff |
|
./pkg/ptracers/ptracers_read_pickup.F |
56 |
PTRACERS_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/ptracers/ptracers_write_pickup.F |
119 |
PTRACERS_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/ptracers/ptracers_write_pickup.F |
125 |
PTRACERS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_ptracers.',suff(1:lChar) |
|
./pkg/ptracers/ptracers_write_pickup.F |
12 |
PTRACERS_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
192 |
PTRACERS_WRITE_PICKUP |
& '.',suff(1:lChar) |
|
./pkg/ptracers/ptracers_write_pickup.F |
35 |
PTRACERS_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/ptracers/ptracers_write_pickup.F |
77 |
PTRACERS_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/ptracers/ptracers_write_pickup.F |
78 |
PTRACERS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_ptracers.', suff(1:lChar) |
|
./pkg/ptracers/ptracers_write_state.F |
102 |
PTRACERS_WRITE_STATE |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/ptracers/ptracers_write_state.F |
104 |
PTRACERS_WRITE_STATE |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_write_state.F |
108 |
PTRACERS_WRITE_STATE |
WRITE(pref,'(A,A)') 'PTRACERS.', suff |
|
./pkg/ptracers/ptracers_write_state.F |
113 |
PTRACERS_WRITE_STATE |
& 'PTRACER', PTRACERS_ioLabel(iTracer), '.', suff |
|
./pkg/ptracers/ptracers_write_state.F |
47 |
PTRACERS_WRITE_STATE |
CHARACTER*(10) suff |
|
./pkg/ptracers/ptracers_write_timeave.F |
119 |
PTRACERS_WRITE_TIMEAVE |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/ptracers/ptracers_write_timeave.F |
121 |
PTRACERS_WRITE_TIMEAVE |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
126 |
PTRACERS_WRITE_TIMEAVE |
CALL WRITE_FLD_XY_RL ( prefix, suff, |
|
./pkg/ptracers/ptracers_write_timeave.F |
130 |
PTRACERS_WRITE_TIMEAVE |
CALL WRITE_FLD_XYZ_RL( prefix, suff, |
|
./pkg/ptracers/ptracers_write_timeave.F |
44 |
PTRACERS_WRITE_TIMEAVE |
CHARACTER*(10) suff |
|
./pkg/rw/read_fld_xy_rl.F |
15 |
READ_FLD_XY_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xy_rl.F |
35 |
READ_FLD_XY_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/read_fld_xy_rl.F |
38 |
READ_FLD_XY_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/read_fld_xy_rl.F |
39 |
READ_FLD_XY_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/read_fld_xy_rl.F |
40 |
READ_FLD_XY_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/read_fld_xy_rl.F |
6 |
READ_FLD_XY_RL |
SUBROUTINE READ_FLD_XY_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xy_rs.F |
15 |
READ_FLD_XY_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xy_rs.F |
35 |
READ_FLD_XY_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/read_fld_xy_rs.F |
38 |
READ_FLD_XY_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/read_fld_xy_rs.F |
39 |
READ_FLD_XY_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/read_fld_xy_rs.F |
40 |
READ_FLD_XY_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/read_fld_xy_rs.F |
6 |
READ_FLD_XY_RS |
SUBROUTINE READ_FLD_XY_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xyz_rl.F |
15 |
READ_FLD_XYZ_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xyz_rl.F |
35 |
READ_FLD_XYZ_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/read_fld_xyz_rl.F |
38 |
READ_FLD_XYZ_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/read_fld_xyz_rl.F |
39 |
READ_FLD_XYZ_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/read_fld_xyz_rl.F |
40 |
READ_FLD_XYZ_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/read_fld_xyz_rl.F |
6 |
READ_FLD_XYZ_RL |
SUBROUTINE READ_FLD_XYZ_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xyz_rs.F |
15 |
READ_FLD_XYZ_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xyz_rs.F |
35 |
READ_FLD_XYZ_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/read_fld_xyz_rs.F |
38 |
READ_FLD_XYZ_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/read_fld_xyz_rs.F |
39 |
READ_FLD_XYZ_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/read_fld_xyz_rs.F |
40 |
READ_FLD_XYZ_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/read_fld_xyz_rs.F |
6 |
READ_FLD_XYZ_RS |
SUBROUTINE READ_FLD_XYZ_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_glvec_rl.F |
10 |
READ_GLVEC_RL |
I pref, suff, |
|
./pkg/rw/read_glvec_rl.F |
28 |
READ_GLVEC_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_glvec_rl.F |
51 |
READ_GLVEC_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/read_glvec_rl.F |
54 |
READ_GLVEC_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/read_glvec_rl.F |
55 |
READ_GLVEC_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/read_glvec_rl.F |
56 |
READ_GLVEC_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/read_glvec_rs.F |
10 |
READ_GLVEC_RS |
I pref, suff, |
|
./pkg/rw/read_glvec_rs.F |
28 |
READ_GLVEC_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_glvec_rs.F |
51 |
READ_GLVEC_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/read_glvec_rs.F |
54 |
READ_GLVEC_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/read_glvec_rs.F |
55 |
READ_GLVEC_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/read_glvec_rs.F |
56 |
READ_GLVEC_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/rw_get_suffix.F |
11 |
RW_GET_SUFFIX |
O suff, |
|
./pkg/rw/rw_get_suffix.F |
36 |
RW_GET_SUFFIX |
CHARACTER*(*) suff |
|
./pkg/rw/rw_get_suffix.F |
43 |
RW_GET_SUFFIX |
WRITE(suff,'(I10.10)') NINT( myTime*100. _d 0 ) |
|
./pkg/rw/rw_get_suffix.F |
46 |
RW_GET_SUFFIX |
WRITE(suff,'(I10.10)') NINT( myTime ) |
|
./pkg/rw/rw_get_suffix.F |
49 |
RW_GET_SUFFIX |
WRITE(suff,'(I10.10)') NINT( myTime/360. _d 0 ) |
|
./pkg/rw/rw_get_suffix.F |
52 |
RW_GET_SUFFIX |
WRITE(suff,'(I10.10)') NINT( myTime/3600. _d 0 ) |
|
./pkg/rw/rw_get_suffix.F |
55 |
RW_GET_SUFFIX |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/rw/write_fld_3d_rl.F |
16 |
WRITE_FLD_3D_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_3d_rl.F |
39 |
WRITE_FLD_3D_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_fld_3d_rl.F |
41 |
WRITE_FLD_3D_RL |
ELSEIF ( suff .EQ. 'I10' ) THEN |
|
./pkg/rw/write_fld_3d_rl.F |
44 |
WRITE_FLD_3D_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_fld_3d_rl.F |
45 |
WRITE_FLD_3D_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_fld_3d_rl.F |
46 |
WRITE_FLD_3D_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_3d_rl.F |
7 |
WRITE_FLD_3D_RL |
I pref, suff, nNz, field, myIter, myThid ) |
|
./pkg/rw/write_fld_3d_rs.F |
16 |
WRITE_FLD_3D_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_3d_rs.F |
39 |
WRITE_FLD_3D_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_fld_3d_rs.F |
41 |
WRITE_FLD_3D_RS |
ELSEIF ( suff .EQ. 'I10' ) THEN |
|
./pkg/rw/write_fld_3d_rs.F |
44 |
WRITE_FLD_3D_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_fld_3d_rs.F |
45 |
WRITE_FLD_3D_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_fld_3d_rs.F |
46 |
WRITE_FLD_3D_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_3d_rs.F |
7 |
WRITE_FLD_3D_RS |
I pref, suff, nNz, field, myIter, myThid ) |
|
./pkg/rw/write_fld_s3d_rl.F |
10 |
WRITE_FLD_S3D_RL |
I pref, suff, Ovl, nNz, field, myIter, myThid ) |
|
./pkg/rw/write_fld_s3d_rl.F |
36 |
WRITE_FLD_S3D_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_s3d_rl.F |
77 |
WRITE_FLD_S3D_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_fld_s3d_rl.F |
79 |
WRITE_FLD_S3D_RL |
ELSEIF ( suff .EQ. 'I10' ) THEN |
|
./pkg/rw/write_fld_s3d_rl.F |
82 |
WRITE_FLD_S3D_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_fld_s3d_rl.F |
83 |
WRITE_FLD_S3D_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_fld_s3d_rl.F |
84 |
WRITE_FLD_S3D_RL |
WRITE( fName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_s3d_rs.F |
10 |
WRITE_FLD_S3D_RS |
I pref, suff, Ovl, nNz, field, myIter, myThid ) |
|
./pkg/rw/write_fld_s3d_rs.F |
36 |
WRITE_FLD_S3D_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_s3d_rs.F |
77 |
WRITE_FLD_S3D_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_fld_s3d_rs.F |
79 |
WRITE_FLD_S3D_RS |
ELSEIF ( suff .EQ. 'I10' ) THEN |
|
./pkg/rw/write_fld_s3d_rs.F |
82 |
WRITE_FLD_S3D_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_fld_s3d_rs.F |
83 |
WRITE_FLD_S3D_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_fld_s3d_rs.F |
84 |
WRITE_FLD_S3D_RS |
WRITE( fName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xy_rl.F |
15 |
WRITE_FLD_XY_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xy_rl.F |
38 |
WRITE_FLD_XY_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_fld_xy_rl.F |
40 |
WRITE_FLD_XY_RL |
ELSEIF ( suff .EQ. 'I10' ) THEN |
|
./pkg/rw/write_fld_xy_rl.F |
43 |
WRITE_FLD_XY_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_fld_xy_rl.F |
44 |
WRITE_FLD_XY_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_fld_xy_rl.F |
45 |
WRITE_FLD_XY_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xy_rl.F |
6 |
WRITE_FLD_XY_RL |
SUBROUTINE WRITE_FLD_XY_RL( pref,suff,field,myIter,myThid ) |
|
./pkg/rw/write_fld_xy_rs.F |
15 |
WRITE_FLD_XY_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xy_rs.F |
38 |
WRITE_FLD_XY_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_fld_xy_rs.F |
40 |
WRITE_FLD_XY_RS |
ELSEIF ( suff .EQ. 'I10' ) THEN |
|
./pkg/rw/write_fld_xy_rs.F |
43 |
WRITE_FLD_XY_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_fld_xy_rs.F |
44 |
WRITE_FLD_XY_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_fld_xy_rs.F |
45 |
WRITE_FLD_XY_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xy_rs.F |
6 |
WRITE_FLD_XY_RS |
SUBROUTINE WRITE_FLD_XY_RS( pref,suff,field,myIter,myThid ) |
|
./pkg/rw/write_fld_xyz_rl.F |
15 |
WRITE_FLD_XYZ_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xyz_rl.F |
38 |
WRITE_FLD_XYZ_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_fld_xyz_rl.F |
40 |
WRITE_FLD_XYZ_RL |
ELSEIF ( suff .EQ. 'I10' ) THEN |
|
./pkg/rw/write_fld_xyz_rl.F |
43 |
WRITE_FLD_XYZ_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_fld_xyz_rl.F |
44 |
WRITE_FLD_XYZ_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_fld_xyz_rl.F |
45 |
WRITE_FLD_XYZ_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xyz_rl.F |
6 |
WRITE_FLD_XYZ_RL |
SUBROUTINE WRITE_FLD_XYZ_RL( pref,suff,field,myIter,myThid ) |
|
./pkg/rw/write_fld_xyz_rs.F |
15 |
WRITE_FLD_XYZ_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xyz_rs.F |
38 |
WRITE_FLD_XYZ_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_fld_xyz_rs.F |
40 |
WRITE_FLD_XYZ_RS |
ELSEIF ( suff .EQ. 'I10' ) THEN |
|
./pkg/rw/write_fld_xyz_rs.F |
43 |
WRITE_FLD_XYZ_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_fld_xyz_rs.F |
44 |
WRITE_FLD_XYZ_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_fld_xyz_rs.F |
45 |
WRITE_FLD_XYZ_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xyz_rs.F |
6 |
WRITE_FLD_XYZ_RS |
SUBROUTINE WRITE_FLD_XYZ_RS( pref,suff,field,myIter,myThid ) |
|
./pkg/rw/write_glvec_rl.F |
10 |
WRITE_GLVEC_RL |
I pref, suff, array, sizArr, myIter, myThid ) |
|
./pkg/rw/write_glvec_rl.F |
26 |
WRITE_GLVEC_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_glvec_rl.F |
49 |
WRITE_GLVEC_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_glvec_rl.F |
52 |
WRITE_GLVEC_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_glvec_rl.F |
53 |
WRITE_GLVEC_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_glvec_rl.F |
54 |
WRITE_GLVEC_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_glvec_rs.F |
10 |
WRITE_GLVEC_RS |
I pref, suff, array, sizArr, myIter, myThid ) |
|
./pkg/rw/write_glvec_rs.F |
26 |
WRITE_GLVEC_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_glvec_rs.F |
49 |
WRITE_GLVEC_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_glvec_rs.F |
52 |
WRITE_GLVEC_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_glvec_rs.F |
53 |
WRITE_GLVEC_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_glvec_rs.F |
54 |
WRITE_GLVEC_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_local_rl.F |
10 |
WRITE_LOCAL_RL |
I pref, suff, nNr, field, |
|
./pkg/rw/write_local_rl.F |
34 |
WRITE_LOCAL_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_local_rl.F |
63 |
WRITE_LOCAL_RL |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_local_rl.F |
65 |
WRITE_LOCAL_RL |
ELSEIF ( suff .EQ. 'I10' ) THEN |
|
./pkg/rw/write_local_rl.F |
68 |
WRITE_LOCAL_RL |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_local_rl.F |
69 |
WRITE_LOCAL_RL |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_local_rl.F |
70 |
WRITE_LOCAL_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_local_rs.F |
10 |
WRITE_LOCAL_RS |
I pref, suff, nNr, field, |
|
./pkg/rw/write_local_rs.F |
34 |
WRITE_LOCAL_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_local_rs.F |
63 |
WRITE_LOCAL_RS |
IF ( suff .EQ. ' ' ) THEN |
|
./pkg/rw/write_local_rs.F |
65 |
WRITE_LOCAL_RS |
ELSEIF ( suff .EQ. 'I10' ) THEN |
|
./pkg/rw/write_local_rs.F |
68 |
WRITE_LOCAL_RS |
s2Lo = IFNBLNK(suff) |
|
./pkg/rw/write_local_rs.F |
69 |
WRITE_LOCAL_RS |
s2Hi = ILNBLNK(suff) |
|
./pkg/rw/write_local_rs.F |
70 |
WRITE_LOCAL_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/sbo/sbo_output.F |
45 |
SBO_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/sbo/sbo_output.F |
95 |
SBO_OUTPUT |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/sbo/sbo_output.F |
96 |
SBO_OUTPUT |
WRITE(fName,'(A,A)') 'SBO_global.', suff |
|
./pkg/seaice/seaice_ad_dump.F |
112 |
SEAICE_AD_DUMP |
& 'ADJarea.'//suff, writeBinaryPrec, |
|
./pkg/seaice/seaice_ad_dump.F |
115 |
SEAICE_AD_DUMP |
& 'ADJheff.'//suff, writeBinaryPrec, |
|
./pkg/seaice/seaice_ad_dump.F |
118 |
SEAICE_AD_DUMP |
& 'ADJhsnow.'//suff, writeBinaryPrec, |
|
./pkg/seaice/seaice_ad_dump.F |
123 |
SEAICE_AD_DUMP |
& 'ADJuice.'//suff, writeBinaryPrec, |
|
./pkg/seaice/seaice_ad_dump.F |
126 |
SEAICE_AD_DUMP |
& 'ADJvice.'//suff, writeBinaryPrec, |
|
./pkg/seaice/seaice_ad_dump.F |
156 |
SEAICE_AD_DUMP |
& suff, var2Du, myIter, myThid ) |
|
./pkg/seaice/seaice_ad_dump.F |
161 |
SEAICE_AD_DUMP |
& suff, var2Du, myIter, myThid ) |
|
./pkg/seaice/seaice_ad_dump.F |
166 |
SEAICE_AD_DUMP |
& suff, var2Du, myIter, myThid ) |
|
./pkg/seaice/seaice_ad_dump.F |
174 |
SEAICE_AD_DUMP |
& suff, var2Du, myIter, myThid ) |
|
./pkg/seaice/seaice_ad_dump.F |
178 |
SEAICE_AD_DUMP |
& suff, var2Dv, myIter, myThid ) |
|
./pkg/seaice/seaice_ad_dump.F |
68 |
SEAICE_AD_DUMP |
CHARACTER*(10) suff |
|
./pkg/seaice/seaice_ad_dump.F |
90 |
SEAICE_AD_DUMP |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/seaice/seaice_ad_dump.F |
92 |
SEAICE_AD_DUMP |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
131 |
SEAICE_MONITOR |
WRITE(suff,'(A9,I2.2)') '_sitracer', iTracer |
|
./pkg/seaice/seaice_monitor.F |
133 |
SEAICE_MONITOR |
& 1,SItracer(1-OLx,1-OLy,1,1,iTracer),suff, |
|
./pkg/seaice/seaice_monitor.F |
48 |
SEAICE_MONITOR |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/seaice/seaice_monitor_ad.F |
57 |
ADSEAICE_MONITOR |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/seaice/seaice_obcs_output.F |
51 |
SEAICE_OBCS_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/seaice/seaice_obcs_output.F |
65 |
SEAICE_OBCS_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/seaice/seaice_obcs_output.F |
72 |
SEAICE_OBCS_OUTPUT |
WRITE(fn,'(2A)') 'seaice_ob_N.', suff |
|
./pkg/seaice/seaice_obcs_output.F |
81 |
SEAICE_OBCS_OUTPUT |
WRITE(fn,'(2A)') 'seaice_ob_S.', suff |
|
./pkg/seaice/seaice_obcs_output.F |
90 |
SEAICE_OBCS_OUTPUT |
WRITE(fn,'(2A)') 'seaice_ob_E.', suff |
|
./pkg/seaice/seaice_obcs_output.F |
99 |
SEAICE_OBCS_OUTPUT |
WRITE(fn,'(2A)') 'seaice_ob_W.', suff |
|
./pkg/seaice/seaice_output.F |
125 |
SEAICE_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/seaice/seaice_output.F |
127 |
SEAICE_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_output.F |
131 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('UWIND.',suff,uwind,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
132 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('VWIND.',suff,vwind,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
134 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('FU.',suff,fu,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
135 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('FV.',suff,fv,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
136 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('EmPmR.',suff,EmPmR,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
137 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('Qnet.',suff,Qnet,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
138 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('Qsw.',suff,Qsw,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
140 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'UICE.',suff,uIce,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
141 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'VICE.',suff,vIce,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
143 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'HEFF.',suff,hEff,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
144 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'AREA.',suff,area,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
145 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'HSNOW.',suff,HSNOW,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
147 |
SEAICE_OUTPUT |
CALL WRITE_FLD_3D_RL( 'HEFFITD.', suff, nITD, HEFFITD, |
|
./pkg/seaice/seaice_output.F |
149 |
SEAICE_OUTPUT |
CALL WRITE_FLD_3D_RL( 'AREAITD.', suff, nITD, AREAITD, |
|
./pkg/seaice/seaice_output.F |
151 |
SEAICE_OUTPUT |
CALL WRITE_FLD_3D_RL('HSNOWITD.', suff, nITD, HSNOWITD, |
|
./pkg/seaice/seaice_output.F |
155 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'HSALT.',suff,HSALT,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
161 |
SEAICE_OUTPUT |
& pref,suff, |
|
./pkg/seaice/seaice_output.F |
169 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('SIGMA1.',suff,seaice_sigma1, |
|
./pkg/seaice/seaice_output.F |
171 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('SIGMA2.',suff,seaice_sigma2, |
|
./pkg/seaice/seaice_output.F |
173 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('SIGMA12.',suff,seaice_sigma12, |
|
./pkg/seaice/seaice_output.F |
313 |
SEAICE_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/seaice/seaice_output.F |
315 |
SEAICE_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/seaice/seaice_output.F |
317 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('FUtave.' ,suff,FUtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
318 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('FVtave.' ,suff,FVtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
319 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('EmPmRtave.',suff,EmPmRtave,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
320 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('QNETtave.' ,suff,QNETtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
321 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('QSWtave.' ,suff,QSWtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
322 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('UICEtave.' ,suff,UICEtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
323 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('VICEtave.' ,suff,VICEtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
324 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('HEFFtave.' ,suff,HEFFtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
325 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('AREAtave.' ,suff,AREAtave ,myIter,myThid) |
|
./pkg/seaice/seaice_output.F |
55 |
SEAICE_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/seaice/seaice_read_pickup.F |
50 |
SEAICE_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/seaice/seaice_read_pickup.F |
70 |
SEAICE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
71 |
SEAICE_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_seaice.', suff |
|
./pkg/seaice/seaice_write_pickup.F |
39 |
SEAICE_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/seaice/seaice_write_pickup.F |
71 |
SEAICE_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_seaice.',suff |
|
./pkg/seaice/seaice_write_pickup.F |
9 |
SEAICE_WRITE_PICKUP |
SUBROUTINE SEAICE_WRITE_PICKUP ( permPickup, suff, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
114 |
SHAP_FILT_APPLY_TS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
116 |
SHAP_FILT_APPLY_TS |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
118 |
SHAP_FILT_APPLY_TS |
CALL WRITE_FLD_XYZ_RL( 'shap_dT.', suff, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
163 |
SHAP_FILT_APPLY_TS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
165 |
SHAP_FILT_APPLY_TS |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
167 |
SHAP_FILT_APPLY_TS |
CALL WRITE_FLD_XYZ_RL( 'shap_dS.', suff, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
53 |
SHAP_FILT_APPLY_TS |
CHARACTER*(10) suff |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
122 |
SHAP_FILT_APPLY_UV |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
124 |
SHAP_FILT_APPLY_UV |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
126 |
SHAP_FILT_APPLY_UV |
CALL WRITE_FLD_XYZ_RL( 'shap_dU.', suff, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
128 |
SHAP_FILT_APPLY_UV |
CALL WRITE_FLD_XYZ_RL( 'shap_dV.', suff, Shap_tmpFld2, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
65 |
SHAP_FILT_APPLY_UV |
CHARACTER*(10) suff |
|
./pkg/shelfice/shelfice_output.F |
179 |
SHELFICE_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/shelfice/shelfice_output.F |
181 |
SHELFICE_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
183 |
SHELFICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'SHICE_fwFluxtave.', suff, |
|
./pkg/shelfice/shelfice_output.F |
185 |
SHELFICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'SHICE_heatFluxtave.', suff, |
|
./pkg/shelfice/shelfice_output.F |
44 |
SHELFICE_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/shelfice/shelfice_output.F |
82 |
SHELFICE_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/shelfice/shelfice_output.F |
84 |
SHELFICE_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/shelfice/shelfice_output.F |
86 |
SHELFICE_OUTPUT |
CALL WRITE_FLD_XY_RS( 'SHICE_fwFlux.',suff, |
|
./pkg/shelfice/shelfice_output.F |
88 |
SHELFICE_OUTPUT |
CALL WRITE_FLD_XY_RS( 'SHICE_heatFlux.',suff, |
|
./pkg/shelfice/shelfice_read_pickup.F |
45 |
SHELFICE_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/shelfice/shelfice_read_pickup.F |
57 |
SHELFICE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/shelfice/shelfice_read_pickup.F |
58 |
SHELFICE_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_shelfice.', suff |
|
./pkg/shelfice/shelfice_write_pickup.F |
11 |
SHELFICE_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
|
./pkg/shelfice/shelfice_write_pickup.F |
30 |
SHELFICE_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/shelfice/shelfice_write_pickup.F |
63 |
SHELFICE_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/shelfice/shelfice_write_pickup.F |
67 |
SHELFICE_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_shelfice.',suff(1:lChar) |
|
./pkg/streamice/streamice_cost_surf_accum.F |
56 |
STREAMICE_COST_SURF_ACCUM |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./pkg/streamice/streamice_cost_surf_accum.F |
65 |
STREAMICE_COST_SURF_ACCUM |
WRITE(suff,'(a,I10.10,a)') 'land_ice_surf.',myIter, '.bin' |
|
./pkg/streamice/streamice_cost_surf_accum.F |
67 |
STREAMICE_COST_SURF_ACCUM |
CALL READ_FLD_XY_RL( suff, ' ', |
|
./pkg/streamice/streamice_dump.F |
51 |
STREAMICE_DUMP |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./pkg/streamice/streamice_dump_ad.F |
106 |
ADSTREAMICE_DUMP |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/streamice/streamice_dump_ad.F |
113 |
ADSTREAMICE_DUMP |
& 'ADJc_basal_friction.'//suff, writeBinaryPrec, |
|
./pkg/streamice/streamice_dump_ad.F |
116 |
ADSTREAMICE_DUMP |
& 'ADJh_streamice.'//suff, writeBinaryPrec, |
|
./pkg/streamice/streamice_dump_ad.F |
120 |
ADSTREAMICE_DUMP |
& 'ADJr_low.'//suff, writeBinaryPrec, |
|
./pkg/streamice/streamice_dump_ad.F |
124 |
ADSTREAMICE_DUMP |
& 'ADJb_glen.'//suff, writeBinaryPrec, |
|
./pkg/streamice/streamice_dump_ad.F |
127 |
ADSTREAMICE_DUMP |
& 'ADJbdot.'//suff, writeBinaryPrec, |
|
./pkg/streamice/streamice_dump_ad.F |
60 |
ADSTREAMICE_DUMP |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./pkg/streamice/streamice_write_pickup.F |
11 |
STREAMICE_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
|
./pkg/streamice/streamice_write_pickup.F |
30 |
STREAMICE_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/streamice/streamice_write_pickup.F |
63 |
STREAMICE_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/streamice/streamice_write_pickup.F |
67 |
STREAMICE_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_streamice.',suff(1:lChar) |
|
./pkg/thsice/thsice_output.F |
154 |
THSICE_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
155 |
THSICE_OUTPUT |
WRITE(fn,'(A,A)') 'thSIce_tave.', suff |
|
./pkg/thsice/thsice_output.F |
275 |
THSICE_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/thsice/thsice_output.F |
277 |
THSICE_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/thsice/thsice_output.F |
280 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_fract.', suff,iceMask, |
|
./pkg/thsice/thsice_output.F |
282 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_iceH.', suff,iceHeight, |
|
./pkg/thsice/thsice_output.F |
284 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_snowH.', suff,snowHeight, |
|
./pkg/thsice/thsice_output.F |
286 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Tsrf.', suff,Tsrf, |
|
./pkg/thsice/thsice_output.F |
288 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Tice1.', suff,Tice1, |
|
./pkg/thsice/thsice_output.F |
290 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Tice2.', suff,Tice2, |
|
./pkg/thsice/thsice_output.F |
292 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Qice1.', suff,Qice1, |
|
./pkg/thsice/thsice_output.F |
294 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Qice2.', suff,Qice2, |
|
./pkg/thsice/thsice_output.F |
296 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_snowAge.',suff,snowAge, |
|
./pkg/thsice/thsice_output.F |
299 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_flxAtm.',suff,icFlxAtm, |
|
./pkg/thsice/thsice_output.F |
301 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_frwAtm.',suff,icFrwAtm, |
|
./pkg/thsice/thsice_output.F |
305 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_tOceMxL.', suff, tOceMxL, |
|
./pkg/thsice/thsice_output.F |
307 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_sOceMxL.', suff, sOceMxL, |
|
./pkg/thsice/thsice_output.F |
49 |
THSICE_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/thsice/thsice_read_pickup.F |
38 |
THSICE_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/thsice/thsice_read_pickup.F |
48 |
THSICE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
49 |
THSICE_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_ic.', suff |
|
./pkg/thsice/thsice_write_pickup.F |
36 |
THSICE_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/thsice/thsice_write_pickup.F |
55 |
THSICE_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_ic.',suff |
|
./pkg/thsice/thsice_write_pickup.F |
78 |
THSICE_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_ic.',suff |
|
./pkg/thsice/thsice_write_pickup.F |
8 |
THSICE_WRITE_PICKUP |
SUBROUTINE THSICE_WRITE_PICKUP( permPickup, suff, |
|
./pkg/timeave/timeave_statv_write.F |
139 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('ETAtave.' ,suff,etatave ,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
140 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
141 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
142 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('uVeltave.',suff,uVeltave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
143 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('vVeltave.',suff,vVeltave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
144 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('wVeltave.',suff,wVeltave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
145 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('Eta2tave.',suff,Eta2tave ,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
146 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UTtave.',suff,UTtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
147 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('VTtave.',suff,VTtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
148 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('WTtave.',suff,WTtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
149 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UStave.',suff,UStave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
150 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('VStave.',suff,VStave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
151 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('WStave.',suff,WStave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
152 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('TTtave.',suff,TTtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
153 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UUtave.',suff,UUtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
154 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('VVtave.',suff,VVtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
155 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UVtave.',suff,UVtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
159 |
TIMEAVE_STATV_WRITE |
& CALL WRITE_FLD_XYZ_RL('Tdiftave.',suff,TdiffRtave, |
|
./pkg/timeave/timeave_statv_write.F |
163 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('uZtave.',suff,uZetatave, |
|
./pkg/timeave/timeave_statv_write.F |
165 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('vZtave.',suff,vZetatave, |
|
./pkg/timeave/timeave_statv_write.F |
169 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('PhHytave.',suff,phiHydtave, |
|
./pkg/timeave/timeave_statv_write.F |
172 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('PHLtave.',suff,phiHydLowtave, |
|
./pkg/timeave/timeave_statv_write.F |
174 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('uFluxtave.',suff,uFluxtave, |
|
./pkg/timeave/timeave_statv_write.F |
176 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('vFluxtave.',suff,vFluxtave, |
|
./pkg/timeave/timeave_statv_write.F |
178 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('tFluxtave.',suff,tFluxtave, |
|
./pkg/timeave/timeave_statv_write.F |
180 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('sFluxtave.',suff,sFluxtave, |
|
./pkg/timeave/timeave_statv_write.F |
182 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('PHL2tave.',suff,phiHydLow2tave, |
|
./pkg/timeave/timeave_statv_write.F |
184 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('Convtave.',suff,ConvectCountTave, |
|
./pkg/timeave/timeave_statv_write.F |
189 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('hUtave.',suff,hUtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
190 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('hVtave.',suff,hVtave,myIter,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
49 |
TIMEAVE_STATV_WRITE |
CHARACTER*(10) suff |
|
./pkg/timeave/timeave_statv_write.F |
75 |
TIMEAVE_STATV_WRITE |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/timeave/timeave_statv_write.F |
77 |
TIMEAVE_STATV_WRITE |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
105 |
AIM_SURF_BC |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
346 |
AIM_SURF_BC |
WRITE(suff,'(I10.10)') myIter |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
347 |
AIM_SURF_BC |
CALL AIM_WRITE_PHYS( 'aim_SST.', suff, 1,sst1, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
103 |
ADDUMMY_IN_STEPPING |
& 'ADJtheta.',suff, adtheta, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
105 |
ADDUMMY_IN_STEPPING |
& 'ADJsalt.',suff, adsalt, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
107 |
ADDUMMY_IN_STEPPING |
& 'ADJuvel.',suff, aduvel, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
109 |
ADDUMMY_IN_STEPPING |
& 'ADJvvel.',suff, advvel, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
111 |
ADDUMMY_IN_STEPPING |
& 'ADJwvel.',suff, adwvel, myIter, myThid) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
130 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJhFacC.',suff, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
132 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJhFacS.',suff, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
134 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJhFacW.',suff, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
136 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJrhFacC.',suff, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
138 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJrhFacS.',suff, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
140 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'ADJrhFacW.',suff, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
55 |
ADDUMMY_IN_STEPPING |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
78 |
ADDUMMY_IN_STEPPING |
WRITE(suff,'(I10.10)') myIter |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
107 |
ADDUMMY_IN_HFAC |
CALL WRITE_FLD_XYZ_RL ( 'ADJhFacC.', suff, adhfacc, |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
111 |
ADDUMMY_IN_HFAC |
CALL WRITE_FLD_XYZ_RL ( 'ADJhFacW.', suff, adhfacw, |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
115 |
ADDUMMY_IN_HFAC |
CALL WRITE_FLD_XYZ_RL ( 'ADJhFacS.', suff, adhfacs, |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
77 |
ADDUMMY_IN_HFAC |
CHARACTER*(MAX_LEN_FNAM) suff |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
99 |
ADDUMMY_IN_HFAC |
WRITE(suff,'(I10.10)') myIter |
|
./model/src/read_pickup.F |
241 |
READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_ph.',suff |
|
./model/src/read_pickup.F |
246 |
READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_nh.',suff |
|
./model/src/read_pickup.F |
65 |
READ_PICKUP |
CHARACTER*(10) suff |
|
./model/src/read_pickup.F |
89 |
READ_PICKUP |
WRITE(suff,'(I10.10)') myIter |
|
./model/src/read_pickup.F |
91 |
READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./model/src/read_pickup.F |
94 |
READ_PICKUP |
WRITE(suff,'(A10)') pickupSuff |
|
./model/src/read_pickup.F |
96 |
READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup.',suff |
|
./model/src/update_masks_etc.F |
268 |
UPDATE_MASKS_ETC |
WRITE(suff,'(I10.10)') optimcycle |
|
./model/src/update_masks_etc.F |
269 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XY_RS( 'Depth.',suff,tmpfld,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
270 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacC.',suff,hFacC,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
271 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacW.',suff,hFacW,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
272 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacS.',suff,hFacS,optimcycle,myThid) |
|
./model/src/update_masks_etc.F |
72 |
UPDATE_MASKS_ETC |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./model/src/write_state.F |
127 |
WRITE_STATE |
WRITE(suff,'(I10.10)') myIter |
|
./model/src/write_state.F |
129 |
WRITE_STATE |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./model/src/write_state.F |
134 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVelv,myIter,myThid) |
|
./model/src/write_state.F |
135 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVelv,myIter,myThid) |
|
./model/src/write_state.F |
136 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'T.',suff,thetav,myIter,myThid) |
|
./model/src/write_state.F |
137 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,saltv,myIter,myThid) |
|
./model/src/write_state.F |
138 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('Eta.',suff,etaNv,myIter,myThid) |
|
./model/src/write_state.F |
139 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVelv,myIter,myThid) |
|
./model/src/write_state.F |
141 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHydv,myIter,myThid) |
|
./model/src/write_state.F |
145 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVel,myIter,myThid) |
|
./model/src/write_state.F |
146 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVel,myIter,myThid) |
|
./model/src/write_state.F |
147 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'T.',suff,theta,myIter,myThid) |
|
./model/src/write_state.F |
148 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid) |
|
./model/src/write_state.F |
149 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid) |
|
./model/src/write_state.F |
150 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid) |
|
./model/src/write_state.F |
152 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHyd,myIter,myThid) |
|
./model/src/write_state.F |
157 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid) |
|
./model/src/write_state.F |
161 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid ) |
|
./model/src/write_state.F |
164 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL( 'dPnh.',suff,dPhiNH,myIter,myThid ) |
|
./model/src/write_state.F |
75 |
WRITE_STATE |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/aim_v23/aim_diagnostics.F |
101 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_LSC.', suff, Nr, TT_LSC, |
|
./pkg/aim_v23/aim_diagnostics.F |
103 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dQ_CNV.', suff, Nr, QT_CNV, |
|
./pkg/aim_v23/aim_diagnostics.F |
105 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dQ_PBL.', suff, Nr, QT_PBL, |
|
./pkg/aim_v23/aim_diagnostics.F |
107 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dQ_LSC.', suff, Nr, QT_LSC, |
|
./pkg/aim_v23/aim_diagnostics.F |
112 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_clskySW.', suff, Nr, TT_SWclr, |
|
./pkg/aim_v23/aim_diagnostics.F |
114 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_clskyLW.', suff, Nr, TT_LWclr, |
|
./pkg/aim_v23/aim_diagnostics.F |
136 |
AIM_DIAGNOSTICS |
WRITE(suff,'(a)') 'aim_tend' |
|
./pkg/aim_v23/aim_diagnostics.F |
137 |
AIM_DIAGNOSTICS |
CALL MNC_CW_SET_UDIM(suff, -1, myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
138 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W_S('D',suff,0,0,'T',myTime,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
139 |
AIM_DIAGNOSTICS |
CALL MNC_CW_SET_UDIM(suff, 0, myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
140 |
AIM_DIAGNOSTICS |
CALL MNC_CW_I_W_S('I',suff,0,0,'iter',myIter,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
143 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RSW',TT_RSW,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
144 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RLW',TT_RLW,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
145 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_CNV',TT_CNV,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
146 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_PBL',TT_PBL,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
147 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_LSC',TT_LSC,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
148 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_CNV',QT_CNV,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
149 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_PBL',QT_PBL,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
150 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_LSC',QT_LSC,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
167 |
AIM_DIAGNOSTICS |
WRITE(suff,'(I10.10)') myIter+1 |
|
./pkg/aim_v23/aim_diagnostics.F |
169 |
AIM_DIAGNOSTICS |
CALL RW_GET_SUFFIX( suff, |
|
./pkg/aim_v23/aim_diagnostics.F |
174 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_RelHum.', suff, Nr, RH, |
|
./pkg/aim_v23/aim_diagnostics.F |
178 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 4, DRAG, |
|
./pkg/aim_v23/aim_diagnostics.F |
180 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, SPEED0, |
|
./pkg/aim_v23/aim_diagnostics.F |
182 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, TSR, |
|
./pkg/aim_v23/aim_diagnostics.F |
184 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, OLR, |
|
./pkg/aim_v23/aim_diagnostics.F |
186 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 4, SSR, |
|
./pkg/aim_v23/aim_diagnostics.F |
188 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 4, SLR, |
|
./pkg/aim_v23/aim_diagnostics.F |
190 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 4, SHF, |
|
./pkg/aim_v23/aim_diagnostics.F |
192 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 4, EVAP, |
|
./pkg/aim_v23/aim_diagnostics.F |
194 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, PRECNV, |
|
./pkg/aim_v23/aim_diagnostics.F |
196 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, PRECLS, |
|
./pkg/aim_v23/aim_diagnostics.F |
198 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, CLOUDC, |
|
./pkg/aim_v23/aim_diagnostics.F |
200 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, CLTOP, |
|
./pkg/aim_v23/aim_diagnostics.F |
202 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, CBMF, |
|
./pkg/aim_v23/aim_diagnostics.F |
204 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, T0, |
|
./pkg/aim_v23/aim_diagnostics.F |
206 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, Q0, |
|
./pkg/aim_v23/aim_diagnostics.F |
208 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, EnPrec, |
|
./pkg/aim_v23/aim_diagnostics.F |
210 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 4, alb1, |
|
./pkg/aim_v23/aim_diagnostics.F |
212 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 3, dTsurf, |
|
./pkg/aim_v23/aim_diagnostics.F |
217 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS('aimPhyDiag.', suff, 1, TSWclr, |
|
./pkg/aim_v23/aim_diagnostics.F |
219 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS('aimPhyDiag.', suff, 1, OLWclr, |
|
./pkg/aim_v23/aim_diagnostics.F |
221 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS('aimPhyDiag.', suff, 1, SSWclr, |
|
./pkg/aim_v23/aim_diagnostics.F |
223 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS('aimPhyDiag.', suff, 1, SLWclr, |
|
./pkg/aim_v23/aim_diagnostics.F |
242 |
AIM_DIAGNOSTICS |
WRITE(suff,'(a)') 'aim_phys' |
|
./pkg/aim_v23/aim_diagnostics.F |
243 |
AIM_DIAGNOSTICS |
CALL MNC_CW_SET_UDIM(suff, -1, myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
244 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W_S('D',suff,0,0,'T',myTime+deltaTClock,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
245 |
AIM_DIAGNOSTICS |
CALL MNC_CW_SET_UDIM(suff, 0, myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
246 |
AIM_DIAGNOSTICS |
CALL MNC_CW_I_W_S('I',suff,0,0,'iter',myIter+1,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
249 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
251 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
253 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
255 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
257 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
259 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
261 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
263 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
265 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
267 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
269 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
271 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
273 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
275 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
277 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
279 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
281 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
283 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
288 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
290 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
292 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
294 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj, |
|
./pkg/aim_v23/aim_diagnostics.F |
59 |
AIM_DIAGNOSTICS |
CHARACTER*(10) suff |
|
./pkg/aim_v23/aim_diagnostics.F |
87 |
AIM_DIAGNOSTICS |
WRITE(suff,'(I10.10)') myIter+1 |
|
./pkg/aim_v23/aim_diagnostics.F |
89 |
AIM_DIAGNOSTICS |
CALL RW_GET_SUFFIX( suff, |
|
./pkg/aim_v23/aim_diagnostics.F |
93 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_RSW.', suff, Nr, TT_RSW, |
|
./pkg/aim_v23/aim_diagnostics.F |
95 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_RLW.', suff, Nr, TT_RLW, |
|
./pkg/aim_v23/aim_diagnostics.F |
97 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_CNV.', suff, Nr, TT_CNV, |
|
./pkg/aim_v23/aim_diagnostics.F |
99 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_PBL.', suff, Nr, TT_PBL, |
|
./pkg/aim_v23/aim_do_co2.F |
108 |
AIM_DO_CO2 |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_do_co2.F |
109 |
AIM_DO_CO2 |
WRITE(fn,'(A,A)') 'pickup_aimCo2.', suff |
|
./pkg/aim_v23/aim_do_co2.F |
162 |
AIM_DO_CO2 |
CALL RW_GET_SUFFIX( suff, |
|
./pkg/aim_v23/aim_do_co2.F |
164 |
AIM_DO_CO2 |
WRITE(fn,'(A,A)') 'pickup_aimCo2.', suff |
|
./pkg/aim_v23/aim_do_co2.F |
62 |
AIM_DO_CO2 |
CHARACTER*(10) suff |
|
./pkg/aim_v23/aim_write_local.F |
10 |
AIM_WRITE_LOCAL |
I pref, suff, nNr, field, |
|
./pkg/aim_v23/aim_write_local.F |
37 |
AIM_WRITE_LOCAL |
CHARACTER*(*) pref,suff |
|
./pkg/aim_v23/aim_write_local.F |
93 |
AIM_WRITE_LOCAL |
CALL WRITE_LOCAL_RL( pref, suff, nNr, tmpFld, |
|
./pkg/aim_v23/aim_write_phys.F |
10 |
AIM_WRITE_PHYS |
I pref, suff, nNr, field, |
|
./pkg/aim_v23/aim_write_phys.F |
132 |
AIM_WRITE_PHYS |
CALL WRITE_LOCAL_RL( pref, suff, nLoc, tmpFld, |
|
./pkg/aim_v23/aim_write_phys.F |
40 |
AIM_WRITE_PHYS |
CHARACTER*(*) pref, suff |
|
./pkg/aim_v23/aim_write_tave.F |
163 |
AIM_WRITE_TAVE |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/aim_v23/aim_write_tave.F |
165 |
AIM_WRITE_TAVE |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_tave.F |
168 |
AIM_WRITE_TAVE |
WRITE(fn,'(A,A)') 'aimPhytave.', suff |
|
./pkg/aim_v23/aim_write_tave.F |
190 |
AIM_WRITE_TAVE |
CALL WRITE_FLD_XYZ_RL( 'aim_RHtave.', suff, aimRHtave, |
|
./pkg/aim_v23/aim_write_tave.F |
46 |
AIM_WRITE_TAVE |
CHARACTER*(10) suff |
|
./pkg/atm2d/month_end_diags.F |
101 |
MONTH_END_DIAGS |
CALL WRITE_FLD_XY_RL('mOceMxLTtave.', suff, sum_oceMxLT, |
|
./pkg/atm2d/month_end_diags.F |
103 |
MONTH_END_DIAGS |
CALL WRITE_FLD_XY_RL('mOceMxLStave.', suff, sum_oceMxLS, |
|
./pkg/atm2d/month_end_diags.F |
33 |
MONTH_END_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff |
|
./pkg/atm2d/month_end_diags.F |
82 |
MONTH_END_DIAGS |
WRITE(suff,'(I2.2)') monid |
|
./pkg/atm2d/month_end_diags.F |
83 |
MONTH_END_DIAGS |
CALL WRITE_FLD_XY_RL('mQnetAtmtave.', suff, qnet_atm, |
|
./pkg/atm2d/month_end_diags.F |
85 |
MONTH_END_DIAGS |
CALL WRITE_FLD_XY_RL('mEvapAtmtave.', suff, evap_atm, |
|
./pkg/atm2d/month_end_diags.F |
87 |
MONTH_END_DIAGS |
CALL WRITE_FLD_XY_RL('mPrecipAtmtave.', suff, precip_atm, |
|
./pkg/atm2d/month_end_diags.F |
89 |
MONTH_END_DIAGS |
CALL WRITE_FLD_XY_RL('mRunoffAtmtave.', suff, runoff_atm, |
|
./pkg/atm2d/month_end_diags.F |
91 |
MONTH_END_DIAGS |
CALL WRITE_FLD_XY_RL('mQrelfluxtave.', suff, sum_qrel, |
|
./pkg/atm2d/month_end_diags.F |
93 |
MONTH_END_DIAGS |
CALL WRITE_FLD_XY_RL('mFrelfluxtave.', suff, sum_frel, |
|
./pkg/atm2d/month_end_diags.F |
95 |
MONTH_END_DIAGS |
CALL WRITE_FLD_XY_RL('mIceMasktave.', suff, sum_iceMask, |
|
./pkg/atm2d/month_end_diags.F |
97 |
MONTH_END_DIAGS |
CALL WRITE_FLD_XY_RL('mIceHeighttave.', suff, sum_iceHeight, |
|
./pkg/atm2d/month_end_diags.F |
99 |
MONTH_END_DIAGS |
CALL WRITE_FLD_XY_RL('mIceTimetave.', suff, sum_iceTime, |
|
./pkg/atm2d/tave_end_diags.F |
130 |
TAVE_END_DIAGS |
WRITE(suff,'(I2.2)') mn |
|
./pkg/atm2d/tave_end_diags.F |
131 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('amQnetAtmtave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
133 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('amEvapAtmtave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
135 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('amPrecipAtmtave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
137 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('amRunoffAtmtave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
139 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('amQrelfluxtave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
141 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('amFrelfluxtave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
143 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('amIceMasktave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
145 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('amIceHeighttave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
147 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('amIceTimetave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
149 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('amOceMxLTtave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
151 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('amOceMxLStave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
156 |
TAVE_END_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/atm2d/tave_end_diags.F |
157 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('QnetAtmtave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
159 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('EvapAtmtave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
161 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('PrecipAtmtave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
163 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('RunoffAtmtave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
165 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('Qrelfluxtave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
167 |
TAVE_END_DIAGS |
CALL WRITE_FLD_XY_RL('Frelfluxtave.', suff, |
|
./pkg/atm2d/tave_end_diags.F |
34 |
TAVE_END_DIAGS |
CHARACTER*(MAX_LEN_MBUF) suff, fn |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
53 |
ATM_CPL_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
66 |
ATM_CPL_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
67 |
ATM_CPL_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_cpl.', suff |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
10 |
CPL_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
36 |
CPL_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
67 |
CPL_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
71 |
CPL_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_cpl.',suff(1:lChar) |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
49 |
ATM_PHYS_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
64 |
ATM_PHYS_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
65 |
ATM_PHYS_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_atmPhys.', suff |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
11 |
ATM_PHYS_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
31 |
ATM_PHYS_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
68 |
ATM_PHYS_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
72 |
ATM_PHYS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_atmPhys.',suff(1:lChar) |
|
./pkg/autodiff/addummy_in_dynamics.F |
101 |
ADDUMMY_IN_DYNAMICS |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_dynamics.F |
112 |
ADDUMMY_IN_DYNAMICS |
& suff, adrhoinsitu, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_dynamics.F |
123 |
ADDUMMY_IN_DYNAMICS |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_dynamics.F |
66 |
ADDUMMY_IN_DYNAMICS |
CHARACTER*(10) suff |
|
./pkg/autodiff/addummy_in_dynamics.F |
99 |
ADDUMMY_IN_DYNAMICS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/autodiff/addummy_in_stepping.F |
183 |
ADDUMMY_IN_STEPPING |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/autodiff/addummy_in_stepping.F |
185 |
ADDUMMY_IN_STEPPING |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
198 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJtheta.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
200 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJsalt.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
202 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJuvel.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
204 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJvvel.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
206 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJwvel.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
208 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJetan.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
212 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RS('ADJtaux.',suff, adFu, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
213 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RS('ADJtauy.',suff, adFv, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
214 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RS('ADJqnet.',suff, adQnet,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
215 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RS('ADJempr.',suff,adEmPmR,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
217 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RS('ADJqsw.', suff, adQsw,myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
224 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJggl90tke.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
228 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJdiffkr.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
232 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJkapgm.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
236 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJkapredi.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
240 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RS( 'ADJeddypsix.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
242 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RS( 'ADJeddypsiy.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
246 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RS( 'ADJsst.',suff, adSST, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
249 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RS( 'ADJsss.',suff, adSSS, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
252 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJbottomdrag.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
327 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
332 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
338 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
342 |
ADDUMMY_IN_STEPPING |
& suff, var3Dv, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
347 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
352 |
ADDUMMY_IN_STEPPING |
& suff, var2Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
360 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
364 |
ADDUMMY_IN_STEPPING |
& suff,var2Dv,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
369 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
374 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
380 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
388 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
395 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
402 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
409 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
417 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
421 |
ADDUMMY_IN_STEPPING |
& suff, var3Dv, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
428 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
435 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
443 |
ADDUMMY_IN_STEPPING |
& suff, var2Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
456 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJtheta.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
459 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJsalt.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
462 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJuvel.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
465 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJvvel.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
468 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJwvel.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
471 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJetan.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
476 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RS('ADJtaux.',suff, foo2d, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
478 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RS('ADJtauy.',suff, foo2d, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
480 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RS('ADJqnet.',suff, foo2d,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
482 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RS('ADJempr.',suff,foo2d,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
498 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJdiffkr.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
503 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJkapgm.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
508 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL( 'ADJkapredi.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
513 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RS( 'ADJeddypsix.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
516 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RS( 'ADJeddypsiy.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
521 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RS( 'ADJsst.',suff, adSST, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
525 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RS( 'ADJsss.',suff, adSSS, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
529 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJbottomdrag.', suff, |
|
./pkg/autodiff/addummy_in_stepping.F |
625 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
630 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
636 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
640 |
ADDUMMY_IN_STEPPING |
& suff, var3Dv, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
645 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
650 |
ADDUMMY_IN_STEPPING |
& suff, var2Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
658 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
662 |
ADDUMMY_IN_STEPPING |
& suff,var2Dv,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
667 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
672 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
693 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
700 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
707 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
715 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
719 |
ADDUMMY_IN_STEPPING |
& suff, var3Dv, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
726 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
733 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
741 |
ADDUMMY_IN_STEPPING |
& suff, var2Du, myIter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
81 |
ADDUMMY_IN_STEPPING |
CHARACTER*(10) suff |
|
./pkg/autodiff/g_dummy_in_dynamics.F |
60 |
G_DUMMY_IN_DYNAMICS |
CHARACTER*(10) suff |
|
./pkg/autodiff/g_dummy_in_dynamics.F |
73 |
G_DUMMY_IN_DYNAMICS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/autodiff/g_dummy_in_dynamics.F |
75 |
G_DUMMY_IN_DYNAMICS |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/autodiff/g_dummy_in_dynamics.F |
85 |
G_DUMMY_IN_DYNAMICS |
& 'G_Jrhoinsitu.',suff, g_rhoinsitu, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_dynamics.F |
87 |
G_DUMMY_IN_DYNAMICS |
& 'G_Jtotphihyd.',suff, g_totphihyd, myIter, myThid) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
100 |
G_DUMMY_IN_STEPPING |
& 'G_Juvel.',suff, g_uvel, myIter, myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
102 |
G_DUMMY_IN_STEPPING |
& 'G_Jvvel.',suff, g_vvel, myIter, myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
104 |
G_DUMMY_IN_STEPPING |
& 'G_Jwvel.',suff, g_wvel, myIter, myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
106 |
G_DUMMY_IN_STEPPING |
& 'G_Jetan.',suff, g_etan, myIter, myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
109 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'G_Jdiffkr.',suff, g_diffkr, |
|
./pkg/autodiff/g_dummy_in_stepping.F |
113 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'G_Jkapgm.',suff, g_kapgm, |
|
./pkg/autodiff/g_dummy_in_stepping.F |
117 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XYZ_RL ( 'G_Jkapredi.',suff, g_kapredi, |
|
./pkg/autodiff/g_dummy_in_stepping.F |
126 |
G_DUMMY_IN_STEPPING |
& 'G_Jphihyd.',suff, g_totphihyd, myIter, myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
62 |
G_DUMMY_IN_STEPPING |
CHARACTER*(10) suff |
|
./pkg/autodiff/g_dummy_in_stepping.F |
77 |
G_DUMMY_IN_STEPPING |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/autodiff/g_dummy_in_stepping.F |
79 |
G_DUMMY_IN_STEPPING |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
90 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jtaux.',suff, g_fu, myIter, myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
91 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jtauy.',suff, g_fv, myIter, myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
92 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jqnet.',suff, g_qnet, myIter,myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
93 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jempr.',suff, g_empmr,myIter,myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
96 |
G_DUMMY_IN_STEPPING |
& 'G_Jtheta.',suff, g_theta, myIter, myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
98 |
G_DUMMY_IN_STEPPING |
& 'G_Jsalt.',suff, g_salt, myIter, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
48 |
BBL_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/bbl/bbl_read_pickup.F |
60 |
BBL_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
61 |
BBL_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_bbl.', suff |
|
./pkg/bbl/bbl_write_pickup.F |
11 |
BBL_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
|
./pkg/bbl/bbl_write_pickup.F |
30 |
BBL_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/bbl/bbl_write_pickup.F |
63 |
BBL_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/bbl/bbl_write_pickup.F |
67 |
BBL_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_bbl.',suff(1:lChar) |
|
./pkg/bling/bling_read_pickup.F |
35 |
BLING_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/bling/bling_read_pickup.F |
50 |
BLING_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/bling/bling_write_pickup.F |
30 |
BLING_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/bling/bling_write_pickup.F |
56 |
BLING_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_bling.',suff |
|
./pkg/bling/bling_write_pickup.F |
8 |
BLING_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
100 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL( 'BULK_evap.', suff, |
|
./pkg/bulk_force/bulkf_output.F |
102 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL( 'BULK_flwup.', suff, |
|
./pkg/bulk_force/bulkf_output.F |
104 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL( 'BULK_flwupnet.', suff, |
|
./pkg/bulk_force/bulkf_output.F |
106 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL( 'BULK_solar.', suff, |
|
./pkg/bulk_force/bulkf_output.F |
108 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL( 'BULK_ssq.', suff, |
|
./pkg/bulk_force/bulkf_output.F |
48 |
BULKF_OUTPUT |
CHARACTER*(10) suff |
|
./pkg/bulk_force/bulkf_output.F |
84 |
BULKF_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/bulk_force/bulkf_output.F |
86 |
BULKF_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/bulk_force/bulkf_output.F |
88 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL( 'BULK_Qnet.', suff, |
|
./pkg/bulk_force/bulkf_output.F |
90 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL( 'BULK_EmPmR.', suff, |
|
./pkg/bulk_force/bulkf_output.F |
92 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL( 'BULK_fu.', suff, |
|
./pkg/bulk_force/bulkf_output.F |
94 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL( 'BULK_fv.', suff, |
|
./pkg/bulk_force/bulkf_output.F |
96 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL( 'BULK_latent.', suff, |
|
./pkg/bulk_force/bulkf_output.F |
98 |
BULKF_OUTPUT |
CALL WRITE_FLD_XY_RL( 'BULK_sensible.', suff, |
|
./pkg/cd_code/cd_code_read_pickup.F |
35 |
CD_CODE_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/cd_code/cd_code_read_pickup.F |
41 |
CD_CODE_READ_PICKUP |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/cd_code/cd_code_read_pickup.F |
43 |
CD_CODE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
46 |
CD_CODE_READ_PICKUP |
WRITE(suff,'(A10)') pickupSuff |
|
./pkg/cd_code/cd_code_read_pickup.F |
68 |
CD_CODE_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_cd.',suff |
|
./pkg/cd_code/cd_code_write_pickup.F |
12 |
CD_CODE_WRITE_PICKUP |
I permPickup, suff, |
|
./pkg/cd_code/cd_code_write_pickup.F |
35 |
CD_CODE_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./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 |
76 |
CD_CODE_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_cd.',suff |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
49 |
CHEAPAML_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
63 |
CHEAPAML_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
11 |
CHEAPAML_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
31 |
CHEAPAML_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
65 |
CHEAPAML_WRITE_PICKUP |
lChar = ILNBLNK(suff) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
69 |
CHEAPAML_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_cheapaml.',suff(1:lChar) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
84 |
CTRL_MAP_INI_ECCO |
character*(MAX_LEN_FNAM) suff |
|
./pkg/diagnostics/diagnostics_out.F |
101 |
DIAGNOSTICS_OUT |
WRITE( fn, '(A,A,A)' ) fnames(listId)(1:iLen),'.',suff |
|
./pkg/diagnostics/diagnostics_out.F |
105 |
DIAGNOSTICS_OUT |
& fnames(listId)(1:iLen),'.',suff |
|
./pkg/diagnostics/diagnostics_out.F |
77 |
DIAGNOSTICS_OUT |
CHARACTER*(10) suff |
|
./pkg/diagnostics/diagnostics_out.F |
96 |
DIAGNOSTICS_OUT |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/diagnostics/diagnostics_out.F |
98 |
DIAGNOSTICS_OUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
12 |
DIAGNOSTICS_WRITE_PICKUP |
I suff, |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
173 |
DIAGNOSTICS_WRITE_PICKUP |
sn = ILNBLNK(suff) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
176 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(fn,'(a,a)') 'pickup_qdiag.', suff(1:sn) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
184 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
37 |
DIAGNOSTICS_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
86 |
DIAGNOSTICS_WRITE_PICKUP |
ii = ILNBLNK(suff) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
88 |
DIAGNOSTICS_WRITE_PICKUP |
& 'pickup_diagnostics.',suff(1:ii) |
|
./pkg/diagnostics/diagstats_close_io.F |
38 |
DIAGSTATS_CLOSE_IO |
CHARACTER*(10) suff |
|
./pkg/diagnostics/diagstats_close_io.F |
56 |
DIAGSTATS_CLOSE_IO |
WRITE(suff,'(I10.10)') nIter0 |
|
./pkg/diagnostics/diagstats_close_io.F |
58 |
DIAGSTATS_CLOSE_IO |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/diagnostics/diagstats_close_io.F |
62 |
DIAGSTATS_CLOSE_IO |
& diagSt_Fname(n)(1:iL), '.', suff, '.txt' |
|
./pkg/diagnostics/diagstats_ini_io.F |
38 |
DIAGSTATS_INI_IO |
CHARACTER*(10) suff |
|
./pkg/diagnostics/diagstats_ini_io.F |
55 |
DIAGSTATS_INI_IO |
WRITE(suff,'(I10.10)') nIter0 |
|
./pkg/diagnostics/diagstats_ini_io.F |
57 |
DIAGSTATS_INI_IO |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/diagnostics/diagstats_ini_io.F |
61 |
DIAGSTATS_INI_IO |
& diagSt_Fname(n)(1:iL), '.', suff, '.txt' |
|
./pkg/dic/dic_biotic_diags.F |
101 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XYZ_RL('DIC_cfluxtave.',suff,cfluxave, |
|
./pkg/dic/dic_biotic_diags.F |
39 |
DIC_BIOTIC_DIAGS |
CHARACTER*(10) suff |
|
./pkg/dic/dic_biotic_diags.F |
77 |
DIC_BIOTIC_DIAGS |
WRITE(suff,'(I10.10)') myIter |
|
./pkg/dic/dic_biotic_diags.F |
79 |
DIC_BIOTIC_DIAGS |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
|
./pkg/dic/dic_biotic_diags.F |
81 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XYZ_RL('DIC_Biotave.',suff,BIOave, |
|
./pkg/dic/dic_biotic_diags.F |
83 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XYZ_RL('DIC_Cartave.',suff,CARave, |
|
./pkg/dic/dic_biotic_diags.F |
85 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_Surtave.',suff,SURave, |
|
./pkg/dic/dic_biotic_diags.F |
87 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_SurOtave.',suff,SUROave, |
|
./pkg/dic/dic_biotic_diags.F |
89 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_pHtave.',suff,pHave, |
|
./pkg/dic/dic_biotic_diags.F |
91 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_pCO2tave.',suff,pCO2ave, |
|
./pkg/dic/dic_biotic_diags.F |
93 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XY_RL('DIC_fluxCO2ave.',suff,fluxCO2ave, |
|
./pkg/dic/dic_biotic_diags.F |
95 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XYZ_RL('DIC_OmegaCtave.',suff,OmegaCave, |
|
./pkg/dic/dic_biotic_diags.F |
97 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XYZ_RL('DIC_pfluxtave.',suff,pfluxave, |
|
./pkg/dic/dic_biotic_diags.F |
99 |
DIC_BIOTIC_DIAGS |
CALL WRITE_FLD_XYZ_RL('DIC_epfluxtave.',suff,epfluxave, |
|
./pkg/dic/dic_read_co2_pickup.F |
31 |
DIC_READ_CO2_PICKUP |
CHARACTER*(10) suff |
|
./pkg/dic/dic_read_co2_pickup.F |
45 |
DIC_READ_CO2_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/dic/dic_read_co2_pickup.F |
46 |
DIC_READ_CO2_PICKUP |
WRITE(fn,'(A,A)') 'pickup_dic_co2atm.', suff |
|
./pkg/dic/dic_read_pickup.F |
29 |
DIC_READ_PICKUP |
CHARACTER*(10) suff |
|
./pkg/dic/dic_read_pickup.F |
44 |
DIC_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/dic/dic_read_pickup.F |
45 |
DIC_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_dic.', suff |
|
./pkg/dic/dic_write_pickup.F |
11 |
DIC_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
32 |
DIC_WRITE_PICKUP |
CHARACTER*(*) suff |
|
./pkg/dic/dic_write_pickup.F |
61 |
DIC_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_dic_co2atm.',suff |
|
./pkg/dic/dic_write_pickup.F |
79 |
DIC_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_dic.',suff |