File |
Line number |
Procedure |
Code |
./pkg/exf/exf_ad_dump.F |
104 |
EXF_AD_DUMP |
& adatemp, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
107 |
EXF_AD_DUMP |
& adaqh, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
10 |
EXF_AD_DUMP |
SUBROUTINE EXF_AD_DUMP( myTime, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
110 |
EXF_AD_DUMP |
& adlwflux, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
113 |
EXF_AD_DUMP |
& adprecip, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
118 |
EXF_AD_DUMP |
& adrunoff, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
124 |
EXF_AD_DUMP |
& aduwind, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
127 |
EXF_AD_DUMP |
& advwind, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
133 |
EXF_AD_DUMP |
& adswdown, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
136 |
EXF_AD_DUMP |
& adlwdown, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
48 |
EXF_AD_DUMP |
INTEGER myIter |
./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 |
90 |
EXF_AD_DUMP |
& adhflux, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
93 |
EXF_AD_DUMP |
& adsflux, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
96 |
EXF_AD_DUMP |
& adustress, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
99 |
EXF_AD_DUMP |
& advstress, 1, myIter, myThid ) |
./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 |
11 |
G_EXF_ADJOINT_SNAPSHOTS |
& iwhen, myTime, 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 |
46 |
G_EXF_ADJOINT_SNAPSHOTS |
INTEGER myIter |
./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 |
14 |
ADEXF_ADJOINT_SNAPSHOTS |
& iwhen, myTime, 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 |
171 |
ADEXF_ADJOINT_SNAPSHOTS |
& adustress, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
173 |
ADEXF_ADJOINT_SNAPSHOTS |
& advstress, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
175 |
ADEXF_ADJOINT_SNAPSHOTS |
& adhflux, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
177 |
ADEXF_ADJOINT_SNAPSHOTS |
& adsflux, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
183 |
ADEXF_ADJOINT_SNAPSHOTS |
& adatemp, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
185 |
ADEXF_ADJOINT_SNAPSHOTS |
& adaqh, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
187 |
ADEXF_ADJOINT_SNAPSHOTS |
& adprecip, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
191 |
ADEXF_ADJOINT_SNAPSHOTS |
& adrunoff, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
196 |
ADEXF_ADJOINT_SNAPSHOTS |
& aduwind, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
198 |
ADEXF_ADJOINT_SNAPSHOTS |
& advwind, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
203 |
ADEXF_ADJOINT_SNAPSHOTS |
& adswdown, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
205 |
ADEXF_ADJOINT_SNAPSHOTS |
& adlwdown, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
209 |
ADEXF_ADJOINT_SNAPSHOTS |
& adclimsst, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
213 |
ADEXF_ADJOINT_SNAPSHOTS |
& adclimsss, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
219 |
ADEXF_ADJOINT_SNAPSHOTS |
& adfu, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
221 |
ADEXF_ADJOINT_SNAPSHOTS |
& adfv, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
223 |
ADEXF_ADJOINT_SNAPSHOTS |
& adqnet, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
225 |
ADEXF_ADJOINT_SNAPSHOTS |
& adempmr, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
228 |
ADEXF_ADJOINT_SNAPSHOTS |
& adqsw, dumpAdRecEx, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
243 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL MNC_CW_I_W_S('I','adexf',0,0,'iter',myIter,myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
299 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL ADEXF_MONITOR ( iwhen, myTime, myIter, myThid ) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
57 |
ADEXF_ADJOINT_SNAPSHOTS |
integer myIter |
./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/exf/exf_bulkformulae.F |
12 |
EXF_BULKFORMULAE |
SUBROUTINE EXF_BULKFORMULAE( myTime, myIter, myThid ) |
./pkg/exf/exf_bulkformulae.F |
166 |
EXF_BULKFORMULAE |
INTEGER myIter |
./pkg/exf/exf_check_range.F |
104 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, vwind(i,j,bi,bj) |
./pkg/exf/exf_check_range.F |
115 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, wspeed(i,j,bi,bj) |
./pkg/exf/exf_check_range.F |
127 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, atemp(i,j,bi,bj) |
./pkg/exf/exf_check_range.F |
137 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, aqh(i,j,bi,bj) |
./pkg/exf/exf_check_range.F |
147 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, precip(i,j,bi,bj) |
./pkg/exf/exf_check_range.F |
158 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, snowprecip(i,j,bi,bj) |
./pkg/exf/exf_check_range.F |
170 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, swflux(i,j,bi,bj) |
./pkg/exf/exf_check_range.F |
182 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, runoff(i,j,bi,bj) |
./pkg/exf/exf_check_range.F |
200 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, runoff(i,j,bi,bj) |
./pkg/exf/exf_check_range.F |
26 |
EXF_CHECK_RANGE |
INTEGER myIter, myThid |
./pkg/exf/exf_check_range.F |
58 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, hflux(i,j,bi,bj) |
./pkg/exf/exf_check_range.F |
67 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, sflux(i,j,bi,bj) |
./pkg/exf/exf_check_range.F |
6 |
EXF_CHECK_RANGE |
SUBROUTINE EXF_CHECK_RANGE( myTime, myIter, myThid ) |
./pkg/exf/exf_check_range.F |
76 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, ustress(i,j,bi,bj) |
./pkg/exf/exf_check_range.F |
85 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, vstress(i,j,bi,bj) |
./pkg/exf/exf_check_range.F |
95 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myIter, uwind(i,j,bi,bj) |
./pkg/exf/exf_diagnostics_fill.F |
26 |
EXF_DIAGNOSTICS_FILL |
INTEGER myIter |
./pkg/exf/exf_diagnostics_fill.F |
7 |
EXF_DIAGNOSTICS_FILL |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getclim.F |
109 |
EXF_GETCLIM |
& wsst, myTime, myIter, myThid ) |
./pkg/exf/exf_getclim.F |
125 |
EXF_GETCLIM |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getclim.F |
137 |
EXF_GETCLIM |
& wsss, myTime, myIter, myThid ) |
./pkg/exf/exf_getclim.F |
13 |
EXF_GETCLIM |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getclim.F |
163 |
EXF_GETCLIM |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getclim.F |
191 |
EXF_GETCLIM |
IF ( myIter .EQ. niter0 ) THEN |
./pkg/exf/exf_getclim.F |
64 |
EXF_GETCLIM |
INTEGER myIter |
./pkg/exf/exf_getclim.F |
85 |
EXF_GETCLIM |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffieldrec.F |
14 |
EXF_GETFFIELDREC |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffieldrec.F |
158 |
EXF_GETFFIELDREC |
CALL CAL_GETDATE( myIter, myTime, mydate, myThid ) |
./pkg/exf/exf_getffieldrec.F |
214 |
EXF_GETFFIELDREC |
first = ( myIter.EQ.nIter0 ) |
./pkg/exf/exf_getffieldrec.F |
231 |
EXF_GETFFIELDREC |
first = ( myIter .EQ.nIter0 ) |
./pkg/exf/exf_getffieldrec.F |
239 |
EXF_GETFFIELDREC |
& '" @ Iter=', myIter, ' , myTime=', myTime |
./pkg/exf/exf_getffieldrec.F |
51 |
EXF_GETFFIELDREC |
INTEGER myIter, myThid |
./pkg/exf/exf_getffields.F |
121 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
12 |
EXF_GETFFIELDS |
SUBROUTINE EXF_GETFFIELDS( myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
142 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
184 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
197 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
212 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
234 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
249 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
262 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
277 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
291 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
305 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
320 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
349 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
365 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
378 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
395 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
411 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
427 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
442 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
457 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
473 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
504 |
EXF_GETFFIELDS |
& watemp, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
512 |
EXF_GETFFIELDS |
& waqh, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
520 |
EXF_GETFFIELDS |
& wprecip, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
528 |
EXF_GETFFIELDS |
& wswdown, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
536 |
EXF_GETFFIELDS |
& wlwdown, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
546 |
EXF_GETFFIELDS |
& wswflux, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
554 |
EXF_GETFFIELDS |
& wswflux, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
55 |
EXF_GETFFIELDS |
INTEGER myIter |
./pkg/exf/exf_getffields.F |
562 |
EXF_GETFFIELDS |
& wevap, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
572 |
EXF_GETFFIELDS |
& wsnowprecip, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
582 |
EXF_GETFFIELDS |
& wapressure, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
593 |
EXF_GETFFIELDS |
& wuwind, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
601 |
EXF_GETFFIELDS |
& wvwind, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
611 |
EXF_GETFFIELDS |
& wuwind, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
617 |
EXF_GETFFIELDS |
& wvwind, myTime, myIter, myThid ) |
./pkg/exf/exf_getffields.F |
95 |
EXF_GETFFIELDS |
I myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
139 |
EXF_GETFORCING |
INTEGER myIter |
./pkg/exf/exf_getforcing.F |
150 |
EXF_GETFORCING |
CALL EXF_GETCLIM( myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
161 |
EXF_GETFORCING |
CALL EXF_GETFFIELDS( myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
170 |
EXF_GETFORCING |
CALL EXF_ADJOINT_SNAPSHOTS( 2, myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
176 |
EXF_GETFORCING |
CALL EXF_RADIATION( myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
187 |
EXF_GETFORCING |
CALL EXF_WIND( myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
199 |
EXF_GETFORCING |
CALL EXF_BULKFORMULAE( myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
260 |
EXF_GETFORCING |
CALL EXF_GETSURFACEFLUXES( myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
263 |
EXF_GETFORCING |
& ( myIter.EQ.nIter0 .OR. exf_debugLev.GE.debLevC ) ) THEN |
./pkg/exf/exf_getforcing.F |
264 |
EXF_GETFORCING |
CALL EXF_CHECK_RANGE( myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
269 |
EXF_GETFORCING |
CALL EXF_ADJOINT_SNAPSHOTS( 1, myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
293 |
EXF_GETFORCING |
CALL EXF_DIAGNOSTICS_FILL( myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
296 |
EXF_GETFORCING |
CALL EXF_MONITOR( myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
299 |
EXF_GETFORCING |
CALL EXF_MAPFIELDS( myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
304 |
EXF_GETFORCING |
& CALL EXF_ADJOINT_SNAPSHOTS( 3, myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
98 |
EXF_GETFORCING |
SUBROUTINE EXF_GETFORCING( myTime, myIter, myThid ) |
./pkg/exf/exf_interp.F |
20 |
EXF_INTERP |
I nxIn, nyIn, method, myIter, myThid ) |
./pkg/exf/exf_interp.F |
315 |
EXF_INTERP |
& .OR. ( exf_debugLev.GE.debLevB .AND. myIter.LE.nIter0 ) |
./pkg/exf/exf_interp.F |
69 |
EXF_INTERP |
INTEGER method, myIter, myThid |
./pkg/exf/exf_interp_uv.F |
21 |
EXF_INTERP_UV |
I methodU, methodV, myIter, myThid ) |
./pkg/exf/exf_interp_uv.F |
338 |
EXF_INTERP_UV |
& .OR. ( exf_debugLev.GE.debLevB .AND. myIter.LE.nIter0 ) |
./pkg/exf/exf_interp_uv.F |
77 |
EXF_INTERP_UV |
INTEGER methodU, methodV, myIter, myThid |
./pkg/exf/exf_mapfields.F |
13 |
EXF_MAPFIELDS |
SUBROUTINE EXF_MAPFIELDS( myTime, myIter, myThid ) |
./pkg/exf/exf_mapfields.F |
77 |
EXF_MAPFIELDS |
INTEGER myIter |
./pkg/exf/exf_monitor.F |
108 |
EXF_MONITOR |
CALL MON_OUT_I ('_tsnumber', myIter,mon_string_none,myThid) |
./pkg/exf/exf_monitor.F |
12 |
EXF_MONITOR |
I myTime, myIter, myThid ) |
./pkg/exf/exf_monitor.F |
38 |
EXF_MONITOR |
INTEGER myIter |
./pkg/exf/exf_monitor_ad.F |
107 |
ADEXF_MONITOR |
CALL MON_OUT_I ('_tsnumber', myIter,mon_string_none,myThid) |
./pkg/exf/exf_monitor_ad.F |
15 |
ADEXF_MONITOR |
I iwhen, myTime, myIter, myThid ) |
./pkg/exf/exf_monitor_ad.F |
43 |
ADEXF_MONITOR |
INTEGER myIter |
./pkg/exf/exf_radiation.F |
142 |
EXF_RADIATION |
CALL EXF_ZENITHANGLE(myTime, myIter, myThid) |
./pkg/exf/exf_radiation.F |
41 |
EXF_RADIATION |
INTEGER myIter |
./pkg/exf/exf_radiation.F |
9 |
EXF_RADIATION |
SUBROUTINE EXF_RADIATION( myTime, myIter, myThid ) |
./pkg/exf/exf_set_fld.F |
135 |
EXF_SET_FLD |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_fld.F |
151 |
EXF_SET_FLD |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_fld.F |
157 |
EXF_SET_FLD |
& ' myIter, count0, count1:', myIter, count0, count1 |
./pkg/exf/exf_set_fld.F |
172 |
EXF_SET_FLD |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_fld.F |
177 |
EXF_SET_FLD |
& 'field "', fldName, '", it=', myIter, |
./pkg/exf/exf_set_fld.F |
199 |
EXF_SET_FLD |
I fld_nlon, fld_nlat, interp_method, myIter, myThid ) |
./pkg/exf/exf_set_fld.F |
19 |
EXF_SET_FLD |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_fld.F |
203 |
EXF_SET_FLD |
& fld1, count0, myIter, myThid ) |
./pkg/exf/exf_set_fld.F |
213 |
EXF_SET_FLD |
& CALL WRITE_REC_XY_RL( out_file, fld1, 1, myIter, myThid ) |
./pkg/exf/exf_set_fld.F |
214 |
EXF_SET_FLD |
CALL WRITE_REC_XY_RL( out_file,fld1,count0,myIter,myThid ) |
./pkg/exf/exf_set_fld.F |
231 |
EXF_SET_FLD |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_fld.F |
236 |
EXF_SET_FLD |
& 'field "', fldName, '", it=', myIter, |
./pkg/exf/exf_set_fld.F |
258 |
EXF_SET_FLD |
I fld_nlon, fld_nlat, interp_method, myIter, myThid ) |
./pkg/exf/exf_set_fld.F |
262 |
EXF_SET_FLD |
& fld1, count1, myIter, myThid ) |
./pkg/exf/exf_set_fld.F |
271 |
EXF_SET_FLD |
CALL WRITE_REC_XY_RL( out_file,fld1,count1,myIter,myThid ) |
./pkg/exf/exf_set_fld.F |
92 |
EXF_SET_FLD |
INTEGER myIter |
./pkg/exf/exf_set_gen.F |
21 |
EXF_SET_GEN |
& myTime, myIter, myThid ) |
./pkg/exf/exf_set_gen.F |
47 |
EXF_SET_GEN |
INTEGER myIter |
./pkg/exf/exf_set_gen.F |
81 |
EXF_SET_GEN |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
129 |
EXF_SET_OBCS_YZ |
I myTime, myIter, myThid) |
./pkg/exf/exf_set_obcs.F |
166 |
EXF_SET_OBCS_YZ |
INTEGER myIter |
./pkg/exf/exf_set_obcs.F |
187 |
EXF_SET_OBCS_YZ |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
191 |
EXF_SET_OBCS_YZ |
& obcs_yz_1, count0, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
202 |
EXF_SET_OBCS_YZ |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
206 |
EXF_SET_OBCS_YZ |
& obcs_yz_1, count1, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
20 |
EXF_SET_OBCS_XZ |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
236 |
EXF_SET_OBCS_X |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
273 |
EXF_SET_OBCS_X |
INTEGER myIter |
./pkg/exf/exf_set_obcs.F |
295 |
EXF_SET_OBCS_X |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
298 |
EXF_SET_OBCS_X |
& obcs_x_1, count0, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
308 |
EXF_SET_OBCS_X |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
311 |
EXF_SET_OBCS_X |
& obcs_x_1, count1, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
338 |
EXF_SET_OBCS_Y |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
374 |
EXF_SET_OBCS_Y |
INTEGER myIter |
./pkg/exf/exf_set_obcs.F |
396 |
EXF_SET_OBCS_Y |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
399 |
EXF_SET_OBCS_Y |
& obcs_y_1, count0, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
409 |
EXF_SET_OBCS_Y |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
412 |
EXF_SET_OBCS_Y |
& obcs_y_1, count1, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
59 |
EXF_SET_OBCS_XZ |
INTEGER myIter |
./pkg/exf/exf_set_obcs.F |
80 |
EXF_SET_OBCS_XZ |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
84 |
EXF_SET_OBCS_XZ |
& obcs_xz_1, count0, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
95 |
EXF_SET_OBCS_XZ |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
99 |
EXF_SET_OBCS_XZ |
& obcs_xz_1, count1, myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
100 |
EXF_SET_UV |
INTEGER myIter |
./pkg/exf/exf_set_uv.F |
157 |
EXF_SET_UV |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
173 |
EXF_SET_UV |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
178 |
EXF_SET_UV |
& ' myIter, count0, count1:', myIter, count0, count1 |
./pkg/exf/exf_set_uv.F |
195 |
EXF_SET_UV |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
200 |
EXF_SET_UV |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
204 |
EXF_SET_UV |
& 'fields "', uVecName, '" & "', vVecName, '", it=', myIter |
./pkg/exf/exf_set_uv.F |
232 |
EXF_SET_UV |
I u_interp_method, v_interp_method, myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
245 |
EXF_SET_UV |
I myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
256 |
EXF_SET_UV |
I myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
25 |
EXF_SET_UV |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
267 |
EXF_SET_UV |
& CALL WRITE_REC_XY_RL(out_uVecFile,tmp_u,1,myIter,myThid) |
./pkg/exf/exf_set_uv.F |
268 |
EXF_SET_UV |
CALL WRITE_REC_XY_RL(out_uVecFile,tmp_u,count0,myIter,myThid) |
./pkg/exf/exf_set_uv.F |
272 |
EXF_SET_UV |
& CALL WRITE_REC_XY_RL(out_vVecFile,tmp_v,1,myIter,myThid) |
./pkg/exf/exf_set_uv.F |
273 |
EXF_SET_UV |
CALL WRITE_REC_XY_RL(out_vVecFile,tmp_v,count0,myIter,myThid) |
./pkg/exf/exf_set_uv.F |
360 |
EXF_SET_UV |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
365 |
EXF_SET_UV |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
369 |
EXF_SET_UV |
& 'fields "', uVecName, '" & "', vVecName, '", it=', myIter |
./pkg/exf/exf_set_uv.F |
397 |
EXF_SET_UV |
I u_interp_method, v_interp_method, myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
410 |
EXF_SET_UV |
I myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
421 |
EXF_SET_UV |
I myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
431 |
EXF_SET_UV |
CALL WRITE_REC_XY_RL(out_uVecFile,tmp_u,count1,myIter,myThid) |
./pkg/exf/exf_set_uv.F |
434 |
EXF_SET_UV |
CALL WRITE_REC_XY_RL(out_vVecFile,tmp_v,count1,myIter,myThid) |
./pkg/exf/exf_set_uv.F |
541 |
EXF_SET_UV |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_uv.F |
552 |
EXF_SET_UV |
I myTime, myIter, myThid ) |
./pkg/exf/exf_wind.F |
12 |
EXF_WIND |
SUBROUTINE EXF_WIND( myTime, myIter, myThid ) |
./pkg/exf/exf_wind.F |
50 |
EXF_WIND |
INTEGER myIter |
./pkg/exf/exf_zenithangle.F |
10 |
EXF_ZENITHANGLE |
I myTime, myIter, myThid ) |
./pkg/exf/exf_zenithangle.F |
37 |
EXF_ZENITHANGLE |
INTEGER myIter |
./pkg/exf/exf_zenithangle.F |
75 |
EXF_ZENITHANGLE |
CALL CAL_GETDATE( myIter, myTime, mydate, myThid ) |
./pkg/fizhi/do_fizhi.F |
34 |
DO_FIZHI |
INTEGER myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
./pkg/fizhi/do_fizhi.F |
4 |
DO_FIZHI |
SUBROUTINE DO_FIZHI(myIter,myid, |
./pkg/fizhi/fizhi_read_pickup.F |
102 |
FIZHI_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter |
./pkg/fizhi/fizhi_read_pickup.F |
35 |
FIZHI_READ_PICKUP |
INTEGER myIter |
./pkg/fizhi/fizhi_read_pickup.F |
50 |
FIZHI_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_fizhi.',myIter |
./pkg/fizhi/fizhi_read_pickup.F |
56 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,uphy, 1,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
57 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,vphy, 2,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
58 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,thphy, 3,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
59 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,sphy, 4,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
60 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldtot_lw, 5,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
61 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldras_lw, 6,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
62 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldlsp_lw, 7,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
63 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,lwlz, 8,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
64 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldtot_sw, 9,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
65 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldras_sw,10,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
66 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldlsp_sw,11,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
67 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,swlz, 12,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
68 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,qliqavelw,13,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
69 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,qliqavesw,14,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
70 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,fccavelw, 15,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
71 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,fccavesw, 16,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
72 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,temp, 17,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
9 |
FIZHI_READ_PICKUP |
SUBROUTINE FIZHI_READ_PICKUP( myIter, myThid ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
39 |
FIZHI_WRITE_VEGTILES |
INTEGER myIter |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
76 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_I_W_S('I',bnam,0,0,'iter',myIter,myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
9 |
FIZHI_WRITE_VEGTILES |
SUBROUTINE FIZHI_WRITE_VEGTILES(fn,pickupflg,myTime,myIter,myThid) |
./pkg/fizhi/fizhi_tendency_apply.F |
121 |
FIZHI_TENDENCY_APPLY_V |
INTEGER myIter |
./pkg/fizhi/fizhi_tendency_apply.F |
174 |
FIZHI_TENDENCY_APPLY_T |
I myTime, myIter, myThid ) |
./pkg/fizhi/fizhi_tendency_apply.F |
203 |
FIZHI_TENDENCY_APPLY_T |
INTEGER myIter |
./pkg/fizhi/fizhi_tendency_apply.F |
283 |
FIZHI_TENDENCY_APPLY_S |
I myTime, myIter, myThid ) |
./pkg/fizhi/fizhi_tendency_apply.F |
312 |
FIZHI_TENDENCY_APPLY_S |
INTEGER myIter |
./pkg/fizhi/fizhi_tendency_apply.F |
38 |
FIZHI_TENDENCY_APPLY_U |
INTEGER myIter |
./pkg/fizhi/fizhi_tendency_apply.F |
8 |
FIZHI_TENDENCY_APPLY_U |
I myTime, myIter, myThid ) |
./pkg/fizhi/fizhi_tendency_apply.F |
91 |
FIZHI_TENDENCY_APPLY_V |
I myTime, myIter, myThid ) |
./pkg/fizhi/fizhi_update_time.F |
20 |
FIZHI_UPDATE_TIME |
integer myIter, myThid |
./pkg/fizhi/fizhi_update_time.F |
5 |
FIZHI_UPDATE_TIME |
subroutine FIZHI_UPDATE_TIME (myIter,myThid,deltat) |
./pkg/fizhi/fizhi_wrapper.F |
260 |
FIZHI_WRAPPER |
turbStart(bi,bj) = turbStart(bi,bj) .AND. ( myIter.EQ.nIter0 ) |
./pkg/fizhi/fizhi_wrapper.F |
262 |
FIZHI_WRAPPER |
call DO_FIZHI(myIter,myThid, |
./pkg/fizhi/fizhi_wrapper.F |
37 |
FIZHI_WRAPPER |
INTEGER myIter, myThid |
./pkg/fizhi/fizhi_wrapper.F |
5 |
FIZHI_WRAPPER |
SUBROUTINE FIZHI_WRAPPER (myTime, myIter, myThid) |
./pkg/fizhi/fizhi_write_datetime.F |
19 |
FIZHI_WRITE_DATETIME |
integer myIter, myThid |
./pkg/fizhi/fizhi_write_datetime.F |
9 |
FIZHI_WRITE_DATETIME |
SUBROUTINE FIZHI_WRITE_DATETIME( myTime, myIter, myThid ) |
./pkg/fizhi/fizhi_write_pickup.F |
112 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,temp,17,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
38 |
FIZHI_WRITE_PICKUP |
INTEGER myIter |
./pkg/fizhi/fizhi_write_pickup.F |
73 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,uphy, 1,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
74 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,vphy, 2,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
75 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,thphy, 3,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
76 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,sphy, 4,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
78 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldtot_lw, 5,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
79 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldras_lw, 6,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
80 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldlsp_lw, 7,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
81 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,lwlz, 8,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
82 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldtot_sw, 9,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
83 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldras_sw,10,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
84 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldlsp_sw,11,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
85 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,swlz, 12,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
86 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,qliqavelw,13,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
87 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,qliqavesw,14,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
88 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,fccavelw, 15,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
89 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,fccavesw, 16,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
8 |
FIZHI_WRITE_PICKUP |
SUBROUTINE FIZHI_WRITE_PICKUP( suff, myTime, myIter, myThid ) |
./pkg/fizhi/fizhi_write_state.F |
37 |
FIZHI_WRITE_STATE |
INTEGER myIter |
./pkg/fizhi/fizhi_write_state.F |
59 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,I10.10)' ) 'fizhi_U.', myIter |
./pkg/fizhi/fizhi_write_state.F |
60 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, uphy, 1, myIter,myThid ) |
./pkg/fizhi/fizhi_write_state.F |
61 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,I10.10)' ) 'fizhi_V.', myIter |
./pkg/fizhi/fizhi_write_state.F |
62 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, vphy, 1, myIter,myThid ) |
./pkg/fizhi/fizhi_write_state.F |
63 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,I10.10)' ) 'fizhi_T.', myIter |
./pkg/fizhi/fizhi_write_state.F |
64 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, thphy, 1, myIter,myThid ) |
./pkg/fizhi/fizhi_write_state.F |
65 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,I10.10)' ) 'fizhi_S.', myIter |
./pkg/fizhi/fizhi_write_state.F |
66 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, sphy, 1, myIter,myThid ) |
./pkg/fizhi/fizhi_write_state.F |
8 |
FIZHI_WRITE_STATE |
SUBROUTINE FIZHI_WRITE_STATE( myTime, myIter, myThid ) |
./pkg/fizhi/step_fizhi_corr.F |
35 |
STEP_FIZHI_CORR |
integer myIter, myThid |
./pkg/fizhi/step_fizhi_corr.F |
5 |
STEP_FIZHI_CORR |
subroutine STEP_FIZHI_CORR (myTime, myIter, myThid, dt) |
./pkg/fizhi/step_fizhi_fg.F |
24 |
STEP_FIZHI_FG |
integer myIter, myThid |
./pkg/fizhi/step_fizhi_fg.F |
5 |
STEP_FIZHI_FG |
subroutine STEP_FIZHI_FG (myTime, myIter, myThid, dt) |
./pkg/fizhi/update_chemistry_exports.F |
26 |
UPDATE_CHEMISTRY_EXPORTS |
integer myIter, myThid |
./pkg/fizhi/update_chemistry_exports.F |
5 |
UPDATE_CHEMISTRY_EXPORTS |
subroutine UPDATE_CHEMISTRY_EXPORTS (myTime, myIter, myThid) |
./pkg/fizhi/update_earth_exports.F |
17 |
UPDATE_EARTH_EXPORTS |
SUBROUTINE UPDATE_EARTH_EXPORTS (myTime, myIter, myThid) |
./pkg/fizhi/update_earth_exports.F |
42 |
UPDATE_EARTH_EXPORTS |
INTEGER myIter, myThid |
./pkg/fizhi/update_ocean_exports.F |
25 |
UPDATE_OCEAN_EXPORTS |
integer myIter, myThid |
./pkg/fizhi/update_ocean_exports.F |
5 |
UPDATE_OCEAN_EXPORTS |
subroutine UPDATE_OCEAN_EXPORTS (myTime, myIter, myThid) |
./pkg/flt/flt_down.F |
27 |
FLT_DOWN |
INTEGER myIter, myThid |
./pkg/flt/flt_down.F |
7 |
FLT_DOWN |
I myTime, myIter, myThid ) |
./pkg/flt/flt_exch2.F |
356 |
FLT_EXCH2 |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 0x', myIter |
./pkg/flt/flt_exch2.F |
364 |
FLT_EXCH2 |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH2: 1x', myIter |
./pkg/flt/flt_exch2.F |
375 |
FLT_EXCH2 |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH2: 2x', myIter |
./pkg/flt/flt_exch2.F |
37 |
FLT_EXCH2 |
INTEGER myIter, myThid |
./pkg/flt/flt_exch2.F |
8 |
FLT_EXCH2 |
I myTime, myIter, myThid ) |
./pkg/flt/flt_exchg.F |
212 |
FLT_EXCHG |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 0x', myIter |
./pkg/flt/flt_exchg.F |
219 |
FLT_EXCHG |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 1x', myIter |
./pkg/flt/flt_exchg.F |
226 |
FLT_EXCHG |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 2x', myIter |
./pkg/flt/flt_exchg.F |
30 |
FLT_EXCHG |
INTEGER myIter, myThid |
./pkg/flt/flt_exchg.F |
454 |
FLT_EXCHG |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 0y', myIter |
./pkg/flt/flt_exchg.F |
461 |
FLT_EXCHG |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 1y', myIter |
./pkg/flt/flt_exchg.F |
468 |
FLT_EXCHG |
WRITE(errorMessageUnit,'(A,I8)') 'FLT_EXCH: 2y', myIter |
./pkg/flt/flt_exchg.F |
8 |
FLT_EXCHG |
I myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
113 |
FLT_MAIN |
CALL FLT_RUNGA2( myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
119 |
FLT_MAIN |
CALL FLT_RUNGA4( myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
131 |
FLT_MAIN |
CALL FLT_EXCH2( myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
133 |
FLT_MAIN |
CALL FLT_EXCHG( myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
145 |
FLT_MAIN |
CALL FLT_UP( myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
154 |
FLT_MAIN |
CALL FLT_DOWN( myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
167 |
FLT_MAIN |
CALL FLT_TRAJ( myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
58 |
FLT_MAIN |
I myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
93 |
FLT_MAIN |
INTEGER myIter, myThid |
./pkg/flt/flt_runga2.F |
35 |
FLT_RUNGA2 |
INTEGER myIter, myThid |
./pkg/flt/flt_runga2.F |
8 |
FLT_RUNGA2 |
I myTime, myIter, myThid ) |
./pkg/flt/flt_runga4.F |
35 |
FLT_RUNGA4 |
INTEGER myIter, myThid |
./pkg/flt/flt_runga4.F |
8 |
FLT_RUNGA4 |
I myTime, myIter, myThid ) |
./pkg/flt/flt_traj.F |
11 |
FLT_TRAJ |
I myTime, myIter, myThid ) |
./pkg/flt/flt_traj.F |
229 |
FLT_TRAJ |
& bi, bj, -1, myIter, myThid ) |
./pkg/flt/flt_traj.F |
237 |
FLT_TRAJ |
I bi, bj, irecord, myIter, myThid ) |
./pkg/flt/flt_traj.F |
40 |
FLT_TRAJ |
INTEGER myIter, myThid |
./pkg/flt/flt_traj.F |
86 |
FLT_TRAJ |
IF ( myIter.EQ.nIter0 .OR. flt_selectTrajOutp.LE.0 ) RETURN |
./pkg/flt/flt_up.F |
11 |
FLT_UP |
I myTime, myIter, myThid ) |
./pkg/flt/flt_up.F |
227 |
FLT_UP |
& bi, bj, -1, myIter, myThid ) |
./pkg/flt/flt_up.F |
235 |
FLT_UP |
& bi, bj, irecord, myIter, myThid ) |
./pkg/flt/flt_up.F |
38 |
FLT_UP |
INTEGER myIter, myThid |
./pkg/flt/flt_up.F |
80 |
FLT_UP |
IF ( myIter.EQ.nIter0 ) RETURN |
./pkg/flt/flt_write_pickup.F |
34 |
FLT_WRITE_PICKUP |
INTEGER myIter, myThid |
./pkg/flt/flt_write_pickup.F |
65 |
FLT_WRITE_PICKUP |
tmp(2) = myIter |
./pkg/flt/flt_write_pickup.F |
77 |
FLT_WRITE_PICKUP |
& bi,bj,-1, myIter, myThid ) |
./pkg/flt/flt_write_pickup.F |
8 |
FLT_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
./pkg/flt/flt_write_pickup.F |
96 |
FLT_WRITE_PICKUP |
& bi,bj,irecord, myIter, myThid ) |
./pkg/frazil/frazil_calc_rhs.F |
11 |
FRAZIL_CALC_RHS |
I myTime, myIter, myThid ) |
./pkg/frazil/frazil_calc_rhs.F |
34 |
FRAZIL_CALC_RHS |
INTEGER myIter |
./pkg/frazil/frazil_tendency_apply.F |
16 |
FRAZIL_TENDENCY_APPLY_T |
I myTime, myIter, myThid ) |
./pkg/frazil/frazil_tendency_apply.F |
46 |
FRAZIL_TENDENCY_APPLY_T |
INTEGER myIter |
./pkg/gchem/gchem_add_tendency.F |
13 |
GCHEM_ADD_TENDENCY |
I iTr, myTime, myIter, myThid ) |
./pkg/gchem/gchem_add_tendency.F |
43 |
GCHEM_ADD_TENDENCY |
INTEGER myIter, myThid |
./pkg/gchem/gchem_calc_tendency.F |
111 |
GCHEM_CALC_TENDENCY |
I myTime, myIter, myThid ) |
./pkg/gchem/gchem_calc_tendency.F |
118 |
GCHEM_CALC_TENDENCY |
I myTime, myIter, myThid ) |
./pkg/gchem/gchem_calc_tendency.F |
11 |
GCHEM_CALC_TENDENCY |
I myTime, myIter, myThid ) |
./pkg/gchem/gchem_calc_tendency.F |
47 |
GCHEM_CALC_TENDENCY |
INTEGER myIter, myThid |
./pkg/gchem/gchem_fields_load.F |
11 |
GCHEM_FIELDS_LOAD |
I myTime, myIter, myThid) |
./pkg/gchem/gchem_fields_load.F |
25 |
GCHEM_FIELDS_LOAD |
INTEGER myIter |
./pkg/gchem/gchem_fields_load.F |
38 |
GCHEM_FIELDS_LOAD |
CALL DIC_FIELDS_LOAD (myIter,myTime,myThid) |
./pkg/gchem/gchem_fields_load.F |
44 |
GCHEM_FIELDS_LOAD |
CALL BLING_FIELDS_LOAD (myIter,myTime,myThid) |
./pkg/gchem/gchem_fields_load.F |
50 |
GCHEM_FIELDS_LOAD |
CALL CFC_FIELDS_LOAD( myTime, myIter, myThid ) |
./pkg/gchem/gchem_fields_load.F |
56 |
GCHEM_FIELDS_LOAD |
CALl DARWIN_FIELDS_LOAD(myIter,myTime,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
132 |
GCHEM_FORCING_SEP |
CALL DARWIN_CONS( myIter, myTime, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
162 |
GCHEM_FORCING_SEP |
& myIter, myTime, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
171 |
GCHEM_FORCING_SEP |
& myIter, myTime, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
178 |
GCHEM_FORCING_SEP |
& myIter, myTime, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
18 |
GCHEM_FORCING_SEP |
SUBROUTINE GCHEM_FORCING_SEP( myTime, myIter, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
202 |
GCHEM_FORCING_SEP |
& myIter, myTime, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
216 |
GCHEM_FORCING_SEP |
& myIter, myTime, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
219 |
GCHEM_FORCING_SEP |
& myIter, myTime, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
222 |
GCHEM_FORCING_SEP |
& myIter, myTime, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
225 |
GCHEM_FORCING_SEP |
& myIter, myTime, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
235 |
GCHEM_FORCING_SEP |
& myIter, myTime, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
262 |
GCHEM_FORCING_SEP |
CALL DARWIN_CONS( myIter, myTime, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
264 |
GCHEM_FORCING_SEP |
CALL DIC_ATMOS( 1, myTime, myIter, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
278 |
GCHEM_FORCING_SEP |
CALL DIC_ATMOS( myTime, myIter, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
280 |
GCHEM_FORCING_SEP |
CALL DIC_STORE_FLUXCO2( myTime, myIter, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
283 |
GCHEM_FORCING_SEP |
CALL DIC_COST( myTime, myIter, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
52 |
GCHEM_FORCING_SEP |
INTEGER myIter, myThid |
./pkg/gchem/gchem_output.F |
10 |
GCHEM_OUTPUT |
SUBROUTINE GCHEM_OUTPUT( myTime, myIter, myThid ) |
./pkg/gchem/gchem_output.F |
27 |
GCHEM_OUTPUT |
INTEGER myIter |
./pkg/gchem/gchem_output.F |
38 |
GCHEM_OUTPUT |
IF ( myIter.NE.nIter0 ) |
./pkg/gchem/gchem_output.F |
39 |
GCHEM_OUTPUT |
& CALL DIC_BIOTIC_DIAGS( myTime, myIter, myThid ) |
./pkg/gchem/gchem_output.F |
46 |
GCHEM_OUTPUT |
CALL DARWIN_DIAGS( myTime, myIter, myThid ) |
./pkg/gchem/gchem_output.F |
48 |
GCHEM_OUTPUT |
CALL DIC_DIAGS( myTime, myIter, myThid ) |
./pkg/gchem/gchem_write_pickup.F |
14 |
GCHEM_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/gchem/gchem_write_pickup.F |
37 |
GCHEM_WRITE_PICKUP |
INTEGER myIter |
./pkg/gchem/gchem_write_pickup.F |
47 |
GCHEM_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/gchem/gchem_write_pickup.F |
54 |
GCHEM_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/gchem/gchem_write_pickup.F |
61 |
GCHEM_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/gchem/gchem_write_pickup.F |
64 |
GCHEM_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
19 |
GAD_ADVECTION |
I bi,bj, myTime,myIter,myThid) |
./pkg/generic_advdiff/gad_advection.F |
822 |
GAD_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
./pkg/generic_advdiff/gad_advection.F |
82 |
GAD_ADVECTION |
INTEGER myIter |
./pkg/generic_advdiff/gad_calc_rhs.F |
112 |
GAD_CALC_RHS |
INTEGER myIter, myThid |
./pkg/generic_advdiff/gad_calc_rhs.F |
21 |
GAD_CALC_RHS |
I myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
668 |
GAD_CALC_RHS |
I myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
673 |
GAD_CALC_RHS |
I myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
680 |
GAD_CALC_RHS |
I myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
792 |
GAD_CALC_RHS |
& .AND. k.EQ.2 .AND. myIter.EQ.1+nIter0 |
./pkg/generic_advdiff/gad_diagnostics_state.F |
11 |
GAD_DIAGNOSTICS_STATE |
SUBROUTINE GAD_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_state.F |
30 |
GAD_DIAGNOSTICS_STATE |
INTEGER myIter |
./pkg/generic_advdiff/gad_implicit_r.F |
14 |
GAD_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_implicit_r.F |
53 |
GAD_IMPLICIT_R |
INTEGER myIter, myThid |
./pkg/generic_advdiff/gad_read_pickup.F |
103 |
GAD_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
11 |
GAD_READ_PICKUP |
SUBROUTINE GAD_READ_PICKUP( myIter, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
127 |
GAD_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_somS.', myIter |
./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 |
154 |
GAD_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
30 |
GAD_READ_PICKUP |
INTEGER myIter |
./pkg/generic_advdiff/gad_read_pickup.F |
76 |
GAD_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_somT.', myIter |
./pkg/generic_advdiff/gad_read_pickup.F |
78 |
GAD_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
17 |
GAD_SOM_ADVECT |
I bi,bj, myTime,myIter,myThid) |
./pkg/generic_advdiff/gad_som_advect.F |
439 |
GAD_SOM_ADVECT |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
./pkg/generic_advdiff/gad_som_advect.F |
61 |
GAD_SOM_ADVECT |
INTEGER myIter |
./pkg/generic_advdiff/gad_write_pickup.F |
103 |
GAD_WRITE_PICKUP |
I iRec, myIter, myThid ) |
./pkg/generic_advdiff/gad_write_pickup.F |
11 |
GAD_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_write_pickup.F |
34 |
GAD_WRITE_PICKUP |
INTEGER myIter |
./pkg/generic_advdiff/gad_write_pickup.F |
86 |
GAD_WRITE_PICKUP |
I iRec, myIter, myThid ) |
./pkg/generic_advdiff/salt_fill.F |
13 |
SALT_FILL |
I flag,myTime,myIter,myThid) |
./pkg/generic_advdiff/salt_fill.F |
51 |
SALT_FILL |
INTEGER myIter |
./pkg/ggl90/ggl90_calc.F |
11 |
GGL90_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./pkg/ggl90/ggl90_calc.F |
209 |
GGL90_CALC |
& bi, bj, hFacI, recip_hFacI, sigmaR, myTime, myIter, myThid ) |
./pkg/ggl90/ggl90_calc.F |
52 |
GGL90_CALC |
INTEGER myIter |
./pkg/ggl90/ggl90_idemix.F |
10 |
GGL90_IDEMIX |
I bi, bj, hFacI, recip_hFacI, sigmaR, myTime, myIter, myThid ) |
./pkg/ggl90/ggl90_idemix.F |
53 |
GGL90_IDEMIX |
INTEGER myIter |
./pkg/ggl90/ggl90_output.F |
110 |
GGL90_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/ggl90/ggl90_output.F |
142 |
GGL90_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
./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 |
167 |
GGL90_OUTPUT |
& GGL90viscArUtave, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
169 |
GGL90_OUTPUT |
& GGL90viscArVtave, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
171 |
GGL90_OUTPUT |
& GGL90diffKrTave, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
173 |
GGL90_OUTPUT |
& GGL90TKETave, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
56 |
GGL90_OUTPUT |
INTEGER myIter |
./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 |
89 |
GGL90_OUTPUT |
IF ( myIter.NE.nIter0 ) THEN |
./pkg/ggl90/ggl90_output.F |
91 |
GGL90_OUTPUT |
& GGL90viscArU, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
93 |
GGL90_OUTPUT |
& GGL90viscArV, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
95 |
GGL90_OUTPUT |
& GGL90diffKr, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
98 |
GGL90_OUTPUT |
& GGL90TKE, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
9 |
GGL90_OUTPUT |
SUBROUTINE GGL90_OUTPUT( myTime, myIter, myThid ) |
./pkg/ggl90/ggl90_read_pickup.F |
29 |
GGL90_READ_PICKUP |
INTEGER myIter |
./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 |
57 |
GGL90_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
./pkg/ggl90/ggl90_read_pickup.F |
63 |
GGL90_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, IDEMIX_E, 2, myIter, myThid ) |
./pkg/ggl90/ggl90_read_pickup.F |
9 |
GGL90_READ_PICKUP |
SUBROUTINE GGL90_READ_PICKUP( myIter, myThid ) |
./pkg/ggl90/ggl90_write_pickup.F |
10 |
GGL90_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/ggl90/ggl90_write_pickup.F |
37 |
GGL90_WRITE_PICKUP |
INTEGER myIter |
./pkg/ggl90/ggl90_write_pickup.F |
52 |
GGL90_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
./pkg/ggl90/ggl90_write_pickup.F |
56 |
GGL90_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, IDEMIX_E, 2, myIter, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
1117 |
GMREDI_CALC_TENSOR_DUMMY |
I bi, bj, myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
1141 |
GMREDI_CALC_TENSOR_DUMMY |
INTEGER myIter |
./pkg/gmredi/gmredi_calc_tensor.F |
21 |
GMREDI_CALC_TENSOR |
I bi, bj, myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
430 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
629 |
GMREDI_CALC_TENSOR |
I myIter, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
67 |
GMREDI_CALC_TENSOR |
INTEGER myIter |
./pkg/gmredi/gmredi_calc_tensor.F |
709 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
924 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_diagnostics_impl.F |
10 |
GMREDI_DIAGNOSTICS_IMPL |
I myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_diagnostics_impl.F |
30 |
GMREDI_DIAGNOSTICS_IMPL |
INTEGER myIter |
./pkg/gmredi/gmredi_do_exch.F |
10 |
GMREDI_DO_EXCH |
I myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_do_exch.F |
33 |
GMREDI_DO_EXCH |
INTEGER myIter |
./pkg/gmredi/gmredi_output.F |
10 |
GMREDI_OUTPUT |
SUBROUTINE GMREDI_OUTPUT( myTime, myIter, myThid ) |
./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 |
152 |
GMREDI_OUTPUT |
& myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
157 |
GMREDI_OUTPUT |
& myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
159 |
GMREDI_OUTPUT |
& myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
174 |
GMREDI_OUTPUT |
CALL MNC_CW_I_W_S('I','gm_tave',0,0,'iter',myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
37 |
GMREDI_OUTPUT |
INTEGER myIter |
./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_output.F |
92 |
GMREDI_OUTPUT |
CALL MNC_CW_I_W_S('I','gm_inst',0,0,'iter',myIter,myThid) |
./pkg/gmredi/gmredi_read_pickup.F |
11 |
GMREDI_READ_PICKUP |
SUBROUTINE GMREDI_READ_PICKUP( myIter, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
141 |
GMREDI_READ_PICKUP |
& nm, fp, Nr, myIter, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
159 |
GMREDI_READ_PICKUP |
& nm, fp, Nr, myIter, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
178 |
GMREDI_READ_PICKUP |
& nm, fp, Nr, myIter, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
199 |
GMREDI_READ_PICKUP |
& nm, fp, 1, myIter, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
210 |
GMREDI_READ_PICKUP |
I myIter, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
26 |
GMREDI_READ_PICKUP |
INTEGER myIter |
./pkg/gmredi/gmredi_read_pickup.F |
60 |
GMREDI_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_gmredi.', myIter |
./pkg/gmredi/gmredi_read_pickup.F |
62 |
GMREDI_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
73 |
GMREDI_READ_PICKUP |
I Nr, myIter, myThid ) |
./pkg/gmredi/gmredi_residual_flow.F |
11 |
GMREDI_RESIDUAL_FLOW |
I bi, bj, myIter, myThid ) |
./pkg/gmredi/gmredi_residual_flow.F |
37 |
GMREDI_RESIDUAL_FLOW |
INTEGER bi, bj, myIter, myThid |
./pkg/gmredi/gmredi_slope_limit.F |
19 |
GMREDI_SLOPE_LIMIT |
I k, bi, bj, myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_slope_limit.F |
97 |
GMREDI_SLOPE_LIMIT |
INTEGER myIter |
./pkg/gmredi/gmredi_write_pickup.F |
112 |
GMREDI_WRITE_PICKUP |
& vec, -m, myIter, myThid ) |
./pkg/gmredi/gmredi_write_pickup.F |
11 |
GMREDI_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_write_pickup.F |
132 |
GMREDI_WRITE_PICKUP |
& vec, -m, myIter, myThid ) |
./pkg/gmredi/gmredi_write_pickup.F |
145 |
GMREDI_WRITE_PICKUP |
& Rdef, nm, myIter, myThid ) |
./pkg/gmredi/gmredi_write_pickup.F |
174 |
GMREDI_WRITE_PICKUP |
& nm, myIter, myThid ) |
./pkg/gmredi/gmredi_write_pickup.F |
32 |
GMREDI_WRITE_PICKUP |
INTEGER myIter |
./pkg/gmredi/gmredi_write_pickup.F |
93 |
GMREDI_WRITE_PICKUP |
& vec, -m, myIter, myThid ) |
./pkg/gmredi/submeso_calc_psi.F |
13 |
SUBMESO_CALC_PSI |
I myIter, myThid ) |
./pkg/gmredi/submeso_calc_psi.F |
190 |
SUBMESO_CALC_PSI |
& bi,bj,1,myIter,myThid ) |
./pkg/gmredi/submeso_calc_psi.F |
192 |
SUBMESO_CALC_PSI |
& bi,bj,1,myIter,myThid ) |
./pkg/gmredi/submeso_calc_psi.F |
231 |
SUBMESO_CALC_PSI |
& bi,bj,1,myIter,myThid ) |
./pkg/gmredi/submeso_calc_psi.F |
42 |
SUBMESO_CALC_PSI |
INTEGER myIter |
./model/src/adams_bashforth2.F |
13 |
ADAMS_BASHFORTH2 |
I startAB, myIter, myThid ) |
./model/src/adams_bashforth2.F |
52 |
ADAMS_BASHFORTH2 |
INTEGER myIter, myThid |
./model/src/adams_bashforth2.F |
64 |
ADAMS_BASHFORTH2 |
IF ( myIter.EQ.nIter0 .AND. startAB.EQ.0 ) THEN |
./pkg/grdchk/grdchk_main.F |
286 |
GRDCHK_MAIN |
myIter = nIter0 |
./pkg/grdchk/grdchk_main.F |
299 |
GRDCHK_MAIN |
CALL G_THE_MAIN_LOOP( myTime, myIter, myThid ) |
./pkg/grdchk/grdchk_main.F |
331 |
GRDCHK_MAIN |
myIter = nIter0 |
./pkg/grdchk/grdchk_main.F |
333 |
GRDCHK_MAIN |
CALL OPENAD_THE_MAIN_LOOP( myTime, myIter, myThid ) |
./pkg/grdchk/grdchk_main.F |
335 |
GRDCHK_MAIN |
CALL THE_MAIN_LOOP( myTime, myIter, myThid ) |
./pkg/grdchk/grdchk_main.F |
370 |
GRDCHK_MAIN |
myIter = nIter0 |
./pkg/grdchk/grdchk_main.F |
372 |
GRDCHK_MAIN |
CALL OPENAD_THE_MAIN_LOOP( myTime, myIter, myThid ) |
./pkg/grdchk/grdchk_main.F |
374 |
GRDCHK_MAIN |
CALL THE_MAIN_LOOP( myTime, myIter, myThid ) |
./pkg/grdchk/grdchk_main.F |
98 |
GRDCHK_MAIN |
INTEGER myIter |
./model/src/adams_bashforth3.F |
13 |
ADAMS_BASHFORTH3 |
I startAB, myIter, myThid ) |
./model/src/adams_bashforth3.F |
70 |
ADAMS_BASHFORTH3 |
INTEGER myIter, myThid |
./model/src/adams_bashforth3.F |
83 |
ADAMS_BASHFORTH3 |
m1 = 1 + MOD(myIter+1,2) |
./model/src/adams_bashforth3.F |
84 |
ADAMS_BASHFORTH3 |
m2 = 1 + MOD( myIter ,2) |
./model/src/adams_bashforth3.F |
87 |
ADAMS_BASHFORTH3 |
IF ( myIter.EQ.nIter0 .AND. startAB.EQ.0 ) THEN |
./model/src/adams_bashforth3.F |
91 |
ADAMS_BASHFORTH3 |
ELSEIF ( (myIter.EQ.nIter0 .AND. startAB.EQ.1) |
./model/src/adams_bashforth3.F |
92 |
ADAMS_BASHFORTH3 |
& .OR. (myIter.EQ.1+nIter0 .AND. startAB.EQ.0) ) THEN |
./pkg/icefront/icefront_tendency_apply.F |
17 |
ICEFRONT_TENDENCY_APPLY_T |
I k, bi, bj, myTime, myIter, myThid ) |
./pkg/icefront/icefront_tendency_apply.F |
41 |
ICEFRONT_TENDENCY_APPLY_T |
INTEGER myIter |
./pkg/icefront/icefront_tendency_apply.F |
69 |
ICEFRONT_TENDENCY_APPLY_S |
I k, bi, bj, myTime, myIter, myThid ) |
./pkg/icefront/icefront_tendency_apply.F |
93 |
ICEFRONT_TENDENCY_APPLY_S |
INTEGER myIter |
./pkg/icefront/icefront_thermodynamics.F |
10 |
ICEFRONT_THERMODYNAMICS |
I myTime, myIter, myThid ) |
./pkg/icefront/icefront_thermodynamics.F |
40 |
ICEFRONT_THERMODYNAMICS |
INTEGER myIter |
./pkg/kl10/kl10_calc.F |
11 |
KL10_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./pkg/kl10/kl10_calc.F |
54 |
KL10_CALC |
INTEGER myIter |
./model/src/apply_forcing.F |
112 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
119 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
126 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
168 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
176 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
186 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
195 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
211 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
21 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
245 |
APPLY_FORCING_V |
INTEGER myIter |
./model/src/apply_forcing.F |
302 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
309 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
316 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
358 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
366 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
375 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
384 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
400 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
435 |
APPLY_FORCING_T |
INTEGER myIter |
./model/src/apply_forcing.F |
496 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
503 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
510 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
55 |
APPLY_FORCING_U |
INTEGER myIter |
./model/src/apply_forcing.F |
704 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
712 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
719 |
APPLY_FORCING_T |
I k, bi, bj, myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
727 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
735 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
744 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
752 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
760 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
776 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
811 |
APPLY_FORCING_S |
INTEGER myIter |
./model/src/apply_forcing.F |
861 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
868 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
875 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
944 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
951 |
APPLY_FORCING_S |
I k, bi, bj, myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
959 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
967 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
976 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
984 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./model/src/apply_forcing.F |
992 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./pkg/kl10/kl10_output.F |
107 |
KL10_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/kl10/kl10_output.F |
133 |
KL10_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
./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 |
154 |
KL10_OUTPUT |
& KLviscArTave, myIter, myThid ) |
./pkg/kl10/kl10_output.F |
156 |
KL10_OUTPUT |
& KLdiffKrTave, myIter, myThid ) |
./pkg/kl10/kl10_output.F |
175 |
KL10_OUTPUT |
IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN |
./pkg/kl10/kl10_output.F |
56 |
KL10_OUTPUT |
INTEGER myIter |
./pkg/kl10/kl10_output.F |
81 |
KL10_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
./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 |
93 |
KL10_OUTPUT |
& myIter,myThid) |
./pkg/kl10/kl10_output.F |
95 |
KL10_OUTPUT |
& myIter,myThid) |
./pkg/kl10/kl10_output.F |
9 |
KL10_OUTPUT |
SUBROUTINE KL10_OUTPUT( myTime, myIter, myThid ) |
./pkg/kpp/kpp_calc.F |
138 |
KPP_CALC |
INTEGER myIter |
./pkg/kpp/kpp_calc.F |
17 |
KPP_CALC |
I bi, bj, myTime, myIter, myThid ) |
./pkg/kpp/kpp_calc.F |
564 |
KPP_CALC |
I , bi, bj, myTime, myIter, myThid ) |
./pkg/kpp/kpp_calc.F |
635 |
KPP_CALC |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_calc.F |
663 |
KPP_CALC |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_calc.F |
689 |
KPP_CALC_DUMMY |
I bi, bj, myTime, myIter, myThid ) |
./pkg/kpp/kpp_calc.F |
716 |
KPP_CALC_DUMMY |
INTEGER myIter |
./pkg/kpp/kpp_output.F |
113 |
KPP_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/kpp/kpp_output.F |
126 |
KPP_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
./pkg/kpp/kpp_output.F |
136 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
138 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
140 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
142 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
144 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
14 |
KPP_OUTPUT |
SUBROUTINE KPP_OUTPUT( myTime, myIter, myThid ) |
./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 |
161 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
163 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
165 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
167 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
169 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
183 |
KPP_OUTPUT |
CALL MNC_CW_I_W_S('I','kpp_state',0,0,'iter',myIter,myThid) |
./pkg/kpp/kpp_output.F |
206 |
KPP_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/kpp/kpp_output.F |
259 |
KPP_OUTPUT |
IF ( myIter .NE. nIter0 ) THEN |
./pkg/kpp/kpp_output.F |
266 |
KPP_OUTPUT |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_output.F |
294 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
./pkg/kpp/kpp_output.F |
296 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
./pkg/kpp/kpp_output.F |
298 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
./pkg/kpp/kpp_output.F |
300 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
./pkg/kpp/kpp_output.F |
302 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
./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 |
319 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
321 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
323 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
325 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
327 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
341 |
KPP_OUTPUT |
CALL MNC_CW_I_W_S('I','kpp_timeave',0,0,'iter',myIter,myThid) |
./pkg/kpp/kpp_output.F |
376 |
KPP_OUTPUT |
IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN |
./pkg/kpp/kpp_output.F |
68 |
KPP_OUTPUT |
INTEGER myIter |
./pkg/kpp/kpp_routines.F |
219 |
KPPMIX |
I , bi, bj, myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
307 |
BLDEPTH |
I , bi, bj, myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
359 |
BLDEPTH |
integer myIter |
./pkg/kpp/kpp_routines.F |
469 |
BLDEPTH |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
46 |
KPPMIX |
I , bi, bj, myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
499 |
BLDEPTH |
I myTime, myIter, myThid) |
./pkg/kpp/kpp_routines.F |
639 |
BLDEPTH |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
662 |
BLDEPTH |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
762 |
BLDEPTH |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
785 |
BLDEPTH |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
98 |
KPPMIX |
integer myIter |
./pkg/kpp/kpp_transport_ptr.F |
13 |
KPP_TRANSPORT_PTR |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_transport_ptr.F |
68 |
KPP_TRANSPORT_PTR |
INTEGER myIter |
./pkg/kpp/kpp_transport_s.F |
15 |
KPP_TRANSPORT_S |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_transport_s.F |
56 |
KPP_TRANSPORT_S |
INTEGER myIter |
./pkg/kpp/kpp_transport_t.F |
12 |
KPP_TRANSPORT_T |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_transport_t.F |
54 |
KPP_TRANSPORT_T |
INTEGER myIter |
./pkg/land/land_albedo.F |
12 |
LAND_ALBEDO |
I bi,bj, myTime, myIter, myThid ) |
./pkg/land/land_albedo.F |
45 |
LAND_ALBEDO |
INTEGER bi, bj, myIter, myThid |
./pkg/land/land_diagnostics_state.F |
10 |
LAND_DIAGNOSTICS_STATE |
I myTime, myIter, myThid ) |
./pkg/land/land_diagnostics_state.F |
37 |
LAND_DIAGNOSTICS_STATE |
INTEGER myIter, myThid |
./pkg/land/land_do_diags.F |
10 |
LAND_DO_DIAGS |
I land_frc, bi,bj, myTime, myIter, myThid ) |
./pkg/land/land_do_diags.F |
43 |
LAND_DO_DIAGS |
INTEGER bi, bj, myIter, myThid |
./pkg/land/land_impl_temp.F |
13 |
LAND_IMPL_TEMP |
I bi, bj, myTime, myIter, myThid) |
./pkg/land/land_impl_temp.F |
196 |
LAND_IMPL_TEMP |
& i,j,bi,bj,myIter |
./pkg/land/land_impl_temp.F |
249 |
LAND_IMPL_TEMP |
& i,j,bi,bj,myIter |
./pkg/land/land_impl_temp.F |
51 |
LAND_IMPL_TEMP |
INTEGER bi, bj, myIter, myThid |
./pkg/land/land_monitor.F |
104 |
LAND_MONITOR |
& 'I',mon_fname,1,1,'T', myIter, myThid) |
./pkg/land/land_monitor.F |
156 |
LAND_MONITOR |
IF ( myIter.EQ.1+nIter0 ) THEN |
./pkg/land/land_monitor.F |
33 |
LAND_MONITOR |
INTEGER myIter |
./pkg/land/land_monitor.F |
82 |
LAND_MONITOR |
& .OR. myIter.EQ.nIter0 ) THEN |
./pkg/land/land_monitor.F |
9 |
LAND_MONITOR |
SUBROUTINE LAND_MONITOR( land_frc, myTime, myIter, myThid ) |
./pkg/land/land_output.F |
100 |
LAND_OUTPUT |
IF ( myIter.NE.nIter0 ) THEN |
./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 |
129 |
LAND_OUTPUT |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
./pkg/land/land_output.F |
168 |
LAND_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
./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 |
220 |
LAND_OUTPUT |
& land_grTtave, 1, myIter, myThid ) |
./pkg/land/land_output.F |
222 |
LAND_OUTPUT |
& land_entave, 2, myIter, myThid ) |
./pkg/land/land_output.F |
224 |
LAND_OUTPUT |
& land_grWtave, 3, myIter, myThid ) |
./pkg/land/land_output.F |
226 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_sTtave, k+1, myIter, myThid ) |
./pkg/land/land_output.F |
227 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_hStave, k+2, myIter, myThid ) |
./pkg/land/land_output.F |
228 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_sAtave, k+3, myIter, myThid ) |
./pkg/land/land_output.F |
229 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_ROftave, k+4, myIter, myThid ) |
./pkg/land/land_output.F |
230 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_eROtave, k+5, myIter, myThid ) |
./pkg/land/land_output.F |
245 |
LAND_OUTPUT |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
./pkg/land/land_output.F |
271 |
LAND_OUTPUT |
& '// Land Time-average written, t-step', myIter |
./pkg/land/land_output.F |
40 |
LAND_OUTPUT |
INTEGER myIter |
./pkg/land/land_output.F |
62 |
LAND_OUTPUT |
CALL LAND_MONITOR( aim_landFr, myTime, myIter, myThid ) |
./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 |
87 |
LAND_OUTPUT |
& land_groundT, myIter, myThid ) |
./pkg/land/land_output.F |
89 |
LAND_OUTPUT |
& land_enthalp, myIter, myThid ) |
./pkg/land/land_output.F |
91 |
LAND_OUTPUT |
& land_groundW, myIter, myThid ) |
./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_output.F |
9 |
LAND_OUTPUT |
SUBROUTINE LAND_OUTPUT( myTime, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
31 |
LAND_READ_PICKUP |
INTEGER myIter |
./pkg/land/land_read_pickup.F |
50 |
LAND_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_land.',myIter |
./pkg/land/land_read_pickup.F |
52 |
LAND_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
60 |
LAND_READ_PICKUP |
& land_groundT, 1, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
62 |
LAND_READ_PICKUP |
& land_groundW, 2, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
68 |
LAND_READ_PICKUP |
& land_enthalp, 1, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
70 |
LAND_READ_PICKUP |
& land_groundW, 2, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
73 |
LAND_READ_PICKUP |
& land_skinT, k+1, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
75 |
LAND_READ_PICKUP |
& land_hSnow, k+2, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
77 |
LAND_READ_PICKUP |
& land_snowAge,k+3, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
92 |
LAND_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
./pkg/land/land_read_pickup.F |
9 |
LAND_READ_PICKUP |
SUBROUTINE LAND_READ_PICKUP( myIter, myThid ) |
./pkg/land/land_stepfwd.F |
10 |
LAND_STEPFWD |
I land_frc, bi, bj, myTime, myIter, myThid) |
./pkg/land/land_stepfwd.F |
38 |
LAND_STEPFWD |
INTEGER bi, bj, myIter, myThid |
./pkg/land/land_write_pickup.F |
101 |
LAND_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
./pkg/land/land_write_pickup.F |
10 |
LAND_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/land/land_write_pickup.F |
39 |
LAND_WRITE_PICKUP |
INTEGER myIter |
./pkg/land/land_write_pickup.F |
67 |
LAND_WRITE_PICKUP |
& land_enthalp, 1, myIter, myThid ) |
./pkg/land/land_write_pickup.F |
69 |
LAND_WRITE_PICKUP |
& land_groundW, 2, myIter, myThid ) |
./pkg/land/land_write_pickup.F |
72 |
LAND_WRITE_PICKUP |
& land_skinT, k+1, myIter, myThid ) |
./pkg/land/land_write_pickup.F |
74 |
LAND_WRITE_PICKUP |
& land_hSnow, k+2, myIter, myThid ) |
./pkg/land/land_write_pickup.F |
76 |
LAND_WRITE_PICKUP |
& land_snowAge,k+3, myIter, myThid ) |
./pkg/land/land_write_pickup.F |
94 |
LAND_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
./model/src/calc_grad_phi_fv.F |
13 |
CALC_GRAD_PHI_FV |
I myTime, myIter, myThid) |
./model/src/calc_grad_phi_fv.F |
55 |
CALC_GRAD_PHI_FV |
INTEGER myIter, myThid |
./pkg/layers/layers_calc.F |
116 |
LAYERS_CALC |
IF ( myIter.EQ.nIter0 ) RETURN |
./pkg/layers/layers_calc.F |
14 |
LAYERS_CALC |
I myTime, myIter, myThid ) |
./pkg/layers/layers_calc.F |
233 |
LAYERS_CALC |
WRITE(suff,'(I2.2,A1,I10.10)') iLa, '.', myIter |
./pkg/layers/layers_calc.F |
235 |
LAYERS_CALC |
CALL RW_GET_SUFFIX( sufx, myTime, myIter, myThid ) |
./pkg/layers/layers_calc.F |
240 |
LAYERS_CALC |
& layers_UH, myIter, myThid ) |
./pkg/layers/layers_calc.F |
243 |
LAYERS_CALC |
& layers_Hw, myIter, myThid ) |
./pkg/layers/layers_calc.F |
248 |
LAYERS_CALC |
& layers_VH, myIter, myThid ) |
./pkg/layers/layers_calc.F |
251 |
LAYERS_CALC |
& layers_Hs, myIter, myThid ) |
./pkg/layers/layers_calc.F |
257 |
LAYERS_CALC |
& prho, myIter, myThid ) |
./pkg/layers/layers_calc.F |
263 |
LAYERS_CALC |
& layers_tottend, myIter, myThid ) |
./pkg/layers/layers_calc.F |
266 |
LAYERS_CALC |
& layers_sw, myIter, myThid ) |
./pkg/layers/layers_calc.F |
269 |
LAYERS_CALC |
& layers_surfflux, myIter, myThid ) |
./pkg/layers/layers_calc.F |
271 |
LAYERS_CALC |
& layers_dfx, myIter, myThid ) |
./pkg/layers/layers_calc.F |
273 |
LAYERS_CALC |
& layers_dfy, myIter, myThid ) |
./pkg/layers/layers_calc.F |
275 |
LAYERS_CALC |
& layers_dfr, myIter, myThid ) |
./pkg/layers/layers_calc.F |
277 |
LAYERS_CALC |
& layers_afx, myIter, myThid ) |
./pkg/layers/layers_calc.F |
279 |
LAYERS_CALC |
& layers_afy, myIter, myThid ) |
./pkg/layers/layers_calc.F |
281 |
LAYERS_CALC |
& layers_afr, myIter, myThid ) |
./pkg/layers/layers_calc.F |
41 |
LAYERS_CALC |
INTEGER myIter |
./pkg/layers/layers_output.F |
10 |
LAYERS_OUTPUT |
SUBROUTINE LAYERS_OUTPUT( myTime, myIter, myThid ) |
./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 |
128 |
LAYERS_OUTPUT |
& layers_UH_T, myIter, myThid ) |
./pkg/layers/layers_output.F |
131 |
LAYERS_OUTPUT |
& layers_Hw_T, myIter, myThid ) |
./pkg/layers/layers_output.F |
136 |
LAYERS_OUTPUT |
& layers_VH_T, myIter, myThid ) |
./pkg/layers/layers_output.F |
139 |
LAYERS_OUTPUT |
& layers_Hs_T, myIter, myThid ) |
./pkg/layers/layers_output.F |
146 |
LAYERS_OUTPUT |
& prho_tave, myIter, myThid ) |
./pkg/layers/layers_output.F |
37 |
LAYERS_OUTPUT |
INTEGER myIter |
./pkg/layers/layers_output.F |
60 |
LAYERS_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
./model/src/calc_grad_phi_hyd.F |
14 |
CALC_GRAD_PHI_HYD |
I myTime, myIter, myThid) |
./model/src/calc_grad_phi_hyd.F |
53 |
CALC_GRAD_PHI_HYD |
INTEGER myIter, myThid |
./pkg/layers/layers_wsurf_tr.F |
11 |
LAYERS_WSURF_TR |
I myTime, myIter, myThid ) |
./pkg/layers/layers_wsurf_tr.F |
42 |
LAYERS_WSURF_TR |
INTEGER myIter |
./pkg/longstep/longstep_average.F |
123 |
LONGSTEP_AVERAGE |
IF ( MOD(myIter, LS_nIter) .EQ. LS_nIter-1 ) THEN |
./pkg/longstep/longstep_average.F |
224 |
LONGSTEP_AVERAGE |
ELSEIF ( MOD(myIter, LS_nIter) .EQ. 0 ) THEN |
./pkg/longstep/longstep_average.F |
45 |
LONGSTEP_AVERAGE |
INTEGER myIter |
./pkg/longstep/longstep_average.F |
54 |
LONGSTEP_AVERAGE |
IF ( MOD(myIter, LS_nIter) .EQ. 0 ) THEN |
./pkg/longstep/longstep_average.F |
9 |
LONGSTEP_AVERAGE |
SUBROUTINE LONGSTEP_AVERAGE( myTime, myIter, myThid ) |
./pkg/longstep/longstep_correction_step.F |
10 |
LONGSTEP_CORRECTION_STEP |
SUBROUTINE LONGSTEP_CORRECTION_STEP(myTime, myIter, myThid) |
./pkg/longstep/longstep_correction_step.F |
34 |
LONGSTEP_CORRECTION_STEP |
INTEGER myIter |
./pkg/longstep/longstep_forcing_surf.F |
12 |
LONGSTEP_FORCING_SURF |
I myTime,myIter,myThid ) |
./pkg/longstep/longstep_forcing_surf.F |
40 |
LONGSTEP_FORCING_SURF |
INTEGER myIter |
./pkg/longstep/longstep_thermodynamics.F |
15 |
LONGSTEP_THERMODYNAMICS |
SUBROUTINE LONGSTEP_THERMODYNAMICS( myTime, myIter, myThid ) |
./pkg/longstep/longstep_thermodynamics.F |
200 |
LONGSTEP_THERMODYNAMICS |
I myTime,myIter,myThid ) |
./pkg/longstep/longstep_thermodynamics.F |
218 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, myIter, myThid ) |
./pkg/longstep/longstep_thermodynamics.F |
234 |
LONGSTEP_THERMODYNAMICS |
I myTime, myIter, myThid ) |
./pkg/longstep/longstep_thermodynamics.F |
70 |
LONGSTEP_THERMODYNAMICS |
INTEGER myIter |
./pkg/matrix/matrix_output.F |
11 |
MATRIX_OUTPUT |
I myTime, myIter, myThid ) |
./pkg/matrix/matrix_output.F |
28 |
MATRIX_OUTPUT |
INTEGER myIter |
./pkg/matrix/matrix_output.F |
35 |
MATRIX_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/matrix/matrix_output.F |
40 |
MATRIX_OUTPUT |
CALL MATRIX_WRITE_TENDENCY( myTime, myIter, myThid ) |
./pkg/matrix/matrix_store_tendency.F |
19 |
MATRIX_STORE_TENDENCY_EXP |
I myTime, myIter, myThid ) |
./pkg/matrix/matrix_store_tendency.F |
42 |
MATRIX_STORE_TENDENCY_EXP |
INTEGER myIter |
./pkg/matrix/matrix_store_tendency.F |
75 |
MATRIX_STORE_TENDENCY_IMP |
I bi, bj, myTime, myIter, myThid ) |
./pkg/matrix/matrix_store_tendency.F |
95 |
MATRIX_STORE_TENDENCY_IMP |
INTEGER myIter |
./pkg/matrix/matrix_write_tendency.F |
10 |
MATRIX_WRITE_TENDENCY |
SUBROUTINE MATRIX_WRITE_TENDENCY( myTime, myIter, myThid ) |
./pkg/matrix/matrix_write_tendency.F |
126 |
MATRIX_WRITE_TENDENCY |
& MATRIX(1-OLx,1-OLy,1,1,1,iTracer,2),iRec,myIter,myThid) |
./pkg/matrix/matrix_write_tendency.F |
21 |
MATRIX_WRITE_TENDENCY |
INTEGER myIter |
./pkg/matrix/matrix_write_tendency.F |
67 |
MATRIX_WRITE_TENDENCY |
& MATRIX(1-OLx,1-OLy,1,1,1,iTracer,1),iRec,myIter,myThid) |
./model/src/calc_gw.F |
18 |
CALC_GW |
I myTime, myIter, myThid ) |
./model/src/calc_gw.F |
666 |
CALC_GW |
I nHydStartAB, myIter, myThid ) |
./model/src/calc_gw.F |
673 |
CALC_GW |
I nHydStartAB, myIter, myThid ) |
./model/src/calc_gw.F |
73 |
CALC_GW |
INTEGER myIter |
./pkg/mdsio/mdsio_gl.F |
1214 |
MDSWRITEFIELD_2D_GL |
I myIter, |
./pkg/mdsio/mdsio_gl.F |
1270 |
MDSWRITEFIELD_2D_GL |
integer myIter |
./pkg/mdsio/mdsio_gl.F |
1446 |
MDSWRITEFIELD_2D_GL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_gl.F |
1564 |
MDSWRITEFIELD_2D_GL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_gl.F |
427 |
MDSWRITEFIELD_3D_GL |
I myIter, |
./pkg/mdsio/mdsio_gl.F |
482 |
MDSWRITEFIELD_3D_GL |
integer myIter |
./pkg/mdsio/mdsio_gl.F |
657 |
MDSWRITEFIELD_3D_GL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_gl.F |
775 |
MDSWRITEFIELD_3D_GL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
503 |
MDSWRITEFIELD_XZ_GL |
I myIter, |
./pkg/mdsio/mdsio_gl_slice.F |
558 |
MDSWRITEFIELD_XZ_GL |
integer myIter |
./pkg/mdsio/mdsio_gl_slice.F |
718 |
MDSWRITEFIELD_XZ_GL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
744 |
MDSWRITEFIELD_YZ_GL |
I myIter, |
./pkg/mdsio/mdsio_gl_slice.F |
799 |
MDSWRITEFIELD_YZ_GL |
integer myIter |
./pkg/mdsio/mdsio_gl_slice.F |
959 |
MDSWRITEFIELD_YZ_GL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
./model/src/calc_ivdc.F |
11 |
CALC_IVDC |
I myTime,myIter, myThid ) |
./model/src/calc_ivdc.F |
38 |
CALC_IVDC |
INTEGER myIter |
./pkg/mdsio/mdsio_rw_field.F |
157 |
MDSWRITEFIELD |
I myIter, |
./pkg/mdsio/mdsio_rw_field.F |
192 |
MDSWRITEFIELD |
INTEGER myIter |
./pkg/mdsio/mdsio_rw_field.F |
204 |
MDSWRITEFIELD |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
209 |
MDSWRITEFIELD |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
229 |
MDSWRITEFIELD_LOC |
I myIter, |
./pkg/mdsio/mdsio_rw_field.F |
264 |
MDSWRITEFIELD_LOC |
INTEGER myIter |
./pkg/mdsio/mdsio_rw_field.F |
276 |
MDSWRITEFIELD_LOC |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
281 |
MDSWRITEFIELD_LOC |
I irecord, myIter, myThid ) |
./model/src/calc_oce_mxlayer.F |
12 |
CALC_OCE_MXLAYER |
I bi, bj, myTime, myIter, myThid ) |
./model/src/calc_oce_mxlayer.F |
44 |
CALC_OCE_MXLAYER |
INTEGER myIter |
./pkg/mdsio/mdsio_rw_slice.F |
289 |
MDSWRITEFIELDXZ |
I myIter, |
./pkg/mdsio/mdsio_rw_slice.F |
323 |
MDSWRITEFIELDXZ |
INTEGER myIter |
./pkg/mdsio/mdsio_rw_slice.F |
335 |
MDSWRITEFIELDXZ |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
340 |
MDSWRITEFIELDXZ |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
360 |
MDSWRITEFIELDYZ |
I myIter, |
./pkg/mdsio/mdsio_rw_slice.F |
394 |
MDSWRITEFIELDYZ |
INTEGER myIter |
./pkg/mdsio/mdsio_rw_slice.F |
406 |
MDSWRITEFIELDYZ |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
411 |
MDSWRITEFIELDYZ |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
431 |
MDSWRITEFIELDXZ_LOC |
I myIter, |
./pkg/mdsio/mdsio_rw_slice.F |
465 |
MDSWRITEFIELDXZ_LOC |
INTEGER myIter |
./pkg/mdsio/mdsio_rw_slice.F |
477 |
MDSWRITEFIELDXZ_LOC |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
482 |
MDSWRITEFIELDXZ_LOC |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
502 |
MDSWRITEFIELDYZ_LOC |
I myIter, |
./pkg/mdsio/mdsio_rw_slice.F |
536 |
MDSWRITEFIELDYZ_LOC |
INTEGER myIter |
./pkg/mdsio/mdsio_rw_slice.F |
548 |
MDSWRITEFIELDYZ_LOC |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
553 |
MDSWRITEFIELDYZ_LOC |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_wr_metafiles.F |
142 |
MDS_WR_METAFILES |
I nTimRec, timList, misVal, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_wr_metafiles.F |
211 |
MDS_WR_METAFILES |
I nTimRec, timList, misVal, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_wr_metafiles.F |
21 |
MDS_WR_METAFILES |
I myIter, |
./pkg/mdsio/mdsio_wr_metafiles.F |
86 |
MDS_WR_METAFILES |
INTEGER myIter |
./pkg/mdsio/mdsio_write_field.F |
104 |
MDS_WRITE_FIELD |
INTEGER myIter |
./pkg/mdsio/mdsio_write_field.F |
18 |
MDS_WRITE_FIELD |
I myIter, |
./pkg/mdsio/mdsio_write_field.F |
194 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
./pkg/mdsio/mdsio_write_field.F |
210 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
./pkg/mdsio/mdsio_write_field.F |
227 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
./pkg/mdsio/mdsio_write_field.F |
258 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: it,rec,kS,kL,kH=', myIter, jrecord, |
./pkg/mdsio/mdsio_write_field.F |
554 |
MDS_WRITE_FIELD |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
600 |
MDS_WRITE_FIELD |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
./model/src/calc_phi_hyd.F |
156 |
CALC_PHI_HYD |
IF ( implicitIntGravWave .OR. myIter.LT.0 ) THEN |
./model/src/calc_phi_hyd.F |
18 |
CALC_PHI_HYD |
I myTime, myIter, myThid ) |
./model/src/calc_phi_hyd.F |
318 |
CALC_PHI_HYD |
IF ( implicitIntGravWave .OR. myIter.LT.0 ) THEN |
./model/src/calc_phi_hyd.F |
436 |
CALC_PHI_HYD |
IF ( implicitIntGravWave .OR. myIter.LT.0 ) THEN |
./model/src/calc_phi_hyd.F |
629 |
CALC_PHI_HYD |
I myTime, myIter, myThid) |
./model/src/calc_phi_hyd.F |
644 |
CALC_PHI_HYD |
I myTime, myIter, myThid) |
./model/src/calc_phi_hyd.F |
664 |
CALC_PHI_HYD |
I myTime, myIter, myThid) |
./model/src/calc_phi_hyd.F |
671 |
CALC_PHI_HYD |
I myTime, myIter, myThid) |
./model/src/calc_phi_hyd.F |
76 |
CALC_PHI_HYD |
INTEGER myIter, myThid |
./pkg/mdsio/mdsio_write_meta.F |
169 |
MDS_WRITE_META |
IF ( myIter.GE.0 ) |
./pkg/mdsio/mdsio_write_meta.F |
170 |
MDS_WRITE_META |
& WRITE(mUnit,'(1X,A,I10,A)') 'timeStepNumber = [ ',myIter,' ];' |
./pkg/mdsio/mdsio_write_meta.F |
18 |
MDS_WRITE_META |
I nrecords, myIter, myThid ) |
./pkg/mdsio/mdsio_write_meta.F |
68 |
MDS_WRITE_META |
INTEGER myIter |
./pkg/mdsio/mdsio_write_section.F |
25 |
MDS_WRITE_SEC_XZ |
I myIter, |
./pkg/mdsio/mdsio_write_section.F |
279 |
MDS_WRITE_SEC_YZ |
I myIter, |
./pkg/mdsio/mdsio_write_section.F |
334 |
MDS_WRITE_SEC_YZ |
INTEGER myIter |
./pkg/mdsio/mdsio_write_section.F |
80 |
MDS_WRITE_SEC_XZ |
INTEGER myIter |
./pkg/mdsio/mdsio_write_tape.F |
18 |
MDS_WRITE_TAPE |
I myIter, |
./pkg/mdsio/mdsio_write_tape.F |
213 |
MDS_WRITE_TAPE |
I 0, dummyRL, oneRL, iRec, myIter, myThid ) |
./pkg/mdsio/mdsio_write_tape.F |
310 |
MDS_WRITE_TAPE |
I 0, dummyRL, oneRL, iRec, myIter, myThid ) |
./pkg/mdsio/mdsio_write_tape.F |
57 |
MDS_WRITE_TAPE |
INTEGER myIter |
./pkg/mdsio/mdsio_writelocal.F |
167 |
MDS_WRITELOCAL |
& 'MDS_WRITELOCAL (it=', myIter, ' ; bi,bj=', biArg,bjArg, |
./pkg/mdsio/mdsio_writelocal.F |
181 |
MDS_WRITELOCAL |
& ' MDS_WRITELOCAL: file="', fName(1:IL), '" , iter=', myIter |
./pkg/mdsio/mdsio_writelocal.F |
18 |
MDS_WRITELOCAL |
I myIter, |
./pkg/mdsio/mdsio_writelocal.F |
197 |
MDS_WRITELOCAL |
& ' MDS_WRITELOCAL: file="', fName(1:IL), '" , iter=', myIter |
./pkg/mdsio/mdsio_writelocal.F |
405 |
MDS_WRITELOCAL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
436 |
MDS_WRITELOCAL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
97 |
MDS_WRITELOCAL |
INTEGER myIter |
./pkg/mdsio/mdsio_writevec_loc.F |
18 |
MDS_WRITEVEC_LOC |
I myIter, |
./pkg/mdsio/mdsio_writevec_loc.F |
246 |
MDS_WRITEVEC_LOC |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
70 |
MDS_WRITEVEC_LOC |
INTEGER myIter |
./model/src/calc_r_star.F |
14 |
CALC_R_STAR |
I myTime, myIter, myThid ) |
./model/src/calc_r_star.F |
176 |
CALC_R_STAR |
I myTime, myIter, myThid ) |
./model/src/calc_r_star.F |
234 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
./model/src/calc_r_star.F |
238 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
./model/src/calc_r_star.F |
242 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
./model/src/calc_r_star.F |
253 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
./model/src/calc_r_star.F |
40 |
CALC_R_STAR |
INTEGER myIter |
./model/src/calc_surf_dr.F |
11 |
CALC_SURF_DR |
I myTime, myIter, myThid ) |
./model/src/calc_surf_dr.F |
131 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
./model/src/calc_surf_dr.F |
193 |
CALC_SURF_DR |
I myTime, myIter, myThid ) |
./model/src/calc_surf_dr.F |
209 |
CALC_SURF_DR |
& ' SURF_ADJUSTMENT: Iter=', myIter, |
./model/src/calc_surf_dr.F |
38 |
CALC_SURF_DR |
INTEGER myIter |
./model/src/calc_surf_dr.F |
95 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
./model/src/calc_surf_dr.F |
99 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
./pkg/mnc/mnc_update_time.F |
12 |
MNC_UPDATE_TIME |
I myTime, myIter, myThid ) |
./pkg/mnc/mnc_update_time.F |
28 |
MNC_UPDATE_TIME |
INTEGER myIter |
./pkg/mnc/mnc_update_time.F |
44 |
MNC_UPDATE_TIME |
CALL MNC_CW_CITER_SETG( 1, 1, -1, myIter , myThid ) |
./pkg/mnc/mnc_update_time.F |
56 |
MNC_UPDATE_TIME |
CALL MNC_CW_CITER_SETG( 1, 1, myIter, -1 , myThid ) |
./model/src/calc_wsurf_tr.F |
10 |
CALC_WSURF_TR |
I myTime, myIter, myThid ) |
./model/src/calc_wsurf_tr.F |
41 |
CALC_WSURF_TR |
INTEGER myIter |
./pkg/mom_common/mom_u_botdrag_impl.F |
16 |
MOM_U_BOTDRAG_IMPL |
I bi, bj, myIter, myThid ) |
./pkg/mom_common/mom_u_botdrag_impl.F |
46 |
MOM_U_BOTDRAG_IMPL |
INTEGER myIter, myThid |
./pkg/mom_common/mom_u_implicit_r.F |
11 |
MOM_U_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
./pkg/mom_common/mom_u_implicit_r.F |
137 |
MOM_U_IMPLICIT_R |
I bi, bj, myIter, myThid ) |
./pkg/mom_common/mom_u_implicit_r.F |
35 |
MOM_U_IMPLICIT_R |
INTEGER myIter, myThid |
./pkg/mom_common/mom_v_botdrag_impl.F |
16 |
MOM_V_BOTDRAG_IMPL |
I bi, bj, myIter, myThid ) |
./pkg/mom_common/mom_v_botdrag_impl.F |
46 |
MOM_V_BOTDRAG_IMPL |
INTEGER myIter, myThid |
./pkg/mom_common/mom_v_implicit_r.F |
11 |
MOM_V_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
./pkg/mom_common/mom_v_implicit_r.F |
137 |
MOM_V_IMPLICIT_R |
I bi, bj, myIter, myThid ) |
./pkg/mom_common/mom_v_implicit_r.F |
35 |
MOM_V_IMPLICIT_R |
INTEGER myIter, myThid |
./pkg/mom_fluxform/mom_calc_rtrans.F |
12 |
MOM_CALC_RTRANS |
I myTime, myIter, myThid) |
./pkg/mom_fluxform/mom_calc_rtrans.F |
47 |
MOM_CALC_RTRANS |
INTEGER k, bi, bj, myIter, myThid |
./pkg/mom_fluxform/mom_fluxform.F |
340 |
MOM_FLUXFORM |
I myTime, myIter, myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
359 |
MOM_FLUXFORM |
I myTime, myIter, myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
375 |
MOM_FLUXFORM |
I myTime, myIter, myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
384 |
MOM_FLUXFORM |
I myTime, myIter, myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
46 |
MOM_FLUXFORM |
I myTime, myIter, myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
97 |
MOM_FLUXFORM |
INTEGER myIter |
./pkg/mom_fluxform/mom_uv_boundary.F |
14 |
MOM_UV_BOUNDARY |
I myTime, myIter, myThid ) |
./pkg/mom_fluxform/mom_uv_boundary.F |
42 |
MOM_UV_BOUNDARY |
INTEGER myIter |
./pkg/mom_vecinv/mom_vecinv.F |
177 |
MOM_VECINV |
CALL MNC_CW_I_W_S('I','mom_vi',0,0,'iter',myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
18 |
MOM_VECINV |
I myTime, myIter, myThid ) |
./pkg/mom_vecinv/mom_vecinv.F |
631 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fV','I10',1,uCf,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
632 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fU','I10',1,vCf,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
727 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zV','I10',1,uCf,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
728 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zU','I10',1,vCf,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
792 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEx','I10',1,uCf,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
793 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEy','I10',1,vCf,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
84 |
MOM_VECINV |
INTEGER myIter |
./pkg/mom_vecinv/mom_vecinv.F |
853 |
MOM_VECINV |
& .AND. k.EQ.4 .AND. myIter.EQ.nIter0 |
./pkg/mom_vecinv/mom_vecinv.F |
864 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
./pkg/mom_vecinv/mom_vecinv.F |
866 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
./pkg/mom_vecinv/mom_vecinv.F |
868 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
./pkg/mom_vecinv/mom_vecinv.F |
870 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
./pkg/mom_vecinv/mom_vecinv.F |
873 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('W3','I10',1,omega3, bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
874 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Z3','I10',1,vort3BC,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
875 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KE','I10',1,KE, bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
876 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('D', 'I10',1,hDiv, bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
877 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dt','I10',1,tension,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
879 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
./pkg/mom_vecinv/mom_vecinv.F |
880 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Du','I10',1,guDiss, bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
881 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dv','I10',1,gvDiss, bi,bj,k,myIter,myThid) |
./model/src/cg3d.F |
20 |
CG3D |
I myIter, myThid ) |
./model/src/cg3d.F |
244 |
CG3D |
I 'cg3d_r_I', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
./model/src/cg3d.F |
519 |
CG3D |
I 'cg3d_r_F', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
./model/src/cg3d.F |
74 |
CG3D |
INTEGER myIter |
./model/src/cg3d_ex0.F |
20 |
CG3D_EX0 |
I myIter, myThid ) |
./model/src/cg3d_ex0.F |
239 |
CG3D_EX0 |
I 'cg3d_r_I', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
./model/src/cg3d_ex0.F |
502 |
CG3D_EX0 |
I 'cg3d_r_F', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
./model/src/cg3d_ex0.F |
66 |
CG3D_EX0 |
INTEGER myIter |
./pkg/monitor/mon_calc_advcfl.F |
131 |
MON_CALC_ADVCFL_GLOB |
I maxCFL, myIter, myThid ) |
./pkg/monitor/mon_calc_advcfl.F |
149 |
MON_CALC_ADVCFL_GLOB |
INTEGER myIter |
./pkg/monitor/mon_calc_advcfl.F |
20 |
MON_CALC_ADVCFL_TILE |
I myIter, myThid ) |
./pkg/monitor/mon_calc_advcfl.F |
50 |
MON_CALC_ADVCFL_TILE |
INTEGER myIter, myThid |
./pkg/monitor/mon_ke.F |
12 |
MON_KE |
I myIter, myThid ) |
./pkg/monitor/mon_ke.F |
176 |
MON_KE |
m1 = 1 + mod(myIter+1,2) |
./pkg/monitor/mon_ke.F |
177 |
MON_KE |
m2 = 1 + mod( myIter ,2) |
./pkg/monitor/mon_ke.F |
178 |
MON_KE |
IF ( myIter.GE.2 ) abFac2 = beta_AB |
./pkg/monitor/mon_ke.F |
179 |
MON_KE |
IF ( myIter.GE.1 ) abFac1 = -( alph_AB + abFac2 ) |
./pkg/monitor/mon_ke.F |
181 |
MON_KE |
IF ( myIter.GE.1 ) abFac1 = -( 0.5 _d 0 + abEps ) |
./pkg/monitor/mon_ke.F |
29 |
MON_KE |
INTEGER myIter, myThid |
./model/src/check_pickup.F |
14 |
CHECK_PICKUP |
I myIter, myThid ) |
./model/src/check_pickup.F |
40 |
CHECK_PICKUP |
INTEGER myIter |
./pkg/monitor/mon_solution.F |
13 |
MON_SOLUTION |
I myTime, myIter, myThid ) |
./pkg/monitor/mon_solution.F |
30 |
MON_SOLUTION |
INTEGER myIter |
./pkg/monitor/mon_solution.F |
59 |
MON_SOLUTION |
& 'MON_SOLUTION: STOPPING CALCULATION at Iter=', myIter |
./pkg/monitor/mon_vort3.F |
12 |
MON_VORT3 |
I myIter, myThid ) |
./pkg/monitor/mon_vort3.F |
31 |
MON_VORT3 |
INTEGER myIter, myThid |
./pkg/monitor/monitor.F |
103 |
MONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid ) |
./pkg/monitor/monitor.F |
12 |
MONITOR |
I myTime, myIter, myThid ) |
./pkg/monitor/monitor.F |
169 |
MONITOR |
CALL MON_KE(myIter, myThid) |
./pkg/monitor/monitor.F |
172 |
MONITOR |
IF ( monitorSelect.GE.2 ) CALL MON_VORT3( myIter, myThid ) |
./pkg/monitor/monitor.F |
178 |
MONITOR |
CALL MON_SOLUTION( statsTemp, myTime, myIter, myThid ) |
./pkg/monitor/monitor.F |
33 |
MONITOR |
INTEGER myIter |
./pkg/monitor/monitor_ad.F |
112 |
ADMONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid) |
./pkg/monitor/monitor_ad.F |
19 |
ADMONITOR |
I myTime, myIter, myThid ) |
./pkg/monitor/monitor_ad.F |
252 |
ADMONITOR |
CALL ADSEAICE_MONITOR ( myTime, myIter, myThid ) |
./pkg/monitor/monitor_ad.F |
256 |
ADMONITOR |
CALL ADPTRACERS_MONITOR ( myTime, myIter, myThid ) |
./pkg/monitor/monitor_ad.F |
42 |
ADMONITOR |
INTEGER myIter |
./pkg/monitor/monitor_g.F |
108 |
G_MONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid) |
./pkg/monitor/monitor_g.F |
19 |
G_MONITOR |
I myTime, myIter, myThid ) |
./pkg/monitor/monitor_g.F |
43 |
G_MONITOR |
INTEGER myIter |
./pkg/my82/my82_calc.F |
11 |
MY82_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./pkg/my82/my82_calc.F |
50 |
MY82_CALC |
INTEGER myIter |
./pkg/my82/my82_output.F |
100 |
MY82_OUTPUT |
& myIter,myThid) |
./pkg/my82/my82_output.F |
102 |
MY82_OUTPUT |
& myIter,myThid) |
./pkg/my82/my82_output.F |
104 |
MY82_OUTPUT |
& myIter,myThid) |
./pkg/my82/my82_output.F |
117 |
MY82_OUTPUT |
CALL MNC_CW_I_W_S('I','my_state',0,0,'iter',myIter,myThid) |
./pkg/my82/my82_output.F |
136 |
MY82_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/my82/my82_output.F |
165 |
MY82_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
./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 |
189 |
MY82_OUTPUT |
& MYviscArTave, myIter, myThid ) |
./pkg/my82/my82_output.F |
191 |
MY82_OUTPUT |
& MYdiffKrTave, myIter, myThid ) |
./pkg/my82/my82_output.F |
193 |
MY82_OUTPUT |
& MYhblTave, myIter, myThid ) |
./pkg/my82/my82_output.F |
206 |
MY82_OUTPUT |
CALL MNC_CW_I_W_S('I','my_timeave',0,0,'iter',myIter,myThid) |
./pkg/my82/my82_output.F |
236 |
MY82_OUTPUT |
IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN |
./pkg/my82/my82_output.F |
59 |
MY82_OUTPUT |
INTEGER myIter |
./pkg/my82/my82_output.F |
86 |
MY82_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
./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 |
9 |
MY82_OUTPUT |
SUBROUTINE MY82_OUTPUT( myTime, myIter, myThid ) |
./model/src/convective_adjustment.F |
14 |
CONVECTIVE_ADJUSTMENT |
I bi, bj, myTime, myIter, myThid ) |
./model/src/convective_adjustment.F |
211 |
CONVECTIVE_ADJUSTMENT |
IF (myIter.NE.nIter0 .AND. taveFreq.GT.0.) THEN |
./model/src/convective_adjustment.F |
218 |
CONVECTIVE_ADJUSTMENT |
IF ( myIter.NE.nIter0 .AND. useDiagnostics ) THEN |
./model/src/convective_adjustment.F |
46 |
CONVECTIVE_ADJUSTMENT |
INTEGER myIter |
./pkg/mypackage/mypackage_calc_rhs.F |
11 |
MYPACKAGE_CALC_RHS |
I myTime, myIter, myThid ) |
./pkg/mypackage/mypackage_calc_rhs.F |
28 |
MYPACKAGE_CALC_RHS |
INTEGER myIter, myThid |
./pkg/mypackage/mypackage_diagnostics_state.F |
12 |
MYPACKAGE_DIAGNOSTICS_STATE |
I myTime, myIter, myThid ) |
./pkg/mypackage/mypackage_diagnostics_state.F |
33 |
MYPACKAGE_DIAGNOSTICS_STATE |
INTEGER myIter, myThid |
./pkg/mypackage/mypackage_read_pickup.F |
11 |
MYPACKAGE_READ_PICKUP |
SUBROUTINE MYPACKAGE_READ_PICKUP( myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
138 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
140 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
142 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
144 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
150 |
MYPACKAGE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
152 |
MYPACKAGE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
163 |
MYPACKAGE_READ_PICKUP |
I myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
26 |
MYPACKAGE_READ_PICKUP |
INTEGER myIter |
./pkg/mypackage/mypackage_read_pickup.F |
59 |
MYPACKAGE_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_mypackage.', myIter |
./pkg/mypackage/mypackage_read_pickup.F |
61 |
MYPACKAGE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
72 |
MYPACKAGE_READ_PICKUP |
I Nr, myIter, myThid ) |
./pkg/mypackage/mypackage_tendency_apply.F |
116 |
MYPACKAGE_TENDENCY_APPLY_V |
INTEGER myIter |
./pkg/mypackage/mypackage_tendency_apply.F |
156 |
MYPACKAGE_TENDENCY_APPLY_T |
I myTime, myIter, myThid ) |
./pkg/mypackage/mypackage_tendency_apply.F |
183 |
MYPACKAGE_TENDENCY_APPLY_T |
INTEGER myIter |
./pkg/mypackage/mypackage_tendency_apply.F |
20 |
MYPACKAGE_TENDENCY_APPLY_U |
I myTime, myIter, myThid ) |
./pkg/mypackage/mypackage_tendency_apply.F |
213 |
MYPACKAGE_TENDENCY_APPLY_S |
I myTime, myIter, myThid ) |
./pkg/mypackage/mypackage_tendency_apply.F |
240 |
MYPACKAGE_TENDENCY_APPLY_S |
INTEGER myIter |
./pkg/mypackage/mypackage_tendency_apply.F |
48 |
MYPACKAGE_TENDENCY_APPLY_U |
INTEGER myIter |
./pkg/mypackage/mypackage_tendency_apply.F |
88 |
MYPACKAGE_TENDENCY_APPLY_V |
I myTime, myIter, myThid ) |
./model/src/convective_adjustment_ini.F |
14 |
CONVECTIVE_ADJUSTMENT_INI |
I bi, bj, myTime, myIter, myThid ) |
./model/src/convective_adjustment_ini.F |
50 |
CONVECTIVE_ADJUSTMENT_INI |
INTEGER myIter |
./pkg/mypackage/mypackage_write_pickup.F |
105 |
MYPACKAGE_WRITE_PICKUP |
& myPa_Surf1, nj, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
111 |
MYPACKAGE_WRITE_PICKUP |
& myPa_Surf2, nj, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
11 |
MYPACKAGE_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
141 |
MYPACKAGE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
32 |
MYPACKAGE_WRITE_PICKUP |
INTEGER myIter |
./pkg/mypackage/mypackage_write_pickup.F |
80 |
MYPACKAGE_WRITE_PICKUP |
& myPa_StatScal1, -j, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
85 |
MYPACKAGE_WRITE_PICKUP |
& myPa_StatScal2, -j, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
90 |
MYPACKAGE_WRITE_PICKUP |
& myPa_StatVelU, -j, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
94 |
MYPACKAGE_WRITE_PICKUP |
& myPa_StatVelV, -j, myIter, myThid ) |
./pkg/obcs/obcs_add_tides.F |
11 |
OBCS_ADD_TIDES |
SUBROUTINE OBCS_ADD_TIDES( myTime, myIter, myThid ) |
./pkg/obcs/obcs_add_tides.F |
36 |
OBCS_ADD_TIDES |
INTEGER myIter |
./pkg/obcs/obcs_apply_r_star.F |
14 |
OBCS_APPLY_R_STAR |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_apply_r_star.F |
47 |
OBCS_APPLY_R_STAR |
INTEGER myIter, myThid |
./pkg/obcs/obcs_apply_r_star.F |
62 |
OBCS_APPLY_R_STAR |
useOBeta = myIter.NE.-1 |
./pkg/obcs/obcs_apply_surf_dr.F |
14 |
OBCS_APPLY_SURF_DR |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_apply_surf_dr.F |
49 |
OBCS_APPLY_SURF_DR |
INTEGER myIter, myThid |
./pkg/obcs/obcs_apply_surf_dr.F |
66 |
OBCS_APPLY_SURF_DR |
useOBeta = myIter.NE.-1 |
./pkg/obcs/obcs_balance_flow.F |
11 |
OBCS_BALANCE_FLOW |
SUBROUTINE OBCS_BALANCE_FLOW( myTime, myIter, myThid ) |
./pkg/obcs/obcs_balance_flow.F |
126 |
OBCS_BALANCE_FLOW |
& myIter, ' ) correct OBEu:', flowE, -flowE/areaE |
./pkg/obcs/obcs_balance_flow.F |
175 |
OBCS_BALANCE_FLOW |
& myIter, ' ) correct OBWu:', flowW, -flowW/areaW |
./pkg/obcs/obcs_balance_flow.F |
224 |
OBCS_BALANCE_FLOW |
& myIter, ' ) correct OBNv:', flowN, -flowN/areaN |
./pkg/obcs/obcs_balance_flow.F |
273 |
OBCS_BALANCE_FLOW |
& myIter, ' ) correct OBSv:', flowS, -flowS/areaS |
./pkg/obcs/obcs_balance_flow.F |
291 |
OBCS_BALANCE_FLOW |
& myIter, ' ) correct for inFlow:', inFlow, inFlow/areaOB |
./pkg/obcs/obcs_balance_flow.F |
33 |
OBCS_BALANCE_FLOW |
INTEGER myIter |
./model/src/correction_step.F |
12 |
CORRECTION_STEP |
I myTime, myIter, myThid ) |
./model/src/correction_step.F |
46 |
CORRECTION_STEP |
INTEGER myIter |
./pkg/obcs/obcs_diag_balance.F |
14 |
OBCS_DIAG_BALANCE |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_diag_balance.F |
188 |
OBCS_DIAG_BALANCE |
& 'OBCS_DIAG_BALANCE (it,k,n=', myIter, k, n, |
./pkg/obcs/obcs_diag_balance.F |
48 |
OBCS_DIAG_BALANCE |
INTEGER myIter |
./pkg/obcs/obcs_exf_load.F |
105 |
OBCS_EXF_LOAD |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
131 |
OBCS_EXF_LOAD |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
157 |
OBCS_EXF_LOAD |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
18 |
OBCS_EXF_LOAD |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
192 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
270 |
OBCS_EXF_READ_XZ |
INTEGER myIter |
./pkg/obcs/obcs_exf_load.F |
294 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
310 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
319 |
OBCS_EXF_READ_XZ |
& ' myIter, count0, count1:', myIter, count0, count1 |
./pkg/obcs/obcs_exf_load.F |
332 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
336 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
340 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
344 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
349 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
360 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
374 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
390 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
399 |
OBCS_EXF_READ_XZ |
& ' myIter, count0, count1:', myIter, count0, count1 |
./pkg/obcs/obcs_exf_load.F |
412 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
416 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
420 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
424 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
428 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
432 |
OBCS_EXF_READ_XZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
467 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
49 |
OBCS_EXF_LOAD |
INTEGER myIter |
./pkg/obcs/obcs_exf_load.F |
545 |
OBCS_EXF_READ_YZ |
INTEGER myIter |
./pkg/obcs/obcs_exf_load.F |
569 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
585 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
594 |
OBCS_EXF_READ_YZ |
& ' myIter, count0, count1:', myIter, count0, count1 |
./pkg/obcs/obcs_exf_load.F |
607 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
611 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
615 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
619 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
624 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
635 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
649 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
665 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
674 |
OBCS_EXF_READ_YZ |
& ' myIter, count0, count1:', myIter, count0, count1 |
./pkg/obcs/obcs_exf_load.F |
687 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
691 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
695 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
699 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
703 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
707 |
OBCS_EXF_READ_YZ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_exf_load.F |
79 |
OBCS_EXF_LOAD |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
114 |
OBCS_FIELDS_LOAD |
& ' OBCS_FIELDS_LOAD,', myIter, |
./pkg/obcs/obcs_fields_load.F |
127 |
OBCS_FIELDS_LOAD |
IF ( iRec0.NE.iRecP .OR. myIter.EQ.nIter0 ) THEN |
./pkg/obcs/obcs_fields_load.F |
141 |
OBCS_FIELDS_LOAD |
& ' OBCS_FIELDS_LOAD, it=', myIter, |
./pkg/obcs/obcs_fields_load.F |
157 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
158 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
161 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
162 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
165 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
166 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
169 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
16 |
OBCS_FIELDS_LOAD |
SUBROUTINE OBCS_FIELDS_LOAD( myTime, myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
170 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
174 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
175 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
180 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta0,iRec0,myIter,myThid) |
./pkg/obcs/obcs_fields_load.F |
181 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta1,iRec1,myIter,myThid) |
./pkg/obcs/obcs_fields_load.F |
188 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
189 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
192 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
193 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
196 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
197 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
200 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
201 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
205 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
206 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
211 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta0,iRec0,myIter,myThid) |
./pkg/obcs/obcs_fields_load.F |
212 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta1,iRec1,myIter,myThid) |
./pkg/obcs/obcs_fields_load.F |
219 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
220 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
223 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
224 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
227 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
228 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
231 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
232 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
236 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
237 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
242 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta0,iRec0,myIter,myThid) |
./pkg/obcs/obcs_fields_load.F |
243 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta1,iRec1,myIter,myThid) |
./pkg/obcs/obcs_fields_load.F |
250 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
251 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
254 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
255 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
258 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
259 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
262 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
263 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
267 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
268 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
273 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta0,iRec0,myIter,myThid) |
./pkg/obcs/obcs_fields_load.F |
274 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta1,iRec1,myIter,myThid) |
./pkg/obcs/obcs_fields_load.F |
287 |
OBCS_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
289 |
OBCS_FIELDS_LOAD |
& OBEptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
296 |
OBCS_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
298 |
OBCS_FIELDS_LOAD |
& OBWptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
305 |
OBCS_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
307 |
OBCS_FIELDS_LOAD |
& OBNptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
314 |
OBCS_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
316 |
OBCS_FIELDS_LOAD |
& OBSptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
349 |
OBCS_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
./pkg/obcs/obcs_fields_load.F |
357 |
OBCS_FIELDS_LOAD |
& myIter, myTime |
./pkg/obcs/obcs_fields_load.F |
365 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile,fp,Nr,OBEu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
368 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile,fp,Nr,OBEv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
371 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile,fp,Nr,OBEt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
374 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile,fp,Nr,OBEs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
378 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile,fp,Nr,OBEw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
384 |
OBCS_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
391 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile,fp,Nr,OBWu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
394 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile,fp,Nr,OBWv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
397 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile,fp,Nr,OBWt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
400 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile,fp,Nr,OBWs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
404 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile,fp,Nr,OBWw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
410 |
OBCS_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
417 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile,fp,Nr,OBNu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
420 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile,fp,Nr,OBNv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
423 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile,fp,Nr,OBNt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
426 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile,fp,Nr,OBNs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
430 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile,fp,Nr,OBNw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
436 |
OBCS_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
443 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile,fp,Nr,OBSu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
446 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile,fp,Nr,OBSv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
449 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile,fp,Nr,OBSt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
452 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile,fp,Nr,OBSs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
456 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile,fp,Nr,OBSw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_fields_load.F |
462 |
OBCS_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
474 |
OBCS_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0,myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
481 |
OBCS_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
488 |
OBCS_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
495 |
OBCS_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_fields_load.F |
73 |
OBCS_FIELDS_LOAD |
INTEGER myIter |
./pkg/obcs/obcs_monitor.F |
122 |
OBCS_MONITOR |
I 3, myIter, myThid ) |
./pkg/obcs/obcs_monitor.F |
144 |
OBCS_MONITOR |
I 0, myIter, myThid ) |
./pkg/obcs/obcs_monitor.F |
166 |
OBCS_MONITOR |
I 0, myIter, myThid ) |
./pkg/obcs/obcs_monitor.F |
16 |
OBCS_MONITOR |
SUBROUTINE OBCS_MONITOR( myTime, myIter, myThid ) |
./pkg/obcs/obcs_monitor.F |
214 |
OBCS_MON_WRITESTATS |
I prtSelect, myIter, myThid ) |
./pkg/obcs/obcs_monitor.F |
237 |
OBCS_MON_WRITESTATS |
INTEGER myIter |
./pkg/obcs/obcs_monitor.F |
41 |
OBCS_MONITOR |
INTEGER myIter |
./pkg/obcs/obcs_monitor.F |
98 |
OBCS_MONITOR |
CALL MON_OUT_I( 'tsnumber', myIter,mon_string_none,myThid) |
./pkg/obcs/obcs_output.F |
107 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNu,1,myIter,myThid) |
./pkg/obcs/obcs_output.F |
108 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNv,2,myIter,myThid) |
./pkg/obcs/obcs_output.F |
109 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNt,3,myIter,myThid) |
./pkg/obcs/obcs_output.F |
10 |
OBCS_OUTPUT |
SUBROUTINE OBCS_OUTPUT( myTime, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
110 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNs,4,myIter,myThid) |
./pkg/obcs/obcs_output.F |
113 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNw,5,myIter,myThid) |
./pkg/obcs/obcs_output.F |
121 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSu,1,myIter,myThid) |
./pkg/obcs/obcs_output.F |
122 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSv,2,myIter,myThid) |
./pkg/obcs/obcs_output.F |
123 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSt,3,myIter,myThid) |
./pkg/obcs/obcs_output.F |
124 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSs,4,myIter,myThid) |
./pkg/obcs/obcs_output.F |
127 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSw,5,myIter,myThid) |
./pkg/obcs/obcs_output.F |
135 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEu,1,myIter,myThid) |
./pkg/obcs/obcs_output.F |
136 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEv,2,myIter,myThid) |
./pkg/obcs/obcs_output.F |
137 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEt,3,myIter,myThid) |
./pkg/obcs/obcs_output.F |
138 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEs,4,myIter,myThid) |
./pkg/obcs/obcs_output.F |
141 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEw,5,myIter,myThid) |
./pkg/obcs/obcs_output.F |
149 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWu,1,myIter,myThid) |
./pkg/obcs/obcs_output.F |
150 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWv,2,myIter,myThid) |
./pkg/obcs/obcs_output.F |
151 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWt,3,myIter,myThid) |
./pkg/obcs/obcs_output.F |
152 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWs,4,myIter,myThid) |
./pkg/obcs/obcs_output.F |
155 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWw,5,myIter,myThid) |
./pkg/obcs/obcs_output.F |
165 |
OBCS_OUTPUT |
CALL OBCS_MONITOR( myTime, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
33 |
OBCS_OUTPUT |
INTEGER myIter |
./pkg/obcs/obcs_output.F |
52 |
OBCS_OUTPUT |
& .AND. OBCSprintDiags .AND. myIter.NE.nIter0 |
./pkg/obcs/obcs_output.F |
60 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNu, 'OBNu' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
61 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNv, 'OBNv' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
62 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNt, 'OBNt' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
63 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNs, 'OBNs' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
67 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSu, 'OBSu' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
68 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSv, 'OBSv' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
69 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSt, 'OBSt' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
70 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSs, 'OBSs' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
74 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEu, 'OBEu' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
75 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEv, 'OBEv' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
76 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEt, 'OBEt' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
77 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEs, 'OBEs' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
81 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWu, 'OBWu' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
82 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWv, 'OBWv' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
83 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWt, 'OBWt' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
84 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWs, 'OBWs' , Nr, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
93 |
OBCS_OUTPUT |
& .AND. myIter.NE.nIter0 |
./pkg/obcs/obcs_output.F |
98 |
OBCS_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
./pkg/obcs/obcs_prescribe_read.F |
10 |
OBCS_PRESCRIBE_READ |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_prescribe_read.F |
35 |
OBCS_PRESCRIBE_READ |
INTEGER myIter |
./pkg/obcs/obcs_prescribe_read.F |
45 |
OBCS_PRESCRIBE_READ |
CALL OBCS_EXF_LOAD( myTime, myIter, myThid ) |
./pkg/obcs/obcs_prescribe_read.F |
51 |
OBCS_PRESCRIBE_READ |
CALL OBCS_FIELDS_LOAD( myTime, myIter, myThid ) |
./pkg/obcs/obcs_prescribe_read.F |
60 |
OBCS_PRESCRIBE_READ |
if (useCTRL) CALL CTRL_GETOBCSN ( myTime, myIter, mythid ) |
./pkg/obcs/obcs_prescribe_read.F |
64 |
OBCS_PRESCRIBE_READ |
if (useCTRL) CALL CTRL_GETOBCSS ( myTime, myIter, mythid ) |
./pkg/obcs/obcs_prescribe_read.F |
68 |
OBCS_PRESCRIBE_READ |
if (useCTRL) CALL CTRL_GETOBCSW ( myTime, myIter, myThid ) |
./pkg/obcs/obcs_prescribe_read.F |
72 |
OBCS_PRESCRIBE_READ |
if (useCTRL) CALL CTRL_GETOBCSE ( myTime, myIter, myThid ) |
./model/src/cycle_ab_tracer.F |
14 |
CYCLE_AB_TRACER |
I myTime, myIter, myThid ) |
./model/src/cycle_ab_tracer.F |
42 |
CYCLE_AB_TRACER |
INTEGER myIter, myThid |
./pkg/obcs/obcs_read_pickup.F |
100 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
101 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
102 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
103 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
104 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
105 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
106 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
107 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
108 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
109 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
110 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
111 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
112 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
113 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
114 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
115 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
116 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_US , 17,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
117 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_VS , 18,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
118 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_TS , 19,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
119 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_SS , 20,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
11 |
OBCS_READ_PICKUP |
SUBROUTINE OBCS_READ_PICKUP( myIter, myThid ) |
./pkg/obcs/obcs_read_pickup.F |
122 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
123 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
124 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
125 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
126 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_WS , 25,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
127 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, OBSw , 26,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
137 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
138 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
139 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
140 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
141 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
142 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
143 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
144 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
145 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
146 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
147 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
148 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
149 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
150 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
151 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
152 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
153 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_UE , 17,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
154 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_VE , 18,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
155 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_TE , 19,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
156 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_SE , 20,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
159 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
160 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
161 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
162 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
163 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_WE , 25,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
164 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, OBEw , 26,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
173 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
174 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
175 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
176 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
177 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
178 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
179 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
180 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
181 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
182 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
183 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
184 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
185 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
186 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
187 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
188 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
189 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_UW , 17,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
190 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_VW , 18,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
191 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_TW , 19,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
192 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_SW , 20,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
195 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
196 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
197 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
198 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
199 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_WW , 25,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
200 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, OBWw , 26,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
228 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBNvStevens, 1,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
229 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBNtStevens, 2,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
230 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBNsStevens, 3,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
237 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBSvStevens, 1,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
238 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBStStevens, 2,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
239 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBSsStevens, 3,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
246 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBEuStevens, 1,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
247 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBEtStevens, 2,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
248 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBEsStevens, 3,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
255 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBWuStevens, 1,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
256 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBWtStevens, 2,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
257 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBWsStevens, 3,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
32 |
OBCS_READ_PICKUP |
INTEGER myIter |
./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 |
64 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
65 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
66 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
67 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
68 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
69 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
70 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
71 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
72 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
73 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
74 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
75 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
76 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
77 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
78 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
79 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
80 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_UN , 17,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
81 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_VN , 18,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
82 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_TN , 19,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
83 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_SN , 20,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
86 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
87 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
88 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
89 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
90 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_WN , 25,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
91 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, OBNw , 26,myIter,myThid) |
./pkg/obcs/obcs_sponge.F |
19 |
OBCS_SPONGE_U |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_sponge.F |
213 |
OBCS_SPONGE_V |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_sponge.F |
242 |
OBCS_SPONGE_V |
INTEGER myIter |
./pkg/obcs/obcs_sponge.F |
407 |
OBCS_SPONGE_T |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_sponge.F |
440 |
OBCS_SPONGE_T |
INTEGER myIter |
./pkg/obcs/obcs_sponge.F |
48 |
OBCS_SPONGE_U |
INTEGER myIter |
./pkg/obcs/obcs_sponge.F |
639 |
OBCS_SPONGE_S |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_sponge.F |
672 |
OBCS_SPONGE_S |
INTEGER myIter |
./pkg/obcs/obcs_write_pickup.F |
101 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
102 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
103 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
104 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
105 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
106 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
107 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
108 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
109 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
110 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
111 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
112 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
113 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
114 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
115 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
116 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
117 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_US , 17,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
118 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_VS , 18,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
119 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_TS , 19,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
120 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_SS , 20,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
123 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
124 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
125 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
126 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
127 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_WS , 25,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
128 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, OBSw , 26,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
12 |
OBCS_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
./pkg/obcs/obcs_write_pickup.F |
138 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
139 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
140 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
141 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
142 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
143 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
144 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
145 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
146 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
147 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
148 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
149 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
150 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
151 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
152 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
153 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
154 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_UE , 17,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
155 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_VE , 18,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
156 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_TE , 19,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
157 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_SE , 20,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
160 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
161 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
162 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
163 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
164 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_WE , 25,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
165 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, OBEw , 26,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
174 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
175 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
176 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
177 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
178 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
179 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
180 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
181 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
182 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
183 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
184 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
185 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
186 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
187 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
188 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
189 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
190 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_UW , 17,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
191 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_VW , 18,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
192 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_TW , 19,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
193 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_SW , 20,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
196 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
197 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
198 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
199 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
200 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_WW , 25,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
201 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, OBWw , 26,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
212 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNvStevens, 1,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
213 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNtStevens, 2,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
214 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNsStevens, 3,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
221 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSvStevens, 1,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
222 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBStStevens, 2,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
223 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSsStevens, 3,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
230 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEuStevens, 1,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
231 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEtStevens, 2,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
232 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEsStevens, 3,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
239 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWuStevens, 1,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
240 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWtStevens, 2,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
241 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWsStevens, 3,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
36 |
OBCS_WRITE_PICKUP |
INTEGER myIter |
./pkg/obcs/obcs_write_pickup.F |
65 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
66 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
67 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
68 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
69 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
70 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
71 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
72 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
73 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
74 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
75 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
76 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
77 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
78 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
79 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
80 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
81 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_UN , 17,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
82 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_VN , 18,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
83 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_TN , 19,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
84 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_SN , 20,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
87 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
88 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
89 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
90 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
91 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_WN , 25,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
92 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, OBNw , 26,myIter,myThid) |
./model/src/cycle_tracer.F |
12 |
CYCLE_TRACER |
I myTime, myIter, myThid ) |
./model/src/cycle_tracer.F |
39 |
CYCLE_TRACER |
INTEGER myIter, myThid |
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
12 |
CPL_DIAGNOSTICS_FILL |
I myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
30 |
CPL_DIAGNOSTICS_FILL |
INTEGER myIter, myThid |
./model/src/diags_oceanic_surf_flux.F |
10 |
DIAGS_OCEANIC_SURF_FLUX |
SUBROUTINE DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid ) |
./model/src/diags_oceanic_surf_flux.F |
37 |
DIAGS_OCEANIC_SURF_FLUX |
INTEGER myIter |
./pkg/ocn_compon_interf/cpl_export_import_data.F |
11 |
CPL_EXPORT_IMPORT_DATA |
I myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_export_import_data.F |
39 |
CPL_EXPORT_IMPORT_DATA |
INTEGER myIter |
./pkg/ocn_compon_interf/cpl_export_import_data.F |
58 |
CPL_EXPORT_IMPORT_DATA |
& ' Exporting oceanic surface fields at iter=', myIter |
./pkg/ocn_compon_interf/cpl_export_import_data.F |
65 |
CPL_EXPORT_IMPORT_DATA |
I myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_export_import_data.F |
67 |
CPL_EXPORT_IMPORT_DATA |
CALL OCN_EXPORT_FIELDS ( myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_export_import_data.F |
78 |
CPL_EXPORT_IMPORT_DATA |
& ' Importing atmospheric surf fluxes at iter=', myIter |
./pkg/ocn_compon_interf/cpl_export_import_data.F |
84 |
CPL_EXPORT_IMPORT_DATA |
CALL OCN_IMPORT_FIELDS ( myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_export_import_data.F |
87 |
CPL_EXPORT_IMPORT_DATA |
CALL CPL_DIAGNOSTICS_FILL( myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_export_import_data.F |
97 |
CPL_EXPORT_IMPORT_DATA |
CALL OCN_EXPORT_DATA( myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
100 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, TYtave , 5, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
101 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, FWtave , 6, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
102 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SFxtave , 7, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
103 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SICtave , 8, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
104 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, MXLtave , 9, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
105 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SSTtave , 10, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
106 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SSStave , 11, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
107 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, vSqtave , 12, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
110 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, aCO2tave , 13, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
111 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, sWSpdtave, 14, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
112 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, iceftave , 15, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
113 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, fCO2tave , 16, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
128 |
CPL_OUTPUT |
CALL MNC_CW_I_W_S('I','cpl_tave',0,0,'iter',myIter,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
36 |
CPL_OUTPUT |
INTEGER myIter |
./pkg/ocn_compon_interf/cpl_output.F |
59 |
CPL_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
./pkg/ocn_compon_interf/cpl_output.F |
91 |
CPL_OUTPUT |
WRITE(fn,'(A,I10.10)') 'cplFldtave.', myIter |
./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 |
96 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SLPtave , 1, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
97 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, HFtave , 2, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
98 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, QSWtave , 3, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
99 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, TXtave , 4, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
9 |
CPL_OUTPUT |
SUBROUTINE CPL_OUTPUT( myTime, myIter, myThid ) |
./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 |
42 |
CPL_WRITE_PICKUP |
INTEGER myIter |
./pkg/ocn_compon_interf/cpl_write_pickup.F |
73 |
CPL_WRITE_PICKUP |
& fluxCO2cpl, rec_ind, myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
10 |
OCN_APPLY_IMPORT |
I apply2AllFields, myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
42 |
OCN_APPLY_IMPORT |
INTEGER myIter |
./model/src/diags_phi_hyd.F |
124 |
DIAGS_PHI_HYD |
IF ( useDiagnostics .AND. myIter.GE.0 ) THEN |
./model/src/diags_phi_hyd.F |
13 |
DIAGS_PHI_HYD |
I myTime, myIter, myThid) |
./model/src/diags_phi_hyd.F |
47 |
DIAGS_PHI_HYD |
INTEGER myIter, myThid |
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
34 |
OCN_CPL_DIAGS |
INTEGER myIter |
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
9 |
OCN_CPL_DIAGS |
SUBROUTINE OCN_CPL_DIAGS( myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
37 |
OCN_CPL_READ_PICKUP |
INTEGER myIter |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
52 |
OCN_CPL_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cpl.', myIter |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
54 |
OCN_CPL_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
80 |
OCN_CPL_READ_PICKUP |
& fluxCO2cpl, rec_ind, myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
9 |
OCN_CPL_READ_PICKUP |
SUBROUTINE OCN_CPL_READ_PICKUP( myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_export_data.F |
11 |
OCN_EXPORT_DATA |
I myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_export_data.F |
41 |
OCN_EXPORT_DATA |
INTEGER myIter |
./pkg/ocn_compon_interf/ocn_export_data.F |
60 |
OCN_EXPORT_DATA |
& ' Exporting oceanic surface fields at iter=', myIter |
./pkg/ocn_compon_interf/ocn_export_data.F |
67 |
OCN_EXPORT_DATA |
I myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_export_data.F |
69 |
OCN_EXPORT_DATA |
CALL OCN_EXPORT_FIELDS ( myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_export_data.F |
78 |
OCN_EXPORT_DATA |
CALL OCN_CPL_DIAGS( myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_export_fields.F |
10 |
OCN_EXPORT_FIELDS |
SUBROUTINE OCN_EXPORT_FIELDS( myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_export_fields.F |
35 |
OCN_EXPORT_FIELDS |
INTEGER myIter |
./pkg/ocn_compon_interf/ocn_import_fields.F |
10 |
OCN_IMPORT_FIELDS |
SUBROUTINE OCN_IMPORT_FIELDS( myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_import_fields.F |
35 |
OCN_IMPORT_FIELDS |
INTEGER myIter |
./pkg/ocn_compon_interf/ocn_store_my_data.F |
47 |
OCN_STORE_MY_DATA |
INTEGER myIter |
./pkg/ocn_compon_interf/ocn_store_my_data.F |
9 |
OCN_STORE_MY_DATA |
I myTime, myIter, myThid ) |
./model/src/diags_phi_rlow.F |
12 |
DIAGS_PHI_RLOW |
I myTime, myIter, myThid) |
./model/src/diags_phi_rlow.F |
54 |
DIAGS_PHI_RLOW |
INTEGER myIter, myThid |
./pkg/offline/offline_fields_load.F |
102 |
OFFLINE_FIELDS_LOAD |
& ' OFFLINE_FIELDS_LOAD,', myIter, |
./pkg/offline/offline_fields_load.F |
114 |
OFFLINE_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
./pkg/offline/offline_fields_load.F |
135 |
OFFLINE_FIELDS_LOAD |
& ' OFFLINE_FIELDS_LOAD, it=', myIter, |
./pkg/offline/offline_fields_load.F |
155 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, uvel0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
159 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, uvel1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
166 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, vvel0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
169 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, vvel1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
181 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, wvel0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
184 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, wvel1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
194 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, tave0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
197 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, tave1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
207 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, save0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
210 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, save1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
221 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkx0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
224 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkx1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
231 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmky0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
234 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmky1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
246 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkz0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
249 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkz1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
260 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, conv0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
263 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, conv1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
274 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kdfs0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
277 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kdfs1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
289 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kght0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
292 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kght1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
318 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, sflx0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
321 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, sflx1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
360 |
OFFLINE_FIELDS_LOAD |
IF ( myIter.NE.nIter0 .OR. nonlinFreeSurf.LE.0 ) THEN |
./pkg/offline/offline_fields_load.F |
57 |
OFFLINE_FIELDS_LOAD |
INTEGER myIter |
./pkg/offline/offline_fields_load.F |
9 |
OFFLINE_FIELDS_LOAD |
SUBROUTINE OFFLINE_FIELDS_LOAD( myTime, myIter, myThid ) |
./pkg/offline/offline_get_diffus.F |
15 |
OFFLINE_GET_DIFFUS |
SUBROUTINE OFFLINE_GET_DIFFUS( myTime, myIter, myThid ) |
./pkg/offline/offline_get_diffus.F |
49 |
OFFLINE_GET_DIFFUS |
INTEGER myIter |
./pkg/offline/offline_get_diffus.F |
82 |
OFFLINE_GET_DIFFUS |
IF ( Wvelfile .NE. ' ' .AND. myIter.EQ.nIter0 ) THEN |
./model/src/diags_rho.F |
105 |
DIAGS_RHO_G |
I myTime, myIter, myThid ) |
./model/src/diags_rho.F |
137 |
DIAGS_RHO_G |
INTEGER myIter, myThid |
./model/src/diags_rho.F |
19 |
DIAGS_RHO_L |
I myTime, myIter, myThid ) |
./model/src/diags_rho.F |
54 |
DIAGS_RHO_L |
INTEGER myIter, myThid |
./pkg/openad/externalDummies.F |
10 |
DUMMY_IN_STEPPING |
SUBROUTINE DUMMY_IN_STEPPING( myTime, myIter, myThid ) |
./pkg/openad/externalDummies.F |
18 |
DUMMY_IN_STEPPING |
INTEGER myIter |
./pkg/openad/inner_do_loop.F |
202 |
INNER_DO_LOOP |
INTEGER myIter |
./pkg/openad/inner_do_loop.F |
232 |
INNER_DO_LOOP |
CALL FORWARD_STEP_ATM2D( prod, myTime, myIter, myThid ) |
./pkg/openad/inner_do_loop.F |
234 |
INNER_DO_LOOP |
CALL FORWARD_STEP_ATM2D( iloop, myTime, myIter, myThid ) |
./pkg/openad/inner_do_loop.F |
240 |
INNER_DO_LOOP |
CALL FORWARD_STEP( prod, myTime, myIter, myThid ) |
./pkg/openad/inner_do_loop.F |
242 |
INNER_DO_LOOP |
CALL FORWARD_STEP( iloop, myTime, myIter, myThid ) |
./pkg/openad/inner_do_loop.F |
44 |
INNER_DO_LOOP |
SUBROUTINE INNER_DO_LOOP( iloop, myTime, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
121 |
DO_ATMOSPHERIC_PHYS |
CALL UPDATE_OCEAN_EXPORTS ( myTime, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
122 |
DO_ATMOSPHERIC_PHYS |
CALL UPDATE_EARTH_EXPORTS ( myTime, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
123 |
DO_ATMOSPHERIC_PHYS |
CALL UPDATE_CHEMISTRY_EXPORTS ( myTime, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
124 |
DO_ATMOSPHERIC_PHYS |
CALL FIZHI_WRAPPER ( myTime, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
125 |
DO_ATMOSPHERIC_PHYS |
CALL STEP_FIZHI_FG ( myTime, myIter, myThid, dTtracerLev(1) ) |
./model/src/do_atmospheric_phys.F |
126 |
DO_ATMOSPHERIC_PHYS |
CALL FIZHI_UPDATE_TIME ( myIter, myThid, deltaTClock ) |
./model/src/do_atmospheric_phys.F |
135 |
DO_ATMOSPHERIC_PHYS |
CALL ATM_PHYS_DRIVER( myTime, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
13 |
DO_ATMOSPHERIC_PHYS |
SUBROUTINE DO_ATMOSPHERIC_PHYS(myTime, myIter, myThid) |
./model/src/do_atmospheric_phys.F |
147 |
DO_ATMOSPHERIC_PHYS |
CALL AIM_DO_PHYSICS( myTime, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
56 |
DO_ATMOSPHERIC_PHYS |
INTEGER myIter |
./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 |
27 |
OPENAD_DUMPADJOINT |
SUBROUTINE OPENAD_DUMPADJOINT( myTime, myIter, myThid ) |
./pkg/openad/openad_dumpAdjoint.F |
92 |
OPENAD_DUMPADJOINT |
INTEGER myIter |
./pkg/openad/openad_dumpAdjoint.F |
99 |
OPENAD_DUMPADJOINT |
IF ( MOD(myIter,360).EQ.0 ) THEN |
./pkg/openad/the_model_main.F |
301 |
THE_MODEL_MAIN |
INTEGER myIter |
./pkg/openad/the_model_main.F |
370 |
THE_MODEL_MAIN |
myIter = nIter0 |
./pkg/openad/the_model_main.F |
404 |
THE_MODEL_MAIN |
CALL G_THE_MAIN_LOOP ( myTime, myIter, myThid ) |
./pkg/openad/the_model_main.F |
418 |
THE_MODEL_MAIN |
CALL MDTHE_MAIN_LOOP ( myTime, myIter, myThid ) |
./pkg/openad/the_model_main.F |
448 |
THE_MODEL_MAIN |
CALL OPENAD_THE_MAIN_LOOP( myTime, myIter, myThid ) |
./pkg/openad/the_model_main.F |
460 |
THE_MODEL_MAIN |
CALL OPENAD_THE_MAIN_LOOP( myTime, myIter, myThid ) |
./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/openad/the_model_main.F |
595 |
THE_MODEL_MAIN |
CALL THE_MAIN_LOOP( myTime, myIter, myThid ) |
./pkg/openad/the_model_main.F |
605 |
THE_MODEL_MAIN |
myIter=nIter0 |
./pkg/openad/the_model_main.F |
613 |
THE_MODEL_MAIN |
& .AND. myIter.EQ.nIter0 ) THEN |
./pkg/openad/the_model_main.F |
638 |
THE_MODEL_MAIN |
CALL THE_MAIN_LOOP( myTime, myIter, myThid ) |
./pkg/opps/opps_calc.F |
22 |
OPPS_CALC |
I I, J, bi, bj, myTime, myIter, myThid ) |
./pkg/opps/opps_calc.F |
82 |
OPPS_CALC |
INTEGER myThid, myIter |
./pkg/opps/opps_interface.F |
11 |
OPPS_INTERFACE |
I myTime, myIter, myThid ) |
./pkg/opps/opps_interface.F |
145 |
OPPS_INTERFACE |
I I,J,bi,bj,myTime,myIter,myThid) |
./pkg/opps/opps_interface.F |
54 |
OPPS_INTERFACE |
INTEGER myIter |
./pkg/opps/opps_output.F |
100 |
OPPS_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/opps/opps_output.F |
123 |
OPPS_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
./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 |
142 |
OPPS_OUTPUT |
& myIter,myThid) |
./pkg/opps/opps_output.F |
56 |
OPPS_OUTPUT |
INTEGER myIter |
./pkg/opps/opps_output.F |
9 |
OPPS_OUTPUT |
SUBROUTINE OPPS_OUTPUT( myTime, myIter, myThid ) |
./pkg/pp81/pp81_calc.F |
11 |
PP81_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./pkg/pp81/pp81_calc.F |
52 |
PP81_CALC |
INTEGER myIter |
./model/src/do_oceanic_phys.F |
1003 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1008 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1020 |
DO_OCEANIC_PHYS |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1031 |
DO_OCEANIC_PHYS |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1042 |
DO_OCEANIC_PHYS |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1058 |
DO_OCEANIC_PHYS |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1065 |
DO_OCEANIC_PHYS |
CALL TIMEAVE_SURF_FLUX( bi, bj, myTime, myIter, myThid) |
./model/src/do_oceanic_phys.F |
1097 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1103 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1114 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1118 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1137 |
DO_OCEANIC_PHYS |
CALL OFFLINE_GET_DIFFUS( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1144 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1151 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1157 |
DO_OCEANIC_PHYS |
CALL GMREDI_DO_EXCH( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1171 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1174 |
DO_OCEANIC_PHYS |
CALL DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
196 |
DO_OCEANIC_PHYS |
INTEGER myIter |
./model/src/do_oceanic_phys.F |
273 |
DO_OCEANIC_PHYS |
CALL OBCS_CALC( myTime+deltaTClock, myIter+1, |
./model/src/do_oceanic_phys.F |
282 |
DO_OCEANIC_PHYS |
CALL OCN_APPLY_IMPORT( .TRUE., myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
321 |
DO_OCEANIC_PHYS |
CALL FRAZIL_CALC_RHS( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
364 |
DO_OCEANIC_PHYS |
CALL THSICE_MAIN( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
382 |
DO_OCEANIC_PHYS |
CALL SEAICE_FAKE( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
40 |
DO_OCEANIC_PHYS |
SUBROUTINE DO_OCEANIC_PHYS(myTime, myIter, myThid) |
./model/src/do_oceanic_phys.F |
476 |
DO_OCEANIC_PHYS |
CALL SEAICE_MODEL( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
479 |
DO_OCEANIC_PHYS |
CALL SEAICE_COST_SENSI ( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
492 |
DO_OCEANIC_PHYS |
CALL OCN_EXPORT_DATA( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
530 |
DO_OCEANIC_PHYS |
CALL THSICE_MAIN( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
551 |
DO_OCEANIC_PHYS |
CALL SHELFICE_THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
566 |
DO_OCEANIC_PHYS |
CALL ICEFRONT_THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
575 |
DO_OCEANIC_PHYS |
CALL SALT_PLUME_DO_EXCH( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
585 |
DO_OCEANIC_PHYS |
CALL FREEZE_SURFACE( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
608 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
772 |
DO_OCEANIC_PHYS |
I k, bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
785 |
DO_OCEANIC_PHYS |
I k, bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
913 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid) |
./model/src/do_oceanic_phys.F |
921 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
938 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
945 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
948 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
953 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
957 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
961 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./pkg/pp81/pp81_output.F |
104 |
PP81_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/pp81/pp81_output.F |
130 |
PP81_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
./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 |
151 |
PP81_OUTPUT |
& PPviscArTave, myIter, myThid ) |
./pkg/pp81/pp81_output.F |
153 |
PP81_OUTPUT |
& PPdiffKrTave, myIter, myThid ) |
./pkg/pp81/pp81_output.F |
174 |
PP81_OUTPUT |
IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN |
./pkg/pp81/pp81_output.F |
56 |
PP81_OUTPUT |
INTEGER myIter |
./pkg/pp81/pp81_output.F |
78 |
PP81_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
./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 |
90 |
PP81_OUTPUT |
& myIter,myThid) |
./pkg/pp81/pp81_output.F |
92 |
PP81_OUTPUT |
& myIter,myThid) |
./pkg/pp81/pp81_output.F |
9 |
PP81_OUTPUT |
SUBROUTINE PP81_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_stagger_fields_exchanges.F |
31 |
DO_STAGGER_FIELDS_EXCHANGES |
INTEGER myIter |
./model/src/do_stagger_fields_exchanges.F |
9 |
DO_STAGGER_FIELDS_EXCHANGES |
SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES(myTime, myIter, myThid) |
./model/src/do_statevars_diags.F |
105 |
DO_STATEVARS_DIAGS |
CALL THSICE_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./model/src/do_statevars_diags.F |
111 |
DO_STATEVARS_DIAGS |
CALL STREAMICE_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./model/src/do_statevars_diags.F |
117 |
DO_STATEVARS_DIAGS |
CALL LAND_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./model/src/do_statevars_diags.F |
11 |
DO_STATEVARS_DIAGS |
SUBROUTINE DO_STATEVARS_DIAGS( myTime, seqFlag, myIter, myThid ) |
./model/src/do_statevars_diags.F |
123 |
DO_STATEVARS_DIAGS |
CALL MYPACKAGE_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./model/src/do_statevars_diags.F |
42 |
DO_STATEVARS_DIAGS |
INTEGER myIter |
./model/src/do_statevars_diags.F |
70 |
DO_STATEVARS_DIAGS |
CALL DIAGNOSTICS_FILL_STATE( selectVars, myIter, myThid ) |
./model/src/do_statevars_diags.F |
74 |
DO_STATEVARS_DIAGS |
CALL GAD_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./model/src/do_statevars_diags.F |
81 |
DO_STATEVARS_DIAGS |
CALL PTRACERS_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./model/src/do_statevars_diags.F |
87 |
DO_STATEVARS_DIAGS |
CALL GMREDI_DIAGNOSTICS_IMPL( myTime, myIter, myThid ) |
./model/src/do_statevars_diags.F |
93 |
DO_STATEVARS_DIAGS |
CALL BBL_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./model/src/do_statevars_diags.F |
99 |
DO_STATEVARS_DIAGS |
CALL SEAICE_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./model/src/do_statevars_tave.F |
11 |
DO_STATEVARS_TAVE |
SUBROUTINE DO_STATEVARS_TAVE( myTime, myIter, myThid ) |
./model/src/do_statevars_tave.F |
40 |
DO_STATEVARS_TAVE |
INTEGER myIter |
./model/src/do_statevars_tave.F |
55 |
DO_STATEVARS_TAVE |
CALL TIMEAVE_STATVARS( myTime, myIter, bi, bj, myThid ) |
./model/src/do_statevars_tave.F |
59 |
DO_STATEVARS_TAVE |
CALL PTRACERS_TIMEAVE( myTime, myIter, bi, bj, myThid ) |
./pkg/ptracers/ptracers_ad_dump.F |
13 |
PTRACERS_AD_DUMP |
SUBROUTINE PTRACERS_AD_DUMP( myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_ad_dump.F |
47 |
PTRACERS_AD_DUMP |
INTEGER myIter |
./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_apply_forcing.F |
122 |
PTRACERS_APPLY_FORCING |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_apply_forcing.F |
14 |
PTRACERS_APPLY_FORCING |
I iTracer, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_apply_forcing.F |
45 |
PTRACERS_APPLY_FORCING |
INTEGER myIter |
./pkg/ptracers/ptracers_apply_forcing.F |
79 |
PTRACERS_APPLY_FORCING |
I iTracer, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
10 |
PTRACERS_CALC_WSURF_TR |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
42 |
PTRACERS_CALC_WSURF_TR |
INTEGER myIter |
./pkg/ptracers/ptracers_check_pickup.F |
13 |
PTRACERS_CHECK_PICKUP |
I myIter, myThid ) |
./pkg/ptracers/ptracers_check_pickup.F |
38 |
PTRACERS_CHECK_PICKUP |
INTEGER myIter |
./model/src/do_the_model_io.F |
114 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
./model/src/do_the_model_io.F |
116 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
./model/src/do_the_model_io.F |
118 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
./model/src/do_the_model_io.F |
120 |
DO_THE_MODEL_IO |
& myIter, myThid ) |
./model/src/do_the_model_io.F |
127 |
DO_THE_MODEL_IO |
CALL WRITE_STATE( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
132 |
DO_THE_MODEL_IO |
IF (taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN |
./model/src/do_the_model_io.F |
133 |
DO_THE_MODEL_IO |
CALL TIMEAVE_STATV_WRITE( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
139 |
DO_THE_MODEL_IO |
& CALL FIZHI_WRITE_STATE( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
145 |
DO_THE_MODEL_IO |
& CALL AIM_WRITE_TAVE( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
14 |
DO_THE_MODEL_IO |
I myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
150 |
DO_THE_MODEL_IO |
& CALL LAND_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
155 |
DO_THE_MODEL_IO |
& CALL OBCS_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
160 |
DO_THE_MODEL_IO |
IF (useGMRedi .AND. myIter.NE.nIter0 .AND. .NOT.useOffLine ) |
./model/src/do_the_model_io.F |
161 |
DO_THE_MODEL_IO |
& CALL GMREDI_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
167 |
DO_THE_MODEL_IO |
& CALL KPP_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
173 |
DO_THE_MODEL_IO |
& CALL PP81_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
179 |
DO_THE_MODEL_IO |
& CALL KL10_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
185 |
DO_THE_MODEL_IO |
& CALL MY82_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
191 |
DO_THE_MODEL_IO |
& CALL OPPS_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
197 |
DO_THE_MODEL_IO |
& CALL GGL90_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
203 |
DO_THE_MODEL_IO |
CALL SBO_CALC( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
204 |
DO_THE_MODEL_IO |
CALL SBO_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
210 |
DO_THE_MODEL_IO |
CALL SEAICE_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
216 |
DO_THE_MODEL_IO |
CALL SHELFICE_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
222 |
DO_THE_MODEL_IO |
IF ( useBulkForce .AND. myIter.NE.nIter0 ) |
./model/src/do_the_model_io.F |
223 |
DO_THE_MODEL_IO |
& CALL BULKF_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
229 |
DO_THE_MODEL_IO |
& CALL THSICE_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
235 |
DO_THE_MODEL_IO |
& CALL PTRACERS_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
241 |
DO_THE_MODEL_IO |
& CALL MATRIX_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
247 |
DO_THE_MODEL_IO |
& CALL GCHEM_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
258 |
DO_THE_MODEL_IO |
& CALL CPL_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
264 |
DO_THE_MODEL_IO |
CALL LAYERS_CALC( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
265 |
DO_THE_MODEL_IO |
CALL LAYERS_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
271 |
DO_THE_MODEL_IO |
& CALL DIAGNOSTICS_WRITE( modelEnd, myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
97 |
DO_THE_MODEL_IO |
INTEGER myIter |
./pkg/ptracers/ptracers_diagnostics_state.F |
10 |
PTRACERS_DIAGNOSTICS_STATE |
SUBROUTINE PTRACERS_DIAGNOSTICS_STATE(myTime, myIter, myThid) |
./pkg/ptracers/ptracers_diagnostics_state.F |
31 |
PTRACERS_DIAGNOSTICS_STATE |
INTEGER myIter |
./pkg/ptracers/ptracers_diagnostics_state.F |
55 |
PTRACERS_DIAGNOSTICS_STATE |
trIter = myIter-1 |
./pkg/ptracers/ptracers_diagnostics_state.F |
57 |
PTRACERS_DIAGNOSTICS_STATE |
trIter = myIter |
./pkg/ptracers/ptracers_forcing_surf.F |
13 |
PTRACERS_FORCING_SURF |
I myTime,myIter,myThid ) |
./pkg/ptracers/ptracers_forcing_surf.F |
43 |
PTRACERS_FORCING_SURF |
INTEGER myIter |
./pkg/ptracers/ptracers_integrate.F |
127 |
PTRACERS_INTEGRATE |
iterNb = myIter - LS_nIter + 1 |
./pkg/ptracers/ptracers_integrate.F |
128 |
PTRACERS_INTEGRATE |
IF (LS_whenToSample.GE.2) iterNb = myIter - LS_nIter |
./pkg/ptracers/ptracers_integrate.F |
130 |
PTRACERS_INTEGRATE |
iterNb = myIter |
./pkg/ptracers/ptracers_integrate.F |
131 |
PTRACERS_INTEGRATE |
IF (staggerTimeStep) iterNb = myIter - 1 |
./pkg/ptracers/ptracers_integrate.F |
17 |
PTRACERS_INTEGRATE |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
246 |
PTRACERS_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
262 |
PTRACERS_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
303 |
PTRACERS_INTEGRATE |
I iTracer, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
332 |
PTRACERS_INTEGRATE |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
399 |
PTRACERS_INTEGRATE |
I PTRACERS_dTLev, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
406 |
PTRACERS_INTEGRATE |
I PTRACERS_dTLev, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
416 |
PTRACERS_INTEGRATE |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
427 |
PTRACERS_INTEGRATE |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
448 |
PTRACERS_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
467 |
PTRACERS_INTEGRATE |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
473 |
PTRACERS_INTEGRATE |
I gTracer, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
59 |
PTRACERS_INTEGRATE |
INTEGER myIter |
./model/src/do_write_pickup.F |
106 |
DO_WRITE_PICKUP |
& "%CHECKPOINT ", myIter, suffix |
./model/src/do_write_pickup.F |
13 |
DO_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./model/src/do_write_pickup.F |
46 |
DO_WRITE_PICKUP |
INTEGER myIter |
./model/src/do_write_pickup.F |
72 |
DO_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./model/src/do_write_pickup.F |
75 |
DO_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./model/src/do_write_pickup.F |
85 |
DO_WRITE_PICKUP |
WRITE(suffix,'(I10.10)') myIter |
./model/src/do_write_pickup.F |
87 |
DO_WRITE_PICKUP |
CALL RW_GET_SUFFIX( suffix, myTime, myIter, myThid ) |
./model/src/do_write_pickup.F |
94 |
DO_WRITE_PICKUP |
I permPickup, suffix, myTime, myIter, myThid ) |
./model/src/do_write_pickup.F |
99 |
DO_WRITE_PICKUP |
I permPickup, suffix, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_monitor.F |
106 |
PTRACERS_MONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid) |
./pkg/ptracers/ptracers_monitor.F |
11 |
PTRACERS_MONITOR |
I myIter, myTime, myThid ) |
./pkg/ptracers/ptracers_monitor.F |
34 |
PTRACERS_MONITOR |
INTEGER myIter |
./pkg/ptracers/ptracers_monitor_ad.F |
14 |
ADPTRACERS_MONITOR |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_monitor_ad.F |
40 |
ADPTRACERS_MONITOR |
INTEGER myIter |
./pkg/ptracers/ptracers_output.F |
11 |
PTRACERS_OUTPUT |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_output.F |
29 |
PTRACERS_OUTPUT |
INTEGER myIter |
./pkg/ptracers/ptracers_output.F |
38 |
PTRACERS_OUTPUT |
CALL PTRACERS_WRITE_STATE( myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_output.F |
42 |
PTRACERS_OUTPUT |
IF ( PTRACERS_taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN |
./pkg/ptracers/ptracers_output.F |
43 |
PTRACERS_OUTPUT |
CALL PTRACERS_WRITE_TIMEAVE( myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_output.F |
49 |
PTRACERS_OUTPUT |
CALL PTRACERS_MONITOR( myIter, myTime, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
109 |
PTRACERS_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_ptracers.', myIter |
./pkg/ptracers/ptracers_read_pickup.F |
111 |
PTRACERS_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
11 |
PTRACERS_READ_PICKUP |
SUBROUTINE PTRACERS_READ_PICKUP( myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
122 |
PTRACERS_READ_PICKUP |
I Nr, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
179 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
197 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
212 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
216 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
231 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
245 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
259 |
PTRACERS_READ_PICKUP |
I myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
269 |
PTRACERS_READ_PICKUP |
I myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
287 |
PTRACERS_READ_PICKUP |
& PTRACERS_ioLabel(iTracer),'.', myIter |
./pkg/ptracers/ptracers_read_pickup.F |
289 |
PTRACERS_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
31 |
PTRACERS_READ_PICKUP |
INTEGER myIter |
./pkg/ptracers/ptracers_read_pickup.F |
320 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
75 |
PTRACERS_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
./pkg/ptracers/ptracers_reset.F |
12 |
PTRACERS_RESET |
SUBROUTINE PTRACERS_RESET( myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_reset.F |
31 |
PTRACERS_RESET |
INTEGER myIter |
./pkg/ptracers/ptracers_reset.F |
56 |
PTRACERS_RESET |
IF ( PTRACERS_resetFreq(iTracer).GT.0. .AND. myIter.GT.0 .AND. |
./pkg/ptracers/ptracers_reset.F |
64 |
PTRACERS_RESET |
& iTracer, myIter |
./pkg/ptracers/ptracers_switch_onoff.F |
11 |
PTRACERS_SWITCH_ONOFF |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_switch_onoff.F |
30 |
PTRACERS_SWITCH_ONOFF |
INTEGER myIter |
./pkg/ptracers/ptracers_timeave.F |
10 |
PTRACERS_TIMEAVE |
I myTime, myIter, bi, bj, myThid ) |
./pkg/ptracers/ptracers_timeave.F |
40 |
PTRACERS_TIMEAVE |
INTEGER myIter |
./pkg/ptracers/ptracers_timeave.F |
59 |
PTRACERS_TIMEAVE |
IF ( myIter .EQ. nIter0 ) THEN |
./pkg/ptracers/ptracers_timeave.F |
72 |
PTRACERS_TIMEAVE |
IF ( myIter .EQ. nIter0 .OR. |
./pkg/ptracers/ptracers_timeave.F |
90 |
PTRACERS_TIMEAVE |
IF ( myIter .NE. nIter0 ) THEN |
./model/src/dynamics.F |
109 |
DYNAMICS |
INTEGER myIter |
./model/src/dynamics.F |
21 |
DYNAMICS |
SUBROUTINE DYNAMICS(myTime, myIter, myThid) |
./model/src/dynamics.F |
261 |
DYNAMICS |
CALL DUMMY_IN_DYNAMICS( myTime, myIter, myThid ) |
./model/src/dynamics.F |
486 |
DYNAMICS |
I myTime, myIter, myThid ) |
./model/src/dynamics.F |
532 |
DYNAMICS |
I myTime, myIter, myThid) |
./model/src/dynamics.F |
542 |
DYNAMICS |
I myTime, myIter, myThid) |
./model/src/dynamics.F |
571 |
DYNAMICS |
I myTime, myIter, myThid) |
./model/src/dynamics.F |
586 |
DYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/dynamics.F |
588 |
DYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/dynamics.F |
658 |
DYNAMICS |
I myTime, myIter, myThid ) |
./model/src/dynamics.F |
661 |
DYNAMICS |
& CALL TIMESTEP_WVEL( bi,bj, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
100 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
12 |
PTRACERS_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
138 |
PTRACERS_WRITE_PICKUP |
& -j, myIter, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
150 |
PTRACERS_WRITE_PICKUP |
& -j, myIter, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
178 |
PTRACERS_WRITE_PICKUP |
& j, myIter, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
210 |
PTRACERS_WRITE_PICKUP |
I iRec, myIter, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
37 |
PTRACERS_WRITE_PICKUP |
INTEGER myIter |
./pkg/ptracers/ptracers_write_pickup.F |
84 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
93 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
./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 |
11 |
PTRACERS_WRITE_STATE |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_write_state.F |
120 |
PTRACERS_WRITE_STATE |
& pTracer(:,:,:,:,:,iTracer)v,iRec,myIter,myThid) |
./pkg/ptracers/ptracers_write_state.F |
123 |
PTRACERS_WRITE_STATE |
& pTracer(1-OLx,1-OLy,1,1,1,iTracer),iRec,myIter,myThid) |
./pkg/ptracers/ptracers_write_state.F |
30 |
PTRACERS_WRITE_STATE |
INTEGER myIter |
./pkg/ptracers/ptracers_write_state.F |
73 |
PTRACERS_WRITE_STATE |
CALL MNC_CW_I_W_S('I','ptracers',0,0,'iter',myIter,myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
10 |
PTRACERS_WRITE_TIMEAVE |
SUBROUTINE PTRACERS_WRITE_TIMEAVE( myTime, myIter, myThid ) |
./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 |
128 |
PTRACERS_WRITE_TIMEAVE |
& myIter, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
132 |
PTRACERS_WRITE_TIMEAVE |
& myIter, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
145 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
./pkg/ptracers/ptracers_write_timeave.F |
151 |
PTRACERS_WRITE_TIMEAVE |
& '// PTRACER time-average data written, t-step', myIter |
./pkg/ptracers/ptracers_write_timeave.F |
36 |
PTRACERS_WRITE_TIMEAVE |
INTEGER myIter |
./pkg/ptracers/ptracers_write_timeave.F |
90 |
PTRACERS_WRITE_TIMEAVE |
CALL MNC_CW_I_W_S('I','ptr_tave',0,0,'iter',myIter,myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
96 |
PTRACERS_WRITE_TIMEAVE |
CALL MNC_CW_I_W_S('I','ptr_flux_tave',0,0,'iter',myIter, |
./model/src/external_fields_load.F |
10 |
EXTERNAL_FIELDS_LOAD |
SUBROUTINE EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/external_fields_load.F |
111 |
EXTERNAL_FIELDS_LOAD |
& ' EXTERNAL_FIELDS_LOAD, it=', myIter, |
./model/src/external_fields_load.F |
119 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
121 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
125 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
127 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
131 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
133 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
136 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
138 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
142 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
144 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
161 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
163 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
167 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
169 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
173 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
175 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
180 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
182 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
201 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
203 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
53 |
EXTERNAL_FIELDS_LOAD |
INTEGER myIter |
./model/src/external_fields_load.F |
83 |
EXTERNAL_FIELDS_LOAD |
& ' EXTERNAL_FIELDS_LOAD,', myIter, |
./model/src/external_fields_load.F |
95 |
EXTERNAL_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
./pkg/rbcs/rbcs_add_tendency.F |
13 |
RBCS_ADD_TENDENCY |
I myTime, myIter, myThid ) |
./pkg/rbcs/rbcs_add_tendency.F |
45 |
RBCS_ADD_TENDENCY |
INTEGER myIter |
./pkg/rbcs/rbcs_fields_load.F |
104 |
RBCS_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
./pkg/rbcs/rbcs_fields_load.F |
117 |
RBCS_FIELDS_LOAD |
& ' RBCS_FIELDS_LOAD, it=', myIter, |
./pkg/rbcs/rbcs_fields_load.F |
133 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcu0, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
135 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcu1, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
137 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxUFile,rbcu0,intime0,myIter,myThid) |
./pkg/rbcs/rbcs_fields_load.F |
138 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxUFile,rbcu1,intime1,myIter,myThid) |
./pkg/rbcs/rbcs_fields_load.F |
145 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcv0, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
147 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcv1, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
149 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxVFile,rbcv0,intime0,myIter,myThid) |
./pkg/rbcs/rbcs_fields_load.F |
150 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxVFile,rbcv1,intime1,myIter,myThid) |
./pkg/rbcs/rbcs_fields_load.F |
163 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbct0, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
165 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbct1, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
167 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxTFile,rbct0,intime0,myIter,myThid) |
./pkg/rbcs/rbcs_fields_load.F |
168 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxTFile,rbct1,intime1,myIter,myThid) |
./pkg/rbcs/rbcs_fields_load.F |
177 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcs0, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
179 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcs1, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
181 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxSFile,rbcs0,intime0,myIter,myThid) |
./pkg/rbcs/rbcs_fields_load.F |
182 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxSFile,rbcs1,intime1,myIter,myThid) |
./pkg/rbcs/rbcs_fields_load.F |
199 |
RBCS_FIELDS_LOAD |
& 1, myIter, myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
204 |
RBCS_FIELDS_LOAD |
& 1, myIter, myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
208 |
RBCS_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
211 |
RBCS_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
42 |
RBCS_FIELDS_LOAD |
INTEGER myIter |
./pkg/rbcs/rbcs_fields_load.F |
85 |
RBCS_FIELDS_LOAD |
& ' RBCS_FIELDS_LOAD,', myIter, |
./pkg/rbcs/rbcs_fields_load.F |
8 |
RBCS_FIELDS_LOAD |
SUBROUTINE RBCS_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/external_forcing_surf.F |
153 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./model/src/external_forcing_surf.F |
171 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./model/src/external_forcing_surf.F |
19 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./model/src/external_forcing_surf.F |
238 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./model/src/external_forcing_surf.F |
390 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./model/src/external_forcing_surf.F |
52 |
EXTERNAL_FORCING_SURF |
INTEGER myIter |
./pkg/rw/read_fld_xy_rl.F |
17 |
READ_FLD_XY_RL |
INTEGER myIter |
./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 |
17 |
READ_FLD_XY_RS |
INTEGER myIter |
./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 |
17 |
READ_FLD_XYZ_RL |
INTEGER myIter |
./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 |
17 |
READ_FLD_XYZ_RS |
INTEGER myIter |
./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_mflds.F |
245 |
READ_MFLDS_3D_RL |
I fPrec, nNz, myIter, myThid ) |
./pkg/rw/read_mflds.F |
274 |
READ_MFLDS_3D_RL |
INTEGER myIter |
./pkg/rw/read_mflds.F |
371 |
READ_MFLDS_LEV_RL |
I fPrec, kSiz, kLo, kHi, myIter, myThid ) |
./pkg/rw/read_mflds.F |
403 |
READ_MFLDS_LEV_RL |
INTEGER myIter |
./pkg/rw/read_mflds.F |
500 |
READ_MFLDS_LEV_RS |
I fPrec, kSiz, kLo, kHi, myIter, myThid ) |
./pkg/rw/read_mflds.F |
532 |
READ_MFLDS_LEV_RS |
INTEGER myIter |
./pkg/rw/read_mflds.F |
628 |
READ_MFLDS_CHECK |
I myIter, myThid ) |
./pkg/rw/read_mflds.F |
654 |
READ_MFLDS_CHECK |
INTEGER myIter |
./pkg/rw/read_mflds.F |
65 |
READ_MFLDS_SET |
I fileDim3, myIter, myThid ) |
./pkg/rw/read_mflds.F |
94 |
READ_MFLDS_SET |
INTEGER myIter |
./pkg/rw/read_rec.F |
139 |
READ_REC_XYZ_RS |
SUBROUTINE READ_REC_XYZ_RS( fName,field,iRec,myIter,myThid ) |
./pkg/rw/read_rec.F |
158 |
READ_REC_XYZ_RS |
INTEGER myIter |
./pkg/rw/read_rec.F |
199 |
READ_REC_XYZ_RL |
SUBROUTINE READ_REC_XYZ_RL( fName,field,iRec,myIter,myThid ) |
./pkg/rw/read_rec.F |
218 |
READ_REC_XYZ_RL |
INTEGER myIter |
./pkg/rw/read_rec.F |
24 |
READ_REC_XY_RS |
SUBROUTINE READ_REC_XY_RS( fName,field,iRec,myIter,myThid ) |
./pkg/rw/read_rec.F |
262 |
READ_REC_3D_RS |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
284 |
READ_REC_3D_RS |
INTEGER myIter |
./pkg/rw/read_rec.F |
326 |
READ_REC_3D_RL |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
348 |
READ_REC_3D_RL |
INTEGER myIter |
./pkg/rw/read_rec.F |
390 |
READ_REC_LEV_RS |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
40 |
READ_REC_XY_RS |
INTEGER myIter |
./pkg/rw/read_rec.F |
413 |
READ_REC_LEV_RS |
INTEGER myIter |
./pkg/rw/read_rec.F |
455 |
READ_REC_LEV_RL |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
478 |
READ_REC_LEV_RL |
INTEGER myIter |
./pkg/rw/read_rec.F |
520 |
READ_REC_XZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
540 |
READ_REC_XZ_RS |
INTEGER myIter |
./pkg/rw/read_rec.F |
581 |
READ_REC_XZ_RL |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
602 |
READ_REC_XZ_RL |
INTEGER myIter |
./pkg/rw/read_rec.F |
643 |
READ_REC_YZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
664 |
READ_REC_YZ_RS |
INTEGER myIter |
./pkg/rw/read_rec.F |
706 |
READ_REC_YZ_RL |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
727 |
READ_REC_YZ_RL |
INTEGER myIter |
./pkg/rw/read_rec.F |
80 |
READ_REC_XY_RL |
SUBROUTINE READ_REC_XY_RL( fName,field,iRec,myIter,myThid ) |
./pkg/rw/read_rec.F |
99 |
READ_REC_XY_RL |
INTEGER myIter |
./pkg/rw/rw_get_suffix.F |
12 |
RW_GET_SUFFIX |
I myTime, myIter, myThid ) |
./pkg/rw/rw_get_suffix.F |
31 |
RW_GET_SUFFIX |
INTEGER myIter |
./pkg/rw/rw_get_suffix.F |
55 |
RW_GET_SUFFIX |
WRITE(suff,'(I10.10)') myIter |
./pkg/rw/write_fld_3d_rl.F |
19 |
WRITE_FLD_3D_RL |
INTEGER myIter |
./pkg/rw/write_fld_3d_rl.F |
42 |
WRITE_FLD_3D_RL |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_3d_rl.F |
57 |
WRITE_FLD_3D_RL |
I iRec, myIter, myThid ) |
./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 |
19 |
WRITE_FLD_3D_RS |
INTEGER myIter |
./pkg/rw/write_fld_3d_rs.F |
42 |
WRITE_FLD_3D_RS |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_3d_rs.F |
57 |
WRITE_FLD_3D_RS |
I iRec, myIter, myThid ) |
./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 |
103 |
WRITE_FLD_S3D_RL |
I iRec, 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 |
40 |
WRITE_FLD_S3D_RL |
INTEGER myIter |
./pkg/rw/write_fld_s3d_rl.F |
80 |
WRITE_FLD_S3D_RL |
WRITE( fName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_s3d_rs.F |
103 |
WRITE_FLD_S3D_RS |
I iRec, myIter, myThid ) |
./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 |
40 |
WRITE_FLD_S3D_RS |
INTEGER myIter |
./pkg/rw/write_fld_s3d_rs.F |
80 |
WRITE_FLD_S3D_RS |
WRITE( fName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_xy_rl.F |
17 |
WRITE_FLD_XY_RL |
INTEGER myIter |
./pkg/rw/write_fld_xy_rl.F |
41 |
WRITE_FLD_XY_RL |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_xy_rl.F |
57 |
WRITE_FLD_XY_RL |
I iRec, myIter, myThid ) |
./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 |
17 |
WRITE_FLD_XY_RS |
INTEGER myIter |
./pkg/rw/write_fld_xy_rs.F |
41 |
WRITE_FLD_XY_RS |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_xy_rs.F |
57 |
WRITE_FLD_XY_RS |
I iRec, myIter, myThid ) |
./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 |
17 |
WRITE_FLD_XYZ_RL |
INTEGER myIter |
./pkg/rw/write_fld_xyz_rl.F |
41 |
WRITE_FLD_XYZ_RL |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_xyz_rl.F |
57 |
WRITE_FLD_XYZ_RL |
I iRec, myIter, myThid ) |
./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 |
17 |
WRITE_FLD_XYZ_RS |
INTEGER myIter |
./pkg/rw/write_fld_xyz_rs.F |
41 |
WRITE_FLD_XYZ_RS |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_xyz_rs.F |
57 |
WRITE_FLD_XYZ_RS |
I iRec, myIter, myThid ) |
./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 |
29 |
WRITE_GLVEC_RL |
INTEGER myIter |
./pkg/rw/write_glvec_rl.F |
66 |
WRITE_GLVEC_RL |
I bi, bj, iRec, myIter, myThid ) |
./pkg/rw/write_glvec_rs.F |
10 |
WRITE_GLVEC_RS |
I pref, suff, array, sizArr, myIter, myThid ) |
./pkg/rw/write_glvec_rs.F |
29 |
WRITE_GLVEC_RS |
INTEGER myIter |
./pkg/rw/write_glvec_rs.F |
66 |
WRITE_GLVEC_RS |
I bi, bj, iRec, myIter, myThid ) |
./pkg/rw/write_local_rl.F |
11 |
WRITE_LOCAL_RL |
I bi, bj, iRec, myIter, myThArg ) |
./pkg/rw/write_local_rl.F |
39 |
WRITE_LOCAL_RL |
INTEGER myIter |
./pkg/rw/write_local_rl.F |
66 |
WRITE_LOCAL_RL |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_local_rl.F |
86 |
WRITE_LOCAL_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_local_rl.F |
91 |
WRITE_LOCAL_RL |
I bi, bj, iRec, myIter, myThArg ) |
./pkg/rw/write_local_rs.F |
11 |
WRITE_LOCAL_RS |
I bi, bj, iRec, myIter, myThArg ) |
./pkg/rw/write_local_rs.F |
39 |
WRITE_LOCAL_RS |
INTEGER myIter |
./pkg/rw/write_local_rs.F |
66 |
WRITE_LOCAL_RS |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_local_rs.F |
86 |
WRITE_LOCAL_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_local_rs.F |
91 |
WRITE_LOCAL_RS |
I bi, bj, iRec, myIter, myThArg ) |
./pkg/rw/write_rec.F |
103 |
WRITE_REC_XY_RS |
INTEGER myIter |
./pkg/rw/write_rec.F |
139 |
WRITE_REC_XY_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
148 |
WRITE_REC_XY_RL |
SUBROUTINE WRITE_REC_XY_RL( fName,field,iRec,myIter,myThid ) |
./pkg/rw/write_rec.F |
167 |
WRITE_REC_XY_RL |
INTEGER myIter |
./pkg/rw/write_rec.F |
203 |
WRITE_REC_XY_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
212 |
WRITE_REC_XYZ_RS |
SUBROUTINE WRITE_REC_XYZ_RS( fName,field,iRec,myIter,myThid ) |
./pkg/rw/write_rec.F |
231 |
WRITE_REC_XYZ_RS |
INTEGER myIter |
./pkg/rw/write_rec.F |
267 |
WRITE_REC_XYZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
276 |
WRITE_REC_XYZ_RL |
SUBROUTINE WRITE_REC_XYZ_RL( fName,field,iRec,myIter,myThid ) |
./pkg/rw/write_rec.F |
295 |
WRITE_REC_XYZ_RL |
INTEGER myIter |
./pkg/rw/write_rec.F |
331 |
WRITE_REC_XYZ_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
342 |
WRITE_REC_3D_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
364 |
WRITE_REC_3D_RS |
INTEGER myIter |
./pkg/rw/write_rec.F |
397 |
WRITE_REC_3D_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
408 |
WRITE_REC_3D_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
430 |
WRITE_REC_3D_RL |
INTEGER myIter |
./pkg/rw/write_rec.F |
463 |
WRITE_REC_3D_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
474 |
WRITE_REC_LEV_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
497 |
WRITE_REC_LEV_RS |
INTEGER myIter |
./pkg/rw/write_rec.F |
530 |
WRITE_REC_LEV_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
541 |
WRITE_REC_LEV_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
564 |
WRITE_REC_LEV_RL |
INTEGER myIter |
./pkg/rw/write_rec.F |
597 |
WRITE_REC_LEV_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
609 |
WRITE_REC_XZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
629 |
WRITE_REC_XZ_RS |
INTEGER myIter |
./pkg/rw/write_rec.F |
662 |
WRITE_REC_XZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
674 |
WRITE_REC_XZ_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
695 |
WRITE_REC_XZ_RL |
INTEGER myIter |
./pkg/rw/write_rec.F |
728 |
WRITE_REC_XZ_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
740 |
WRITE_REC_YZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
761 |
WRITE_REC_YZ_RS |
INTEGER myIter |
./pkg/rw/write_rec.F |
795 |
WRITE_REC_YZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
807 |
WRITE_REC_YZ_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
828 |
WRITE_REC_YZ_RL |
INTEGER myIter |
./pkg/rw/write_rec.F |
84 |
WRITE_REC_XY_RS |
SUBROUTINE WRITE_REC_XY_RS( fName,field,iRec,myIter,myThid ) |
./pkg/rw/write_rec.F |
862 |
WRITE_REC_YZ_RL |
I iRec, myIter, myThid ) |
./pkg/salt_plume/salt_plume_apply.F |
13 |
SALT_PLUME_APPLY |
I myTime, myIter, myThid ) |
./pkg/salt_plume/salt_plume_apply.F |
59 |
SALT_PLUME_APPLY |
INTEGER myIter, myThid |
./pkg/salt_plume/salt_plume_calc_depth.F |
14 |
SALT_PLUME_CALC_DEPTH |
I bi, bj, myTime, myIter, myThid ) |
./pkg/salt_plume/salt_plume_calc_depth.F |
50 |
SALT_PLUME_CALC_DEPTH |
INTEGER myIter |
./model/src/forcing_surf_relax.F |
12 |
FORCING_SURF_RELAX |
I myTime, myIter, myThid ) |
./model/src/forcing_surf_relax.F |
46 |
FORCING_SURF_RELAX |
INTEGER myIter |
./pkg/salt_plume/salt_plume_do_exch.F |
10 |
SALT_PLUME_DO_EXCH |
I myTime, myIter, myThid ) |
./pkg/salt_plume/salt_plume_do_exch.F |
40 |
SALT_PLUME_DO_EXCH |
INTEGER myIter |
./pkg/salt_plume/salt_plume_forcing_surf.F |
11 |
SALT_PLUME_FORCING_SURF |
I myTime,myIter,myThid ) |
./pkg/salt_plume/salt_plume_forcing_surf.F |
40 |
SALT_PLUME_FORCING_SURF |
INTEGER myIter |
./pkg/salt_plume/salt_plume_frac.F |
15 |
SALT_PLUME_FRAC |
I myTime, myIter, myThid ) |
./pkg/salt_plume/salt_plume_frac.F |
58 |
SALT_PLUME_FRAC |
INTEGER myIter |
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
12 |
SALT_PLUME_TENDENCY_APPLY_S |
I myTime, myIter, myThid ) |
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
43 |
SALT_PLUME_TENDENCY_APPLY_S |
INTEGER myIter |
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
12 |
SALT_PLUME_TENDENCY_APPLY_T |
I myTime, myIter, myThid ) |
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
43 |
SALT_PLUME_TENDENCY_APPLY_T |
INTEGER myIter |
./pkg/salt_plume/salt_plume_volfrac.F |
10 |
SALT_PLUME_VOLFRAC |
I bi, bj, myTime, myIter, myThid ) |
./pkg/salt_plume/salt_plume_volfrac.F |
54 |
SALT_PLUME_VOLFRAC |
INTEGER myIter |
./model/src/forward_step.F |
1018 |
FORWARD_STEP |
CALL DO_STAGGER_FIELDS_EXCHANGES( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1025 |
FORWARD_STEP |
CALL DO_STATEVARS_DIAGS( myTime, 1, myIter, myThid ) |
./model/src/forward_step.F |
1037 |
FORWARD_STEP |
CALL THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1052 |
FORWARD_STEP |
CALL TRACERS_CORRECTION_STEP(myTime, myIter, myThid) |
./model/src/forward_step.F |
1076 |
FORWARD_STEP |
CALL LONGSTEP_THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1108 |
FORWARD_STEP |
CALL GCHEM_FORCING_SEP( myTime,myIter,myThid ) |
./model/src/forward_step.F |
1126 |
FORWARD_STEP |
CALL DO_STATEVARS_DIAGS( myTime, 2, myIter, myThid ) |
./model/src/forward_step.F |
1140 |
FORWARD_STEP |
CALL STEP_FIZHI_CORR ( myTime, myIter, myThid, dTtracerLev(1) ) |
./model/src/forward_step.F |
1149 |
FORWARD_STEP |
CALL FLT_MAIN( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1157 |
FORWARD_STEP |
CALL DO_STATEVARS_TAVE( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1163 |
FORWARD_STEP |
CALL NEST_PARENT_IO_2( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1169 |
FORWARD_STEP |
CALL NEST_CHILD_TRANSP( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1177 |
FORWARD_STEP |
CALL MONITOR( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1186 |
FORWARD_STEP |
CALL COST_TILE ( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1196 |
FORWARD_STEP |
modelEnd = myTime.EQ.endTime .OR. myIter.EQ.nEndIter |
./model/src/forward_step.F |
1205 |
FORWARD_STEP |
CALL DO_THE_MODEL_IO( modelEnd, myTime, myIter, myThid ) |
./model/src/forward_step.F |
1212 |
FORWARD_STEP |
CALL PTRACERS_RESET( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1219 |
FORWARD_STEP |
CALL DO_WRITE_PICKUP( modelEnd, myTime, myIter, myThid ) |
./model/src/forward_step.F |
379 |
FORWARD_STEP |
INTEGER myIter |
./model/src/forward_step.F |
404 |
FORWARD_STEP |
myIter = nIter0 + (iloop-1) |
./model/src/forward_step.F |
412 |
FORWARD_STEP |
myIterBeg = myIter |
./model/src/forward_step.F |
429 |
FORWARD_STEP |
CALL RESET_NLFS_VARS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
437 |
FORWARD_STEP |
CALL UPDATE_R_STAR( .FALSE., myTime, myIter, myThid ) |
./model/src/forward_step.F |
446 |
FORWARD_STEP |
CALL UPDATE_SURF_DR( .FALSE., myTime, myIter, myThid ) |
./model/src/forward_step.F |
463 |
FORWARD_STEP |
CALL PTRACERS_SWITCH_ONOFF( myTime, myIter, myThid ) |
./model/src/forward_step.F |
470 |
FORWARD_STEP |
CALL DIAGNOSTICS_SWITCH_ONOFF( myTime, myIter, myThid ) |
./model/src/forward_step.F |
473 |
FORWARD_STEP |
CALL DO_STATEVARS_DIAGS( myTime, 0, myIter, myThid ) |
./model/src/forward_step.F |
480 |
FORWARD_STEP |
CALL NEST_CHILD_SETMEMO( myTime, myIter, myThid ) |
./model/src/forward_step.F |
486 |
FORWARD_STEP |
CALL NEST_PARENT_IO_1( myTime, myIter, myThid ) |
./model/src/forward_step.F |
502 |
FORWARD_STEP |
CALL LOAD_FIELDS_DRIVER( myTime, myIter, myThid ) |
./model/src/forward_step.F |
513 |
FORWARD_STEP |
CALL BULKF_FORCING( myTime, myIter, myThid ) |
./model/src/forward_step.F |
526 |
FORWARD_STEP |
CALL CHEAPAML( myTime, myIter,myThid ) |
./model/src/forward_step.F |
535 |
FORWARD_STEP |
CALL CTRL_MAP_FORCING( myTime, myIter, myThid ) |
./model/src/forward_step.F |
541 |
FORWARD_STEP |
CALL DUMMY_IN_STEPPING( myTime, myIter, myThid ) |
./model/src/forward_step.F |
549 |
FORWARD_STEP |
CALL CPL_EXPORT_IMPORT_DATA( myTime, myIter, myThid ) |
./model/src/forward_step.F |
557 |
FORWARD_STEP |
CALL OASIS_PUT( myTime, myIter, myThid ) |
./model/src/forward_step.F |
559 |
FORWARD_STEP |
CALL OASIS_GET( myTime, myIter, myThid ) |
./model/src/forward_step.F |
570 |
FORWARD_STEP |
CALL EBM_DRIVER ( myTime, myIter, myThid ) |
./model/src/forward_step.F |
581 |
FORWARD_STEP |
CALL DO_ATMOSPHERIC_PHYS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
616 |
FORWARD_STEP |
CALL DO_OCEANIC_PHYS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
61 |
FORWARD_STEP |
SUBROUTINE FORWARD_STEP( iloop, myTime, myIter, myThid ) |
./model/src/forward_step.F |
621 |
FORWARD_STEP |
CALL STREAMICE_TIMESTEP ( myThid, myIter, |
./model/src/forward_step.F |
664 |
FORWARD_STEP |
CALL GCHEM_CALC_TENDENCY( myTime, myIter, myThid ) |
./model/src/forward_step.F |
736 |
FORWARD_STEP |
CALL LONGSTEP_AVERAGE( myTime, myIter, myThid ) |
./model/src/forward_step.F |
745 |
FORWARD_STEP |
CALL LONGSTEP_THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
759 |
FORWARD_STEP |
CALL THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
773 |
FORWARD_STEP |
CALL LONGSTEP_AVERAGE( myTime, myIter, myThid ) |
./model/src/forward_step.F |
782 |
FORWARD_STEP |
CALL LONGSTEP_THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
791 |
FORWARD_STEP |
CALL DO_STAGGER_FIELDS_EXCHANGES( myTime, myIter, myThid ) |
./model/src/forward_step.F |
815 |
FORWARD_STEP |
CALL DYNAMICS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
830 |
FORWARD_STEP |
myIter = nIter0 + iLoop |
./model/src/forward_step.F |
836 |
FORWARD_STEP |
CALL MNC_UPDATE_TIME( myTime, myIter, myThid ) |
./model/src/forward_step.F |
847 |
FORWARD_STEP |
CALL OFFLINE_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/forward_step.F |
862 |
FORWARD_STEP |
CALL UPDATE_R_STAR( .TRUE., myTime, myIter, myThid ) |
./model/src/forward_step.F |
867 |
FORWARD_STEP |
CALL UPDATE_SIGMA( etaH, myTime, myIter, myThid ) |
./model/src/forward_step.F |
875 |
FORWARD_STEP |
CALL UPDATE_SURF_DR( .TRUE., myTime, myIter, myThid ) |
./model/src/forward_step.F |
897 |
FORWARD_STEP |
CALL UPDATE_CG2D( myTime, myIter, myThid ) |
./model/src/forward_step.F |
910 |
FORWARD_STEP |
& myTime, myIter, myThid ) |
./model/src/forward_step.F |
912 |
FORWARD_STEP |
CALL SHAP_FILT_APPLY_UV( gU,gV,myTime,myIter,myThid) |
./model/src/forward_step.F |
942 |
FORWARD_STEP |
CALL SOLVE_FOR_PRESSURE(myTime, myIter, myThid) |
./model/src/forward_step.F |
958 |
FORWARD_STEP |
CALL MOMENTUM_CORRECTION_STEP(myTime, myIter, myThid) |
./model/src/forward_step.F |
972 |
FORWARD_STEP |
CALL INTEGR_CONTINUITY( uVel, vVel, myTime, myIter, myThid) |
./model/src/forward_step.F |
987 |
FORWARD_STEP |
CALL CALC_R_STAR(etaH, myTime, myIter, myThid ) |
./model/src/forward_step.F |
997 |
FORWARD_STEP |
CALL CALC_SURF_DR(etaH, myTime, myIter, myThid ) |
./pkg/sbo/sbo_calc.F |
13 |
SBO_CALC |
SUBROUTINE SBO_CALC( myTime, myIter, myThid ) |
./pkg/sbo/sbo_calc.F |
86 |
SBO_CALC |
INTEGER myIter, myThid |
./pkg/sbo/sbo_output.F |
102 |
SBO_OUTPUT |
I 0, 0, irecord, myIter, myThid ) |
./pkg/sbo/sbo_output.F |
10 |
SBO_OUTPUT |
SUBROUTINE SBO_OUTPUT( myTime, myIter, myThid ) |
./pkg/sbo/sbo_output.F |
113 |
SBO_OUTPUT |
IF ( myIter .EQ. nIter0 .OR. |
./pkg/sbo/sbo_output.F |
31 |
SBO_OUTPUT |
INTEGER myIter |
./pkg/sbo/sbo_output.F |
87 |
SBO_OUTPUT |
irecord = myIter - nIter0 + 1 |
./pkg/seaice/dynsolver.F |
10 |
DYNSOLVER |
SUBROUTINE DYNSOLVER( myTime, myIter, myThid ) |
./pkg/seaice/dynsolver.F |
42 |
DYNSOLVER |
INTEGER myIter |
./model/src/freeze_surface.F |
10 |
FREEZE_SURFACE |
SUBROUTINE FREEZE_SURFACE( myTime, myIter, myThid ) |
./model/src/freeze_surface.F |
35 |
FREEZE_SURFACE |
INTEGER myIter |
./pkg/seaice/seaice_ad_dump.F |
113 |
SEAICE_AD_DUMP |
& 1, adarea, 1, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
116 |
SEAICE_AD_DUMP |
& 1, adheff, 1, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
119 |
SEAICE_AD_DUMP |
& 1, adhsnow, 1, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
124 |
SEAICE_AD_DUMP |
& 1, aduice, 1, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
127 |
SEAICE_AD_DUMP |
& 1, advice, 1, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
135 |
SEAICE_AD_DUMP |
& 1, adarea, dumpAdRecSi, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
138 |
SEAICE_AD_DUMP |
& 1, adheff, dumpAdRecSi, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
13 |
SEAICE_AD_DUMP |
SUBROUTINE SEAICE_AD_DUMP( myTime, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
141 |
SEAICE_AD_DUMP |
& 1, adhsnow, dumpAdRecSi, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
146 |
SEAICE_AD_DUMP |
& 1, aduice, dumpAdRecSi, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
149 |
SEAICE_AD_DUMP |
& 1, advice, dumpAdRecSi, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
156 |
SEAICE_AD_DUMP |
& suff, var2Du, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
158 |
SEAICE_AD_DUMP |
& var2Du, dumpAdRecMn, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
161 |
SEAICE_AD_DUMP |
& suff, var2Du, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
163 |
SEAICE_AD_DUMP |
& var2Du, dumpAdRecMn, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
166 |
SEAICE_AD_DUMP |
& suff, var2Du, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
168 |
SEAICE_AD_DUMP |
& var2Du, dumpAdRecMn, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
174 |
SEAICE_AD_DUMP |
& suff, var2Du, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
176 |
SEAICE_AD_DUMP |
& var2Du, dumpAdRecMn, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
178 |
SEAICE_AD_DUMP |
& suff, var2Dv, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
180 |
SEAICE_AD_DUMP |
& var2Dv, dumpAdRecMn, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
190 |
SEAICE_AD_DUMP |
CALL MNC_CW_I_W_S('I','adseaice',0,0,'iter',myIter,myThid) |
./pkg/seaice/seaice_ad_dump.F |
54 |
SEAICE_AD_DUMP |
INTEGER myIter |
./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_advdiff.F |
14 |
SEAICE_ADVDIFF |
I uc, vc, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
227 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
235 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
270 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
278 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
301 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
309 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
337 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
345 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
369 |
SEAICE_ADVDIFF |
CALL SEAICE_ITD_SUM(bi, bj, myTime, myIter, myThid) |
./pkg/seaice/seaice_advdiff.F |
380 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
388 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
446 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
454 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
52 |
SEAICE_ADVDIFF |
INTEGER myIter |
./pkg/seaice/seaice_advdiff.F |
576 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
619 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
645 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
677 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
701 |
SEAICE_ADVDIFF |
CALL SEAICE_ITD_SUM(bi, bj, myTime, myIter, myThid) |
./pkg/seaice/seaice_advdiff.F |
721 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advection.F |
186 |
SEAICE_ADVECTION |
& .AND. myIter.EQ.nIter0 |
./pkg/seaice/seaice_advection.F |
22 |
SEAICE_ADVECTION |
I bi, bj, myTime, myIter, myThid) |
./pkg/seaice/seaice_advection.F |
758 |
SEAICE_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
./pkg/seaice/seaice_advection.F |
95 |
SEAICE_ADVECTION |
INTEGER myIter |
./pkg/seaice/seaice_bottomdrag_coeffs.F |
23 |
SEAICE_BOTTOMDRAG_COEFFS |
I iStep, myTime, myIter, myThid ) |
./pkg/seaice/seaice_bottomdrag_coeffs.F |
56 |
SEAICE_BOTTOMDRAG_COEFFS |
INTEGER myIter |
./pkg/seaice/seaice_budget_ocean.F |
11 |
SEAICE_BUDGET_OCEAN |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_budget_ocean.F |
52 |
SEAICE_BUDGET_OCEAN |
INTEGER bi, bj, myIter, myThid |
./pkg/seaice/seaice_calc_ice_strength.F |
135 |
SEAICE_CALC_ICE_STRENGTH |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_ice_strength.F |
13 |
SEAICE_CALC_ICE_STRENGTH |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_ice_strength.F |
47 |
SEAICE_CALC_ICE_STRENGTH |
INTEGER myIter |
./pkg/seaice/seaice_calc_lhs.F |
101 |
SEAICE_CALC_LHS |
IF ( myIter.EQ.nIter0 .AND. SEAICEmomStartBDF.EQ.0 ) THEN |
./pkg/seaice/seaice_calc_lhs.F |
134 |
SEAICE_CALC_LHS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_lhs.F |
15 |
SEAICE_CALC_LHS |
I newtonIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_lhs.F |
205 |
SEAICE_CALC_LHS |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_lhs.F |
63 |
SEAICE_CALC_LHS |
INTEGER myIter |
./pkg/seaice/seaice_calc_residual.F |
100 |
SEAICE_CALC_RESIDUAL |
I krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_residual.F |
104 |
SEAICE_CALC_RESIDUAL |
I krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_residual.F |
116 |
SEAICE_CALC_RESIDUAL |
I newtonIter, krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_residual.F |
128 |
SEAICE_CALC_RESIDUAL |
I newtonIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_residual.F |
12 |
SEAICE_CALC_RESIDUAL |
I newtonIter, krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_residual.F |
44 |
SEAICE_CALC_RESIDUAL |
INTEGER myIter |
./pkg/seaice/seaice_calc_residual.F |
85 |
SEAICE_CALC_RESIDUAL |
I krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_residual.F |
95 |
SEAICE_CALC_RESIDUAL |
I krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_rhs.F |
11 |
SEAICE_CALC_RHS |
I newtonIter, krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_rhs.F |
45 |
SEAICE_CALC_RHS |
INTEGER myIter |
./pkg/seaice/seaice_calc_strainrates.F |
20 |
SEAICE_CALC_STRAINRATES |
I iStep, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_strainrates.F |
65 |
SEAICE_CALC_STRAINRATES |
INTEGER myIter |
./pkg/seaice/seaice_calc_stressdiv.F |
108 |
SEAICE_CALC_STRESS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_stressdiv.F |
138 |
SEAICE_CALC_STRESS |
INTEGER myIter |
./pkg/seaice/seaice_calc_stressdiv.F |
20 |
SEAICE_CALC_STRESSDIV |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_stressdiv.F |
50 |
SEAICE_CALC_STRESSDIV |
INTEGER myIter |
./pkg/seaice/seaice_calc_stressdiv.F |
77 |
SEAICE_CALC_STRESSDIV |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_viscosities.F |
14 |
SEAICE_CALC_VISCOSITIES |
I iStep, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_viscosities.F |
40 |
SEAICE_CALC_VISCOSITIES |
INTEGER myIter |
./pkg/seaice/seaice_check_pickup.F |
12 |
SEAICE_CHECK_PICKUP |
I myIter, myThid ) |
./pkg/seaice/seaice_check_pickup.F |
212 |
SEAICE_CHECK_PICKUP |
CALL SEAICE_ITD_PICKUP( myIter, myThid ) |
./pkg/seaice/seaice_check_pickup.F |
40 |
SEAICE_CHECK_PICKUP |
INTEGER myIter |
./pkg/seaice/seaice_cost_accumulate_mean.F |
29 |
SEAICE_COST_ACCUMULATE_MEAN |
INTEGER myIter |
./pkg/seaice/seaice_cost_accumulate_mean.F |
7 |
SEAICE_COST_ACCUMULATE_MEAN |
& myTime, myIter, myThid ) |
./pkg/seaice/seaice_cost_sensi.F |
22 |
SEAICE_COST_SENSI |
integer myIter |
./pkg/seaice/seaice_cost_sensi.F |
28 |
SEAICE_COST_SENSI |
CALL COST_ICE_TEST ( myTime, myIter, myThid ) |
./pkg/seaice/seaice_cost_sensi.F |
31 |
SEAICE_COST_SENSI |
& myTime, myIter, myThid) |
./pkg/seaice/seaice_cost_sensi.F |
6 |
SEAICE_COST_SENSI |
subroutine SEAICE_COST_SENSI( myTime, myIter, myThid ) |
./pkg/seaice/seaice_diagnostics_state.F |
10 |
SEAICE_DIAGNOSTICS_STATE |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_diagnostics_state.F |
196 |
SEAICE_DIAGNOSTICS_STATE |
I 0, myTime, myIter, myThid ) |
./pkg/seaice/seaice_diagnostics_state.F |
208 |
SEAICE_DIAGNOSTICS_STATE |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_diagnostics_state.F |
37 |
SEAICE_DIAGNOSTICS_STATE |
INTEGER myIter |
./pkg/seaice/seaice_diffusion.F |
17 |
SEAICE_DIFFUSION |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_diffusion.F |
56 |
SEAICE_DIFFUSION |
INTEGER myIter |
./pkg/seaice/seaice_do_ridging.F |
13 |
SEAICE_DO_RIDGING |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_do_ridging.F |
159 |
SEAICE_DO_RIDGING |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_do_ridging.F |
444 |
SEAICE_DO_RIDGING |
& n, ' in timestep ', myIter |
./pkg/seaice/seaice_do_ridging.F |
451 |
SEAICE_DO_RIDGING |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_do_ridging.F |
50 |
SEAICE_DO_RIDGING |
INTEGER myIter |
./pkg/seaice/seaice_dynsolver.F |
12 |
SEAICE_DYNSOLVER |
SUBROUTINE SEAICE_DYNSOLVER( myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
201 |
SEAICE_DYNSOLVER |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
265 |
SEAICE_DYNSOLVER |
CALL SEAICE_CALC_ICE_STRENGTH( bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
276 |
SEAICE_DYNSOLVER |
CALL SEAICE_FREEDRIFT( myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
309 |
SEAICE_DYNSOLVER |
CALL SEAICE_EVP( myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
315 |
SEAICE_DYNSOLVER |
CALL SEAICE_LSR( myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
324 |
SEAICE_DYNSOLVER |
CALL SEAICE_KRYLOV( myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
335 |
SEAICE_DYNSOLVER |
CALL SEAICE_JFNK( myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
361 |
SEAICE_DYNSOLVER |
CALL SEAICE_OCEAN_STRESS ( myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
50 |
SEAICE_DYNSOLVER |
INTEGER myIter |
./pkg/seaice/seaice_evp.F |
17 |
SEAICE_EVP |
SUBROUTINE SEAICE_EVP( myTime, myIter, myThid ) |
./pkg/seaice/seaice_evp.F |
326 |
SEAICE_EVP |
I iEVPstep, myTime, myIter, myThid ) |
./pkg/seaice/seaice_evp.F |
54 |
SEAICE_EVP |
INTEGER myIter |
./pkg/seaice/seaice_evp.F |
748 |
SEAICE_EVP |
I iEVPstep, myTime, myIter, myThid ) |
./pkg/seaice/seaice_evp.F |
758 |
SEAICE_EVP |
I iEVPstep, myTime, myIter, myThid ) |
./pkg/seaice/seaice_evp.F |
831 |
SEAICE_EVP |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_fake.F |
10 |
SEAICE_FAKE |
SUBROUTINE SEAICE_FAKE( myTime, myIter, myThid ) |
./pkg/seaice/seaice_fake.F |
35 |
SEAICE_FAKE |
INTEGER myIter, myThid |
./pkg/seaice/seaice_freedrift.F |
10 |
SEAICE_FREEDRIFT |
SUBROUTINE SEAICE_FREEDRIFT( myTime, myIter, myThid ) |
./pkg/seaice/seaice_freedrift.F |
36 |
SEAICE_FREEDRIFT |
INTEGER myIter |
./pkg/seaice/seaice_get_dynforcing.F |
15 |
SEAICE_GET_DYNFORCING |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_get_dynforcing.F |
62 |
SEAICE_GET_DYNFORCING |
INTEGER myIter |
./pkg/seaice/seaice_growth.F |
18 |
SEAICE_GROWTH |
SUBROUTINE SEAICE_GROWTH( myTime, myIter, myThid ) |
./pkg/seaice/seaice_growth.F |
1947 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_growth.F |
1948 |
SEAICE_GROWTH |
CALL SEAICE_ITD_REDIST(bi, bj, myTime, myIter, myThid) |
./pkg/seaice/seaice_growth.F |
1951 |
SEAICE_GROWTH |
CALL SEAICE_ITD_SUM(bi, bj, myTime, myIter, myThid) |
./pkg/seaice/seaice_growth.F |
2440 |
SEAICE_GROWTH |
CALL PLOT_FIELD_XYRL( QSW,'Current QSW ', myIter, myThid ) |
./pkg/seaice/seaice_growth.F |
2441 |
SEAICE_GROWTH |
CALL PLOT_FIELD_XYRL( QNET,'Current QNET ', myIter, myThid ) |
./pkg/seaice/seaice_growth.F |
2442 |
SEAICE_GROWTH |
CALL PLOT_FIELD_XYRL( EmPmR,'Current EmPmR ', myIter, myThid ) |
./pkg/seaice/seaice_growth.F |
56 |
SEAICE_GROWTH |
INTEGER myIter, myThid |
./pkg/seaice/seaice_growth.F |
751 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_growth.F |
842 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_itd_pickup.F |
13 |
SEAICE_ITD_PICKUP |
I myIter, myThid ) |
./pkg/seaice/seaice_itd_pickup.F |
182 |
SEAICE_ITD_PICKUP |
CALL SEAICE_ITD_REDIST( bi, bj, dummyTime, myIter, myThid) |
./pkg/seaice/seaice_itd_pickup.F |
183 |
SEAICE_ITD_PICKUP |
CALL SEAICE_ITD_SUM( bi, bj, dummyTime, myIter, myThid) |
./pkg/seaice/seaice_itd_pickup.F |
66 |
SEAICE_ITD_PICKUP |
INTEGER myIter |
./pkg/seaice/seaice_itd_redist.F |
13 |
SEAICE_ITD_REDIST |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_itd_redist.F |
61 |
SEAICE_ITD_REDIST |
INTEGER myIter |
./pkg/seaice/seaice_itd_remap.F |
17 |
SEAICE_ITD_REMAP |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_itd_remap.F |
197 |
SEAICE_ITD_REMAP |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_itd_remap.F |
232 |
SEAICE_ITD_REMAP |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_itd_remap.F |
288 |
SEAICE_ITD_REMAP |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_itd_remap.F |
376 |
SEAICE_ITD_REMAP_LINEAR |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_itd_remap.F |
400 |
SEAICE_ITD_REMAP_LINEAR |
INTEGER myIter |
./pkg/seaice/seaice_itd_remap.F |
488 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_itd_remap.F |
515 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
INTEGER myIter |
./pkg/seaice/seaice_itd_remap.F |
543 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& ' at (', i, j, ') in timestep ', myIter |
./pkg/seaice/seaice_itd_remap.F |
63 |
SEAICE_ITD_REMAP |
INTEGER myIter |
./pkg/seaice/seaice_itd_sum.F |
13 |
SEAICE_ITD_SUM |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_itd_sum.F |
56 |
SEAICE_ITD_SUM |
INTEGER myIter |
./pkg/seaice/seaice_jacvec.F |
12 |
SEAICE_JACVEC |
I newtonIter, krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_jacvec.F |
170 |
SEAICE_JACVEC |
I newtonIter, krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_jacvec.F |
45 |
SEAICE_JACVEC |
INTEGER myIter |
./pkg/seaice/seaice_jfnk.F |
138 |
SEAICE_JFNK |
IF ( myIter.EQ.nIter0 .AND. SEAICEmomStartBDF.EQ.0 ) THEN |
./pkg/seaice/seaice_jfnk.F |
17 |
SEAICE_JFNK |
SUBROUTINE SEAICE_JFNK( myTime, myIter, myThid ) |
./pkg/seaice/seaice_jfnk.F |
193 |
SEAICE_JFNK |
I newtonIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_jfnk.F |
287 |
SEAICE_JFNK |
I newtonIter, krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_jfnk.F |
293 |
SEAICE_JFNK |
I newtonIter, krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_jfnk.F |
303 |
SEAICE_JFNK |
& SEAICEnonLinIterMax*(myIter-nIter0)+newtonIter |
./pkg/seaice/seaice_jfnk.F |
339 |
SEAICE_JFNK |
I newtonIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_jfnk.F |
376 |
SEAICE_JFNK |
I myTime+deltaTclock, myIter+1, myThid ) |
./pkg/seaice/seaice_jfnk.F |
393 |
SEAICE_JFNK |
& ' %JFNK_MON: time step = ', myIter+1 |
./pkg/seaice/seaice_jfnk.F |
442 |
SEAICE_JFNK |
& myIter+1 |
./pkg/seaice/seaice_jfnk.F |
451 |
SEAICE_JFNK |
& krylovFails, ' times in timestep ', myIter+1 |
./pkg/seaice/seaice_jfnk.F |
459 |
SEAICE_JFNK |
& totalKrylovItersLoc, ' in timestep ', myIter+1 |
./pkg/seaice/seaice_jfnk.F |
477 |
SEAICE_JFNK_UPDATE |
I newtonIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_jfnk.F |
509 |
SEAICE_JFNK_UPDATE |
INTEGER myIter |
./pkg/seaice/seaice_jfnk.F |
563 |
SEAICE_JFNK_UPDATE |
I newtonIter, 0, myTime, myIter, myThid ) |
./pkg/seaice/seaice_jfnk.F |
56 |
SEAICE_JFNK |
INTEGER myIter |
./pkg/seaice/seaice_krylov.F |
138 |
SEAICE_KRYLOV |
IF ( myIter.EQ.nIter0 .AND. SEAICEmomStartBDF.EQ.0 ) THEN |
./pkg/seaice/seaice_krylov.F |
14 |
SEAICE_KRYLOV |
SUBROUTINE SEAICE_KRYLOV( myTime, myIter, myThid ) |
./pkg/seaice/seaice_krylov.F |
207 |
SEAICE_KRYLOV |
I 0, myTime, myIter, myThid ) |
./pkg/seaice/seaice_krylov.F |
217 |
SEAICE_KRYLOV |
I 0, myTime, myIter, myThid ) |
./pkg/seaice/seaice_krylov.F |
222 |
SEAICE_KRYLOV |
I 0, myTime, myIter, myThid ) |
./pkg/seaice/seaice_krylov.F |
226 |
SEAICE_KRYLOV |
I 0, myTime, myIter, myThid ) |
./pkg/seaice/seaice_krylov.F |
230 |
SEAICE_KRYLOV |
I picardIter, 0, myTime, myIter, myThid ) |
./pkg/seaice/seaice_krylov.F |
235 |
SEAICE_KRYLOV |
I picardIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_krylov.F |
349 |
SEAICE_KRYLOV |
I picardIter, krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_krylov.F |
355 |
SEAICE_KRYLOV |
I krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_krylov.F |
359 |
SEAICE_KRYLOV |
I picardIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_krylov.F |
380 |
SEAICE_KRYLOV |
& picardIterMax*(myIter-nIter0)+picardIter |
./pkg/seaice/seaice_krylov.F |
431 |
SEAICE_KRYLOV |
I myTime+deltaTclock, myIter+1, myThid ) |
./pkg/seaice/seaice_krylov.F |
448 |
SEAICE_KRYLOV |
& ' %KRYLOV_MON: time step = ', myIter+1 |
./pkg/seaice/seaice_krylov.F |
47 |
SEAICE_KRYLOV |
INTEGER myIter |
./pkg/seaice/seaice_krylov.F |
499 |
SEAICE_KRYLOV |
& myIter+1 |
./pkg/seaice/seaice_krylov.F |
508 |
SEAICE_KRYLOV |
& krylovFails, ' times in timestep ', myIter+1 |
./pkg/seaice/seaice_krylov.F |
516 |
SEAICE_KRYLOV |
& totalKrylovItersLoc, ' in timestep ', myIter+1 |
./pkg/seaice/seaice_lsr.F |
1015 |
SEAICE_RESIDUAL |
I calcMeanResid, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
1063 |
SEAICE_RESIDUAL |
INTEGER myIter |
./pkg/seaice/seaice_lsr.F |
1141 |
SEAICE_LSR_CALC_COEFFS |
I iMin, iMax, jMin, jMax, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
1168 |
SEAICE_LSR_CALC_COEFFS |
INTEGER myIter |
./pkg/seaice/seaice_lsr.F |
1232 |
SEAICE_LSR_CALC_COEFFS |
IF ( myIter.EQ.nIter0 .AND. SEAICEmomStartBDF.EQ.0 ) THEN |
./pkg/seaice/seaice_lsr.F |
1727 |
SEAICE_LSR_TRIDIAGU |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
1746 |
SEAICE_LSR_TRIDIAGU |
INTEGER myIter |
./pkg/seaice/seaice_lsr.F |
1872 |
SEAICE_LSR_TRIDIAGV |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
1891 |
SEAICE_LSR_TRIDIAGV |
INTEGER myIter |
./pkg/seaice/seaice_lsr.F |
27 |
SEAICE_LSR |
SUBROUTINE SEAICE_LSR( myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
326 |
SEAICE_LSR |
I ipass, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
331 |
SEAICE_LSR |
I ipass, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
336 |
SEAICE_LSR |
I ipass, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
347 |
SEAICE_LSR |
I ipass, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
472 |
SEAICE_LSR |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
494 |
SEAICE_LSR |
I iMin, iMax, jMin, jMax, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
543 |
SEAICE_LSR |
I printResidual, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
575 |
SEAICE_LSR |
I printResidual, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
628 |
SEAICE_LSR |
I printResidual, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
68 |
SEAICE_LSR |
INTEGER myIter |
./pkg/seaice/seaice_lsr.F |
730 |
SEAICE_LSR |
I iSubIter, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
788 |
SEAICE_LSR |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
796 |
SEAICE_LSR |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
874 |
SEAICE_LSR |
I printResidual, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
909 |
SEAICE_LSR |
& '(it=', myIter, ',', ipass,') did not converge :' |
./pkg/seaice/seaice_lsr.F |
987 |
SEAICE_LSR |
I 3, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
995 |
SEAICE_LSR |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_map_thsice.F |
13 |
SEAICE_MAP_THSICE |
SUBROUTINE SEAICE_MAP_THSICE( myTime, myIter, myThid ) |
./pkg/seaice/seaice_map_thsice.F |
41 |
SEAICE_MAP_THSICE |
INTEGER myIter |
./pkg/seaice/seaice_model.F |
13 |
SEAICE_MODEL |
SUBROUTINE SEAICE_MODEL( myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
148 |
SEAICE_MODEL |
CALL SEAICE_DYNSOLVER ( myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
152 |
SEAICE_MODEL |
CALL DYNSOLVER ( myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
169 |
SEAICE_MODEL |
CALL THSICE_DO_ADVECT( 0, 0, myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
184 |
SEAICE_MODEL |
CALL SEAICE_ADVDIFF( uIce, vIce, myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
194 |
SEAICE_MODEL |
CALL SEAICE_REG_RIDGE( myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
204 |
SEAICE_MODEL |
CALL SEAICE_GROWTH( myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
213 |
SEAICE_MODEL |
CALL SEAICE_TRACER_PHYS ( myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
298 |
SEAICE_MODEL |
CALL EXF_ADJOINT_SNAPSHOTS( 3, myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
55 |
SEAICE_MODEL |
INTEGER myIter |
./pkg/seaice/seaice_model.F |
82 |
SEAICE_MODEL |
CALL SEAICE_MAP_THSICE( myTime, myIter, myThid ) |
./pkg/seaice/seaice_mom_advection.F |
17 |
SEAICE_MOM_ADVECTION |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_mom_advection.F |
58 |
SEAICE_MOM_ADVECTION |
INTEGER myIter |
./pkg/seaice/seaice_monitor.F |
12 |
SEAICE_MONITOR |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_monitor.F |
32 |
SEAICE_MONITOR |
INTEGER myIter |
./pkg/seaice/seaice_monitor.F |
99 |
SEAICE_MONITOR |
CALL MON_OUT_I ('_tsnumber', myIter,mon_string_none,myThid) |
./pkg/seaice/seaice_monitor_ad.F |
108 |
ADSEAICE_MONITOR |
CALL MON_OUT_I ('_tsnumber', myIter,mon_string_none,myThid) |
./pkg/seaice/seaice_monitor_ad.F |
15 |
ADSEAICE_MONITOR |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_monitor_ad.F |
40 |
ADSEAICE_MONITOR |
INTEGER myIter |
./pkg/seaice/seaice_obcs_output.F |
100 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWa, 1,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
101 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWh, 2,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
102 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWsl, 3,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
103 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWsn, 4,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
104 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWuice, 5,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
105 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWvice, 6,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
13 |
SEAICE_OBCS_OUTPUT |
SUBROUTINE SEAICE_OBCS_OUTPUT( myTime, myIter, myThid ) |
./pkg/seaice/seaice_obcs_output.F |
38 |
SEAICE_OBCS_OUTPUT |
INTEGER myIter |
./pkg/seaice/seaice_obcs_output.F |
65 |
SEAICE_OBCS_OUTPUT |
WRITE(suff,'(I10.10)') myIter |
./pkg/seaice/seaice_obcs_output.F |
73 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNa, 1,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
74 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNh, 2,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
75 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNsl, 3,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
76 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNsn, 4,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
77 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNuice, 5,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
78 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNvice, 6,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
82 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSa, 1,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
83 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSh, 2,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
84 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSsl, 3,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
85 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSsn, 4,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
86 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSuice, 5,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
87 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSvice, 6,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
91 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEa, 1,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
92 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEh, 2,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
93 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEsl, 3,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
94 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEsn, 4,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
95 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEuice, 5,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
96 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEvice, 6,myIter,myThid) |
./pkg/seaice/seaice_ocean_stress.F |
33 |
SEAICE_OCEAN_STRESS |
INTEGER myIter |
./pkg/seaice/seaice_ocean_stress.F |
8 |
SEAICE_OCEAN_STRESS |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_oceandrag_coeffs.F |
18 |
SEAICE_OCEANDRAG_COEFFS |
I iStep, myTime, myIter, myThid ) |
./pkg/seaice/seaice_oceandrag_coeffs.F |
53 |
SEAICE_OCEANDRAG_COEFFS |
INTEGER myIter |
./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 |
129 |
SEAICE_OUTPUT |
IF ( myIter.NE.nIter0 ) THEN |
./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 |
13 |
SEAICE_OUTPUT |
SUBROUTINE SEAICE_OUTPUT( myTime, 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 |
148 |
SEAICE_OUTPUT |
& myIter, myThid ) |
./pkg/seaice/seaice_output.F |
150 |
SEAICE_OUTPUT |
& myIter, myThid ) |
./pkg/seaice/seaice_output.F |
152 |
SEAICE_OUTPUT |
& myIter, myThid ) |
./pkg/seaice/seaice_output.F |
155 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'HSALT.',suff,HSALT,myIter,myThid) |
./pkg/seaice/seaice_output.F |
163 |
SEAICE_OUTPUT |
& myIter, myThid ) |
./pkg/seaice/seaice_output.F |
170 |
SEAICE_OUTPUT |
& myIter,myThid) |
./pkg/seaice/seaice_output.F |
172 |
SEAICE_OUTPUT |
& myIter,myThid) |
./pkg/seaice/seaice_output.F |
174 |
SEAICE_OUTPUT |
& myIter,myThid) |
./pkg/seaice/seaice_output.F |
234 |
SEAICE_OUTPUT |
IF ( myIter .NE. nIter0 ) THEN |
./pkg/seaice/seaice_output.F |
241 |
SEAICE_OUTPUT |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_output.F |
288 |
SEAICE_OUTPUT |
CALL MNC_CW_I_W_S('I','sice_tave',0,0,'iter', myIter, myThid) |
./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 |
352 |
SEAICE_OUTPUT |
CALL SEAICE_MONITOR( myTime, myIter, myThid ) |
./pkg/seaice/seaice_output.F |
355 |
SEAICE_OUTPUT |
IF ( useOBCS ) CALL SEAICE_OBCS_OUTPUT( myTime, myIter, myThid ) |
./pkg/seaice/seaice_output.F |
44 |
SEAICE_OUTPUT |
INTEGER myIter |
./pkg/seaice/seaice_output.F |
89 |
SEAICE_OUTPUT |
CALL MNC_CW_I_W_S('I','sice',0,0,'iter', myIter, myThid) |
./pkg/seaice/seaice_preconditioner.F |
187 |
SEAICE_PRECONDITIONER |
I iMin, iMax, jMin, jMax, myTime, myIter, myThid ) |
./pkg/seaice/seaice_preconditioner.F |
23 |
SEAICE_PRECONDITIONER |
I newtonIter, krylovIter, myTime, myIter, myThid ) |
./pkg/seaice/seaice_preconditioner.F |
271 |
SEAICE_PRECONDITIONER |
I printResidual, myIter, myThid ) |
./pkg/seaice/seaice_preconditioner.F |
336 |
SEAICE_PRECONDITIONER |
I imin, imax, jmin, jmax, bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_preconditioner.F |
374 |
SEAICE_PRECONDITIONER |
I imin, imax, jmin, jmax, bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_preconditioner.F |
393 |
SEAICE_PRECONDITIONER |
I printResidual, myIter, myThid ) |
./pkg/seaice/seaice_preconditioner.F |
65 |
SEAICE_PRECONDITIONER |
INTEGER myIter |
./pkg/seaice/seaice_prepare_ridging.F |
17 |
SEAICE_PREPARE_RIDGING |
I iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_prepare_ridging.F |
56 |
SEAICE_PREPARE_RIDGING |
INTEGER myIter |
./pkg/seaice/seaice_reg_ridge.F |
15 |
SEAICE_REG_RIDGE |
SUBROUTINE SEAICE_REG_RIDGE( myTime, myIter, myThid ) |
./pkg/seaice/seaice_reg_ridge.F |
177 |
SEAICE_REG_RIDGE |
CALL SEAICE_ITD_SUM ( bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_reg_ridge.F |
356 |
SEAICE_REG_RIDGE |
CALL SEAICE_DO_RIDGING( bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_reg_ridge.F |
359 |
SEAICE_REG_RIDGE |
CALL SEAICE_ITD_REDIST( bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_reg_ridge.F |
362 |
SEAICE_REG_RIDGE |
CALL SEAICE_ITD_SUM ( bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_reg_ridge.F |
55 |
SEAICE_REG_RIDGE |
INTEGER myIter, myThid |
./pkg/seaice/seaice_solve4temp.F |
24 |
SEAICE_SOLVE4TEMP |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_solve4temp.F |
335 |
SEAICE_SOLVE4TEMP |
print '(A,i6)','ibi merged initialization ', myIter |
./pkg/seaice/seaice_solve4temp.F |
337 |
SEAICE_SOLVE4TEMP |
& 'ibi iter, TSL, TS ',myIter, |
./pkg/seaice/seaice_solve4temp.F |
340 |
SEAICE_SOLVE4TEMP |
& 'ibi iter, TMELT ',myIter,TMELT |
./pkg/seaice/seaice_solve4temp.F |
342 |
SEAICE_SOLVE4TEMP |
& 'ibi iter, HIA, EFKCON ',myIter, |
./pkg/seaice/seaice_solve4temp.F |
345 |
SEAICE_SOLVE4TEMP |
& 'ibi iter, HSNOW ',myIter, |
./pkg/seaice/seaice_solve4temp.F |
348 |
SEAICE_SOLVE4TEMP |
print '(A,i6)','ibi energy balance iterat ', myIter |
./pkg/seaice/seaice_solve4temp.F |
550 |
SEAICE_SOLVE4TEMP |
print '(A,i6)','ibi complete ', myIter |
./pkg/seaice/seaice_solve4temp.F |
87 |
SEAICE_SOLVE4TEMP |
INTEGER myIter, myThid |
./pkg/seaice/seaice_tracer_phys.F |
36 |
SEAICE_TRACER_PHYS |
INTEGER myIter, myThid |
./pkg/seaice/seaice_tracer_phys.F |
7 |
SEAICE_TRACER_PHYS |
SUBROUTINE SEAICE_TRACER_PHYS( myTime, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
105 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,fp,nITD,TICES, nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
10 |
SEAICE_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
112 |
SEAICE_WRITE_PICKUP |
I nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
119 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, AREA , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
123 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HEFF , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
127 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSNOW , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
135 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSALT , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
145 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
154 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, UICE , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
159 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, VICE , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
165 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, uIceNm1 , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
170 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, vIceNm1 , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
178 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
184 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
190 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
215 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
41 |
SEAICE_WRITE_PICKUP |
INTEGER myIter |
./pkg/seaice/seaice_write_pickup.F |
86 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,fp, nITD, TICES, -j, myIter,myThid ) |
./pkg/seaice/seaice_write_pickup.F |
89 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,fp, nITD, AREAITD, -j, myIter,myThid ) |
./pkg/seaice/seaice_write_pickup.F |
92 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,fp, nITD, HEFFITD, -j, myIter,myThid ) |
./pkg/seaice/seaice_write_pickup.F |
95 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,fp, nITD, HSNOWITD,-j, myIter,myThid ) |
./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 |
119 |
SHAP_FILT_APPLY_TS |
& myIter, myThid) |
./pkg/shap_filt/shap_filt_apply_ts.F |
12 |
SHAP_FILT_APPLY_TS |
I myTime, myIter, myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
142 |
SHAP_FILT_APPLY_TS |
I nShapS, exchInOut, Nr, myTime, myIter, myThid ) |
./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 |
168 |
SHAP_FILT_APPLY_TS |
& myIter, myThid) |
./pkg/shap_filt/shap_filt_apply_ts.F |
32 |
SHAP_FILT_APPLY_TS |
INTEGER myIter |
./pkg/shap_filt/shap_filt_apply_ts.F |
93 |
SHAP_FILT_APPLY_TS |
I nShapT, exchInOut, Nr, myTime, myIter, myThid ) |
./pkg/shap_filt/shap_filt_apply_uv.F |
11 |
SHAP_FILT_APPLY_UV |
I myTime, myIter, myThid ) |
./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 |
127 |
SHAP_FILT_APPLY_UV |
& myIter,myThid) |
./pkg/shap_filt/shap_filt_apply_uv.F |
129 |
SHAP_FILT_APPLY_UV |
& myIter,myThid) |
./pkg/shap_filt/shap_filt_apply_uv.F |
45 |
SHAP_FILT_APPLY_UV |
INTEGER myIter |
./pkg/shap_filt/shap_filt_tracer_s2.F |
12 |
SHAP_FILT_TRACER_S2 |
I myTime, myIter, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
53 |
SHAP_FILT_TRACER_S2 |
INTEGER myIter |
./pkg/shelfice/shelfice_forcing.F |
111 |
SHELFICE_FORCING_S |
I myTime, myIter, myThid ) |
./pkg/shelfice/shelfice_forcing.F |
147 |
SHELFICE_FORCING_S |
INTEGER myIter |
./pkg/shelfice/shelfice_forcing.F |
18 |
SHELFICE_FORCING_T |
I myTime, myIter, myThid ) |
./pkg/shelfice/shelfice_forcing.F |
54 |
SHELFICE_FORCING_T |
INTEGER myIter |
./pkg/shelfice/shelfice_forcing_surf.F |
12 |
SHELFICE_FORCING_SURF |
I myTime, myIter, myThid ) |
./pkg/shelfice/shelfice_forcing_surf.F |
43 |
SHELFICE_FORCING_SURF |
INTEGER myIter |
./pkg/shelfice/shelfice_output.F |
102 |
SHELFICE_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/shelfice/shelfice_output.F |
133 |
SHELFICE_OUTPUT |
IF ( myIter .NE. nIter0 ) THEN |
./pkg/shelfice/shelfice_output.F |
140 |
SHELFICE_OUTPUT |
I myTime, myIter, myThid ) |
./pkg/shelfice/shelfice_output.F |
168 |
SHELFICE_OUTPUT |
& 'iter', myIter, myThid ) |
./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 |
184 |
SHELFICE_OUTPUT |
& shelfice_frshFluxtave, myIter, myThid ) |
./pkg/shelfice/shelfice_output.F |
186 |
SHELFICE_OUTPUT |
& shelfice_heatFluxtave, myIter, myThid ) |
./pkg/shelfice/shelfice_output.F |
35 |
SHELFICE_OUTPUT |
INTEGER myIter |
./pkg/shelfice/shelfice_output.F |
57 |
SHELFICE_OUTPUT |
IF ( myIter .NE. nIter0 .AND. |
./pkg/shelfice/shelfice_output.F |
71 |
SHELFICE_OUTPUT |
CALL MNC_CW_I_W_S('I','shelfice',0,0,'iter', myIter, myThid) |
./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 |
87 |
SHELFICE_OUTPUT |
& shelficeFreshWaterFlux,myIter,myThid) |
./pkg/shelfice/shelfice_output.F |
89 |
SHELFICE_OUTPUT |
& shelficeHeatFlux,myIter,myThid) |
./pkg/shelfice/shelfice_output.F |
9 |
SHELFICE_OUTPUT |
SUBROUTINE SHELFICE_OUTPUT( myTime, myIter, myThid ) |
./pkg/shelfice/shelfice_step_icemass.F |
14 |
SHELFICE_STEP_ICEMASS |
I myTime, myIter, myThid ) |
./pkg/shelfice/shelfice_step_icemass.F |
39 |
SHELFICE_STEP_ICEMASS |
INTEGER myIter |
./pkg/shelfice/shelfice_thermodynamics.F |
16 |
SHELFICE_THERMODYNAMICS |
I myTime, myIter, myThid ) |
./pkg/shelfice/shelfice_thermodynamics.F |
237 |
SHELFICE_THERMODYNAMICS |
& myTime, myIter, myThid ) |
./pkg/shelfice/shelfice_thermodynamics.F |
572 |
SHELFICE_THERMODYNAMICS |
CALL SHELFICE_STEP_ICEMASS( myTime, myIter, myThid ) |
./pkg/shelfice/shelfice_thermodynamics.F |
59 |
SHELFICE_THERMODYNAMICS |
INTEGER myIter |
./pkg/shelfice/shelfice_write_pickup.F |
118 |
SHELFICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/shelfice/shelfice_write_pickup.F |
11 |
SHELFICE_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
./pkg/shelfice/shelfice_write_pickup.F |
32 |
SHELFICE_WRITE_PICKUP |
INTEGER myIter |
./pkg/shelfice/shelfice_write_pickup.F |
82 |
SHELFICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/smooth/smooth_diff2d.F |
166 |
SMOOTH_DIFF2D |
myIter(bi,bj)=iloop-1 |
./pkg/smooth/smooth_diff2d.F |
167 |
SMOOTH_DIFF2D |
IF ( myIter(bi,bj).EQ.0 ) THEN |
./pkg/smooth/smooth_diff2d.F |
31 |
SMOOTH_DIFF2D |
integer myThid,myIter(nSx,nSy),key_in |
./pkg/smooth/smooth_diff3d.F |
137 |
SMOOTH_DIFF3D |
myIter(bi,bj)=iloop-1 |
./pkg/smooth/smooth_diff3d.F |
143 |
SMOOTH_DIFF3D |
I 0, myIter(bi,bj), myThid ) |
./pkg/smooth/smooth_diff3d.F |
29 |
SMOOTH_DIFF3D |
integer myThid, myIter(nSx,nSy) |
./pkg/streamice/streamice_advect_2dtracer.F |
14 |
STREAMICE_ADVECT_2DTRACER |
& myIter, |
./pkg/streamice/streamice_advect_2dtracer.F |
212 |
STREAMICE_ADVECT_2DTRACER |
IF (myIter.eq.0) THEN |
./pkg/streamice/streamice_advect_2dtracer.F |
40 |
STREAMICE_ADVECT_2DTRACER |
INTEGER myThid, myIter, Gi, Gj |
./pkg/streamice/streamice_advect_thickness.F |
12 |
STREAMICE_ADVECT_THICKNESS |
SUBROUTINE STREAMICE_ADVECT_THICKNESS ( myThid,myIter,time_step ) |
./pkg/streamice/streamice_advect_thickness.F |
318 |
STREAMICE_ADVECT_THICKNESS |
& myIter, |
./pkg/streamice/streamice_advect_thickness.F |
36 |
STREAMICE_ADVECT_THICKNESS |
INTEGER myThid, myIter |
./pkg/streamice/streamice_cost_surf_accum.F |
12 |
STREAMICE_COST_SURF_ACCUM |
subroutine STREAMICE_COST_SURF_ACCUM ( myThid, myIter ) |
./pkg/streamice/streamice_cost_surf_accum.F |
43 |
STREAMICE_COST_SURF_ACCUM |
integer myThid, myIter |
./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_diagnostics_state.F |
26 |
STREAMICE_DIAGNOSTICS_STATE |
INTEGER myIter, myThid, i, j, bi, bj |
./pkg/streamice/streamice_diagnostics_state.F |
9 |
STREAMICE_DIAGNOSTICS_STATE |
SUBROUTINE STREAMICE_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./pkg/streamice/streamice_dump_ad.F |
106 |
ADSTREAMICE_DUMP |
WRITE(suff,'(I10.10)') myIter |
./pkg/streamice/streamice_dump_ad.F |
114 |
ADSTREAMICE_DUMP |
& 1, c_basal_friction_ad, 1, myIter, myThid ) |
./pkg/streamice/streamice_dump_ad.F |
117 |
ADSTREAMICE_DUMP |
& 1, h_streamice_ad, 1, myIter, myThid ) |
./pkg/streamice/streamice_dump_ad.F |
121 |
ADSTREAMICE_DUMP |
& 1, r_low_si_ad, 1, myIter, myThid ) |
./pkg/streamice/streamice_dump_ad.F |
125 |
ADSTREAMICE_DUMP |
& 1, b_glen_ad, 1, myIter, myThid ) |
./pkg/streamice/streamice_dump_ad.F |
128 |
ADSTREAMICE_DUMP |
& 1, bdot_streamice_ad, 1, myIter, myThid ) |
./pkg/streamice/streamice_fields_load.F |
131 |
STREAMICE_FIELDS_LOAD |
& nm0,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
137 |
STREAMICE_FIELDS_LOAD |
& nm0,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
143 |
STREAMICE_FIELDS_LOAD |
& nm0,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
149 |
STREAMICE_FIELDS_LOAD |
& nm0,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
158 |
STREAMICE_FIELDS_LOAD |
& nm0,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
163 |
STREAMICE_FIELDS_LOAD |
& nm0,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
171 |
STREAMICE_FIELDS_LOAD |
& nm0,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
203 |
STREAMICE_FIELDS_LOAD |
& nm1,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
209 |
STREAMICE_FIELDS_LOAD |
& nm1,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
215 |
STREAMICE_FIELDS_LOAD |
& nm1,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
221 |
STREAMICE_FIELDS_LOAD |
& nm1,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
247 |
STREAMICE_FIELDS_LOAD |
& nm1,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
253 |
STREAMICE_FIELDS_LOAD |
& nm1,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
273 |
STREAMICE_FIELDS_LOAD |
& nm1,myIter,myThid) |
./pkg/streamice/streamice_fields_load.F |
41 |
STREAMICE_FIELDS_LOAD |
INTEGER myIter |
./pkg/streamice/streamice_fields_load.F |
8 |
STREAMICE_FIELDS_LOAD |
I myTime, myIter, myThid ) |
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
40 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
INTEGER conv_flag, i, j, bi, bj, myIter |
./pkg/streamice/streamice_read_pickup.F |
130 |
STREAMICE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./pkg/streamice/streamice_read_pickup.F |
136 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/streamice/streamice_read_pickup.F |
138 |
STREAMICE_READ_PICKUP |
& nj, fp, 1, 1, 1, myIter, myThid ) |
./pkg/streamice/streamice_read_pickup.F |
140 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/streamice/streamice_read_pickup.F |
142 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/streamice/streamice_read_pickup.F |
144 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/streamice/streamice_read_pickup.F |
146 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/streamice/streamice_read_pickup.F |
148 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/streamice/streamice_read_pickup.F |
152 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/streamice/streamice_read_pickup.F |
154 |
STREAMICE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/streamice/streamice_read_pickup.F |
165 |
STREAMICE_READ_PICKUP |
I myIter, myThid ) |
./pkg/streamice/streamice_read_pickup.F |
26 |
STREAMICE_READ_PICKUP |
INTEGER myIter |
./pkg/streamice/streamice_timestep.F |
117 |
STREAMICE_TIMESTEP |
if (myIter.eq.0) then |
./pkg/streamice/streamice_timestep.F |
128 |
STREAMICE_TIMESTEP |
CALL STREAMICE_FIELDS_LOAD( myTime, myIter, myThid ) |
./pkg/streamice/streamice_timestep.F |
12 |
STREAMICE_TIMESTEP |
SUBROUTINE STREAMICE_TIMESTEP ( myThid, myIter, |
./pkg/streamice/streamice_timestep.F |
141 |
STREAMICE_TIMESTEP |
if (streamice_maxnliter_cpl.eq.0 .OR. myIter.eq.0) then |
./pkg/streamice/streamice_timestep.F |
169 |
STREAMICE_TIMESTEP |
WRITE(msgBuf,'(A,I3,A,1PE22.14)') 'ECSE_CRYO_SUM ', myIter, ', ', |
./pkg/streamice/streamice_timestep.F |
191 |
STREAMICE_TIMESTEP |
CALL STREAMICE_ADVECT_THICKNESS ( myThid, myIter, deltaT ) |
./pkg/streamice/streamice_timestep.F |
38 |
STREAMICE_TIMESTEP |
INTEGER myThid, myIter, iLoop |
./pkg/streamice/streamice_timestep.F |
95 |
STREAMICE_TIMESTEP |
& myIter, myTime/86400.0/365.0, 'seconds' |
./pkg/streamice/streamice_vel_solve.F |
132 |
STREAMICE_VEL_SOLVE |
& (streamice_maxnliter_cpl.eq.0 .and. myIter.eq.0)) then |
./pkg/streamice/streamice_vel_solve.F |
271 |
STREAMICE_VEL_SOLVE |
& (streamice_maxnliter_cpl.eq.0 .and. myIter.eq.0)) then |
./pkg/streamice/streamice_vel_solve.F |
287 |
STREAMICE_VEL_SOLVE |
& (streamice_maxnliter_cpl.eq.0 .and. myIter.eq.0)) then |
./pkg/streamice/streamice_vel_solve.F |
38 |
STREAMICE_VEL_SOLVE |
INTEGER myIter |
./pkg/streamice/streamice_vel_solve_openad.F |
109 |
STREAMICE_VEL_SOLVE_OPENAD |
& (streamice_maxnliter_cpl.eq.0 .and. myIter.eq.0)) then |
./pkg/streamice/streamice_vel_solve_openad.F |
38 |
STREAMICE_VEL_SOLVE_OPENAD |
INTEGER myIter |
./pkg/streamice/streamice_write_pickup.F |
100 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/streamice/streamice_write_pickup.F |
106 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/streamice/streamice_write_pickup.F |
112 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/streamice/streamice_write_pickup.F |
118 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/streamice/streamice_write_pickup.F |
11 |
STREAMICE_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
./pkg/streamice/streamice_write_pickup.F |
124 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/streamice/streamice_write_pickup.F |
131 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/streamice/streamice_write_pickup.F |
137 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/streamice/streamice_write_pickup.F |
173 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/streamice/streamice_write_pickup.F |
32 |
STREAMICE_WRITE_PICKUP |
INTEGER myIter |
./pkg/streamice/streamice_write_pickup.F |
78 |
STREAMICE_WRITE_PICKUP |
& -j, myIter, myThid ) |
./pkg/streamice/streamice_write_pickup.F |
88 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/streamice/streamice_write_pickup.F |
94 |
STREAMICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
15 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
213 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
248 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
261 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
279 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
301 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
./pkg/thsice/thsice_advdiff.F |
308 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
./pkg/thsice/thsice_advdiff.F |
321 |
THSICE_ADVDIFF |
& bi,bj,myIter, ' ; Npts,aveDiff,Epsil=', |
./pkg/thsice/thsice_advdiff.F |
359 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
396 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
412 |
THSICE_ADVDIFF |
& i,j,bi,bj,myIter |
./pkg/thsice/thsice_advdiff.F |
428 |
THSICE_ADVDIFF |
& bi,bj,myIter, ' ; Npts,aveDiff,Epsil=', |
./pkg/thsice/thsice_advdiff.F |
60 |
THSICE_ADVDIFF |
INTEGER myIter |
./pkg/thsice/thsice_advection.F |
168 |
THSICE_ADVECTION |
& .AND. myIter.EQ.nIter0 |
./pkg/thsice/thsice_advection.F |
21 |
THSICE_ADVECTION |
I bi, bj, myTime, myIter, myThid) |
./pkg/thsice/thsice_advection.F |
763 |
THSICE_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
./pkg/thsice/thsice_advection.F |
91 |
THSICE_ADVECTION |
INTEGER myIter |
./pkg/thsice/thsice_albedo.F |
14 |
THSICE_ALBEDO |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_albedo.F |
177 |
THSICE_ALBEDO |
& 'THSICE_ALBEDO: Problem, e.g., at:', myIter,ii,jj,bi,bj |
./pkg/thsice/thsice_albedo.F |
62 |
THSICE_ALBEDO |
INTEGER myIter |
./pkg/thsice/thsice_ave.F |
10 |
THSICE_AVE |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_ave.F |
42 |
THSICE_AVE |
INTEGER myIter |
./pkg/thsice/thsice_balance_frw.F |
11 |
THSICE_BALANCE_FRW |
I prcAtm, myTime, myIter, myThid ) |
./pkg/thsice/thsice_balance_frw.F |
44 |
THSICE_BALANCE_FRW |
INTEGER myIter |
./pkg/thsice/thsice_calc_thickn.F |
1130 |
THSICE_CALC_THICKN |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_calc_thickn.F |
133 |
THSICE_CALC_THICKN |
INTEGER myIter |
./pkg/thsice/thsice_calc_thickn.F |
17 |
THSICE_CALC_THICKN |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_check_conserv.F |
12 |
THSICE_CHECK_CONSERV |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_check_conserv.F |
41 |
THSICE_CHECK_CONSERV |
INTEGER myIter |
./pkg/thsice/thsice_diagnostics_state.F |
10 |
THSICE_DIAGNOSTICS_STATE |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_diagnostics_state.F |
35 |
THSICE_DIAGNOSTICS_STATE |
INTEGER myIter |
./pkg/thsice/thsice_diffusion.F |
13 |
THSICE_DIFFUSION |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_diffusion.F |
52 |
THSICE_DIFFUSION |
INTEGER myIter |
./pkg/thsice/thsice_do_advect.F |
10 |
THSICE_DO_ADVECT |
I biArg, bjArg, myTime, myIter, myThid ) |
./pkg/thsice/thsice_do_advect.F |
123 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_do_advect.F |
142 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_do_advect.F |
145 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_do_advect.F |
42 |
THSICE_DO_ADVECT |
INTEGER myIter |
./pkg/thsice/thsice_do_advect.F |
85 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_do_advect.F |
96 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_extend.F |
16 |
THSICE_EXTEND |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_extend.F |
239 |
THSICE_EXTEND |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_extend.F |
88 |
THSICE_EXTEND |
INTEGER myIter |
./pkg/thsice/thsice_get_bulkf.F |
17 |
THSICE_GET_BULKF |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_get_bulkf.F |
62 |
THSICE_GET_BULKF |
INTEGER myIter |
./pkg/thsice/thsice_get_exf.F |
17 |
THSICE_GET_EXF |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_get_exf.F |
73 |
THSICE_GET_EXF |
INTEGER myIter |
./pkg/thsice/thsice_get_ocean.F |
13 |
THSICE_GET_OCEAN |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_get_ocean.F |
48 |
THSICE_GET_OCEAN |
INTEGER myIter |
./pkg/thsice/thsice_get_velocity.F |
16 |
THSICE_GET_VELOCITY |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_get_velocity.F |
51 |
THSICE_GET_VELOCITY |
INTEGER myIter |
./pkg/thsice/thsice_impl_temp.F |
111 |
THSICE_IMPL_TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_impl_temp.F |
11 |
THSICE_IMPL_TEMP |
I bi, bj, myTime, myIter, myThid) |
./pkg/thsice/thsice_impl_temp.F |
49 |
THSICE_IMPL_TEMP |
INTEGER myIter |
./pkg/thsice/thsice_main.F |
122 |
THSICE_MAIN |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_main.F |
158 |
THSICE_MAIN |
I bi,bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_main.F |
15 |
THSICE_MAIN |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_main.F |
192 |
THSICE_MAIN |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_main.F |
224 |
THSICE_MAIN |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_main.F |
251 |
THSICE_MAIN |
I prcAtm, myTime, myIter, myThid ) |
./pkg/thsice/thsice_main.F |
271 |
THSICE_MAIN |
I 0, 0, myTime, myIter, myThid ) |
./pkg/thsice/thsice_main.F |
300 |
THSICE_MAIN |
I bi,bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_main.F |
54 |
THSICE_MAIN |
INTEGER myIter |
./pkg/thsice/thsice_monitor.F |
34 |
THSICE_MONITOR |
INTEGER myIter |
./pkg/thsice/thsice_monitor.F |
72 |
THSICE_MONITOR |
& .OR. myIter.EQ.nIter0 ) THEN |
./pkg/thsice/thsice_monitor.F |
92 |
THSICE_MONITOR |
& 'I',mon_fname,1,1,'iter', myIter, myThid) |
./pkg/thsice/thsice_monitor.F |
9 |
THSICE_MONITOR |
SUBROUTINE THSICE_MONITOR( myTime, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
152 |
THSICE_OUTPUT |
WRITE(fn,'(A,I10.10)') 'thSIce_tave.', myIter |
./pkg/thsice/thsice_output.F |
154 |
THSICE_OUTPUT |
CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
158 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_fract_Ave, 1, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
159 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_iceH_Ave, 2, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
160 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_snowH_Ave, 3, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
161 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_Tsrf_Ave, 4, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
162 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_Tice1_Ave, 5, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
163 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_Tice2_Ave, 6, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
165 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_albedo_Ave, 7, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
166 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_flx2oc_Ave, 8, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
167 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_frw2oc_Ave, 9, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
169 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_salFx_Ave, kl, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
172 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_flxAtm_Ave,kl, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
174 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_frwAtm_Ave,kl, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
178 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_tMxL_Ave, kl, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
180 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_sMxL_Ave, kl, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
201 |
THSICE_OUTPUT |
CALL MNC_CW_I_W_S('I',mncf,0,0,'iter', myIter, myThid) |
./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 |
281 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
283 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
285 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
287 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
289 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
291 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
293 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
295 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
297 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
300 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
302 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
306 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
308 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
327 |
THSICE_OUTPUT |
CALL MNC_CW_I_W_S('I',mncf,0,0,'iter', myIter, myThid) |
./pkg/thsice/thsice_output.F |
350 |
THSICE_OUTPUT |
& CALL THSICE_MONITOR( myTime, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
38 |
THSICE_OUTPUT |
INTEGER myIter |
./pkg/thsice/thsice_output.F |
63 |
THSICE_OUTPUT |
IF ( myIter .EQ. nIter0 ) THEN |
./pkg/thsice/thsice_output.F |
9 |
THSICE_OUTPUT |
SUBROUTINE THSICE_OUTPUT( myTime, myIter, myThid ) |
./pkg/thsice/thsice_read_pickup.F |
30 |
THSICE_READ_PICKUP |
INTEGER myIter |
./pkg/thsice/thsice_read_pickup.F |
46 |
THSICE_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_ic.', myIter |
./pkg/thsice/thsice_read_pickup.F |
48 |
THSICE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
./pkg/thsice/thsice_read_pickup.F |
54 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, iceMask, 1, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
55 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, iceHeight,2, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
56 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1,snowHeight,3, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
57 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tsrf, 4, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
58 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tice1, 5, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
59 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tice2, 6, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
60 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Qice1, 7, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
61 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Qice2, 8, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
62 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, snowAge, 9, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
65 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, tOceMxL, 10, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
66 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, sOceMxL, 11, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
76 |
THSICE_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
./pkg/thsice/thsice_read_pickup.F |
9 |
THSICE_READ_PICKUP |
SUBROUTINE THSICE_READ_PICKUP( myIter, myThid ) |
./pkg/thsice/thsice_salt_plume.F |
16 |
THSICE_SALT_PLUME |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_salt_plume.F |
56 |
THSICE_SALT_PLUME |
INTEGER myIter |
./pkg/thsice/thsice_slab_ocean.F |
12 |
THSICE_SLAB_OCEAN |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_slab_ocean.F |
166 |
THSICE_SLAB_OCEAN |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_slab_ocean.F |
56 |
THSICE_SLAB_OCEAN |
INTEGER myIter, myThid |
./pkg/thsice/thsice_solve4temp.F |
123 |
THSICE_SOLVE4TEMP |
INTEGER myIter |
./pkg/thsice/thsice_solve4temp.F |
22 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_solve4temp.F |
308 |
THSICE_SOLVE4TEMP |
& ' BBerr: Tice(1) > 0 ; it=', myIter, qIc1(i,j) |
./pkg/thsice/thsice_solve4temp.F |
314 |
THSICE_SOLVE4TEMP |
& ' BBerr: Tice(2) > 0 ; it=', myIter, qIc2(i,j) |
./pkg/thsice/thsice_solve4temp.F |
382 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_solve4temp.F |
390 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_solve4temp.F |
444 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_solve4temp.F |
452 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_solve4temp.F |
542 |
THSICE_SOLVE4TEMP |
& ' BB: not converge: i,j,it,hi=',i,j,bi,bj,myIter,hIce(i,j) |
./pkg/thsice/thsice_solve4temp.F |
550 |
THSICE_SOLVE4TEMP |
& myIter, Tsf(i,j) |
./pkg/thsice/thsice_step_fwd.F |
15 |
THSICE_STEP_FWD |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_fwd.F |
251 |
THSICE_STEP_FWD |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_fwd.F |
340 |
THSICE_STEP_FWD |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_fwd.F |
394 |
THSICE_STEP_FWD |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_fwd.F |
445 |
THSICE_STEP_FWD |
I isIceFree, myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_fwd.F |
75 |
THSICE_STEP_FWD |
INTEGER myIter |
./pkg/thsice/thsice_step_temp.F |
11 |
THSICE_STEP_TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_temp.F |
128 |
THSICE_STEP_TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_temp.F |
185 |
THSICE_STEP_TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_temp.F |
61 |
THSICE_STEP_TEMP |
INTEGER myIter |
./pkg/thsice/thsice_test_addfluid.h |
11 |
NO PROCEDURE |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/thsice/thsice_write_pickup.F |
38 |
THSICE_WRITE_PICKUP |
INTEGER myIter |
./pkg/thsice/thsice_write_pickup.F |
57 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, iceMask, 1, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
58 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, iceHeight,2, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
59 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1,snowHeight,3, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
60 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tsrf, 4, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
61 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tice1, 5, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
62 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tice2, 6, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
63 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Qice1, 7, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
64 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Qice2, 8, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
65 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, snowAge, 9, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
68 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tOceMxL, 10, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
69 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, sOceMxL, 11, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
83 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
./pkg/thsice/thsice_write_pickup.F |
89 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
./pkg/thsice/thsice_write_pickup.F |
9 |
THSICE_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/timeave/timeave_statv_write.F |
10 |
TIMEAVE_STATV_WRITE |
SUBROUTINE TIMEAVE_STATV_WRITE( myTime, myIter, myThid ) |
./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 |
160 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
164 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
166 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
170 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
173 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
175 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
177 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
179 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
181 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
183 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
185 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./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 |
206 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
./pkg/timeave/timeave_statv_write.F |
212 |
TIMEAVE_STATV_WRITE |
& '// Time-average data written, t-step', myIter |
./pkg/timeave/timeave_statv_write.F |
235 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_I_W_S('I','tave',0,0,'iter', myIter, myThid) |
./pkg/timeave/timeave_statv_write.F |
33 |
TIMEAVE_STATV_WRITE |
INTEGER myIter |
./pkg/timeave/timeave_statv_write.F |
67 |
TIMEAVE_STATV_WRITE |
I myTime, myIter, myThid ) |
./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 ) |
./pkg/timeave/timeave_statvars.F |
105 |
TIMEAVE_STATVARS |
I myTime, myIter, myThid ) |
./pkg/timeave/timeave_statvars.F |
11 |
TIMEAVE_STATVARS |
I myTime, myIter, bi, bj, myThid ) |
./pkg/timeave/timeave_statvars.F |
180 |
TIMEAVE_STATVARS |
IF ( myIter .NE. nIter0 ) THEN |
./pkg/timeave/timeave_statvars.F |
36 |
TIMEAVE_STATVARS |
INTEGER myIter, bi, bj |
./pkg/timeave/timeave_statvars.F |
52 |
TIMEAVE_STATVARS |
IF ( myIter .EQ. nIter0 ) THEN |
./pkg/timeave/timeave_statvars.F |
96 |
TIMEAVE_STATVARS |
IF ( myIter .EQ. nIter0 ) THEN |
./pkg/timeave/timeave_surf_flux.F |
30 |
TIMEAVE_SURF_FLUX |
INTEGER myIter |
./pkg/timeave/timeave_surf_flux.F |
6 |
TIMEAVE_SURF_FLUX |
I bi, bj, myTime, myIter, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
12 |
AIM_SURF_BC |
I bi, bj, myTime, myIter, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
345 |
AIM_SURF_BC |
IF (myIter.EQ.nIter0) THEN |
./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 |
348 |
AIM_SURF_BC |
& 1, bi, bj, 1, myIter, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
390 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
416 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
427 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
76 |
AIM_SURF_BC |
INTEGER myIter, myThid |
./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 |
131 |
ADDUMMY_IN_STEPPING |
& adhfacc, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
133 |
ADDUMMY_IN_STEPPING |
& adhfacs, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
135 |
ADDUMMY_IN_STEPPING |
& adhfacw, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
137 |
ADDUMMY_IN_STEPPING |
& adrecip_hfacc, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
139 |
ADDUMMY_IN_STEPPING |
& adrecip_hfacs, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
141 |
ADDUMMY_IN_STEPPING |
& adrecip_hfacw, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
156 |
ADDUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
160 |
ADDUMMY_IN_STEPPING |
& '// Model state written, timestep', myIter |
./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 |
108 |
ADDUMMY_IN_HFAC |
& myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
112 |
ADDUMMY_IN_HFAC |
& myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
116 |
ADDUMMY_IN_HFAC |
& myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
129 |
ADDUMMY_IN_HFAC |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
133 |
ADDUMMY_IN_HFAC |
& '// ad'//myfullname//' written, timestep', myIter |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
21 |
DUMMY_IN_HFAC |
INTEGER myIter |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
31 |
ADDUMMY_IN_HFAC |
subroutine ADDUMMY_IN_HFAC( myname, myIter, myThid ) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
67 |
ADDUMMY_IN_HFAC |
integer myIter |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
6 |
DUMMY_IN_HFAC |
subroutine DUMMY_IN_HFAC( myname, myIter, myThid ) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
99 |
ADDUMMY_IN_HFAC |
WRITE(suff,'(I10.10)') myIter |
./model/src/integr_continuity.F |
12 |
INTEGR_CONTINUITY |
I myTime, myIter, myThid ) |
./model/src/integr_continuity.F |
136 |
INTEGR_CONTINUITY |
IF ( myIter.EQ.nIter0 .AND. myIter.NE.0 |
./model/src/integr_continuity.F |
158 |
INTEGR_CONTINUITY |
ELSEIF ( myIter.EQ.nIter0 ) THEN |
./model/src/integr_continuity.F |
202 |
INTEGR_CONTINUITY |
IF ( exactConserv .AND. myIter.NE.nIter0 ) THEN |
./model/src/integr_continuity.F |
265 |
INTEGR_CONTINUITY |
IF ( k.EQ.Nr .AND. myIter.NE.0 .AND. usingPCoords |
./model/src/integr_continuity.F |
301 |
INTEGR_CONTINUITY |
IF ( exactConserv .AND. myIter.NE.nIter0 |
./model/src/integr_continuity.F |
304 |
INTEGR_CONTINUITY |
IF ( implicitIntGravWave .OR. myIter.EQ.nIter0 ) |
./model/src/integr_continuity.F |
315 |
INTEGR_CONTINUITY |
CALL UPDATE_ETAH( myTime, myIter, myThid ) |
./model/src/integr_continuity.F |
322 |
INTEGR_CONTINUITY |
CALL UPDATE_ETAWS( myTime, myIter, myThid ) |
./model/src/integr_continuity.F |
41 |
INTEGR_CONTINUITY |
INTEGER myIter |
./model/src/load_fields_driver.F |
127 |
LOAD_FIELDS_DRIVER |
if (useCTRL) CALL CTRL_MAP_GENTIM2D( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
137 |
LOAD_FIELDS_DRIVER |
CALL BULKF_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
149 |
LOAD_FIELDS_DRIVER |
CALL EXF_GETFORCING( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
160 |
LOAD_FIELDS_DRIVER |
CALL CHEAPAML_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
169 |
LOAD_FIELDS_DRIVER |
CALL EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
185 |
LOAD_FIELDS_DRIVER |
CALL GCHEM_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
191 |
LOAD_FIELDS_DRIVER |
CALL RBCS_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
198 |
LOAD_FIELDS_DRIVER |
CALL AIM_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
22 |
LOAD_FIELDS_DRIVER |
SUBROUTINE LOAD_FIELDS_DRIVER( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
79 |
LOAD_FIELDS_DRIVER |
INTEGER myIter |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
25 |
UPDATE_OCEAN_EXPORTS |
integer myIter, myThid |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
5 |
UPDATE_OCEAN_EXPORTS |
subroutine UPDATE_OCEAN_EXPORTS (myTime, myIter, myThid) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
34 |
DO_FIZHI |
INTEGER myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
4 |
DO_FIZHI |
SUBROUTINE DO_FIZHI(myIter,myid, |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
102 |
FIZHI_TENDENCY_APPLY_T |
I myTime, myIter, myThid ) |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
131 |
FIZHI_TENDENCY_APPLY_T |
INTEGER myIter |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
148 |
FIZHI_TENDENCY_APPLY_S |
I myTime, myIter, myThid ) |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
177 |
FIZHI_TENDENCY_APPLY_S |
INTEGER myIter |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
38 |
FIZHI_TENDENCY_APPLY_U |
INTEGER myIter |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
55 |
FIZHI_TENDENCY_APPLY_V |
I myTime, myIter, myThid ) |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
85 |
FIZHI_TENDENCY_APPLY_V |
INTEGER myIter |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
8 |
FIZHI_TENDENCY_APPLY_U |
I myTime, myIter, myThid ) |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
21 |
UPDATE_OCEAN_EXPORTS |
integer myIter, myThid |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
5 |
UPDATE_OCEAN_EXPORTS |
subroutine UPDATE_OCEAN_EXPORTS (myTime, myIter, myThid) |
./model/src/main_do_loop.F |
149 |
MAIN_DO_LOOP |
INTEGER myIter |
./model/src/main_do_loop.F |
182 |
MAIN_DO_LOOP |
CALL FORWARD_STEP_ATM2D( iloop, myTime, myIter, myThid ) |
./model/src/main_do_loop.F |
186 |
MAIN_DO_LOOP |
CALL FORWARD_STEP( iloop, myTime, myIter, myThid ) |
./model/src/main_do_loop.F |
193 |
MAIN_DO_LOOP |
CALL INNER_DO_LOOP( iloop, myTime, myIter, myThid ) |
./model/src/main_do_loop.F |
198 |
MAIN_DO_LOOP |
CALL FORWARD_STEP( iloop, myTime, myIter, myThid ) |
./model/src/main_do_loop.F |
52 |
MAIN_DO_LOOP |
SUBROUTINE MAIN_DO_LOOP( iloop, myTime, myIter, myThid ) |
./model/src/momentum_correction_step.F |
10 |
MOMENTUM_CORRECTION_STEP |
SUBROUTINE MOMENTUM_CORRECTION_STEP( myTime, myIter, myThid ) |
./model/src/momentum_correction_step.F |
113 |
MOMENTUM_CORRECTION_STEP |
CALL SHAP_FILT_APPLY_UV( uVel, vVel, myTime, myIter, myThid ) |
./model/src/momentum_correction_step.F |
51 |
MOMENTUM_CORRECTION_STEP |
INTEGER myIter |
./model/src/momentum_correction_step.F |
93 |
MOMENTUM_CORRECTION_STEP |
I myTime, myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
108 |
PLOT_FIELD_XYRL |
I fld, fldNam , myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
138 |
PLOT_FIELD_XYRL |
INTEGER myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
14 |
PLOT_FIELD_XYRS |
I fld, fldNam , myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
156 |
PLOT_FIELD_XYRL |
IF ( myIter .GE. 0 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
159 |
PLOT_FIELD_XYRL |
& myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
185 |
PLOT_FIELD_XYRL |
& ' at iteration ', myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
202 |
PLOT_FIELD_XYZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
237 |
PLOT_FIELD_XYZRS |
INTEGER myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
252 |
PLOT_FIELD_XYZRS |
IF ( myIter .GE. 0 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
255 |
PLOT_FIELD_XYZRS |
& myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
295 |
PLOT_FIELD_XYZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
330 |
PLOT_FIELD_XYZRL |
INTEGER myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
345 |
PLOT_FIELD_XYZRL |
IF ( myIter .GE. 0 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
348 |
PLOT_FIELD_XYZRL |
& myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
389 |
PLOT_FIELD_XZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
424 |
PLOT_FIELD_XZRS |
INTEGER myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
439 |
PLOT_FIELD_XZRS |
IF ( myIter .GE. 0 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
442 |
PLOT_FIELD_XZRS |
& myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
44 |
PLOT_FIELD_XYRS |
INTEGER myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
477 |
PLOT_FIELD_XZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
512 |
PLOT_FIELD_XZRL |
INTEGER myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
527 |
PLOT_FIELD_XZRL |
IF ( myIter .GE. 0 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
530 |
PLOT_FIELD_XZRL |
& myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
567 |
PLOT_FIELD_YZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
602 |
PLOT_FIELD_YZRS |
INTEGER myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
617 |
PLOT_FIELD_YZRS |
IF ( myIter .GE. 0 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
620 |
PLOT_FIELD_YZRS |
& myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
62 |
PLOT_FIELD_XYRS |
IF ( myIter .GE. 0 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
656 |
PLOT_FIELD_YZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
65 |
PLOT_FIELD_XYRS |
& myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
691 |
PLOT_FIELD_YZRL |
INTEGER myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
706 |
PLOT_FIELD_YZRL |
IF ( myIter .GE. 0 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
709 |
PLOT_FIELD_YZRL |
& myIter |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
91 |
PLOT_FIELD_XYRS |
& ' at iteration ', myIter |
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
11 |
CTRL_MAP_GENTIM2D |
I myTime, myIter, myThid ) |
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
45 |
CTRL_MAP_GENTIM2D |
INTEGER myIter |
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
11 |
CTRL_MAP_GENTIM2D |
I myTime, myIter, myThid ) |
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
45 |
CTRL_MAP_GENTIM2D |
INTEGER myIter |
./verification/hs94.1x64x5/code/apply_forcing.F |
113 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code/apply_forcing.F |
148 |
APPLY_FORCING_V |
INTEGER myIter |
./verification/hs94.1x64x5/code/apply_forcing.F |
206 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code/apply_forcing.F |
20 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code/apply_forcing.F |
240 |
APPLY_FORCING_T |
INTEGER myIter |
./verification/hs94.1x64x5/code/apply_forcing.F |
305 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code/apply_forcing.F |
340 |
APPLY_FORCING_S |
INTEGER myIter |
./verification/hs94.1x64x5/code/apply_forcing.F |
55 |
APPLY_FORCING_U |
INTEGER myIter |
./model/src/packages_write_pickup.F |
104 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
111 |
PACKAGES_WRITE_PICKUP |
& suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
118 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
125 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
133 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid) |
./model/src/packages_write_pickup.F |
141 |
PACKAGES_WRITE_PICKUP |
& suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
149 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
157 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
164 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
16 |
PACKAGES_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
171 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
178 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
185 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
193 |
PACKAGES_WRITE_PICKUP |
& suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
200 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
207 |
PACKAGES_WRITE_PICKUP |
CALL FIZHI_WRITE_PICKUP(suffix,myTime,myIter,myThid) |
./model/src/packages_write_pickup.F |
208 |
PACKAGES_WRITE_PICKUP |
CALL FIZHI_WRITE_VEGTILES(suffix,0,myTime,myIter,myThid) |
./model/src/packages_write_pickup.F |
209 |
PACKAGES_WRITE_PICKUP |
CALL FIZHI_WRITE_DATETIME(myTime,myIter,myThid) |
./model/src/packages_write_pickup.F |
217 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
224 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
231 |
PACKAGES_WRITE_PICKUP |
& suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
238 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
83 |
PACKAGES_WRITE_PICKUP |
INTEGER myIter |
./model/src/packages_write_pickup.F |
97 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
113 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
148 |
APPLY_FORCING_V |
INTEGER myIter |
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
206 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
20 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
240 |
APPLY_FORCING_T |
INTEGER myIter |
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
305 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
340 |
APPLY_FORCING_S |
INTEGER myIter |
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
55 |
APPLY_FORCING_U |
INTEGER myIter |
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
10 |
CTRL_MAP_GENTIM2D |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
41 |
CTRL_MAP_GENTIM2D |
INTEGER myIter |
./model/src/plot_field.F |
127 |
PLOT_FIELD_XYRL |
INTEGER myIter |
./model/src/plot_field.F |
142 |
PLOT_FIELD_XYRL |
IF ( myIter .GE. 0 ) THEN |
./model/src/plot_field.F |
145 |
PLOT_FIELD_XYRL |
& myIter |
./model/src/plot_field.F |
14 |
PLOT_FIELD_XYRS |
I fld, fldNam , myIter, myThid ) |
./model/src/plot_field.F |
180 |
PLOT_FIELD_XYZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
./model/src/plot_field.F |
215 |
PLOT_FIELD_XYZRS |
INTEGER myIter |
./model/src/plot_field.F |
230 |
PLOT_FIELD_XYZRS |
IF ( myIter .GE. 0 ) THEN |
./model/src/plot_field.F |
233 |
PLOT_FIELD_XYZRS |
& myIter |
./model/src/plot_field.F |
273 |
PLOT_FIELD_XYZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
./model/src/plot_field.F |
308 |
PLOT_FIELD_XYZRL |
INTEGER myIter |
./model/src/plot_field.F |
323 |
PLOT_FIELD_XYZRL |
IF ( myIter .GE. 0 ) THEN |
./model/src/plot_field.F |
326 |
PLOT_FIELD_XYZRL |
& myIter |
./model/src/plot_field.F |
367 |
PLOT_FIELD_XZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
./model/src/plot_field.F |
402 |
PLOT_FIELD_XZRS |
INTEGER myIter |
./model/src/plot_field.F |
417 |
PLOT_FIELD_XZRS |
IF ( myIter .GE. 0 ) THEN |
./model/src/plot_field.F |
420 |
PLOT_FIELD_XZRS |
& myIter |
./model/src/plot_field.F |
44 |
PLOT_FIELD_XYRS |
INTEGER myIter |
./model/src/plot_field.F |
455 |
PLOT_FIELD_XZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
./model/src/plot_field.F |
490 |
PLOT_FIELD_XZRL |
INTEGER myIter |
./model/src/plot_field.F |
505 |
PLOT_FIELD_XZRL |
IF ( myIter .GE. 0 ) THEN |
./model/src/plot_field.F |
508 |
PLOT_FIELD_XZRL |
& myIter |
./model/src/plot_field.F |
545 |
PLOT_FIELD_YZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
./model/src/plot_field.F |
580 |
PLOT_FIELD_YZRS |
INTEGER myIter |
./model/src/plot_field.F |
595 |
PLOT_FIELD_YZRS |
IF ( myIter .GE. 0 ) THEN |
./model/src/plot_field.F |
598 |
PLOT_FIELD_YZRS |
& myIter |
./model/src/plot_field.F |
59 |
PLOT_FIELD_XYRS |
IF ( myIter .GE. 0 ) THEN |
./model/src/plot_field.F |
62 |
PLOT_FIELD_XYRS |
& myIter |
./model/src/plot_field.F |
634 |
PLOT_FIELD_YZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
./model/src/plot_field.F |
669 |
PLOT_FIELD_YZRL |
INTEGER myIter |
./model/src/plot_field.F |
684 |
PLOT_FIELD_YZRL |
IF ( myIter .GE. 0 ) THEN |
./model/src/plot_field.F |
687 |
PLOT_FIELD_YZRL |
& myIter |
./model/src/plot_field.F |
97 |
PLOT_FIELD_XYRL |
I fld, fldNam , myIter, myThid ) |
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
113 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
148 |
APPLY_FORCING_V |
INTEGER myIter |
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
206 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
20 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
240 |
APPLY_FORCING_T |
INTEGER myIter |
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
305 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
340 |
APPLY_FORCING_S |
INTEGER myIter |
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
55 |
APPLY_FORCING_U |
INTEGER myIter |
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
10 |
CTRL_MAP_GENTIM2D |
I myTime, myIter, myThid ) |
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
41 |
CTRL_MAP_GENTIM2D |
INTEGER myIter |
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
113 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
148 |
APPLY_FORCING_V |
INTEGER myIter |
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
206 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
20 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
240 |
APPLY_FORCING_T |
INTEGER myIter |
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
305 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
340 |
APPLY_FORCING_S |
INTEGER myIter |
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
55 |
APPLY_FORCING_U |
INTEGER myIter |
./model/src/post_cg3d.F |
112 |
POST_CG3D |
CALL WRITE_FLD_XYZ_RL( 'cg3d_x','I10', phi_nh, myIter, myThid ) |
./model/src/post_cg3d.F |
11 |
POST_CG3D |
I myTime, myIter, myThid ) |
./model/src/post_cg3d.F |
44 |
POST_CG3D |
INTEGER myIter |
./model/src/pre_cg3d.F |
14 |
PRE_CG3D |
I myTime, myIter, myThid ) |
./model/src/pre_cg3d.F |
50 |
PRE_CG3D |
INTEGER myIter |
./model/src/read_pickup.F |
110 |
READ_PICKUP |
I Nr, myIter, myThid ) |
./model/src/read_pickup.F |
12 |
READ_PICKUP |
I myIter, myThid ) |
./model/src/read_pickup.F |
168 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
./model/src/read_pickup.F |
169 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gU, 2, myIter,myThid ) |
./model/src/read_pickup.F |
170 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 3, myIter,myThid ) |
./model/src/read_pickup.F |
171 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 4, myIter,myThid ) |
./model/src/read_pickup.F |
172 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gV, 5, myIter,myThid ) |
./model/src/read_pickup.F |
173 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 6, myIter,myThid ) |
./model/src/read_pickup.F |
174 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 7, myIter,myThid ) |
./model/src/read_pickup.F |
176 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 9, myIter,myThid ) |
./model/src/read_pickup.F |
177 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 10, myIter,myThid ) |
./model/src/read_pickup.F |
179 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1,12, myIter,myThid ) |
./model/src/read_pickup.F |
182 |
READ_PICKUP |
& 12*Nr+1, myIter,myThid ) |
./model/src/read_pickup.F |
186 |
READ_PICKUP |
& 12*Nr+2, myIter,myThid ) |
./model/src/read_pickup.F |
194 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, nj+1, myIter,myThid ) |
./model/src/read_pickup.F |
196 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
./model/src/read_pickup.F |
198 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
./model/src/read_pickup.F |
200 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, nj+1, myIter,myThid ) |
./model/src/read_pickup.F |
202 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
./model/src/read_pickup.F |
204 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
./model/src/read_pickup.F |
206 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta,nj+1, myIter,myThid ) |
./model/src/read_pickup.F |
208 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
./model/src/read_pickup.F |
210 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
./model/src/read_pickup.F |
212 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, nj+1, myIter,myThid ) |
./model/src/read_pickup.F |
214 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
./model/src/read_pickup.F |
216 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
./model/src/read_pickup.F |
219 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
./model/src/read_pickup.F |
220 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 2, myIter,myThid ) |
./model/src/read_pickup.F |
221 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 3, myIter,myThid ) |
./model/src/read_pickup.F |
222 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 4, myIter,myThid ) |
./model/src/read_pickup.F |
223 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 5, myIter,myThid ) |
./model/src/read_pickup.F |
224 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 6, myIter,myThid ) |
./model/src/read_pickup.F |
225 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 7, myIter,myThid ) |
./model/src/read_pickup.F |
226 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1, 8, myIter,myThid ) |
./model/src/read_pickup.F |
229 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,1, etaN, nj*Nr+1, myIter,myThid ) |
./model/src/read_pickup.F |
232 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,dEtaHdt,nj*Nr+2,myIter,myThid ) |
./model/src/read_pickup.F |
235 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1, etaH, nj*Nr+3, myIter,myThid ) |
./model/src/read_pickup.F |
242 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, totPhiHyd,1,myIter,myThid ) |
./model/src/read_pickup.F |
247 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phi_nh, 1, myIter,myThid ) |
./model/src/read_pickup.F |
250 |
READ_PICKUP |
& 2, myIter,myThid ) |
./model/src/read_pickup.F |
252 |
READ_PICKUP |
& 2, myIter,myThid ) |
./model/src/read_pickup.F |
254 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm1, 2, myIter,myThid ) |
./model/src/read_pickup.F |
263 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
265 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
269 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
271 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
275 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
277 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
280 |
READ_PICKUP |
m1 = 1 + MOD(myIter+1,2) |
./model/src/read_pickup.F |
281 |
READ_PICKUP |
m2 = 1 + MOD( myIter ,2) |
./model/src/read_pickup.F |
286 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
290 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
295 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
299 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
306 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
310 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
315 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
319 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
326 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
330 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
335 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
339 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
347 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
351 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
359 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
362 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
367 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
370 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
375 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
378 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
383 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
391 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
396 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
403 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
410 |
READ_PICKUP |
& nj, fp, Nr, 1, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
417 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./model/src/read_pickup.F |
421 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./model/src/read_pickup.F |
427 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./model/src/read_pickup.F |
431 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./model/src/read_pickup.F |
442 |
READ_PICKUP |
I myIter, myThid ) |
./model/src/read_pickup.F |
452 |
READ_PICKUP |
I myIter, myThid ) |
./model/src/read_pickup.F |
45 |
READ_PICKUP |
INTEGER myIter |
./model/src/read_pickup.F |
462 |
READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
./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/reset_nlfs_vars.F |
35 |
RESET_NLFS_VARS |
INTEGER myIter |
./model/src/reset_nlfs_vars.F |
9 |
RESET_NLFS_VARS |
SUBROUTINE RESET_NLFS_VARS( myTime, myIter, myThid ) |
./verification/rotating_tank/code/apply_forcing.F |
190 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./verification/rotating_tank/code/apply_forcing.F |
21 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./verification/rotating_tank/code/apply_forcing.F |
224 |
APPLY_FORCING_V |
INTEGER myIter |
./verification/rotating_tank/code/apply_forcing.F |
358 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./verification/rotating_tank/code/apply_forcing.F |
393 |
APPLY_FORCING_T |
INTEGER myIter |
./verification/rotating_tank/code/apply_forcing.F |
55 |
APPLY_FORCING_U |
INTEGER myIter |
./verification/rotating_tank/code/apply_forcing.F |
833 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./verification/rotating_tank/code/apply_forcing.F |
868 |
APPLY_FORCING_S |
INTEGER myIter |
./model/src/salt_integrate.F |
145 |
SALT_INTEGRATE |
iterNb = myIter |
./model/src/salt_integrate.F |
146 |
SALT_INTEGRATE |
IF (staggerTimeStep) iterNb = myIter - 1 |
./model/src/salt_integrate.F |
20 |
SALT_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/salt_integrate.F |
269 |
SALT_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
./model/src/salt_integrate.F |
282 |
SALT_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
./model/src/salt_integrate.F |
330 |
SALT_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/salt_integrate.F |
354 |
SALT_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/salt_integrate.F |
369 |
SALT_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/salt_integrate.F |
454 |
SALT_INTEGRATE |
I dTtracerLev, myTime, myIter, myThid ) |
./model/src/salt_integrate.F |
461 |
SALT_INTEGRATE |
I dTtracerLev, myTime, myIter, myThid ) |
./model/src/salt_integrate.F |
471 |
SALT_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/salt_integrate.F |
491 |
SALT_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
./model/src/salt_integrate.F |
514 |
SALT_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/salt_integrate.F |
520 |
SALT_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/salt_integrate.F |
527 |
SALT_INTEGRATE |
I gS_loc, myTime, myIter, myThid ) |
./model/src/salt_integrate.F |
87 |
SALT_INTEGRATE |
INTEGER myIter |
./model/src/solve_for_pressure.F |
106 |
SOLVE_FOR_PRESSURE |
IF ( myIter.EQ.1+nIter0 .AND. debugLevel .GE. debLevA ) THEN |
./model/src/solve_for_pressure.F |
10 |
SOLVE_FOR_PRESSURE |
SUBROUTINE SOLVE_FOR_PRESSURE( myTime, myIter, myThid ) |
./model/src/solve_for_pressure.F |
264 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XY_RL( 'cg2d_b', 'I10', cg2d_b, myIter, myThid ) |
./model/src/solve_for_pressure.F |
380 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XY_RL( 'cg2d_x','I10', cg2d_x, myIter, myThid ) |
./model/src/solve_for_pressure.F |
394 |
SOLVE_FOR_PRESSURE |
I myTime, myIter, myThid ) |
./model/src/solve_for_pressure.F |
403 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XYZ_RL('cg3d_b','I10', cg3d_b, myIter,myThid ) |
./model/src/solve_for_pressure.F |
415 |
SOLVE_FOR_PRESSURE |
I myIter, myThid ) |
./model/src/solve_for_pressure.F |
421 |
SOLVE_FOR_PRESSURE |
I myIter, myThid ) |
./model/src/solve_for_pressure.F |
444 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XYZ_RL('cg3d_x','I10', phi_nh, myIter,myThid ) |
./model/src/solve_for_pressure.F |
448 |
SOLVE_FOR_PRESSURE |
I myTime, myIter, myThid ) |
./model/src/solve_for_pressure.F |
53 |
SOLVE_FOR_PRESSURE |
INTEGER myIter |
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
114 |
PTRACERS_APPLY_FORCING |
I myTime, myIter, myThid ) |
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
14 |
PTRACERS_APPLY_FORCING |
I iTracer, myTime, myIter, myThid ) |
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
45 |
PTRACERS_APPLY_FORCING |
INTEGER myIter |
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
75 |
PTRACERS_APPLY_FORCING |
I iTracer, myTime, myIter, myThid ) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
13 |
PTRACERS_FORCING_SURF |
I myTime,myIter,myThid ) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
43 |
PTRACERS_FORCING_SURF |
INTEGER myIter |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
156 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
171 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
22 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
241 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
393 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
55 |
EXTERNAL_FORCING_SURF |
INTEGER myIter |
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
156 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
171 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
22 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
241 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
393 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
55 |
EXTERNAL_FORCING_SURF |
INTEGER myIter |
./model/src/solve_uv_tridiago.F |
15 |
SOLVE_UV_TRIDIAGO |
I subIter, myIter, myThid ) |
./model/src/solve_uv_tridiago.F |
61 |
SOLVE_UV_TRIDIAGO |
INTEGER subIter, myIter, myThid |
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
113 |
APPLY_FORCING_V |
I myTime, myIter, myThid ) |
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
148 |
APPLY_FORCING_V |
INTEGER myIter |
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
206 |
APPLY_FORCING_T |
I myTime, myIter, myThid ) |
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
20 |
APPLY_FORCING_U |
I myTime, myIter, myThid ) |
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
240 |
APPLY_FORCING_T |
INTEGER myIter |
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
305 |
APPLY_FORCING_S |
I myTime, myIter, myThid ) |
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
340 |
APPLY_FORCING_S |
INTEGER myIter |
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
55 |
APPLY_FORCING_U |
INTEGER myIter |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
13 |
PTRACERS_FORCING_SURF |
I myTime,myIter,myThid ) |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
42 |
PTRACERS_FORCING_SURF |
INTEGER myIter |
./model/src/swfrac.F |
13 |
SWFRAC |
I myTime, myIter, myThid ) |
./model/src/swfrac.F |
49 |
SWFRAC |
INTEGER myIter |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
13 |
PTRACERS_FORCING_SURF |
I myTime,myIter,myThid ) |
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
42 |
PTRACERS_FORCING_SURF |
INTEGER myIter |
./model/src/taueddy_tendency_apply.F |
103 |
TAUEDDY_TENDENCY_APPLY_V |
I myTime, myIter, myThid ) |
./model/src/taueddy_tendency_apply.F |
139 |
TAUEDDY_TENDENCY_APPLY_V |
INTEGER myIter |
./model/src/taueddy_tendency_apply.F |
22 |
TAUEDDY_TENDENCY_APPLY_U |
I myTime, myIter, myThid ) |
./model/src/taueddy_tendency_apply.F |
58 |
TAUEDDY_TENDENCY_APPLY_U |
INTEGER myIter |
./model/src/temp_integrate.F |
153 |
TEMP_INTEGRATE |
iterNb = myIter |
./model/src/temp_integrate.F |
154 |
TEMP_INTEGRATE |
IF (staggerTimeStep) iterNb = myIter - 1 |
./model/src/temp_integrate.F |
20 |
TEMP_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/temp_integrate.F |
277 |
TEMP_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
./model/src/temp_integrate.F |
290 |
TEMP_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
./model/src/temp_integrate.F |
338 |
TEMP_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/temp_integrate.F |
362 |
TEMP_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/temp_integrate.F |
377 |
TEMP_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/temp_integrate.F |
462 |
TEMP_INTEGRATE |
I dTtracerLev, myTime, myIter, myThid ) |
./model/src/temp_integrate.F |
469 |
TEMP_INTEGRATE |
I dTtracerLev, myTime, myIter, myThid ) |
./model/src/temp_integrate.F |
479 |
TEMP_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/temp_integrate.F |
499 |
TEMP_INTEGRATE |
I bi, bj, myTime, myIter, myThid ) |
./model/src/temp_integrate.F |
533 |
TEMP_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/temp_integrate.F |
539 |
TEMP_INTEGRATE |
I myTime, myIter, myThid ) |
./model/src/temp_integrate.F |
546 |
TEMP_INTEGRATE |
I gT_loc, myTime, myIter, myThid ) |
./model/src/temp_integrate.F |
90 |
TEMP_INTEGRATE |
INTEGER myIter |
./model/src/the_main_loop.F |
226 |
THE_MAIN_LOOP |
INTEGER myIter |
./model/src/the_main_loop.F |
353 |
THE_MAIN_LOOP |
CALL INIT_PDAF( nIter0, myTime, myIter, myThid ) |
./model/src/the_main_loop.F |
52 |
THE_MAIN_LOOP |
SUBROUTINE THE_MAIN_LOOP( myTime, myIter, myThid ) |
./model/src/the_main_loop.F |
586 |
THE_MAIN_LOOP |
myIter = nIter0 + (iloop-1) |
./model/src/the_main_loop.F |
613 |
THE_MAIN_LOOP |
myIter = nIter0 + (iloop-1) |
./model/src/the_main_loop.F |
623 |
THE_MAIN_LOOP |
CALL MAIN_DO_LOOP( iloop, myTime, myIter, myThid ) |
./model/src/the_main_loop.F |
629 |
THE_MAIN_LOOP |
CALL ASSIMILATE_PDAF( myTime, myIter, myThid ) |
./model/src/the_main_loop.F |
674 |
THE_MAIN_LOOP |
CALL COST_PROFILES( myIter, myTime, myThid ) |
./model/src/the_main_loop.F |
682 |
THE_MAIN_LOOP |
CALL ECCO_COST_DRIVER ( endTime, myIter, myThid ) |
./model/src/the_model_main.F |
601 |
THE_MODEL_MAIN |
INTEGER myIter |
./model/src/the_model_main.F |
630 |
THE_MODEL_MAIN |
myIter = nIter0 |
./model/src/the_model_main.F |
664 |
THE_MODEL_MAIN |
CALL G_THE_MAIN_LOOP ( myTime, myIter, myThid ) |
./model/src/the_model_main.F |
678 |
THE_MODEL_MAIN |
CALL MDTHE_MAIN_LOOP ( myTime, myIter, myThid ) |
./model/src/the_model_main.F |
707 |
THE_MODEL_MAIN |
CALL THE_MAIN_LOOP( myTime, myIter, myThid ) |
./model/src/the_model_main.F |
720 |
THE_MODEL_MAIN |
& .AND. myIter.EQ.nIter0 ) THEN |
./model/src/the_model_main.F |
745 |
THE_MODEL_MAIN |
CALL THE_MAIN_LOOP( myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
144 |
THERMODYNAMICS |
& myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
149 |
THERMODYNAMICS |
& myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
163 |
THERMODYNAMICS |
CALL PTRACERS_CALC_WSURF_TR(wVel,myTime,myIter,myThid) |
./model/src/thermodynamics.F |
25 |
THERMODYNAMICS |
SUBROUTINE THERMODYNAMICS(myTime, myIter, myThid) |
./model/src/thermodynamics.F |
269 |
THERMODYNAMICS |
I bi, bj, myIter, myThid ) |
./model/src/thermodynamics.F |
277 |
THERMODYNAMICS |
I myIter, myThid ) |
./model/src/thermodynamics.F |
323 |
THERMODYNAMICS |
I myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
334 |
THERMODYNAMICS |
I myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
350 |
THERMODYNAMICS |
I myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
387 |
THERMODYNAMICS |
I trAdvCFL, myIter, myThid ) |
./model/src/thermodynamics.F |
78 |
THERMODYNAMICS |
INTEGER myIter |
./model/src/timestep.F |
109 |
TIMESTEP |
I myTime, myIter, myThid ) |
./model/src/timestep.F |
113 |
TIMESTEP |
I myTime, myIter, myThid ) |
./model/src/timestep.F |
169 |
TIMESTEP |
I mom_StartAB, myIter, myThid ) |
./model/src/timestep.F |
16 |
TIMESTEP |
I myTime, myIter, myThid ) |
./model/src/timestep.F |
174 |
TIMESTEP |
I mom_StartAB, myIter, myThid ) |
./model/src/timestep.F |
181 |
TIMESTEP |
I mom_StartAB, myIter, myThid ) |
./model/src/timestep.F |
187 |
TIMESTEP |
I mom_StartAB, myIter, myThid ) |
./model/src/timestep.F |
237 |
TIMESTEP |
I myTime, myIter, myThid) |
./model/src/timestep.F |
55 |
TIMESTEP |
INTEGER myIter, myThid |
./model/src/timestep_tracer.F |
14 |
TIMESTEP_TRACER |
I myTime, myIter, myThid ) |
./model/src/timestep_tracer.F |
44 |
TIMESTEP_TRACER |
INTEGER myIter, myThid |
./model/src/timestep_wvel.F |
10 |
TIMESTEP_WVEL |
I bi,bj, myTime, myIter, myThid ) |
./model/src/timestep_wvel.F |
37 |
TIMESTEP_WVEL |
INTEGER myIter, myThid |
./model/src/tracers_correction_step.F |
108 |
TRACERS_CORRECTION_STEP |
I myTime, myIter, myThid ) |
./model/src/tracers_correction_step.F |
10 |
TRACERS_CORRECTION_STEP |
SUBROUTINE TRACERS_CORRECTION_STEP(myTime, myIter, myThid) |
./model/src/tracers_correction_step.F |
114 |
TRACERS_CORRECTION_STEP |
I bi, bj, myTime, myIter, myThid ) |
./model/src/tracers_correction_step.F |
119 |
TRACERS_CORRECTION_STEP |
& CALL MATRIX_STORE_TENDENCY_IMP( bi, bj, myTime, myIter, myThid ) |
./model/src/tracers_correction_step.F |
40 |
TRACERS_CORRECTION_STEP |
INTEGER myIter |
./model/src/tracers_correction_step.F |
55 |
TRACERS_CORRECTION_STEP |
CALL TRACERS_IIGW_CORRECTION(bi,bj, myTime,myIter,myThid) |
./model/src/tracers_correction_step.F |
70 |
TRACERS_CORRECTION_STEP |
CALL SHAP_FILT_APPLY_TS( theta,salt, myTime, myIter, myThid ) |
./model/src/tracers_correction_step.F |
91 |
TRACERS_CORRECTION_STEP |
CALL SALT_FILL( uVel,vVel,salt,1,myTime,myIter,myThid ) |
./model/src/tracers_iigw_correction.F |
10 |
TRACERS_IIGW_CORRECTION |
I bi, bj, myTime, myIter, myThid ) |
./model/src/tracers_iigw_correction.F |
40 |
TRACERS_IIGW_CORRECTION |
INTEGER myIter |
./model/src/update_cg2d.F |
10 |
UPDATE_CG2D |
SUBROUTINE UPDATE_CG2D( myTime, myIter, myThid ) |
./model/src/update_cg2d.F |
42 |
UPDATE_CG2D |
INTEGER myIter |
./model/src/update_cg2d.F |
63 |
UPDATE_CG2D |
updatePreCond = ( myIter.EQ.nIter0 ) |
./model/src/update_cg2d.F |
64 |
UPDATE_CG2D |
IF ( MOD(myIter,cg2dPreCondFreq).EQ.0 ) updatePreCond=.TRUE. |
./model/src/update_etah.F |
10 |
UPDATE_ETAH |
SUBROUTINE UPDATE_ETAH( myTime, myIter, myThid ) |
./model/src/update_etah.F |
35 |
UPDATE_ETAH |
INTEGER myIter |
./model/src/update_etaws.F |
35 |
UPDATE_ETAWS |
INTEGER myIter |
./model/src/update_etaws.F |
9 |
UPDATE_ETAWS |
SUBROUTINE UPDATE_ETAWS( myTime, myIter, myThid ) |
./model/src/update_r_star.F |
36 |
UPDATE_R_STAR |
INTEGER myIter |
./model/src/update_r_star.F |
9 |
UPDATE_R_STAR |
SUBROUTINE UPDATE_R_STAR( useLatest, myTime, myIter, myThid ) |
./model/src/update_sigma.F |
13 |
UPDATE_SIGMA |
SUBROUTINE UPDATE_SIGMA( etaHc, myTime, myIter, myThid ) |
./model/src/update_sigma.F |
44 |
UPDATE_SIGMA |
INTEGER myIter |
./model/src/update_surf_dr.F |
36 |
UPDATE_SURF_DR |
INTEGER myIter |
./model/src/update_surf_dr.F |
9 |
UPDATE_SURF_DR |
SUBROUTINE UPDATE_SURF_DR( useLatest, myTime, myIter, myThid ) |
./model/src/write_pickup.F |
112 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, uVel, -j, myIter, myThid ) |
./model/src/write_pickup.F |
115 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, vVel, -j, myIter, myThid ) |
./model/src/write_pickup.F |
122 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
126 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
132 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, theta, -j, myIter, myThid ) |
./model/src/write_pickup.F |
135 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, salt, -j, myIter, myThid ) |
./model/src/write_pickup.F |
139 |
WRITE_PICKUP |
m1 = 1 + MOD(myIter+1,2) |
./model/src/write_pickup.F |
13 |
WRITE_PICKUP |
I myTime, myIter, myThid ) |
./model/src/write_pickup.F |
140 |
WRITE_PICKUP |
m2 = 1 + MOD( myIter ,2) |
./model/src/write_pickup.F |
146 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
152 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
159 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
165 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
174 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
183 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
195 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
204 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
217 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
223 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
231 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm1, -j, myIter, myThid ) |
./model/src/write_pickup.F |
234 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm1, -j, myIter, myThid ) |
./model/src/write_pickup.F |
239 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm1, -j, myIter, myThid ) |
./model/src/write_pickup.F |
247 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm1, -j, myIter, myThid ) |
./model/src/write_pickup.F |
256 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm1, -j, myIter, myThid ) |
./model/src/write_pickup.F |
265 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr,totPhiHyd,-j,myIter, myThid ) |
./model/src/write_pickup.F |
271 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, phi_nh, -j, myIter, myThid ) |
./model/src/write_pickup.F |
279 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, addMass,-j, myIter, myThid ) |
./model/src/write_pickup.F |
288 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
297 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1 , etaN, nj, myIter, myThid ) |
./model/src/write_pickup.F |
303 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dPhiNH, nj, myIter, myThid ) |
./model/src/write_pickup.F |
311 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dEtaHdt, nj, myIter, myThid ) |
./model/src/write_pickup.F |
319 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, etaHnm1, nj, myIter, myThid ) |
./model/src/write_pickup.F |
345 |
WRITE_PICKUP |
& nj, myIter, myThid ) |
./model/src/write_pickup.F |
360 |
WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
./model/src/write_pickup.F |
367 |
WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
./model/src/write_pickup.F |
53 |
WRITE_PICKUP |
INTEGER myIter |
./model/src/write_state.F |
104 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'U', uVel,iRec,myIter,myThid) |
./model/src/write_state.F |
105 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'V', vVel,iRec,myIter,myThid) |
./model/src/write_state.F |
106 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'T', theta,iRec,myIter,myThid) |
./model/src/write_state.F |
107 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'S', salt,iRec,myIter,myThid) |
./model/src/write_state.F |
108 |
WRITE_STATE |
CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid) |
./model/src/write_state.F |
109 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
./model/src/write_state.F |
112 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid) |
./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 |
140 |
WRITE_STATE |
IF ( storePhiHyd4Phys .OR. myIter.NE.nIter0 ) THEN |
./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 |
14 |
WRITE_STATE |
SUBROUTINE WRITE_STATE ( myTime, 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 |
151 |
WRITE_STATE |
IF ( storePhiHyd4Phys .OR. myIter.NE.nIter0 ) THEN |
./model/src/write_state.F |
152 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHyd,myIter,myThid) |
./model/src/write_state.F |
156 |
WRITE_STATE |
IF ( fluidIsWater .AND. (myIter.NE.nIter0) ) THEN |
./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 |
190 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','state',0,0,'iter', myIter, myThid) |
./model/src/write_state.F |
198 |
WRITE_STATE |
IF ( storePhiHyd4Phys .OR. myIter.NE.nIter0 ) THEN |
./model/src/write_state.F |
202 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','phiHyd',0,0,'iter',myIter,myThid) |
./model/src/write_state.F |
206 |
WRITE_STATE |
IF ( fluidIsWater .AND. (myIter .NE. nIter0) ) THEN |
./model/src/write_state.F |
210 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','phiHydLow',0,0,'iter',myIter,myThid) |
./model/src/write_state.F |
72 |
WRITE_STATE |
INTEGER myIter |
./pkg/aim_v23/aim_aim2dyn.F |
10 |
AIM_AIM2DYN |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_aim2dyn.F |
55 |
AIM_AIM2DYN |
INTEGER myIter, myThid |
./pkg/aim_v23/aim_aim2land.F |
13 |
AIM_AIM2LAND |
I land_frc, bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_aim2land.F |
51 |
AIM_AIM2LAND |
INTEGER bi, bj, myIter, myThid |
./pkg/aim_v23/aim_aim2sioce.F |
15 |
AIM_AIM2SIOCE |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
79 |
AIM_AIM2SIOCE |
INTEGER bi, bj, myIter, myThid |
./pkg/aim_v23/aim_diagnostics.F |
100 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
102 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
104 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
106 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
108 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
113 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
115 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, 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 |
167 |
AIM_DIAGNOSTICS |
WRITE(suff,'(I10.10)') myIter+1 |
./pkg/aim_v23/aim_diagnostics.F |
170 |
AIM_DIAGNOSTICS |
& myTime+deltaTClock, myIter+1, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
175 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
179 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
181 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 2, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
183 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 3, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
185 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 4, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
187 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 5, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
189 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 6, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
191 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 7, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
193 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 8, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
195 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 9, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
197 |
AIM_DIAGNOSTICS |
& 1, bi, bj,10, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
199 |
AIM_DIAGNOSTICS |
& 1, bi, bj,11, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
201 |
AIM_DIAGNOSTICS |
& 1, bi, bj,12, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
203 |
AIM_DIAGNOSTICS |
& 1, bi, bj,13, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
205 |
AIM_DIAGNOSTICS |
& 1, bi, bj,14, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
207 |
AIM_DIAGNOSTICS |
& 1, bi, bj,15, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
209 |
AIM_DIAGNOSTICS |
& 1, bi, bj,16, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
211 |
AIM_DIAGNOSTICS |
& 1, bi, bj,17, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
213 |
AIM_DIAGNOSTICS |
& 1, bi, bj,18, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
218 |
AIM_DIAGNOSTICS |
& 1, bi, bj,19, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
220 |
AIM_DIAGNOSTICS |
& 1, bi, bj,20, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
222 |
AIM_DIAGNOSTICS |
& 1, bi, bj,21, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
224 |
AIM_DIAGNOSTICS |
& 1, bi, bj,22, myIter, 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 |
43 |
AIM_DIAGNOSTICS |
INTEGER myIter, myThid |
./pkg/aim_v23/aim_diagnostics.F |
87 |
AIM_DIAGNOSTICS |
WRITE(suff,'(I10.10)') myIter+1 |
./pkg/aim_v23/aim_diagnostics.F |
90 |
AIM_DIAGNOSTICS |
& myTime+deltaTClock, myIter+1, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
94 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
96 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
98 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
9 |
AIM_DIAGNOSTICS |
SUBROUTINE AIM_DIAGNOSTICS( bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_co2.F |
102 |
AIM_DO_CO2 |
ELSEIF ( myIter.EQ.nIter0 ) THEN |
./pkg/aim_v23/aim_do_co2.F |
106 |
AIM_DO_CO2 |
WRITE(fn,'(A,I10.10)') 'pickup_aimCo2.', myIter |
./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 |
149 |
AIM_DO_CO2 |
& .OR. (myIter+1).EQ.nEndIter |
./pkg/aim_v23/aim_do_co2.F |
160 |
AIM_DO_CO2 |
WRITE(fn,'(A,I10.10)') 'pickup_aimCo2.', myIter+1 |
./pkg/aim_v23/aim_do_co2.F |
163 |
AIM_DO_CO2 |
& myTime+deltaTClock, myIter+1, myThid ) |
./pkg/aim_v23/aim_do_co2.F |
175 |
AIM_DO_CO2 |
I 0, 0, -1, myIter, myThid ) |
./pkg/aim_v23/aim_do_co2.F |
40 |
AIM_DO_CO2 |
INTEGER myIter, myThid |
./pkg/aim_v23/aim_do_co2.F |
98 |
AIM_DO_CO2 |
IF ( myIter.EQ.0 ) THEN |
./pkg/aim_v23/aim_do_co2.F |
9 |
AIM_DO_CO2 |
SUBROUTINE AIM_DO_CO2( myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
112 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
129 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
152 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
154 |
AIM_DO_PHYSICS |
CALL AIM_AIM2DYN( bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
160 |
AIM_DO_PHYSICS |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
164 |
AIM_DO_PHYSICS |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
168 |
AIM_DO_PHYSICS |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
177 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
189 |
AIM_DO_PHYSICS |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
194 |
AIM_DO_PHYSICS |
CALL AIM_DIAGNOSTICS( bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
208 |
AIM_DO_PHYSICS |
I 0, 0, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
217 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
238 |
AIM_DO_PHYSICS |
CALL ATM_STORE_MY_DATA( myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
53 |
AIM_DO_PHYSICS |
INTEGER myIter |
./pkg/aim_v23/aim_do_physics.F |
87 |
AIM_DO_PHYSICS |
CALL AIM_DO_CO2( myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
9 |
AIM_DO_PHYSICS |
SUBROUTINE AIM_DO_PHYSICS( myTime, myIter, myThid ) |
./pkg/aim_v23/aim_dyn2aim.F |
12 |
AIM_DYN2AIM |
I bi,bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_dyn2aim.F |
263 |
AIM_DYN2AIM |
IF (myIter.EQ.nIter0) |
./pkg/aim_v23/aim_dyn2aim.F |
265 |
AIM_DYN2AIM |
& 1, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_dyn2aim.F |
58 |
AIM_DYN2AIM |
INTEGER bi, bj, myIter, myThid |
./pkg/aim_v23/aim_fields_load.F |
129 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS( fNam, aim_albedo, 1, myIter, myThid ) |
./pkg/aim_v23/aim_fields_load.F |
139 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS( fNam, aim_sst0, 1, myIter, myThid ) |
./pkg/aim_v23/aim_fields_load.F |
144 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS( fNam, aim_sw10, 1, myIter, myThid ) |
./pkg/aim_v23/aim_fields_load.F |
187 |
AIM_FIELDS_LOAD |
IF (myIter.EQ.nIter0) THEN |
./pkg/aim_v23/aim_fields_load.F |
200 |
AIM_FIELDS_LOAD |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/aim_v23/aim_fields_load.F |
240 |
AIM_FIELDS_LOAD |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/aim_v23/aim_fields_load.F |
247 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_albFile,aim_albedo, 1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
251 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_vegFile,aim_veget,1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
258 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_sstFile,aim_sst0,nm0,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
259 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_sstFile,aim_sst1,nm1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
262 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_lstFile,aim_lst0,nm0,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
263 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_lstFile,aim_lst1,nm1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
266 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_oiceFile,aim_oic0,nm0,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
267 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_oiceFile,aim_oic1,nm1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
270 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_snowFile,aim_snw0,nm0,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
271 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_snowFile,aim_snw1,nm1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
274 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_swcFile,aim_sw10,nm0,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
275 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_swcFile,aim_sw11,nm1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
278 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_swcFile,aim_sw20,nm2,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
279 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_swcFile,aim_sw21,nm3,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
282 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_qfxFile,aim_qfx0,nm0,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
283 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_qfxFile,aim_qfx1,nm1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
291 |
AIM_FIELDS_LOAD |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/aim_v23/aim_fields_load.F |
41 |
AIM_FIELDS_LOAD |
INTEGER myIter |
./pkg/aim_v23/aim_fields_load.F |
8 |
AIM_FIELDS_LOAD |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_fields_load.F |
98 |
AIM_FIELDS_LOAD |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/aim_v23/aim_land2aim.F |
15 |
AIM_LAND2AIM |
I myTime, myIter, bi, bj, myThid ) |
./pkg/aim_v23/aim_land2aim.F |
184 |
AIM_LAND2AIM |
I bi,bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_land2aim.F |
69 |
AIM_LAND2AIM |
INTEGER myIter, bi, bj, myThid |
./pkg/aim_v23/aim_land_impl.F |
118 |
AIM_LAND_IMPL |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_land_impl.F |
18 |
AIM_LAND_IMPL |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_land_impl.F |
73 |
AIM_LAND_IMPL |
INTEGER bi, bj, myIter, myThid |
./pkg/aim_v23/aim_sice2aim.F |
110 |
AIM_SICE2AIM |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_sice2aim.F |
131 |
AIM_SICE2AIM |
& .AND. myIter.EQ.nIter0 ) |
./pkg/aim_v23/aim_sice2aim.F |
132 |
AIM_SICE2AIM |
& .OR. ( myIter.EQ.0 .AND. myTime.EQ.baseTime |
./pkg/aim_v23/aim_sice2aim.F |
143 |
AIM_SICE2AIM |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/aim_v23/aim_sice2aim.F |
147 |
AIM_SICE2AIM |
& bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_sice2aim.F |
150 |
AIM_SICE2AIM |
& bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_sice2aim.F |
16 |
AIM_SICE2AIM |
I myTime, myIter, bi, bj, myThid ) |
./pkg/aim_v23/aim_sice2aim.F |
68 |
AIM_SICE2AIM |
INTEGER myIter, bi, bj, myThid |
./pkg/aim_v23/aim_sice_impl.F |
17 |
AIM_SICE_IMPL |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_sice_impl.F |
71 |
AIM_SICE_IMPL |
INTEGER bi, bj, myIter, myThid |
./pkg/aim_v23/aim_sice_impl.F |
95 |
AIM_SICE_IMPL |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_surf_bc.F |
12 |
AIM_SURF_BC |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_surf_bc.F |
359 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
./pkg/aim_v23/aim_surf_bc.F |
384 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
./pkg/aim_v23/aim_surf_bc.F |
395 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
./pkg/aim_v23/aim_surf_bc.F |
70 |
AIM_SURF_BC |
INTEGER myIter, myThid |
./pkg/aim_v23/aim_tendency_apply.F |
208 |
AIM_TENDENCY_APPLY_V |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_tendency_apply.F |
20 |
AIM_TENDENCY_APPLY_U |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_tendency_apply.F |
246 |
AIM_TENDENCY_APPLY_V |
INTEGER myIter |
./pkg/aim_v23/aim_tendency_apply.F |
396 |
AIM_TENDENCY_APPLY_T |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_tendency_apply.F |
429 |
AIM_TENDENCY_APPLY_T |
INTEGER myIter |
./pkg/aim_v23/aim_tendency_apply.F |
458 |
AIM_TENDENCY_APPLY_S |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_tendency_apply.F |
491 |
AIM_TENDENCY_APPLY_S |
INTEGER myIter |
./pkg/aim_v23/aim_tendency_apply.F |
58 |
AIM_TENDENCY_APPLY_U |
INTEGER myIter |
./pkg/aim_v23/aim_write_local.F |
11 |
AIM_WRITE_LOCAL |
I bi, bj, iRec, myIter, myThid ) |
./pkg/aim_v23/aim_write_local.F |
40 |
AIM_WRITE_LOCAL |
INTEGER bi, bj, iRec, myIter, myThid |
./pkg/aim_v23/aim_write_local.F |
61 |
AIM_WRITE_LOCAL |
& 'AIM_WRITE_LOCAL (it=', myIter, ' bi,bj=', bi,bj, |
./pkg/aim_v23/aim_write_local.F |
94 |
AIM_WRITE_LOCAL |
& bi, bj, iRec, myIter, myThid ) |
./pkg/aim_v23/aim_write_phys.F |
11 |
AIM_WRITE_PHYS |
I kLev, bi, bj, iRec, myIter, myThid ) |
./pkg/aim_v23/aim_write_phys.F |
133 |
AIM_WRITE_PHYS |
& biLoc, bjLoc, iRec, myIter, 0 ) |
./pkg/aim_v23/aim_write_phys.F |
43 |
AIM_WRITE_PHYS |
INTEGER kLev, bi, bj, iRec, myIter, myThid |
./pkg/aim_v23/aim_write_phys.F |
81 |
AIM_WRITE_PHYS |
& 'AIM_WRITE_PHYS (it=', myIter, ' bi,bj=', bi,bj, |
./pkg/aim_v23/aim_write_phys.F |
91 |
AIM_WRITE_PHYS |
& 'AIM_WRITE_PHYS (it=', myIter, ' bi,bj=', bi,bj, |
./pkg/aim_v23/aim_write_tave.F |
133 |
AIM_WRITE_TAVE |
CALL MNC_CW_I_W_S('I',mncfn,0,0,'iter',myIter,myThid) |
./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 |
169 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, USTRtave, 1, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
170 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, VSTRtave, 2, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
171 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, TSRtave , 3, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
172 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, OLRtave , 4, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
173 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, SSRtave , 5, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
174 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, SLRtave , 6, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
175 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, SHFtave , 7, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
176 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, EVAPtave, 8, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
177 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, PRECNVtave, 9, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
178 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, PRECLStave, 10, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
179 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, CLOUDCtave, 11, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
180 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, CLTOPtave, 12, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
181 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, CBMFtave, 13, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
182 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, DRAGtave, 14, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
183 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, aimV0tave, 15, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
184 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, aimT0tave, 16, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
185 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, aimQ0tave, 17, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
186 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, EnFxPrtave, 18, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
187 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, albedotave, 19, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
188 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, dTsurftave, 20, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
191 |
AIM_WRITE_TAVE |
& myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
194 |
AIM_WRITE_TAVE |
& '// AIM Time-average written, t-step', myIter |
./pkg/aim_v23/aim_write_tave.F |
33 |
AIM_WRITE_TAVE |
INTEGER myIter |
./pkg/aim_v23/aim_write_tave.F |
56 |
AIM_WRITE_TAVE |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/aim_v23/aim_write_tave.F |
87 |
AIM_WRITE_TAVE |
IF ( myIter.NE.nIter0 .AND. |
./pkg/aim_v23/aim_write_tave.F |
9 |
AIM_WRITE_TAVE |
SUBROUTINE AIM_WRITE_TAVE( myTime, myIter, myThid ) |
./pkg/aim_v23/phy_driver.F |
10 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/phy_driver.F |
143 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/phy_driver.F |
316 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/phy_driver.F |
344 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/phy_driver.F |
80 |
PHY_DRIVER |
INTEGER myIter, myThid |
./pkg/atm2d/atm2d_write_pickup.F |
104 |
ATM2D_WRITE_PICKUP_NOW |
I myIter, |
./pkg/atm2d/atm2d_write_pickup.F |
129 |
ATM2D_WRITE_PICKUP_NOW |
INTEGER myIter |
./pkg/atm2d/atm2d_write_pickup.F |
148 |
ATM2D_WRITE_PICKUP_NOW |
WRITE(fn,'(A,I10.10)') 'pickup_atm2d.',myIter |
./pkg/atm2d/atm2d_write_pickup.F |
153 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_slp, 1,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
154 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_qnet, 2,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
155 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_solarnet, 3,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
156 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_fu, 4,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
157 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_fv, 5,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
158 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_precip, 6,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
159 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_evap, 7,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
160 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_runoff, 8,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
161 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_wspeed, 9,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
162 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_pCO2, 10,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
163 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_sIceLoad,11,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
165 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,sHeating, 12,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
166 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,flxCndBt, 13,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
167 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_prcAtm, 14,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
168 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,snowPrc, 15,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
169 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,icFrwAtm, 16,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
170 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,icFlxSw, 17,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
171 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,siceAlb, 18,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
43 |
ATM2D_WRITE_PICKUP |
INTEGER myIter |
./pkg/atm2d/atm2d_write_pickup.F |
66 |
ATM2D_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
69 |
ATM2D_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
83 |
ATM2D_WRITE_PICKUP |
& permCheckPoint, myTime, myIter, myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
9 |
ATM2D_WRITE_PICKUP |
I myIter, |
./pkg/atm2d/atm2ocn_main.F |
32 |
ATM2OCN_MAIN |
INTEGER myIter |
./pkg/atm2d/atm2ocn_main.F |
58 |
ATM2OCN_MAIN |
& intime0,intime1,ifTime,myIter,myThid) |
./pkg/atm2d/atm2ocn_main.F |
61 |
ATM2OCN_MAIN |
& intime0,intime1,ifTime,myIter,myThid) |
./pkg/atm2d/atm2ocn_main.F |
8 |
ATM2OCN_MAIN |
& myIter, myThid ) |
./pkg/atm2d/calc_zonal_means.F |
42 |
CALC_ZONAL_MEANS |
INTEGER myIter |
./pkg/atm2d/calc_zonal_means.F |
68 |
CALC_ZONAL_MEANS |
I myTime, myIter, myThid ) |
./pkg/atm2d/calc_zonal_means.F |
8 |
CALC_ZONAL_MEANS |
SUBROUTINE CALC_ZONAL_MEANS(doAll, myTime, myIter, myThid ) |
./pkg/atm2d/fixed_flux_add.F |
104 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
110 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
116 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
38 |
FIXED_FLUX_ADD |
INTEGER myIter |
./pkg/atm2d/fixed_flux_add.F |
76 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
78 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
82 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
84 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
88 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
90 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
94 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
96 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
9 |
FIXED_FLUX_ADD |
& intime0, intime1, iftime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
203 |
FORWARD_STEP_ATM2D |
CALL GET_OCNVARS( myTime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
214 |
FORWARD_STEP_ATM2D |
& myTime, myIter, myThid ) |
./pkg/atm2d/forward_step_atm2d.F |
215 |
FORWARD_STEP_ATM2D |
CALL THSICE_AVE( 1,1, myTime, myIter, myThid ) |
./pkg/atm2d/forward_step_atm2d.F |
218 |
FORWARD_STEP_ATM2D |
CALL PUT_OCNVARS(myTime,myIter,myThid) |
./pkg/atm2d/forward_step_atm2d.F |
219 |
FORWARD_STEP_ATM2D |
CALL SUM_YR_END_DIAGS(myTime,myIter,myThid) |
./pkg/atm2d/forward_step_atm2d.F |
229 |
FORWARD_STEP_ATM2D |
CALL ATM2OCN_MAIN(iloop, na, monid, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
233 |
FORWARD_STEP_ATM2D |
& myTime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
245 |
FORWARD_STEP_ATM2D |
CALL FORWARD_STEP(iloop_ocn, myTime, myIter, myThid ) |
./pkg/atm2d/forward_step_atm2d.F |
247 |
FORWARD_STEP_ATM2D |
myIter = nIter0 + iloop_ocn |
./pkg/atm2d/forward_step_atm2d.F |
249 |
FORWARD_STEP_ATM2D |
CALL DO_THE_MODEL_IO( .FALSE., myTime, myIter, myThid ) |
./pkg/atm2d/forward_step_atm2d.F |
250 |
FORWARD_STEP_ATM2D |
CALL DO_WRITE_PICKUP( .FALSE., myTime, myIter, myThid ) |
./pkg/atm2d/forward_step_atm2d.F |
263 |
FORWARD_STEP_ATM2D |
CALL ATM2D_WRITE_PICKUP(.FALSE., myTime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
312 |
FORWARD_STEP_ATM2D |
CALL MONTH_END_DIAGS( monid, myTime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
377 |
FORWARD_STEP_ATM2D |
CALL TAVE_END_DIAGS( taveDump, myTime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
379 |
FORWARD_STEP_ATM2D |
CALL TAVE_END_DIAGS( idyear, myTime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
381 |
FORWARD_STEP_ATM2D |
CALL YR_END_DIAGS(iyr,myTime,myIter,myThid) |
./pkg/atm2d/forward_step_atm2d.F |
40 |
FORWARD_STEP_ATM2D |
INTEGER myIter |
./pkg/atm2d/forward_step_atm2d.F |
9 |
FORWARD_STEP_ATM2D |
SUBROUTINE FORWARD_STEP_ATM2D(iloop, myTime, myIter, myThid) |
./pkg/atm2d/get_ocnvars.F |
43 |
GET_OCNVARS |
INTEGER myIter |
./pkg/atm2d/get_ocnvars.F |
8 |
GET_OCNVARS |
SUBROUTINE GET_OCNVARS( myTime, myIter, myThid ) |
./pkg/atm2d/month_end_diags.F |
100 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
102 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
104 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
29 |
MONTH_END_DIAGS |
INTEGER myIter |
./pkg/atm2d/month_end_diags.F |
84 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
86 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
88 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
8 |
MONTH_END_DIAGS |
SUBROUTINE MONTH_END_DIAGS( monid, myTime, myIter, myThid ) |
./pkg/atm2d/month_end_diags.F |
90 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
92 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
94 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
96 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
98 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/put_ocnvars.F |
41 |
PUT_OCNVARS |
INTEGER myIter |
./pkg/atm2d/put_ocnvars.F |
8 |
PUT_OCNVARS |
SUBROUTINE PUT_OCNVARS( myTime, myIter, myThid ) |
./pkg/atm2d/relax_add.F |
40 |
RELAX_ADD |
INTEGER myIter |
./pkg/atm2d/relax_add.F |
67 |
RELAX_ADD |
& myIter,myThid ) |
./pkg/atm2d/relax_add.F |
69 |
RELAX_ADD |
& myIter,myThid ) |
./pkg/atm2d/relax_add.F |
73 |
RELAX_ADD |
& myIter,myThid ) |
./pkg/atm2d/relax_add.F |
75 |
RELAX_ADD |
& myIter,myThid ) |
./pkg/atm2d/relax_add.F |
9 |
RELAX_ADD |
& intime0, intime1, iftime, myIter, myThid) |
./pkg/atm2d/sum_yr_end_diags.F |
30 |
SUM_YR_END_DIAGS |
INTEGER myIter |
./pkg/atm2d/sum_yr_end_diags.F |
8 |
SUM_YR_END_DIAGS |
SUBROUTINE SUM_YR_END_DIAGS( myTime, myIter, myThid ) |
./pkg/atm2d/tave_end_diags.F |
132 |
TAVE_END_DIAGS |
& qnet_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
134 |
TAVE_END_DIAGS |
& evap_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
136 |
TAVE_END_DIAGS |
& precip_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
138 |
TAVE_END_DIAGS |
& runoff_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
140 |
TAVE_END_DIAGS |
& qrel_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
142 |
TAVE_END_DIAGS |
& frel_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
144 |
TAVE_END_DIAGS |
& iceMask_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
146 |
TAVE_END_DIAGS |
& iceHeight_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
148 |
TAVE_END_DIAGS |
& iceTime_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
150 |
TAVE_END_DIAGS |
& oceMxLT_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
152 |
TAVE_END_DIAGS |
& oceMxLS_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
156 |
TAVE_END_DIAGS |
WRITE(suff,'(I10.10)') myIter |
./pkg/atm2d/tave_end_diags.F |
158 |
TAVE_END_DIAGS |
& qnet_ann, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
160 |
TAVE_END_DIAGS |
& evap_ann, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
162 |
TAVE_END_DIAGS |
& precip_ann, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
164 |
TAVE_END_DIAGS |
& runoff_ann, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
166 |
TAVE_END_DIAGS |
& qrel_ann, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
168 |
TAVE_END_DIAGS |
& frel_ann, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
171 |
TAVE_END_DIAGS |
simYr = int(myIter*deltaTClock/secYr) |
./pkg/atm2d/tave_end_diags.F |
30 |
TAVE_END_DIAGS |
INTEGER myIter |
./pkg/atm2d/tave_end_diags.F |
8 |
TAVE_END_DIAGS |
SUBROUTINE TAVE_END_DIAGS( nYears, myTime, myIter, myThid ) |
./pkg/atm2d/yr_end_diags.F |
31 |
YR_END_DIAGS |
INTEGER myIter |
./pkg/atm2d/yr_end_diags.F |
8 |
YR_END_DIAGS |
SUBROUTINE YR_END_DIAGS( iyr, myTime, myIter, myThid ) |
./pkg/atm_compon_interf/atm_apply_import.F |
12 |
ATM_APPLY_IMPORT |
I myTime, myIter, bi, bj, myThid ) |
./pkg/atm_compon_interf/atm_apply_import.F |
53 |
ATM_APPLY_IMPORT |
INTEGER myIter, bi, bj, myThid |
./pkg/atm_compon_interf/atm_apply_import.F |
65 |
ATM_APPLY_IMPORT |
IF ( MOD(myIter,cplSendFrq_iter).EQ.0 ) THEN |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
142 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HeatFlux , 6, myIter,myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
143 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, qShortWave, 7, myIter,myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
144 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, tauX , 8, myIter,myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
145 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, tauY , 9, myIter,myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
146 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, EvMPrFlux , 10, myIter,myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
148 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, RunOffFlux, 11, myIter,myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
149 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, RunOffEnFx, 12, myIter,myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
152 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, iceSaltFlx, 13, myIter,myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
158 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp, 1, airCO2 , 16, myIter,myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
159 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp, 1, sWSpeed , 17, myIter,myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
174 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
176 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
178 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
180 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
182 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
186 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
188 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
194 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
198 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
204 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
206 |
ATM_CPL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
218 |
ATM_CPL_READ_PICKUP |
I myIter, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
32 |
ATM_CPL_READ_PICKUP |
INTEGER myIter |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
64 |
ATM_CPL_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cpl.', myIter |
./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 |
77 |
ATM_CPL_READ_PICKUP |
I Nr, myIter, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
9 |
ATM_CPL_READ_PICKUP |
SUBROUTINE ATM_CPL_READ_PICKUP( myIter, myThid ) |
./pkg/atm_compon_interf/atm_export_fields.F |
36 |
ATM_EXPORT_FIELDS |
INTEGER myIter |
./pkg/atm_compon_interf/atm_export_fields.F |
9 |
ATM_EXPORT_FIELDS |
SUBROUTINE ATM_EXPORT_FIELDS( myIter, myThid ) |
./pkg/atm_compon_interf/atm_import_fields.F |
36 |
ATM_IMPORT_FIELDS |
INTEGER myIter |
./pkg/atm_compon_interf/atm_import_fields.F |
9 |
ATM_IMPORT_FIELDS |
SUBROUTINE ATM_IMPORT_FIELDS( myIter, myThid ) |
./pkg/atm_compon_interf/atm_store_aim_fields.F |
14 |
ATM_STORE_AIM_FIELDS |
I myTime, myIter, myThid ) |
./pkg/atm_compon_interf/atm_store_aim_fields.F |
54 |
ATM_STORE_AIM_FIELDS |
INTEGER myIter |
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
14 |
ATM_STORE_AIM_WNDSTR |
I myTime, myIter, myThid ) |
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
58 |
ATM_STORE_AIM_WNDSTR |
INTEGER myIter |
./pkg/atm_compon_interf/atm_store_dynvars.F |
11 |
ATM_STORE_DYNVARS |
I myTime, myIter, myThid ) |
./pkg/atm_compon_interf/atm_store_dynvars.F |
43 |
ATM_STORE_DYNVARS |
INTEGER myIter |
./pkg/atm_compon_interf/atm_store_land.F |
11 |
ATM_STORE_LAND |
I myTime, myIter, myThid ) |
./pkg/atm_compon_interf/atm_store_land.F |
50 |
ATM_STORE_LAND |
INTEGER myIter |
./pkg/atm_compon_interf/atm_store_my_data.F |
10 |
ATM_STORE_MY_DATA |
I myTime, myIter, myThid ) |
./pkg/atm_compon_interf/atm_store_my_data.F |
38 |
ATM_STORE_MY_DATA |
INTEGER myIter |
./pkg/atm_compon_interf/atm_store_my_data.F |
51 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_SURFFLUX( bi, bj, myTime, myIter, myThid ) |
./pkg/atm_compon_interf/atm_store_my_data.F |
53 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_AIM_WNDSTR( bi, bj, myTime, myIter, myThid ) |
./pkg/atm_compon_interf/atm_store_my_data.F |
56 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_AIM_FIELDS( bi, bj, myTime, myIter, myThid ) |
./pkg/atm_compon_interf/atm_store_my_data.F |
59 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_LAND( bi, bj, myTime, myIter, myThid ) |
./pkg/atm_compon_interf/atm_store_surfflux.F |
11 |
ATM_STORE_SURFFLUX |
I myTime, myIter, myThid ) |
./pkg/atm_compon_interf/atm_store_surfflux.F |
44 |
ATM_STORE_SURFFLUX |
INTEGER myIter |
./pkg/atm_compon_interf/atm_store_thsice.F |
11 |
ATM_STORE_THSICE |
I myTime, myIter, myThid ) |
./pkg/atm_compon_interf/atm_store_thsice.F |
46 |
ATM_STORE_THSICE |
INTEGER myIter |
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
12 |
CPL_DIAGNOSTICS_FILL |
I myTime, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
30 |
CPL_DIAGNOSTICS_FILL |
INTEGER myIter, myThid |
./pkg/atm_compon_interf/cpl_export_import_data.F |
100 |
CPL_EXPORT_IMPORT_DATA |
CALL CPL_DIAGNOSTICS_FILL( myTime, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_export_import_data.F |
10 |
CPL_EXPORT_IMPORT_DATA |
I myTime, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_export_import_data.F |
39 |
CPL_EXPORT_IMPORT_DATA |
INTEGER myIter |
./pkg/atm_compon_interf/cpl_export_import_data.F |
57 |
CPL_EXPORT_IMPORT_DATA |
IF ( MOD(myIter,cplSendFrq_iter).EQ.0 ) THEN |
./pkg/atm_compon_interf/cpl_export_import_data.F |
61 |
CPL_EXPORT_IMPORT_DATA |
& ' Exporting atmospheric surf fluxes at iter=', myIter |
./pkg/atm_compon_interf/cpl_export_import_data.F |
71 |
CPL_EXPORT_IMPORT_DATA |
CALL ATM_STORE_DYNVARS( bi, bj, myTime, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_export_import_data.F |
73 |
CPL_EXPORT_IMPORT_DATA |
CALL ATM_STORE_THSICE( bi, bj, myTime, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_export_import_data.F |
79 |
CPL_EXPORT_IMPORT_DATA |
CALL ATM_EXPORT_FIELDS( myIter, myThid ) |
./pkg/atm_compon_interf/cpl_export_import_data.F |
86 |
CPL_EXPORT_IMPORT_DATA |
IF ( MOD(myIter,cplSendFrq_iter).EQ.0 ) THEN |
./pkg/atm_compon_interf/cpl_export_import_data.F |
90 |
CPL_EXPORT_IMPORT_DATA |
& ' Importing oceanic surface fields at iter=', myIter |
./pkg/atm_compon_interf/cpl_export_import_data.F |
97 |
CPL_EXPORT_IMPORT_DATA |
CALL ATM_IMPORT_FIELDS( myIter, myThid ) |
./pkg/atm_compon_interf/cpl_output.F |
27 |
CPL_OUTPUT |
INTEGER myIter |
./pkg/atm_compon_interf/cpl_output.F |
7 |
CPL_OUTPUT |
SUBROUTINE CPL_OUTPUT( myTime, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
103 |
CPL_WRITE_PICKUP |
& EvMPrFlux , -j, myIter, myThid ) |
./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 |
110 |
CPL_WRITE_PICKUP |
& RunOffFlux, -j, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
114 |
CPL_WRITE_PICKUP |
& RunOffEnFx, -j, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
122 |
CPL_WRITE_PICKUP |
& iceSaltFlx, -j, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
128 |
CPL_WRITE_PICKUP |
& saltPlmFlx_cpl, -j, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
136 |
CPL_WRITE_PICKUP |
& airCO2 , -j, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
140 |
CPL_WRITE_PICKUP |
& sWSpeed , -j, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
173 |
CPL_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
38 |
CPL_WRITE_PICKUP |
INTEGER myIter |
./pkg/atm_compon_interf/cpl_write_pickup.F |
83 |
CPL_WRITE_PICKUP |
& HeatFlux , -j, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
88 |
CPL_WRITE_PICKUP |
& qShortWave, -j, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
93 |
CPL_WRITE_PICKUP |
& tauX , -j, myIter, myThid ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
98 |
CPL_WRITE_PICKUP |
& tauY , -j, myIter, myThid ) |
./pkg/atm_phys/atm_phys_driver.F |
11 |
ATM_PHYS_DRIVER |
I myTime, myIter, myThid ) |
./pkg/atm_phys/atm_phys_driver.F |
164 |
ATM_PHYS_DRIVER |
I myTime, myIter, bi, bj, myThid ) |
./pkg/atm_phys/atm_phys_driver.F |
190 |
ATM_PHYS_DRIVER |
I bi, bj, myTime, myIter, myThid ) |
./pkg/atm_phys/atm_phys_driver.F |
215 |
ATM_PHYS_DRIVER |
I bi,bj,myIter,myThid ) |
./pkg/atm_phys/atm_phys_driver.F |
43 |
ATM_PHYS_DRIVER |
INTEGER myIter, myThid |
./pkg/atm_phys/atm_phys_driver.F |
526 |
ATM_PHYS_DRIVER |
CALL ATM_STORE_MY_DATA( myTime, myIter, myThid ) |
./pkg/atm_phys/atm_phys_dyn2phys.F |
14 |
ATM_PHYS_DYN2PHYS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/atm_phys/atm_phys_dyn2phys.F |
40 |
ATM_PHYS_DYN2PHYS |
INTEGER myIter, myThid |
./pkg/atm_phys/atm_phys_read_pickup.F |
11 |
ATM_PHYS_READ_PICKUP |
SUBROUTINE ATM_PHYS_READ_PICKUP( myIter, myThid ) |
./pkg/atm_phys/atm_phys_read_pickup.F |
143 |
ATM_PHYS_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/atm_phys/atm_phys_read_pickup.F |
153 |
ATM_PHYS_READ_PICKUP |
I myIter, myThid ) |
./pkg/atm_phys/atm_phys_read_pickup.F |
27 |
ATM_PHYS_READ_PICKUP |
INTEGER myIter |
./pkg/atm_phys/atm_phys_read_pickup.F |
62 |
ATM_PHYS_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_atmPhys.', myIter |
./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 |
75 |
ATM_PHYS_READ_PICKUP |
I Nr, myIter, myThid ) |
./pkg/atm_phys/atm_phys_tendency_apply.F |
108 |
ATM_PHYS_TENDENCY_APPLY_V |
I myTime, myIter, myThid ) |
./pkg/atm_phys/atm_phys_tendency_apply.F |
138 |
ATM_PHYS_TENDENCY_APPLY_V |
INTEGER myIter |
./pkg/atm_phys/atm_phys_tendency_apply.F |
196 |
ATM_PHYS_TENDENCY_APPLY_T |
I myTime, myIter, myThid ) |
./pkg/atm_phys/atm_phys_tendency_apply.F |
20 |
ATM_PHYS_TENDENCY_APPLY_U |
I myTime, myIter, myThid ) |
./pkg/atm_phys/atm_phys_tendency_apply.F |
224 |
ATM_PHYS_TENDENCY_APPLY_T |
INTEGER myIter |
./pkg/atm_phys/atm_phys_tendency_apply.F |
251 |
ATM_PHYS_TENDENCY_APPLY_S |
I myTime, myIter, myThid ) |
./pkg/atm_phys/atm_phys_tendency_apply.F |
279 |
ATM_PHYS_TENDENCY_APPLY_S |
INTEGER myIter |
./pkg/atm_phys/atm_phys_tendency_apply.F |
50 |
ATM_PHYS_TENDENCY_APPLY_U |
INTEGER myIter |
./pkg/atm_phys/atm_phys_write_pickup.F |
114 |
ATM_PHYS_WRITE_PICKUP |
& nj, myIter, myThid ) |
./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 |
33 |
ATM_PHYS_WRITE_PICKUP |
INTEGER myIter |
./pkg/atm_phys/atm_phys_write_pickup.F |
85 |
ATM_PHYS_WRITE_PICKUP |
& atmPhys_SST, nj, myIter, myThid ) |
./pkg/autodiff/active_file_ad.F |
115 |
ADACTIVE_READ_XY |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_ad.F |
130 |
ADACTIVE_READ_XYZ |
I myIter, |
./pkg/autodiff/active_file_ad.F |
141 |
ADACTIVE_READ_XYZ |
I myIter, |
./pkg/autodiff/active_file_ad.F |
177 |
ADACTIVE_READ_XYZ |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_ad.F |
204 |
ADACTIVE_READ_XYZ |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_ad.F |
219 |
ADACTIVE_READ_XZ |
I myIter, |
./pkg/autodiff/active_file_ad.F |
230 |
ADACTIVE_READ_XZ |
I myIter, |
./pkg/autodiff/active_file_ad.F |
266 |
ADACTIVE_READ_XZ |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_ad.F |
293 |
ADACTIVE_READ_XZ |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_ad.F |
308 |
ADACTIVE_READ_YZ |
I myIter, |
./pkg/autodiff/active_file_ad.F |
319 |
ADACTIVE_READ_YZ |
I myIter, |
./pkg/autodiff/active_file_ad.F |
355 |
ADACTIVE_READ_YZ |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_ad.F |
382 |
ADACTIVE_READ_YZ |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_ad.F |
395 |
ADACTIVE_WRITE_XY |
I myIter, |
./pkg/autodiff/active_file_ad.F |
405 |
ADACTIVE_WRITE_XY |
I myIter, |
./pkg/autodiff/active_file_ad.F |
41 |
ADACTIVE_READ_XY |
I myIter, |
./pkg/autodiff/active_file_ad.F |
437 |
ADACTIVE_WRITE_XY |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_ad.F |
464 |
ADACTIVE_WRITE_XY |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_ad.F |
477 |
ADACTIVE_WRITE_XYZ |
I myIter, |
./pkg/autodiff/active_file_ad.F |
487 |
ADACTIVE_WRITE_XYZ |
I myIter, |
./pkg/autodiff/active_file_ad.F |
519 |
ADACTIVE_WRITE_XYZ |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_ad.F |
52 |
ADACTIVE_READ_XY |
I myIter, |
./pkg/autodiff/active_file_ad.F |
546 |
ADACTIVE_WRITE_XYZ |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_ad.F |
559 |
ADACTIVE_WRITE_XZ |
I myIter, |
./pkg/autodiff/active_file_ad.F |
569 |
ADACTIVE_WRITE_XZ |
I myIter, |
./pkg/autodiff/active_file_ad.F |
600 |
ADACTIVE_WRITE_XZ |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_ad.F |
627 |
ADACTIVE_WRITE_XZ |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_ad.F |
640 |
ADACTIVE_WRITE_YZ |
I myIter, |
./pkg/autodiff/active_file_ad.F |
650 |
ADACTIVE_WRITE_YZ |
I myIter, |
./pkg/autodiff/active_file_ad.F |
682 |
ADACTIVE_WRITE_YZ |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_ad.F |
709 |
ADACTIVE_WRITE_YZ |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_ad.F |
88 |
ADACTIVE_READ_XY |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_gen_ad.F |
114 |
ADACTIVE_READ_GEN_RL |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_gen_ad.F |
121 |
ADACTIVE_READ_GEN_RL |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_gen_ad.F |
128 |
ADACTIVE_READ_GEN_RL |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_gen_ad.F |
150 |
ADACTIVE_READ_GEN_RS |
I myIter, |
./pkg/autodiff/active_file_gen_ad.F |
163 |
ADACTIVE_READ_GEN_RS |
I myIter, |
./pkg/autodiff/active_file_gen_ad.F |
207 |
ADACTIVE_READ_GEN_RS |
INTEGER myIter |
./pkg/autodiff/active_file_gen_ad.F |
231 |
ADACTIVE_READ_GEN_RS |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_gen_ad.F |
238 |
ADACTIVE_READ_GEN_RS |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_gen_ad.F |
245 |
ADACTIVE_READ_GEN_RS |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_gen_ad.F |
265 |
ADACTIVE_WRITE_GEN_RL |
I myIter, |
./pkg/autodiff/active_file_gen_ad.F |
276 |
ADACTIVE_WRITE_GEN_RL |
I myIter, |
./pkg/autodiff/active_file_gen_ad.F |
314 |
ADACTIVE_WRITE_GEN_RL |
INTEGER myIter |
./pkg/autodiff/active_file_gen_ad.F |
33 |
ADACTIVE_READ_GEN_RL |
I myIter, |
./pkg/autodiff/active_file_gen_ad.F |
341 |
ADACTIVE_WRITE_GEN_RL |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_gen_ad.F |
348 |
ADACTIVE_WRITE_GEN_RL |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_gen_ad.F |
355 |
ADACTIVE_WRITE_GEN_RL |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_gen_ad.F |
375 |
ADACTIVE_WRITE_GEN_RS |
I myIter, |
./pkg/autodiff/active_file_gen_ad.F |
386 |
ADACTIVE_WRITE_GEN_RS |
I myIter, |
./pkg/autodiff/active_file_gen_ad.F |
424 |
ADACTIVE_WRITE_GEN_RS |
INTEGER myIter |
./pkg/autodiff/active_file_gen_ad.F |
451 |
ADACTIVE_WRITE_GEN_RS |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_gen_ad.F |
458 |
ADACTIVE_WRITE_GEN_RS |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_gen_ad.F |
465 |
ADACTIVE_WRITE_GEN_RS |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_gen_ad.F |
46 |
ADACTIVE_READ_GEN_RL |
I myIter, |
./pkg/autodiff/active_file_gen_ad.F |
90 |
ADACTIVE_READ_GEN_RL |
INTEGER myIter |
./pkg/autodiff/active_file_loc_ad.F |
115 |
ADACTIVE_READ_XY_LOC |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_loc_ad.F |
130 |
ADACTIVE_READ_XYZ_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
141 |
ADACTIVE_READ_XYZ_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
177 |
ADACTIVE_READ_XYZ_LOC |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_loc_ad.F |
204 |
ADACTIVE_READ_XYZ_LOC |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_loc_ad.F |
219 |
ADACTIVE_READ_XZ_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
230 |
ADACTIVE_READ_XZ_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
266 |
ADACTIVE_READ_XZ_LOC |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_loc_ad.F |
293 |
ADACTIVE_READ_XZ_LOC |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_loc_ad.F |
308 |
ADACTIVE_READ_YZ_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
319 |
ADACTIVE_READ_YZ_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
355 |
ADACTIVE_READ_YZ_LOC |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_loc_ad.F |
382 |
ADACTIVE_READ_YZ_LOC |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_loc_ad.F |
395 |
ADACTIVE_WRITE_XY_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
405 |
ADACTIVE_WRITE_XY_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
41 |
ADACTIVE_READ_XY_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
437 |
ADACTIVE_WRITE_XY_LOC |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_loc_ad.F |
464 |
ADACTIVE_WRITE_XY_LOC |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_loc_ad.F |
477 |
ADACTIVE_WRITE_XYZ_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
487 |
ADACTIVE_WRITE_XYZ_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
519 |
ADACTIVE_WRITE_XYZ_LOC |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_loc_ad.F |
52 |
ADACTIVE_READ_XY_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
546 |
ADACTIVE_WRITE_XYZ_LOC |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_loc_ad.F |
559 |
ADACTIVE_WRITE_XZ_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
569 |
ADACTIVE_WRITE_XZ_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
600 |
ADACTIVE_WRITE_XZ_LOC |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_loc_ad.F |
627 |
ADACTIVE_WRITE_XZ_LOC |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_loc_ad.F |
640 |
ADACTIVE_WRITE_YZ_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
650 |
ADACTIVE_WRITE_YZ_LOC |
I myIter, |
./pkg/autodiff/active_file_loc_ad.F |
682 |
ADACTIVE_WRITE_YZ_LOC |
INTEGER myIter,myThid |
./pkg/autodiff/active_file_loc_ad.F |
709 |
ADACTIVE_WRITE_YZ_LOC |
& REVERSE_SIMULATION, myIter, myThid ) |
./pkg/autodiff/active_file_loc_ad.F |
88 |
ADACTIVE_READ_XY_LOC |
INTEGER myIter,myThid |
./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 |
114 |
ADDUMMY_IN_DYNAMICS |
& adrhoinsitu, dumpAdRecDy, myIter, myThid ) |
./pkg/autodiff/addummy_in_dynamics.F |
123 |
ADDUMMY_IN_DYNAMICS |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_dynamics.F |
125 |
ADDUMMY_IN_DYNAMICS |
& var3Du, dumpAdRecDy, myIter, myThid ) |
./pkg/autodiff/addummy_in_dynamics.F |
13 |
ADDUMMY_IN_DYNAMICS |
SUBROUTINE ADDUMMY_IN_DYNAMICS( myTime, myIter, myThid ) |
./pkg/autodiff/addummy_in_dynamics.F |
52 |
ADDUMMY_IN_DYNAMICS |
INTEGER myIter |
./pkg/autodiff/addummy_in_dynamics.F |
99 |
ADDUMMY_IN_DYNAMICS |
WRITE(suff,'(I10.10)') myIter |
./pkg/autodiff/addummy_in_stepping.F |
16 |
ADDUMMY_IN_STEPPING |
SUBROUTINE ADDUMMY_IN_STEPPING( myTime, myIter, myThid ) |
./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 |
199 |
ADDUMMY_IN_STEPPING |
& adTheta, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
201 |
ADDUMMY_IN_STEPPING |
& adSalt, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
203 |
ADDUMMY_IN_STEPPING |
& aduVel, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
205 |
ADDUMMY_IN_STEPPING |
& advVel, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
207 |
ADDUMMY_IN_STEPPING |
& adwVel, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
209 |
ADDUMMY_IN_STEPPING |
& adEtaN, myIter, myThid ) |
./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 |
225 |
ADDUMMY_IN_STEPPING |
& adGGL90TKE, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
229 |
ADDUMMY_IN_STEPPING |
& adDiffKr, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
233 |
ADDUMMY_IN_STEPPING |
& adKapGM, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
237 |
ADDUMMY_IN_STEPPING |
& adKapRedi, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
241 |
ADDUMMY_IN_STEPPING |
& adEddyPsiX, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
243 |
ADDUMMY_IN_STEPPING |
& adEddyPsiY, myIter, myThid ) |
./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 |
253 |
ADDUMMY_IN_STEPPING |
& adBottomDragFld, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
259 |
ADDUMMY_IN_STEPPING |
& adTheta, dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
261 |
ADDUMMY_IN_STEPPING |
& adSalt, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
263 |
ADDUMMY_IN_STEPPING |
& aduVel, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
265 |
ADDUMMY_IN_STEPPING |
& advVel, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
267 |
ADDUMMY_IN_STEPPING |
& adwVel, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
269 |
ADDUMMY_IN_STEPPING |
& adEtaN, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
273 |
ADDUMMY_IN_STEPPING |
& adFu, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
275 |
ADDUMMY_IN_STEPPING |
& adFv, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
277 |
ADDUMMY_IN_STEPPING |
& adQnet,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
279 |
ADDUMMY_IN_STEPPING |
& adEmPmR,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
282 |
ADDUMMY_IN_STEPPING |
& adQsw,dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
290 |
ADDUMMY_IN_STEPPING |
& adGGL90TKE, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
294 |
ADDUMMY_IN_STEPPING |
& adDiffKr, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
298 |
ADDUMMY_IN_STEPPING |
& adKapGM, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
302 |
ADDUMMY_IN_STEPPING |
& adKapRedi, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
306 |
ADDUMMY_IN_STEPPING |
& adEddyPsiX, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
308 |
ADDUMMY_IN_STEPPING |
& adEddyPsiY, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
312 |
ADDUMMY_IN_STEPPING |
& adSST, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
316 |
ADDUMMY_IN_STEPPING |
& adSSS, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
320 |
ADDUMMY_IN_STEPPING |
& adBottomDragFld, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
327 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
329 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
332 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
334 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
338 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
340 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
342 |
ADDUMMY_IN_STEPPING |
& suff, var3Dv, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
344 |
ADDUMMY_IN_STEPPING |
& var3Dv, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
347 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
349 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
352 |
ADDUMMY_IN_STEPPING |
& suff, var2Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
354 |
ADDUMMY_IN_STEPPING |
& var2Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
360 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
362 |
ADDUMMY_IN_STEPPING |
& var2Du,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
364 |
ADDUMMY_IN_STEPPING |
& suff,var2Dv,myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
366 |
ADDUMMY_IN_STEPPING |
& var2Dv,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
369 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
371 |
ADDUMMY_IN_STEPPING |
& var2Du,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
374 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
376 |
ADDUMMY_IN_STEPPING |
& var2Du,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
380 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
382 |
ADDUMMY_IN_STEPPING |
& var2Du,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
388 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
390 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
395 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
397 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
402 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
404 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
409 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
411 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
417 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
419 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
421 |
ADDUMMY_IN_STEPPING |
& suff, var3Dv, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
423 |
ADDUMMY_IN_STEPPING |
& var3Dv, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
428 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
430 |
ADDUMMY_IN_STEPPING |
& var2Du,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
435 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
437 |
ADDUMMY_IN_STEPPING |
& var2Du,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
443 |
ADDUMMY_IN_STEPPING |
& suff, var2Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
445 |
ADDUMMY_IN_STEPPING |
& var2Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
457 |
ADDUMMY_IN_STEPPING |
& foo3D, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
460 |
ADDUMMY_IN_STEPPING |
& foo3D, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
463 |
ADDUMMY_IN_STEPPING |
& foo3D, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
466 |
ADDUMMY_IN_STEPPING |
& foo3D, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
469 |
ADDUMMY_IN_STEPPING |
& foo3D, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
472 |
ADDUMMY_IN_STEPPING |
& foo2D, myIter, myThid ) |
./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 |
499 |
ADDUMMY_IN_STEPPING |
& foo3d, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
504 |
ADDUMMY_IN_STEPPING |
& foo3d, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
509 |
ADDUMMY_IN_STEPPING |
& foo3d, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
514 |
ADDUMMY_IN_STEPPING |
& foo3d, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
517 |
ADDUMMY_IN_STEPPING |
& foo3d, myIter, myThid ) |
./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 |
530 |
ADDUMMY_IN_STEPPING |
& adBottomDragFld, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
537 |
ADDUMMY_IN_STEPPING |
& foo3d, dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
540 |
ADDUMMY_IN_STEPPING |
& foo3d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
543 |
ADDUMMY_IN_STEPPING |
& foo3d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
546 |
ADDUMMY_IN_STEPPING |
& foo3d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
549 |
ADDUMMY_IN_STEPPING |
& foo3d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
552 |
ADDUMMY_IN_STEPPING |
& foo2d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
557 |
ADDUMMY_IN_STEPPING |
& foo2d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
560 |
ADDUMMY_IN_STEPPING |
& foo2d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
563 |
ADDUMMY_IN_STEPPING |
& foo2d,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
566 |
ADDUMMY_IN_STEPPING |
& foo2d,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
584 |
ADDUMMY_IN_STEPPING |
& foo3d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
589 |
ADDUMMY_IN_STEPPING |
& foo3d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
594 |
ADDUMMY_IN_STEPPING |
& foo3d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
599 |
ADDUMMY_IN_STEPPING |
& foo3d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
602 |
ADDUMMY_IN_STEPPING |
& foo3d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
607 |
ADDUMMY_IN_STEPPING |
& foo2d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
612 |
ADDUMMY_IN_STEPPING |
& foo2d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
617 |
ADDUMMY_IN_STEPPING |
& foo2d, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
625 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
627 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
630 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
632 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
636 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
638 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
640 |
ADDUMMY_IN_STEPPING |
& suff, var3Dv, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
642 |
ADDUMMY_IN_STEPPING |
& var3Dv, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
645 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
647 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
650 |
ADDUMMY_IN_STEPPING |
& suff, var2Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
652 |
ADDUMMY_IN_STEPPING |
& var2Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
658 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
660 |
ADDUMMY_IN_STEPPING |
& var2Du,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
662 |
ADDUMMY_IN_STEPPING |
& suff,var2Dv,myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
664 |
ADDUMMY_IN_STEPPING |
& var2Dv,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
667 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
669 |
ADDUMMY_IN_STEPPING |
& var2Du,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
672 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
674 |
ADDUMMY_IN_STEPPING |
& var2Du,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
67 |
ADDUMMY_IN_STEPPING |
INTEGER myIter |
./pkg/autodiff/addummy_in_stepping.F |
693 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
695 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
700 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
702 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
707 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
709 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
715 |
ADDUMMY_IN_STEPPING |
& suff, var3Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
717 |
ADDUMMY_IN_STEPPING |
& var3Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
719 |
ADDUMMY_IN_STEPPING |
& suff, var3Dv, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
721 |
ADDUMMY_IN_STEPPING |
& var3Dv, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
726 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
728 |
ADDUMMY_IN_STEPPING |
& var2Du,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
733 |
ADDUMMY_IN_STEPPING |
& suff,var2Du,myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
735 |
ADDUMMY_IN_STEPPING |
& var2Du,dumpAdRecMn, myIter,myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
741 |
ADDUMMY_IN_STEPPING |
& suff, var2Du, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
743 |
ADDUMMY_IN_STEPPING |
& var2Du, dumpAdRecMn, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
761 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_I_W_S('I','adstate',0,0,'iter',myIter,myThid) |
./pkg/autodiff/addummy_in_stepping.F |
865 |
ADDUMMY_IN_STEPPING |
& CALL SEAICE_AD_DUMP( myTime, myIter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
870 |
ADDUMMY_IN_STEPPING |
& CALL PTRACERS_AD_DUMP( myTime, myIter, myThid ) |
./pkg/autodiff/dummy_in_dynamics.F |
30 |
DUMMY_IN_DYNAMICS |
INTEGER myIter |
./pkg/autodiff/dummy_in_dynamics.F |
9 |
DUMMY_IN_DYNAMICS |
SUBROUTINE DUMMY_IN_DYNAMICS( myTime, myIter, myThid ) |
./pkg/autodiff/dummy_in_stepping.F |
30 |
DUMMY_IN_STEPPING |
INTEGER myIter |
./pkg/autodiff/dummy_in_stepping.F |
9 |
DUMMY_IN_STEPPING |
SUBROUTINE DUMMY_IN_STEPPING( myTime, myIter, myThid ) |
./pkg/autodiff/g_dummy_in_dynamics.F |
13 |
G_DUMMY_IN_DYNAMICS |
subroutine G_DUMMY_IN_DYNAMICS( myTime, myIter, myThid ) |
./pkg/autodiff/g_dummy_in_dynamics.F |
46 |
G_DUMMY_IN_DYNAMICS |
INTEGER myIter |
./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 |
110 |
G_DUMMY_IN_STEPPING |
& myIter, myThid ) |
./pkg/autodiff/g_dummy_in_stepping.F |
114 |
G_DUMMY_IN_STEPPING |
& myIter, myThid ) |
./pkg/autodiff/g_dummy_in_stepping.F |
118 |
G_DUMMY_IN_STEPPING |
& myIter, myThid ) |
./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 |
138 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
./pkg/autodiff/g_dummy_in_stepping.F |
13 |
G_DUMMY_IN_STEPPING |
subroutine G_DUMMY_IN_STEPPING( myTime, myIter, myThid ) |
./pkg/autodiff/g_dummy_in_stepping.F |
142 |
G_DUMMY_IN_STEPPING |
& '// Model state written, timestep', myIter |
./pkg/autodiff/g_dummy_in_stepping.F |
46 |
G_DUMMY_IN_STEPPING |
INTEGER myIter |
./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/autodiff/myactivefunction.F |
29 |
NO PROCEDURE |
INTEGER myIter |
./pkg/autodiff/myactivefunction_ad.F |
32 |
ADMYACTIVEFUNCTION |
INTEGER myIter |
./pkg/bbl/bbl_calc_rho.F |
12 |
BBL_CALC_RHO |
I k, bi, bj, myTime, myIter, myThid ) |
./pkg/bbl/bbl_calc_rho.F |
58 |
BBL_CALC_RHO |
INTEGER myIter, myThid |
./pkg/bbl/bbl_calc_rhs.F |
11 |
BBL_CALC_RHS |
I myTime, myIter, myThid ) |
./pkg/bbl/bbl_calc_rhs.F |
30 |
BBL_CALC_RHS |
INTEGER myIter, myThid |
./pkg/bbl/bbl_diagnostics_state.F |
12 |
BBL_DIAGNOSTICS_STATE |
I myTime, myIter, myThid ) |
./pkg/bbl/bbl_diagnostics_state.F |
29 |
BBL_DIAGNOSTICS_STATE |
INTEGER myIter, myThid |
./pkg/bbl/bbl_read_pickup.F |
11 |
BBL_READ_PICKUP |
SUBROUTINE BBL_READ_PICKUP( myIter, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
126 |
BBL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
128 |
BBL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
130 |
BBL_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
140 |
BBL_READ_PICKUP |
I myIter, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
26 |
BBL_READ_PICKUP |
INTEGER myIter |
./pkg/bbl/bbl_read_pickup.F |
58 |
BBL_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_bbl.', myIter |
./pkg/bbl/bbl_read_pickup.F |
60 |
BBL_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
71 |
BBL_READ_PICKUP |
I Nr, myIter, myThid ) |
./pkg/bbl/bbl_tendency_apply.F |
18 |
BBL_TENDENCY_APPLY_T |
I myTime, myIter, myThid ) |
./pkg/bbl/bbl_tendency_apply.F |
45 |
BBL_TENDENCY_APPLY_T |
INTEGER myIter |
./pkg/bbl/bbl_tendency_apply.F |
71 |
BBL_TENDENCY_APPLY_S |
I myTime, myIter, myThid ) |
./pkg/bbl/bbl_tendency_apply.F |
98 |
BBL_TENDENCY_APPLY_S |
INTEGER myIter |
./pkg/bbl/bbl_write_pickup.F |
109 |
BBL_WRITE_PICKUP |
& j, myIter, myThid ) |
./pkg/bbl/bbl_write_pickup.F |
11 |
BBL_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
./pkg/bbl/bbl_write_pickup.F |
32 |
BBL_WRITE_PICKUP |
INTEGER myIter |
./pkg/bbl/bbl_write_pickup.F |
77 |
BBL_WRITE_PICKUP |
& bbl_theta, -j, myIter, myThid ) |
./pkg/bbl/bbl_write_pickup.F |
82 |
BBL_WRITE_PICKUP |
& bbl_salt, -j, myIter, myThid ) |
./pkg/bbl/bbl_write_pickup.F |
87 |
BBL_WRITE_PICKUP |
& bbl_eta, -j, myIter, myThid ) |
./pkg/bling/bling_airseaflux.F |
12 |
BLING_AIRSEAFLUX |
I myIter, myTime, myThid) |
./pkg/bling/bling_airseaflux.F |
175 |
BLING_AIRSEAFLUX |
I i,j,klev,bi,bj,myIter,myThid ) |
./pkg/bling/bling_airseaflux.F |
48 |
BLING_AIRSEAFLUX |
INTEGER myIter |
./pkg/bling/bling_carbon_chem.F |
24 |
CALC_PCO2 |
I i,j,k,bi,bj,myIter,myThid ) |
./pkg/bling/bling_carbon_chem.F |
335 |
CALC_PCO2_APPROX |
I i,j,k,bi,bj,myIter,myThid ) |
./pkg/bling/bling_carbon_chem.F |
377 |
CALC_PCO2_APPROX |
INTEGER i,j,k,bi,bj,myIter |
./pkg/bling/bling_carbon_chem.F |
62 |
CALC_PCO2 |
INTEGER i,j,k,bi,bj,myIter |
./pkg/bling/bling_carbonate_sys.F |
10 |
BLING_CARBONATE_SYS |
I myIter, myTime, myThid) |
./pkg/bling/bling_carbonate_sys.F |
141 |
BLING_CARBONATE_SYS |
I i,j,k,bi,bj,myIter,myThid ) |
./pkg/bling/bling_carbonate_sys.F |
36 |
BLING_CARBONATE_SYS |
INTEGER myIter |
./pkg/bling/bling_dvm.F |
12 |
BLING_DVM |
I myIter, myTime, myThid ) |
./pkg/bling/bling_dvm.F |
44 |
BLING_DVM |
INTEGER myIter |
./pkg/bling/bling_fields_load.F |
106 |
BLING_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bling/bling_fields_load.F |
108 |
BLING_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bling/bling_fields_load.F |
112 |
BLING_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bling/bling_fields_load.F |
114 |
BLING_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bling/bling_fields_load.F |
118 |
BLING_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bling/bling_fields_load.F |
11 |
BLING_FIELDS_LOAD |
I myIter,myTime,myThid) |
./pkg/bling/bling_fields_load.F |
120 |
BLING_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bling/bling_fields_load.F |
124 |
BLING_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bling/bling_fields_load.F |
126 |
BLING_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bling/bling_fields_load.F |
130 |
BLING_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bling/bling_fields_load.F |
132 |
BLING_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bling/bling_fields_load.F |
245 |
BLING_FIELDS_LOAD |
I myTime, myIter, myThid ) |
./pkg/bling/bling_fields_load.F |
44 |
BLING_FIELDS_LOAD |
INTEGER myIter |
./pkg/bling/bling_fields_load.F |
70 |
BLING_FIELDS_LOAD |
& ' BLING_FIELDS_LOAD,', myIter, |
./pkg/bling/bling_fields_load.F |
83 |
BLING_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
./pkg/bling/bling_fields_load.F |
96 |
BLING_FIELDS_LOAD |
& ' BLING_FIELDS_LOAD, it=', myIter, |
./pkg/bling/bling_light.F |
11 |
BLING_LIGHT |
I myIter, myTime, myThid ) |
./pkg/bling/bling_light.F |
57 |
BLING_LIGHT |
INTEGER myIter |
./pkg/bling/bling_main.F |
13 |
BLING_MAIN |
& myIter, myTime, myThid) |
./pkg/bling/bling_main.F |
148 |
BLING_MAIN |
I myIter, myTime, myThid) |
./pkg/bling/bling_main.F |
158 |
BLING_MAIN |
I myIter, myTime, myThid) |
./pkg/bling/bling_main.F |
172 |
BLING_MAIN |
I myIter, myTime, myThid) |
./pkg/bling/bling_main.F |
52 |
BLING_MAIN |
INTEGER myIter |
./pkg/bling/bling_mixedlayer.F |
10 |
BLING_MIXEDLAYER |
I myIter, myTime, myThid ) |
./pkg/bling/bling_mixedlayer.F |
43 |
BLING_MIXEDLAYER |
INTEGER myIter |
./pkg/bling/bling_production.F |
17 |
BLING_PROD |
I myIter, myTime, myThid ) |
./pkg/bling/bling_production.F |
304 |
BLING_PROD |
I myIter, myTime, myThid) |
./pkg/bling/bling_production.F |
367 |
BLING_PROD |
I myIter, myTime, myThid ) |
./pkg/bling/bling_production.F |
58 |
BLING_PROD |
INTEGER myIter |
./pkg/bling/bling_production.F |
687 |
BLING_PROD |
I myIter, myTime, myThid) |
./pkg/bling/bling_production.F |
698 |
BLING_PROD |
I myIter, myTime, myThid) |
./pkg/bling/bling_read_pickup.F |
27 |
BLING_READ_PICKUP |
INTEGER myIter |
./pkg/bling/bling_read_pickup.F |
48 |
BLING_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_bling.', myIter |
./pkg/bling/bling_read_pickup.F |
50 |
BLING_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
./pkg/bling/bling_read_pickup.F |
51 |
BLING_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_bling.', myIter |
./pkg/bling/bling_read_pickup.F |
71 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, pH, 1, myIter, myThid ) |
./pkg/bling/bling_read_pickup.F |
74 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, irr_mem, 2, myIter, myThid ) |
./pkg/bling/bling_read_pickup.F |
75 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, chl, 3, myIter, myThid ) |
./pkg/bling/bling_read_pickup.F |
76 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phyto_sm, 4, myIter, myThid ) |
./pkg/bling/bling_read_pickup.F |
77 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phyto_lg, 5, myIter, myThid ) |
./pkg/bling/bling_read_pickup.F |
78 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phyto_diaz, 6, myIter, myThid ) |
./pkg/bling/bling_read_pickup.F |
9 |
BLING_READ_PICKUP |
I myIter, myThid ) |
./pkg/bling/bling_remineralization.F |
13 |
BLING_REMIN |
I myIter, myTime, myThid ) |
./pkg/bling/bling_remineralization.F |
50 |
BLING_REMIN |
INTEGER myIter |
./pkg/bling/bling_sgs.F |
41 |
BLING_SGS |
INTEGER myIter |
./pkg/bling/bling_sgs.F |
9 |
BLING_SGS |
I myIter, myTime, myThid ) |
./pkg/bling/bling_write_pickup.F |
112 |
BLING_WRITE_PICKUP |
& j, myIter, myThid ) |
./pkg/bling/bling_write_pickup.F |
32 |
BLING_WRITE_PICKUP |
INTEGER myIter |
./pkg/bling/bling_write_pickup.F |
63 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, pH, -j, myIter, myThid ) |
./pkg/bling/bling_write_pickup.F |
68 |
BLING_WRITE_PICKUP |
& -j, myIter, myThid ) |
./pkg/bling/bling_write_pickup.F |
72 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, chl, -j, myIter, myThid ) |
./pkg/bling/bling_write_pickup.F |
76 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, phyto_sm, -j, myIter, |
./pkg/bling/bling_write_pickup.F |
81 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, phyto_lg, -j, myIter, |
./pkg/bling/bling_write_pickup.F |
86 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, phyto_diaz, -j, myIter, |
./pkg/bling/bling_write_pickup.F |
8 |
BLING_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
129 |
BULKF_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
./pkg/bulk_force/bulkf_fields_load.F |
183 |
BULKF_FIELDS_LOAD |
& ' BULKF_FIELDS_LOAD,', myIter, |
./pkg/bulk_force/bulkf_fields_load.F |
201 |
BULKF_FIELDS_LOAD |
& ' BULKF_FIELDS_LOAD, it=', myIter, |
./pkg/bulk_force/bulkf_fields_load.F |
209 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
211 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
215 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
217 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
221 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
223 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
227 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
229 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
233 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
235 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
240 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
242 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
246 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
248 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
252 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
254 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
259 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
261 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
265 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
267 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
271 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
273 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
279 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
281 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
287 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
289 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
293 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
295 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
50 |
BULKF_FIELDS_LOAD |
INTEGER myIter |
./pkg/bulk_force/bulkf_fields_load.F |
8 |
BULKF_FIELDS_LOAD |
SUBROUTINE BULKF_FIELDS_LOAD( myTime, myIter, myThid ) |
./pkg/bulk_force/bulkf_flux_adjust.F |
12 |
BULKF_FLUX_ADJUST |
I myTime, myIter, myThid ) |
./pkg/bulk_force/bulkf_flux_adjust.F |
48 |
BULKF_FLUX_ADJUST |
INTEGER myIter |
./pkg/bulk_force/bulkf_forcing.F |
10 |
BULKF_FORCING |
I myTime, myIter, myThid ) |
./pkg/bulk_force/bulkf_forcing.F |
56 |
BULKF_FORCING |
INTEGER myIter |
./pkg/bulk_force/bulkf_output.F |
101 |
BULKF_OUTPUT |
& BULK_evap_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
103 |
BULKF_OUTPUT |
& BULK_flwup_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
105 |
BULKF_OUTPUT |
& BULK_flwupnet_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
107 |
BULKF_OUTPUT |
& BULK_solar_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
109 |
BULKF_OUTPUT |
& BULK_ssq_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
35 |
BULKF_OUTPUT |
INTEGER myIter |
./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 |
89 |
BULKF_OUTPUT |
& BULK_Qnet_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
91 |
BULKF_OUTPUT |
& BULK_EmPmR_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
93 |
BULKF_OUTPUT |
& BULK_fu_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
95 |
BULKF_OUTPUT |
& BULK_fv_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
97 |
BULKF_OUTPUT |
& BULK_latent_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
99 |
BULKF_OUTPUT |
& BULK_sensible_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
9 |
BULKF_OUTPUT |
SUBROUTINE BULKF_OUTPUT( myTime, myIter, myThid ) |
./pkg/cal/cal_getdate.F |
39 |
CAL_GETDATE |
INTEGER myIter |
./pkg/cal/cal_getdate.F |
50 |
CAL_GETDATE |
IF ( myIter .EQ. -1 ) THEN |
./pkg/cal/cal_getdate.F |
61 |
CAL_GETDATE |
& 'myIter=', myIter, ' , myTime=', myTime |
./pkg/cal/cal_getdate.F |
7 |
CAL_GETDATE |
I myIter, |
./pkg/cal/cal_time2dump.F |
26 |
CAL_TIME2DUMP |
INTEGER myIter |
./pkg/cal/cal_time2dump.F |
44 |
CAL_TIME2DUMP |
CALL CAL_GETDATE( myIter, shTime, thisDate, myThid ) |
./pkg/cal/cal_time2dump.F |
45 |
CAL_TIME2DUMP |
CALL CAL_GETDATE( myIter, prTime, prevDate, myThid ) |
./pkg/cal/cal_time2dump.F |
9 |
CAL_TIME2DUMP |
I myTime, myIter, myThid ) |
./pkg/cd_code/cd_code_read_pickup.F |
11 |
CD_CODE_READ_PICKUP |
SUBROUTINE CD_CODE_READ_PICKUP( myIter, myThid ) |
./pkg/cd_code/cd_code_read_pickup.F |
27 |
CD_CODE_READ_PICKUP |
INTEGER myIter |
./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 |
58 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
71 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid ) |
./pkg/cd_code/cd_code_read_pickup.F |
72 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, vVelD, 2, myIter, myThid ) |
./pkg/cd_code/cd_code_read_pickup.F |
73 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, uNM1, 3, myIter, myThid ) |
./pkg/cd_code/cd_code_read_pickup.F |
74 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, vNM1, 4, myIter, myThid ) |
./pkg/cd_code/cd_code_read_pickup.F |
76 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec, 1, etaNm1,6*Nr+1,myIter,myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
78 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec, 1, etaNm1,4*Nr+1,myIter,myThid) |
./pkg/cd_code/cd_code_scheme.F |
13 |
CD_CODE_SCHEME |
I myTime, myIter, myThid) |
./pkg/cd_code/cd_code_scheme.F |
49 |
CD_CODE_SCHEME |
INTEGER myIter |
./pkg/cd_code/cd_code_scheme.F |
72 |
CD_CODE_SCHEME |
IF ( myIter.EQ.0 ) THEN |
./pkg/cd_code/cd_code_write_pickup.F |
13 |
CD_CODE_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/cd_code/cd_code_write_pickup.F |
37 |
CD_CODE_WRITE_PICKUP |
INTEGER myIter |
./pkg/cd_code/cd_code_write_pickup.F |
59 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
./pkg/cd_code/cd_code_write_pickup.F |
78 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid ) |
./pkg/cd_code/cd_code_write_pickup.F |
79 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, vVelD, 2, myIter, myThid ) |
./pkg/cd_code/cd_code_write_pickup.F |
80 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, uNM1, 3, myIter, myThid ) |
./pkg/cd_code/cd_code_write_pickup.F |
81 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, vNM1, 4, myIter, myThid ) |
./pkg/cd_code/cd_code_write_pickup.F |
82 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1,etaNm1,4*Nr+1,myIter,myThid) |
./pkg/cfc/cfc11_forcing.F |
101 |
CFC11_FORCING |
& 'CFC11_FORCING: iter,rec0,w0,yr0 =', myIter, |
./pkg/cfc/cfc11_forcing.F |
158 |
CFC11_FORCING |
I myTime, myIter, myThid ) |
./pkg/cfc/cfc11_forcing.F |
22 |
CFC11_FORCING |
I myTime, myIter, myThid ) |
./pkg/cfc/cfc11_forcing.F |
54 |
CFC11_FORCING |
INTEGER myIter |
./pkg/cfc/cfc11_surfforcing.F |
13 |
CFC11_SURFFORCING |
I myTime, myIter, myThid ) |
./pkg/cfc/cfc11_surfforcing.F |
48 |
CFC11_SURFFORCING |
INTEGER myIter, myThid |
./pkg/cfc/cfc12_forcing.F |
102 |
CFC12_FORCING |
& 'CFC12_FORCING: iter,rec0,w0,yr0 =', myIter, |
./pkg/cfc/cfc12_forcing.F |
159 |
CFC12_FORCING |
I myTime, myIter, myThid ) |
./pkg/cfc/cfc12_forcing.F |
22 |
CFC12_FORCING |
I myTime, myIter, myThid ) |
./pkg/cfc/cfc12_forcing.F |
55 |
CFC12_FORCING |
INTEGER myIter |
./pkg/cfc/cfc12_surfforcing.F |
13 |
CFC12_SURFFORCING |
I myTime, myIter, myThid ) |
./pkg/cfc/cfc12_surfforcing.F |
48 |
CFC12_SURFFORCING |
INTEGER myIter, myThid |
./pkg/cfc/cfc_fields_load.F |
100 |
CFC_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
./pkg/cfc/cfc_fields_load.F |
113 |
CFC_FIELDS_LOAD |
& ' CFC_FIELDS_LOAD, it=', myIter, |
./pkg/cfc/cfc_fields_load.F |
123 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cfc/cfc_fields_load.F |
125 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cfc/cfc_fields_load.F |
129 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cfc/cfc_fields_load.F |
131 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cfc/cfc_fields_load.F |
136 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cfc/cfc_fields_load.F |
138 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cfc/cfc_fields_load.F |
16 |
CFC_FIELDS_LOAD |
I myTime, myIter, myThid ) |
./pkg/cfc/cfc_fields_load.F |
48 |
CFC_FIELDS_LOAD |
INTEGER myIter |
./pkg/cfc/cfc_fields_load.F |
62 |
CFC_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
./pkg/cfc/cfc_fields_load.F |
88 |
CFC_FIELDS_LOAD |
& ' CFC_FIELDS_LOAD,', myIter, |
./pkg/cheapaml/cheapaml.F |
158 |
CHEAPAML |
I myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
164 |
CHEAPAML |
I startAB, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
169 |
CHEAPAML |
I nt, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
196 |
CHEAPAML |
I myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
202 |
CHEAPAML |
I startAB, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
207 |
CHEAPAML |
I nt, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
235 |
CHEAPAML |
I myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
241 |
CHEAPAML |
I startAB, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
246 |
CHEAPAML |
I nt, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
262 |
CHEAPAML |
I bi, bj, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
268 |
CHEAPAML |
I bi, bj, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
275 |
CHEAPAML |
I bi, bj, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
284 |
CHEAPAML |
WRITE(sufx,'(I10.10)') myIter |
./pkg/cheapaml/cheapaml.F |
285 |
CHEAPAML |
CALL WRITE_FLD_XY_RL('tAir_afAdv.', sufx, Tair, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
287 |
CHEAPAML |
& CALL WRITE_FLD_XY_RL('qAir_afAdv.', sufx, qair, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
356 |
CHEAPAML |
I bi, bj, myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
366 |
CHEAPAML |
I myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
404 |
CHEAPAML |
I myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
49 |
CHEAPAML |
INTEGER myIter |
./pkg/cheapaml/cheapaml.F |
520 |
CHEAPAML |
I 0, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
535 |
CHEAPAML |
I 0, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
601 |
CHEAPAML |
I bi, bj, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
608 |
CHEAPAML |
I bi, bj, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
616 |
CHEAPAML |
I bi, bj, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
7 |
CHEAPAML |
I myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
191 |
CHEAPAML_COARE3_FLUX |
& 'CHEAPAML_COARE3_FLUX: myIter,iter=', myIter, iter, |
./pkg/cheapaml/cheapaml_coare3_flux.F |
22 |
CHEAPAML_COARE3_FLUX |
I myIter, myThid ) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
46 |
CHEAPAML_COARE3_FLUX |
INTEGER myIter, myThid |
./pkg/cheapaml/cheapaml_copy_edges.F |
13 |
CHEAPAML_COPY_EDGES |
I bi, bj, myIter, myThid ) |
./pkg/cheapaml/cheapaml_copy_edges.F |
41 |
CHEAPAML_COPY_EDGES |
INTEGER bi, bj, myIter, myThid |
./pkg/cheapaml/cheapaml_fields_load.F |
127 |
CHEAPAML_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
./pkg/cheapaml/cheapaml_fields_load.F |
174 |
CHEAPAML_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
./pkg/cheapaml/cheapaml_fields_load.F |
181 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
183 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
199 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
201 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
217 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
219 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
235 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
237 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
256 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
258 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
276 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
278 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
282 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
284 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
288 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
290 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
294 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
296 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
29 |
CHEAPAML_FIELDS_LOAD |
INTEGER myIter |
./pkg/cheapaml/cheapaml_fields_load.F |
300 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
302 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
306 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
308 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
312 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
314 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
318 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
320 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
324 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
326 |
CHEAPAML_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
446 |
CHEAPAML_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
./pkg/cheapaml/cheapaml_fields_load.F |
8 |
CHEAPAML_FIELDS_LOAD |
SUBROUTINE CHEAPAML_FIELDS_LOAD( myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
11 |
CHEAPAML_READ_PICKUP |
SUBROUTINE CHEAPAML_READ_PICKUP( myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
136 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
138 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
142 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
144 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
148 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 ,myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
150 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 ,myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
161 |
CHEAPAML_READ_PICKUP |
I myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
26 |
CHEAPAML_READ_PICKUP |
INTEGER myIter |
./pkg/cheapaml/cheapaml_read_pickup.F |
61 |
CHEAPAML_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_cheapaml.', myIter |
./pkg/cheapaml/cheapaml_read_pickup.F |
63 |
CHEAPAML_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
64 |
CHEAPAML_READ_PICKUP |
WRITE(fn,'(A,A)') 'pickup_cheapaml.', myIter |
./pkg/cheapaml/cheapaml_read_pickup.F |
74 |
CHEAPAML_READ_PICKUP |
I Nr, myIter, myThid ) |
./pkg/cheapaml/cheapaml_seaice.F |
134 |
CHEAPAML_SEAICE |
I bi, bj, myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml_seaice.F |
170 |
CHEAPAML_SEAICE |
I myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml_seaice.F |
19 |
CHEAPAML_SEAICE |
I bi, bj, myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml_seaice.F |
202 |
CHEAPAML_SEAICE |
I myIter, myThid ) |
./pkg/cheapaml/cheapaml_seaice.F |
213 |
CHEAPAML_SEAICE |
I myIter, myThid ) |
./pkg/cheapaml/cheapaml_seaice.F |
227 |
CHEAPAML_SEAICE |
I bi, bj, myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml_seaice.F |
65 |
CHEAPAML_SEAICE |
INTEGER bi, bj, myIter, myThid |
./pkg/cheapaml/cheapaml_timestep.F |
14 |
CHEAPAML_TIMESTEP |
I nSubIter, myIter, myThid ) |
./pkg/cheapaml/cheapaml_timestep.F |
35 |
CHEAPAML_TIMESTEP |
INTEGER nSubIter, myIter, myThid |
./pkg/cheapaml/cheapaml_write_pickup.F |
101 |
CHEAPAML_WRITE_PICKUP |
& gqairm, nj, myIter, myThid ) |
./pkg/cheapaml/cheapaml_write_pickup.F |
109 |
CHEAPAML_WRITE_PICKUP |
& Cheaptracer, nj, myIter, myThid ) |
./pkg/cheapaml/cheapaml_write_pickup.F |
114 |
CHEAPAML_WRITE_PICKUP |
& gCheaptracerm, nj, myIter, myThid ) |
./pkg/cheapaml/cheapaml_write_pickup.F |
11 |
CHEAPAML_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml_write_pickup.F |
143 |
CHEAPAML_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/cheapaml/cheapaml_write_pickup.F |
33 |
CHEAPAML_WRITE_PICKUP |
INTEGER myIter |
./pkg/cheapaml/cheapaml_write_pickup.F |
84 |
CHEAPAML_WRITE_PICKUP |
& Tair, nj, myIter, myThid ) |
./pkg/cheapaml/cheapaml_write_pickup.F |
89 |
CHEAPAML_WRITE_PICKUP |
& gTairm, nj, myIter, myThid ) |
./pkg/cheapaml/cheapaml_write_pickup.F |
96 |
CHEAPAML_WRITE_PICKUP |
& qair, nj, myIter, myThid ) |
./pkg/cheapaml/gad_2d_calc_rhs.F |
19 |
GAD_2D_CALC_RHS |
I myTime, myIter, myThid ) |
./pkg/cheapaml/gad_2d_calc_rhs.F |
78 |
GAD_2D_CALC_RHS |
INTEGER myIter, myThid |
./pkg/cost/cost_tile.F |
135 |
COST_TILE |
& CALL THSICE_COST_DRIVER (myTime, myIter, myThid) |
./pkg/cost/cost_tile.F |
148 |
COST_TILE |
CALL COST_TRANSPORT( bi, bj, myTime, myIter, myThid ) |
./pkg/ctrl/ctrl_map_forcing.F |
109 |
CTRL_MAP_FORCING |
IF ( myIter .EQ. nIter0 ) THEN |
./pkg/ctrl/ctrl_map_forcing.F |
45 |
CTRL_MAP_FORCING |
INTEGER myIter |
./pkg/ctrl/ctrl_map_forcing.F |
9 |
CTRL_MAP_FORCING |
SUBROUTINE CTRL_MAP_FORCING( myTime, myIter, myThid ) |
./pkg/ctrl/ctrl_map_gentim2d.F |
10 |
CTRL_MAP_GENTIM2D |
I myTime, myIter, myThid ) |
./pkg/ctrl/ctrl_map_gentim2d.F |
41 |
CTRL_MAP_GENTIM2D |
INTEGER myIter |
./pkg/debug/write_fullarray_rl.F |
113 |
WRITE_FULLARRAY_RL |
IF ( myIter.GE.0 ) THEN |
./pkg/debug/write_fullarray_rl.F |
115 |
WRITE_FULLARRAY_RL |
& fnam(s1Lo:s1Hi),'.',myIter,'.',iG,'.',jG,'.data' |
./pkg/debug/write_fullarray_rl.F |
11 |
WRITE_FULLARRAY_RL |
I iRec, myIter, myThid ) |
./pkg/debug/write_fullarray_rl.F |
39 |
WRITE_FULLARRAY_RL |
INTEGER myIter |
./pkg/debug/write_fullarray_rl.F |
79 |
WRITE_FULLARRAY_RL |
IF ( myIter.GE.0 ) THEN |
./pkg/debug/write_fullarray_rl.F |
81 |
WRITE_FULLARRAY_RL |
& fnam(s1Lo:s1Hi),'.',myIter,'.',iG,'.',jG,'.data' |
./pkg/debug/write_fullarray_rs.F |
113 |
WRITE_FULLARRAY_RS |
IF ( myIter.GE.0 ) THEN |
./pkg/debug/write_fullarray_rs.F |
115 |
WRITE_FULLARRAY_RS |
& fnam(s1Lo:s1Hi),'.',myIter,'.',iG,'.',jG,'.data' |
./pkg/debug/write_fullarray_rs.F |
11 |
WRITE_FULLARRAY_RS |
I iRec, myIter, myThid ) |
./pkg/debug/write_fullarray_rs.F |
39 |
WRITE_FULLARRAY_RS |
INTEGER myIter |
./pkg/debug/write_fullarray_rs.F |
79 |
WRITE_FULLARRAY_RS |
IF ( myIter.GE.0 ) THEN |
./pkg/debug/write_fullarray_rs.F |
81 |
WRITE_FULLARRAY_RS |
& fnam(s1Lo:s1Hi),'.',myIter,'.',iG,'.',jG,'.data' |
./pkg/diagnostics/diag_calc_psivel.F |
12 |
DIAG_CALC_PSIVEL |
I prtMsg, myTime, myIter, myThid ) |
./pkg/diagnostics/diag_calc_psivel.F |
54 |
DIAG_CALC_PSIVEL |
INTEGER myIter |
./pkg/diagnostics/diagnostics_calc_phivel.F |
15 |
DIAGNOSTICS_CALC_PHIVEL |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_calc_phivel.F |
170 |
DIAGNOSTICS_CALC_PHIVEL |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_calc_phivel.F |
226 |
DIAGNOSTICS_CALC_PHIVEL |
& ' diag_cg2d (it=', myIter,') a2dNorm,x2dNorm=', a2dNorm, |
./pkg/diagnostics/diagnostics_calc_phivel.F |
285 |
DIAGNOSTICS_CALC_PHIVEL |
I prtFirstCall, myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_calc_phivel.F |
305 |
DIAGNOSTICS_CALC_PHIVEL |
& psiLoc, ' #', k, lm, myIter, |
./pkg/diagnostics/diagnostics_calc_phivel.F |
48 |
DIAGNOSTICS_CALC_PHIVEL |
INTEGER myIter, myThid |
./pkg/diagnostics/diagnostics_fill_state.F |
42 |
DIAGNOSTICS_FILL_STATE |
INTEGER myIter |
./pkg/diagnostics/diagnostics_fill_state.F |
443 |
DIAGNOSTICS_FILL_STATE |
m1 = 1 + MOD(myIter,2) |
./pkg/diagnostics/diagnostics_fill_state.F |
446 |
DIAGNOSTICS_FILL_STATE |
m1 = 1 + MOD(myIter+1,2) |
./pkg/diagnostics/diagnostics_fill_state.F |
9 |
DIAGNOSTICS_FILL_STATE |
SUBROUTINE DIAGNOSTICS_FILL_STATE( selectVars, myIter, myThid ) |
./pkg/diagnostics/diagnostics_interp_vert.F |
16 |
DIAGNOSTICS_INTERP_VERT |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_interp_vert.F |
55 |
DIAGNOSTICS_INTERP_VERT |
INTEGER myIter, myThid |
./pkg/diagnostics/diagnostics_mnc_out.F |
101 |
DIAGNOSTICS_MNC_SET |
klev = myIter + lm - averageCycle(listId) |
./pkg/diagnostics/diagnostics_mnc_out.F |
20 |
DIAGNOSTICS_MNC_SET |
I misValLoc, myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_mnc_out.F |
210 |
DIAGNOSTICS_MNC_OUT |
I misValLoc, myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_mnc_out.F |
243 |
DIAGNOSTICS_MNC_OUT |
INTEGER myIter, myThid |
./pkg/diagnostics/diagnostics_mnc_out.F |
49 |
DIAGNOSTICS_MNC_SET |
INTEGER myIter, myThid |
./pkg/diagnostics/diagnostics_out.F |
12 |
DIAGNOSTICS_OUT |
I listId, myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
162 |
DIAGNOSTICS_OUT |
I undefRL, myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
218 |
DIAGNOSTICS_OUT |
& '- WARNING - from DIAGNOSTICS_OUT at iter=', myIter |
./pkg/diagnostics/diagnostics_out.F |
354 |
DIAGNOSTICS_OUT |
I undefRL, myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
35 |
DIAGNOSTICS_OUT |
INTEGER listId, myIter, myThid |
./pkg/diagnostics/diagnostics_out.F |
367 |
DIAGNOSTICS_OUT |
I undefRL, myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
378 |
DIAGNOSTICS_OUT |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
407 |
DIAGNOSTICS_OUT |
I qtmp1, -nRec, myIter, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
412 |
DIAGNOSTICS_OUT |
I qtmp2, -nRec, myIter, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
422 |
DIAGNOSTICS_OUT |
I undefRL, myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
427 |
DIAGNOSTICS_OUT |
I undefRL, myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
450 |
DIAGNOSTICS_OUT |
& nRec, myIter, myThid) |
./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_sum_levels.F |
15 |
DIAGNOSTICS_SUM_LEVELS |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_sum_levels.F |
50 |
DIAGNOSTICS_SUM_LEVELS |
INTEGER myIter, myThid |
./pkg/diagnostics/diagnostics_summary.F |
10 |
DIAGNOSTICS_SUMMARY |
SUBROUTINE DIAGNOSTICS_SUMMARY( myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_summary.F |
29 |
DIAGNOSTICS_SUMMARY |
INTEGER myIter, myThid |
./pkg/diagnostics/diagnostics_summary.F |
51 |
DIAGNOSTICS_SUMMARY |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/diagnostics/diagnostics_summary.F |
60 |
DIAGNOSTICS_SUMMARY |
WRITE(fn,'(A,I10.10,A)') 'diagnostics_status.',myIter,'.txt' |
./pkg/diagnostics/diagnostics_summary.F |
86 |
DIAGNOSTICS_SUMMARY |
& 'Iter.Nb:',myIter,' ; Time(s):', myTime |
./pkg/diagnostics/diagnostics_switch_onoff.F |
100 |
DIAGNOSTICS_SWITCH_ONOFF |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
11 |
DIAGNOSTICS_SWITCH_ONOFF |
SUBROUTINE DIAGNOSTICS_SWITCH_ONOFF( myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
144 |
DIAGNOSTICS_SWITCH_ONOFF |
& 'DIAG_SWITCH_ONOFF: at it=', myIter, ', list:', n, |
./pkg/diagnostics/diagnostics_switch_onoff.F |
190 |
DIAGNOSTICS_SWITCH_ONOFF |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
205 |
DIAGNOSTICS_SWITCH_ONOFF |
& 'DIAG_SWITCH_ONOFF: at it=', myIter, ' diag:', nd, |
./pkg/diagnostics/diagnostics_switch_onoff.F |
218 |
DIAGNOSTICS_SWITCH_ONOFF |
& 'DIAG_SWITCH_ONOFF: at it=', myIter, ' diag:', nd, |
./pkg/diagnostics/diagnostics_switch_onoff.F |
37 |
DIAGNOSTICS_SWITCH_ONOFF |
INTEGER myIter |
./pkg/diagnostics/diagnostics_switch_onoff.F |
69 |
DIAGNOSTICS_SWITCH_ONOFF |
IF ( myIter.EQ.nIter0 ) THEN |
./pkg/diagnostics/diagnostics_write.F |
115 |
DIAGNOSTICS_WRITE |
wrIter = myIter |
./pkg/diagnostics/diagnostics_write.F |
130 |
DIAGNOSTICS_WRITE |
I wrTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_write.F |
145 |
DIAGNOSTICS_WRITE |
CALL DIAGNOSTICS_SUMMARY( myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_write.F |
182 |
DIAGNOSTICS_WRITE |
I wrTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_write.F |
207 |
DIAGNOSTICS_WRITE |
I wrTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_write.F |
31 |
DIAGNOSTICS_WRITE |
INTEGER myIter, myThid |
./pkg/diagnostics/diagnostics_write.F |
51 |
DIAGNOSTICS_WRITE |
IF ( myIter.NE.nIter0 ) THEN |
./pkg/diagnostics/diagnostics_write.F |
52 |
DIAGNOSTICS_WRITE |
myItM1 = myIter - 1 |
./pkg/diagnostics/diagnostics_write.F |
73 |
DIAGNOSTICS_WRITE |
wrIter = myIter |
./pkg/diagnostics/diagnostics_write.F |
88 |
DIAGNOSTICS_WRITE |
I wrTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_write.F |
8 |
DIAGNOSTICS_WRITE |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_write_pickup.F |
102 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',myIter,myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
14 |
DIAGNOSTICS_WRITE_PICKUP |
I myIter, |
./pkg/diagnostics/diagnostics_write_pickup.F |
179 |
DIAGNOSTICS_WRITE_PICKUP |
& 1, myIter, myThid ) |
./pkg/diagnostics/diagnostics_write_pickup.F |
39 |
DIAGNOSTICS_WRITE_PICKUP |
INTEGER myIter |
./pkg/diagnostics/diagnostics_write_pickup.F |
93 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
./pkg/diagnostics/diagstats_ascii_out.F |
13 |
DIAGSTATS_ASCII_OUT |
I mId, listId, myIter, myThid ) |
./pkg/diagnostics/diagstats_ascii_out.F |
36 |
DIAGSTATS_ASCII_OUT |
INTEGER myIter, myThid |
./pkg/diagnostics/diagstats_ascii_out.F |
60 |
DIAGSTATS_ASCII_OUT |
& ' ; Iter =',myIter,' ; region #',j, ' ; nb.Lev =',kdiag(ndId) |
./pkg/diagnostics/diagstats_mnc_out.F |
109 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,1,1,'iter',myIter,myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
13 |
DIAGSTATS_MNC_OUT |
I mId, listId, myTime, myIter, myThid ) |
./pkg/diagnostics/diagstats_mnc_out.F |
48 |
DIAGSTATS_MNC_OUT |
INTEGER myIter, myThid |
./pkg/diagnostics/diagstats_output.F |
136 |
DIAGSTATS_OUTPUT |
& m, listId, myIter, myThid ) |
./pkg/diagnostics/diagstats_output.F |
13 |
DIAGSTATS_OUTPUT |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagstats_output.F |
143 |
DIAGSTATS_OUTPUT |
& m, listId, myTime, myIter, myThid ) |
./pkg/diagnostics/diagstats_output.F |
36 |
DIAGSTATS_OUTPUT |
INTEGER listId, myIter, myThid |
./pkg/diagnostics/diagstats_output.F |
93 |
DIAGSTATS_OUTPUT |
& '- WARNING - from DIAGSTATS_OUTPUT at iter=', myIter, |
./pkg/dic/alk_surfforcing.F |
12 |
ALK_SURFFORCING |
I myIter,myTime,myThid) |
./pkg/dic/alk_surfforcing.F |
34 |
ALK_SURFFORCING |
INTEGER myIter, myThid |
./pkg/dic/bio_export.F |
16 |
BIO_EXPORT |
I myIter,myTime,myThid) |
./pkg/dic/bio_export.F |
39 |
BIO_EXPORT |
INTEGER myIter |
./pkg/dic/calcite_saturation.F |
119 |
CALCITE_SATURATION |
I i,j,k,bi,bj,myIter,myThid ) |
./pkg/dic/calcite_saturation.F |
12 |
CALCITE_SATURATION |
I myIter,myTime,myThid) |
./pkg/dic/calcite_saturation.F |
35 |
CALCITE_SATURATION |
INTEGER myIter |
./pkg/dic/calcite_saturation.F |
66 |
CALCITE_SATURATION |
write(6,*)'myIter ',myIter,' CALLED CALCITEcd_SATURATION' |
./pkg/dic/car_flux.F |
12 |
CAR_FLUX |
I myIter,myTime,myThid) |
./pkg/dic/car_flux.F |
31 |
CAR_FLUX |
INTEGER myIter |
./pkg/dic/car_flux_omega_top.F |
12 |
CAR_FLUX_OMEGA_TOP |
I myIter,myTime,myThid) |
./pkg/dic/car_flux_omega_top.F |
33 |
CAR_FLUX_OMEGA_TOP |
INTEGER myIter |
./pkg/dic/carbon_chem.F |
29 |
CALC_PCO2 |
I i,j,k,bi,bj,myIter,myThid ) |
./pkg/dic/carbon_chem.F |
348 |
CALC_PCO2_APPROX |
I i,j,k,bi,bj,myIter,myThid ) |
./pkg/dic/carbon_chem.F |
391 |
CALC_PCO2_APPROX |
INTEGER i,j,k,bi,bj,myIter |
./pkg/dic/carbon_chem.F |
67 |
CALC_PCO2 |
INTEGER i,j,k,bi,bj,myIter |
./pkg/dic/dic_atmos.F |
11 |
DIC_ATMOS |
SUBROUTINE DIC_ATMOS( myTime, myIter, myThid ) |
./pkg/dic/dic_atmos.F |
38 |
DIC_ATMOS |
INTEGER myIter, myThid |
./pkg/dic/dic_atmos.F |
79 |
DIC_ATMOS |
ntim=int((myIter-dic_int3)/dic_int4)+1 |
./pkg/dic/dic_atmos.F |
80 |
DIC_ATMOS |
aWght = FLOAT(myIter-dic_int3) |
./pkg/dic/dic_biotic_diags.F |
100 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
102 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
115 |
DIC_BIOTIC_DIAGS |
CALL MNC_CW_I_W_S('I','dic_tave',0,0,'iter',myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
28 |
DIC_BIOTIC_DIAGS |
INTEGER myIter |
./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 |
7 |
DIC_BIOTIC_DIAGS |
SUBROUTINE DIC_BIOTIC_DIAGS( myTime, myIter, myThid ) |
./pkg/dic/dic_biotic_diags.F |
82 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
84 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
86 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
88 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
90 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
92 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
94 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
96 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
98 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_forcing.F |
123 |
DIC_BIOTIC_FORCING |
I bi, bj, myTime, myIter, myThid ) |
./pkg/dic/dic_biotic_forcing.F |
167 |
DIC_BIOTIC_FORCING |
I myIter, myTime, myThid ) |
./pkg/dic/dic_biotic_forcing.F |
177 |
DIC_BIOTIC_FORCING |
I myIter, myTime, myThid ) |
./pkg/dic/dic_biotic_forcing.F |
188 |
DIC_BIOTIC_FORCING |
I myIter, myTime, myThid ) |
./pkg/dic/dic_biotic_forcing.F |
199 |
DIC_BIOTIC_FORCING |
I myIter, myThid ) |
./pkg/dic/dic_biotic_forcing.F |
19 |
DIC_BIOTIC_FORCING |
I myIter, myTime, myThid ) |
./pkg/dic/dic_biotic_forcing.F |
213 |
DIC_BIOTIC_FORCING |
I myIter, myTime, myThid ) |
./pkg/dic/dic_biotic_forcing.F |
223 |
DIC_BIOTIC_FORCING |
I myIter, myTime, myThid ) |
./pkg/dic/dic_biotic_forcing.F |
240 |
DIC_BIOTIC_FORCING |
IF(myIter .lt. (nIter0+5) .or. |
./pkg/dic/dic_biotic_forcing.F |
241 |
DIC_BIOTIC_FORCING |
& mod(myIter,nCALCITEstep) .eq. 0)THEN |
./pkg/dic/dic_biotic_forcing.F |
248 |
DIC_BIOTIC_FORCING |
I myIter, myTime, myThid ) |
./pkg/dic/dic_biotic_forcing.F |
258 |
DIC_BIOTIC_FORCING |
I myIter, myTime, myThid ) |
./pkg/dic/dic_biotic_forcing.F |
268 |
DIC_BIOTIC_FORCING |
I myIter, myTime, myThid ) |
./pkg/dic/dic_biotic_forcing.F |
380 |
DIC_BIOTIC_FORCING |
I myIter, myThid ) |
./pkg/dic/dic_biotic_forcing.F |
58 |
DIC_BIOTIC_FORCING |
INTEGER myIter |
./pkg/dic/dic_cost.F |
13 |
DIC_COST |
I myTime, myIter, myThid ) |
./pkg/dic/dic_cost.F |
35 |
DIC_COST |
INTEGER myIter |
./pkg/dic/dic_cost.F |
63 |
DIC_COST |
& ' DIC_COST: iter,totcost =', myIter, totcost |
./pkg/dic/dic_fields_load.F |
101 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
105 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
107 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
111 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
113 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
118 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
11 |
DIC_FIELDS_LOAD |
I myIter, myTime, myThid ) |
./pkg/dic/dic_fields_load.F |
120 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
127 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
133 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
135 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
29 |
DIC_FIELDS_LOAD |
INTEGER myIter |
./pkg/dic/dic_fields_load.F |
58 |
DIC_FIELDS_LOAD |
& ' DIC_FIELDS_LOAD,', myIter, |
./pkg/dic/dic_fields_load.F |
70 |
DIC_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
./pkg/dic/dic_fields_load.F |
83 |
DIC_FIELDS_LOAD |
& ' DIC_FIELDS_LOAD, it=', myIter, |
./pkg/dic/dic_fields_load.F |
93 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
95 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
99 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_update.F |
11 |
DIC_FIELDS_UPDATE |
I bi, bj, myTime, myIter, myThid ) |
./pkg/dic/dic_fields_update.F |
43 |
DIC_FIELDS_UPDATE |
INTEGER myIter |
./pkg/dic/dic_ini_atmos.F |
11 |
DIC_INI_ATMOS |
SUBROUTINE DIC_INI_ATMOS( myTime, myIter, myThid ) |
./pkg/dic/dic_ini_atmos.F |
38 |
DIC_INI_ATMOS |
INTEGER myIter, myThid |
./pkg/dic/dic_ini_atmos.F |
84 |
DIC_INI_ATMOS |
ntim=int((myIter-dic_int3)/dic_int4)+1 |
./pkg/dic/dic_ini_atmos.F |
85 |
DIC_INI_ATMOS |
aWght = FLOAT(myIter-dic_int3) |
./pkg/dic/dic_read_co2_pickup.F |
19 |
DIC_READ_CO2_PICKUP |
INTEGER myIter |
./pkg/dic/dic_read_co2_pickup.F |
43 |
DIC_READ_CO2_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_dic_co2atm.', myIter |
./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 |
7 |
DIC_READ_CO2_PICKUP |
I myIter, myThid ) |
./pkg/dic/dic_read_pickup.F |
20 |
DIC_READ_PICKUP |
INTEGER myIter |
./pkg/dic/dic_read_pickup.F |
42 |
DIC_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_dic.', myIter |
./pkg/dic/dic_read_pickup.F |
44 |
DIC_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
./pkg/dic/dic_read_pickup.F |
65 |
DIC_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, pH, 1, myIter, myThid ) |
./pkg/dic/dic_read_pickup.F |
8 |
DIC_READ_PICKUP |
I myIter, myThid ) |
./pkg/dic/dic_store_fluxco2.F |
37 |
DIC_STORE_FLUXCO2 |
INTEGER myIter |
./pkg/dic/dic_store_fluxco2.F |
8 |
DIC_STORE_FLUXCO2 |
I myIter, |
./pkg/dic/dic_surfforcing.F |
13 |
DIC_SURFFORCING |
I myIter,myTime,myThid) |
./pkg/dic/dic_surfforcing.F |
171 |
DIC_SURFFORCING |
I i,j,kLev,bi,bj,myIter,myThid ) |
./pkg/dic/dic_surfforcing.F |
34 |
DIC_SURFFORCING |
INTEGER myIter, myThid |
./pkg/dic/dic_write_pickup.F |
11 |
DIC_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
./pkg/dic/dic_write_pickup.F |
120 |
DIC_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/dic/dic_write_pickup.F |
34 |
DIC_WRITE_PICKUP |
INTEGER myIter |
./pkg/dic/dic_write_pickup.F |
74 |
DIC_WRITE_PICKUP |
I 0, 0, 1, myIter, myThid ) |
./pkg/dic/dic_write_pickup.F |
90 |
DIC_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1, pH, nj, myIter, myThid ) |
./pkg/dic/fe_chem.F |
13 |
FE_CHEM |
I myIter, myThid ) |
./pkg/dic/fe_chem.F |
41 |
FE_CHEM |
INTEGER myIter, myThid |
./pkg/dic/o2_surfforcing.F |
12 |
O2_SURFFORCING |
I myIter, myTime, myThid ) |
./pkg/dic/o2_surfforcing.F |
35 |
O2_SURFFORCING |
INTEGER myIter, myThid |
./pkg/dic/phos_flux.F |
12 |
PHOS_FLUX |
I myIter,myTime,myThid) |
./pkg/dic/phos_flux.F |
31 |
PHOS_FLUX |
INTEGER myIter |
./pkg/down_slope/dwnslp_apply.F |
132 |
DWNSLP_APPLY |
& ' DWNSLP_APPLY: iter, iTr, bi,bj=', myIter,trIdentity, bi,bj |
./pkg/down_slope/dwnslp_apply.F |
14 |
DWNSLP_APPLY |
I deltaTLev, myTime, myIter, myThid ) |
./pkg/down_slope/dwnslp_apply.F |
61 |
DWNSLP_APPLY |
INTEGER myIter, myThid |
./pkg/down_slope/dwnslp_calc_flow.F |
11 |
DWNSLP_CALC_FLOW |
I myTime, myIter, myThid ) |
./pkg/down_slope/dwnslp_calc_flow.F |
144 |
DWNSLP_CALC_FLOW |
& ' DWNSLP_CALC_FLOW: iter,bi,bj=',myIter,bi,bj |
./pkg/down_slope/dwnslp_calc_flow.F |
44 |
DWNSLP_CALC_FLOW |
INTEGER myIter, myThid |
./pkg/down_slope/dwnslp_calc_rho.F |
12 |
DWNSLP_CALC_RHO |
I k, bi, bj, myTime, myIter, myThid ) |
./pkg/down_slope/dwnslp_calc_rho.F |
49 |
DWNSLP_CALC_RHO |
INTEGER myIter, myThid |
./pkg/ebm/ebm_area_t.F |
10 |
EBM_AREA_T |
SUBROUTINE EBM_AREA_T( myTime, myIter, myThid ) |
./pkg/ebm/ebm_area_t.F |
37 |
EBM_AREA_T |
INTEGER myIter |
./pkg/ebm/ebm_atmosphere.F |
10 |
EBM_ATMOSPHERE |
SUBROUTINE EBM_ATMOSPHERE ( myTime, myIter, myThid ) |
./pkg/ebm/ebm_atmosphere.F |
49 |
EBM_ATMOSPHERE |
INTEGER myIter |
./pkg/ebm/ebm_driver.F |
40 |
EBM_DRIVER |
INTEGER myIter |
./pkg/ebm/ebm_driver.F |
49 |
EBM_DRIVER |
CALL EBM_ZONALMEAN ( myTime, myIter, myThid ) |
./pkg/ebm/ebm_driver.F |
52 |
EBM_DRIVER |
CALL EBM_AREA_T ( myTime, myIter, myThid ) |
./pkg/ebm/ebm_driver.F |
55 |
EBM_DRIVER |
CALL EBM_ATMOSPHERE ( myTime, myIter, myThid ) |
./pkg/ebm/ebm_driver.F |
58 |
EBM_DRIVER |
CALL EBM_WIND_PERTURB( myTime, myIter, myThid ) |
./pkg/ebm/ebm_driver.F |
6 |
EBM_DRIVER |
SUBROUTINE EBM_DRIVER( myTime, myIter, myThid ) |
./pkg/ebm/ebm_wind_perturb.F |
27 |
EBM_WIND_PERTURB |
INTEGER myIter |
./pkg/ebm/ebm_wind_perturb.F |
7 |
EBM_WIND_PERTURB |
SUBROUTINE EBM_WIND_PERTURB( myTime, myIter, myThid ) |
./pkg/ebm/ebm_zonalmean.F |
10 |
EBM_ZONALMEAN |
SUBROUTINE EBM_ZONALMEAN( myTime, myIter, myThid ) |
./pkg/ebm/ebm_zonalmean.F |
38 |
EBM_ZONALMEAN |
INTEGER myIter |
./pkg/ecco/ecco_cost_driver.F |
116 |
ECCO_COST_DRIVER |
call COST_HYD( myIter, myTime, myThid ) |
./pkg/ecco/ecco_cost_driver.F |
125 |
ECCO_COST_DRIVER |
call SEAICE_COST_DRIVER( myIter, myTime, myThid ) |
./pkg/ecco/ecco_cost_driver.F |
135 |
ECCO_COST_DRIVER |
call COST_OBCS( myIter, myTime, myThid ) |
./pkg/ecco/ecco_cost_driver.F |
204 |
ECCO_COST_DRIVER |
call COST_INTERNAL_PARAMS( myIter, myTime, myThid ) |
./pkg/ecco/ecco_cost_driver.F |
212 |
ECCO_COST_DRIVER |
call COST_GENCOST_ALL( myIter, myTime, myThid ) |
./pkg/ecco/ecco_cost_driver.F |
39 |
ECCO_COST_DRIVER |
integer myIter |
./pkg/ecco/ecco_cost_driver.F |
6 |
ECCO_COST_DRIVER |
subroutine ECCO_COST_DRIVER( myTime, myIter, myThid ) |
./pkg/ecco/ecco_cost_driver.F |
82 |
ECCO_COST_DRIVER |
call COST_SSH( myIter, myTime, myThid ) |