| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
6 |
EBM_ATMOSPHERE |
SUBROUTINE EBM_ATMOSPHERE ( myTime, myiter, myThid ) |
|
./pkg/exf/exf_getsurfacefluxes.F |
52 |
EXF_GETSURFACEFLUXES |
integer myiter |
|
./pkg/exf/exf_getsurfacefluxes.F |
64 |
EXF_GETSURFACEFLUXES |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getsurfacefluxes.F |
72 |
EXF_GETSURFACEFLUXES |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getsurfacefluxes.F |
80 |
EXF_GETSURFACEFLUXES |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getsurfacefluxes.F |
88 |
EXF_GETSURFACEFLUXES |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getsurfacefluxes.F |
9 |
EXF_GETSURFACEFLUXES |
I myiter, |
|
./pkg/exf/exf_check_range.F |
107 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, uwind(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
116 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, vwind(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
127 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
139 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, atemp(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
149 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, aqh(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
159 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, precip(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
170 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, snowprecip(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
182 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, swflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
194 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, runoff(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
29 |
EXF_CHECK_RANGE |
integer myiter, mythid |
|
./pkg/exf/exf_check_range.F |
5 |
EXF_CHECK_RANGE |
subroutine EXF_CHECK_RANGE( mytime, myiter, mythid ) |
|
./pkg/exf/exf_check_range.F |
70 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, hflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
79 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, sflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
88 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, ustress(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
97 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, vstress(i,j,bi,bj) |
|
./pkg/exf/exf_getffields.F |
101 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
120 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
128 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
135 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
151 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
164 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
179 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
201 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
214 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
227 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
241 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
257 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
272 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
288 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
301 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
318 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
328 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
336 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
344 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
352 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
360 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
368 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
376 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
382 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
44 |
EXF_GETFFIELDS |
integer myiter |
|
./pkg/exf/exf_getffields.F |
71 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
79 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
7 |
EXF_GETFFIELDS |
subroutine EXF_GETFFIELDS( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffields.F |
86 |
EXF_GETFFIELDS |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_radiation.F |
34 |
EXF_RADIATION |
integer myiter |
|
./pkg/exf/exf_radiation.F |
5 |
EXF_RADIATION |
subroutine EXF_RADIATION(mytime, myiter, mythid) |
|
./pkg/exf/exf_getforcing.F |
103 |
EXF_GETFORCING |
subroutine EXF_GETFORCING( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getforcing.F |
145 |
EXF_GETFORCING |
integer myiter |
|
./pkg/exf/exf_getforcing.F |
159 |
EXF_GETFORCING |
call EXF_GETCLIM( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getforcing.F |
162 |
EXF_GETFORCING |
call EXF_GETFFIELDS( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getforcing.F |
166 |
EXF_GETFORCING |
call EXF_RADIATION( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getforcing.F |
176 |
EXF_GETFORCING |
call EXF_WIND( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getforcing.F |
179 |
EXF_GETFORCING |
call EXF_BULKFORMULAE( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getforcing.F |
223 |
EXF_GETFORCING |
call EXF_GETSURFACEFLUXES( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getforcing.F |
226 |
EXF_GETFORCING |
& ( myiter.EQ.niter0 .OR. debugLevel.GE.debLevB ) ) then |
|
./pkg/exf/exf_getforcing.F |
227 |
EXF_GETFORCING |
call EXF_CHECK_RANGE( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getforcing.F |
248 |
EXF_GETFORCING |
call EXF_DIAGNOSTICS_FILL( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getforcing.F |
251 |
EXF_GETFORCING |
call EXF_MONITOR( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getforcing.F |
254 |
EXF_GETFORCING |
call EXF_MAPFIELDS( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getffieldrec.F |
18 |
EXF_GETFFIELDREC |
I myiter, |
|
./pkg/exf/exf_getffieldrec.F |
205 |
EXF_GETFFIELDREC |
call CAL_GETDATE( myiter, mytime, mydate, mythid ) |
|
./pkg/exf/exf_getffieldrec.F |
243 |
EXF_GETFFIELDREC |
call CAL_GETDATE( myiter-1, mytime-modelstep, |
|
./pkg/exf/exf_getffieldrec.F |
314 |
EXF_GETFFIELDREC |
& myiter, count0, count1 |
|
./pkg/exf/exf_getffieldrec.F |
71 |
EXF_GETFFIELDREC |
integer myiter |
|
./pkg/exf/exf_set_gen.F |
102 |
EXF_SET_GEN |
I , mytime, myiter, mythid |
|
./pkg/exf/exf_set_gen.F |
12 |
EXF_SET_GEN |
& mytime, myiter, mythid ) |
|
./pkg/exf/exf_set_gen.F |
56 |
EXF_SET_GEN |
integer myiter |
|
./pkg/exf/exf_getclim.F |
47 |
EXF_GETCLIM |
integer myiter |
|
./pkg/exf/exf_getclim.F |
56 |
EXF_GETCLIM |
call EXF_SET_CLIMSST ( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getclim.F |
63 |
EXF_GETCLIM |
call EXF_SET_CLIMSSS ( mytime, myiter, mythid ) |
|
./pkg/exf/exf_getclim.F |
8 |
EXF_GETCLIM |
I myiter, |
|
./pkg/exf/exf_bulkformulae.F |
131 |
EXF_BULKFORMULAE |
integer myiter |
|
./pkg/exf/exf_bulkformulae.F |
5 |
EXF_BULKFORMULAE |
subroutine EXF_BULKFORMULAE(mytime, myiter, mythid) |
|
./pkg/exf/exf_mapfields.F |
5 |
EXF_MAPFIELDS |
subroutine EXF_MAPFIELDS( mytime, myiter, mythid ) |
|
./pkg/exf/exf_mapfields.F |
68 |
EXF_MAPFIELDS |
integer myiter |
|
./pkg/exf/exf_wind.F |
38 |
EXF_WIND |
integer myiter |
|
./pkg/exf/exf_wind.F |
5 |
EXF_WIND |
subroutine EXF_WIND(mytime, myiter, mythid) |
|
./model/src/the_main_loop.F |
450 |
THE_MAIN_LOOP |
CALL FORWARD_STEP( iloop, mytime, myiter, mythid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
45 |
G_DUMMY_IN_STEPPING |
integer myiter |
|
./pkg/autodiff/g_dummy_in_stepping.F |
71 |
G_DUMMY_IN_STEPPING |
write(*,*) 'myIter= ',myiter |
|
./pkg/autodiff/g_dummy_in_stepping.F |
7 |
G_DUMMY_IN_STEPPING |
subroutine G_DUMMY_IN_STEPPING( mytime, myiter, myThid ) |
|
./pkg/autodiff/dummy_in_stepping.F |
19 |
DUMMY_IN_STEPPING |
integer myiter |
|
./pkg/autodiff/dummy_in_stepping.F |
5 |
DUMMY_IN_STEPPING |
subroutine DUMMY_IN_STEPPING( mytime, myiter, myThid ) |
|
./pkg/autodiff/active_file_ad.F |
113 |
ADACTIVE_READ_XY |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_ad.F |
125 |
ADACTIVE_READ_XYZ |
I myiter, |
|
./pkg/autodiff/active_file_ad.F |
161 |
ADACTIVE_READ_XYZ |
integer myiter,mythid |
|
./pkg/autodiff/active_file_ad.F |
190 |
ADACTIVE_READ_XYZ |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_ad.F |
202 |
ADACTIVE_READ_XZ |
I myiter, |
|
./pkg/autodiff/active_file_ad.F |
238 |
ADACTIVE_READ_XZ |
integer myiter,mythid |
|
./pkg/autodiff/active_file_ad.F |
267 |
ADACTIVE_READ_XZ |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_ad.F |
279 |
ADACTIVE_READ_YZ |
I myiter, |
|
./pkg/autodiff/active_file_ad.F |
315 |
ADACTIVE_READ_YZ |
integer myiter,mythid |
|
./pkg/autodiff/active_file_ad.F |
344 |
ADACTIVE_READ_YZ |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_ad.F |
354 |
ADACTIVE_WRITE_XY |
I myiter, |
|
./pkg/autodiff/active_file_ad.F |
388 |
ADACTIVE_WRITE_XY |
integer myiter,mythid |
|
./pkg/autodiff/active_file_ad.F |
419 |
ADACTIVE_WRITE_XY |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_ad.F |
429 |
ADACTIVE_WRITE_XYZ |
I myiter, |
|
./pkg/autodiff/active_file_ad.F |
463 |
ADACTIVE_WRITE_XYZ |
integer myiter,mythid |
|
./pkg/autodiff/active_file_ad.F |
47 |
ADACTIVE_READ_XY |
I myiter, |
|
./pkg/autodiff/active_file_ad.F |
494 |
ADACTIVE_WRITE_XYZ |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_ad.F |
504 |
ADACTIVE_WRITE_XZ |
I myiter, |
|
./pkg/autodiff/active_file_ad.F |
538 |
ADACTIVE_WRITE_XZ |
integer myiter,mythid |
|
./pkg/autodiff/active_file_ad.F |
569 |
ADACTIVE_WRITE_XZ |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_ad.F |
579 |
ADACTIVE_WRITE_YZ |
I myiter, |
|
./pkg/autodiff/active_file_ad.F |
613 |
ADACTIVE_WRITE_YZ |
integer myiter,mythid |
|
./pkg/autodiff/active_file_ad.F |
644 |
ADACTIVE_WRITE_YZ |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_ad.F |
84 |
ADACTIVE_READ_XY |
integer myiter,mythid |
|
./pkg/autodiff/addummy_in_stepping.F |
12 |
ADDUMMY_IN_STEPPING |
subroutine ADDUMMY_IN_STEPPING( mytime, myiter, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
226 |
ADDUMMY_IN_STEPPING |
print *, 'ph-mnc in addummy myiter ', myiter |
|
./pkg/autodiff/addummy_in_stepping.F |
54 |
ADDUMMY_IN_STEPPING |
integer myiter |
|
./pkg/autodiff/addummy_in_stepping.F |
80 |
ADDUMMY_IN_STEPPING |
write(*,*) 'myIter= ',myiter |
|
./pkg/autodiff/active_file_loc_ad.F |
105 |
ADACTIVE_READ_XY_LOC |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_loc_ad.F |
117 |
ADACTIVE_READ_XYZ_LOC |
I myiter, |
|
./pkg/autodiff/active_file_loc_ad.F |
151 |
ADACTIVE_READ_XYZ_LOC |
integer myiter,mythid |
|
./pkg/autodiff/active_file_loc_ad.F |
180 |
ADACTIVE_READ_XYZ_LOC |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_loc_ad.F |
192 |
ADACTIVE_READ_XZ_LOC |
I myiter, |
|
./pkg/autodiff/active_file_loc_ad.F |
226 |
ADACTIVE_READ_XZ_LOC |
integer myiter,mythid |
|
./pkg/autodiff/active_file_loc_ad.F |
255 |
ADACTIVE_READ_XZ_LOC |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_loc_ad.F |
267 |
ADACTIVE_READ_YZ_LOC |
I myiter, |
|
./pkg/autodiff/active_file_loc_ad.F |
301 |
ADACTIVE_READ_YZ_LOC |
integer myiter,mythid |
|
./pkg/autodiff/active_file_loc_ad.F |
330 |
ADACTIVE_READ_YZ_LOC |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_loc_ad.F |
340 |
ADACTIVE_WRITE_XY_LOC |
I myiter, |
|
./pkg/autodiff/active_file_loc_ad.F |
372 |
ADACTIVE_WRITE_XY_LOC |
integer myiter,mythid |
|
./pkg/autodiff/active_file_loc_ad.F |
403 |
ADACTIVE_WRITE_XY_LOC |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_loc_ad.F |
413 |
ADACTIVE_WRITE_XYZ_LOC |
I myiter, |
|
./pkg/autodiff/active_file_loc_ad.F |
41 |
ADACTIVE_READ_XY_LOC |
I myiter, |
|
./pkg/autodiff/active_file_loc_ad.F |
445 |
ADACTIVE_WRITE_XYZ_LOC |
integer myiter,mythid |
|
./pkg/autodiff/active_file_loc_ad.F |
476 |
ADACTIVE_WRITE_XYZ_LOC |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_loc_ad.F |
486 |
ADACTIVE_WRITE_XZ_LOC |
I myiter, |
|
./pkg/autodiff/active_file_loc_ad.F |
518 |
ADACTIVE_WRITE_XZ_LOC |
integer myiter,mythid |
|
./pkg/autodiff/active_file_loc_ad.F |
549 |
ADACTIVE_WRITE_XZ_LOC |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_loc_ad.F |
559 |
ADACTIVE_WRITE_YZ_LOC |
I myiter, |
|
./pkg/autodiff/active_file_loc_ad.F |
591 |
ADACTIVE_WRITE_YZ_LOC |
integer myiter,mythid |
|
./pkg/autodiff/active_file_loc_ad.F |
622 |
ADACTIVE_WRITE_YZ_LOC |
& REVERSE_SIMULATION, myiter, mythid ) |
|
./pkg/autodiff/active_file_loc_ad.F |
76 |
ADACTIVE_READ_XY_LOC |
integer myiter,mythid |
|
./pkg/profiles/active_file_profiles_ad.F |
126 |
ADACTIVE_WRITE_PROFILE |
integer myiter |
|
./pkg/profiles/active_file_profiles_ad.F |
139 |
ADACTIVE_WRITE_PROFILE |
& REVERSE_SIMULATION, myiter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles_ad.F |
26 |
ADACTIVE_READ_PROFILE |
I myiter, |
|
./pkg/profiles/active_file_profiles_ad.F |
62 |
ADACTIVE_READ_PROFILE |
integer myiter |
|
./pkg/profiles/active_file_profiles_ad.F |
72 |
ADACTIVE_READ_PROFILE |
& REVERSE_SIMULATION, myiter,bi,bj, mythid) |
|
./pkg/profiles/active_file_profiles_ad.F |
88 |
ADACTIVE_WRITE_PROFILE |
I myiter, |
|
./pkg/profiles/cost_profiles.F |
12 |
COST_PROFILES |
SUBROUTINE COST_PROFILES( myiter, mytime, myThid ) |
|
./pkg/profiles/cost_profiles.F |
35 |
COST_PROFILES |
integer myiter |
|
./model/src/swfrac.F |
67 |
SWFRAC |
integer myiter |
|
./verification/OpenAD/code_ad_openad/the_first_level_loop.F |
93 |
THE_FIRST_LEVEL_LOOP |
+mytime, myiter, mythid ) |
|
./verification/OpenAD/code_ad_openad/the_fourth_level_loop.F |
106 |
THE_FOURTH_LEVEL_LOOP |
+mytime, myiter, mythid ) |
|
./verification/OpenAD/code_ad_openad/the_fourth_level_loop.F |
193 |
THE_FOURTH_LEVEL_PLAIN |
+mytime, myiter, mythid ) |
|
./verification/OpenAD/code_ad_openad/the_fourth_level_loop.F |
201 |
THE_FOURTH_LEVEL_PLAIN |
+mytime, myiter, mythid ) |
|
./verification/OpenAD/code_ad_openad/the_fourth_level_loop.F |
98 |
THE_FOURTH_LEVEL_LOOP |
+mytime, myiter, mythid ) |
|
./verification/OpenAD/code_ad_openad/the_third_level_loop.F |
107 |
THE_THIRD_LEVEL_LOOP |
+mytime, myiter, mythid ) |
|
./verification/OpenAD/code_ad_openad/the_third_level_loop.F |
195 |
THE_THIRD_LEVEL_PLAIN |
+mytime, myiter, mythid ) |
|
./verification/OpenAD/code_ad_openad/the_third_level_loop.F |
203 |
THE_THIRD_LEVEL_PLAIN |
+mytime, myiter, mythid ) |
|
./verification/OpenAD/code_ad_openad/the_third_level_loop.F |
99 |
THE_THIRD_LEVEL_LOOP |
+mytime, myiter, mythid ) |
|
./verification/OpenAD/code_ad_openad/the_second_level_loop.F |
104 |
THE_SECOND_LEVEL_LOOP |
+mytime, myiter, mythid ) |
|
./verification/OpenAD/code_ad_openad/the_second_level_loop.F |
200 |
THE_SECOND_LEVEL_PLAIN |
+mytime, myiter, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
145 |
THE_MAIN_LOOP |
integer myiter |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
199 |
THE_MAIN_LOOP |
call CAL_TIMESTAMP( myiter, mytime, mydate, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
376 |
THE_MAIN_LOOP |
myiter = nIter0 + (iloop-1) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
393 |
THE_MAIN_LOOP |
call COST_ATLANTIC( mytime, myiter,mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
409 |
THE_MAIN_LOOP |
CALL EXF_GETFORCING( mytime, myiter, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
545 |
THE_MAIN_LOOP |
call COST_ATLANTIC( mytime, myiter,mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
556 |
THE_MAIN_LOOP |
call COST_FORCING( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
565 |
THE_MAIN_LOOP |
call COST_HYD( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
574 |
THE_MAIN_LOOP |
call SEAICE_COST_DRIVER( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
584 |
THE_MAIN_LOOP |
call COST_OBCS( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
594 |
THE_MAIN_LOOP |
call COST_CURMTR( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
605 |
THE_MAIN_LOOP |
call COST_SSH( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
616 |
THE_MAIN_LOOP |
call COST_DRIFTER( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
627 |
THE_MAIN_LOOP |
call COST_SCAT( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
634 |
THE_MAIN_LOOP |
call COST_MEAN_HEATFLUX( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
641 |
THE_MAIN_LOOP |
call COST_MEAN_SALTFLUX( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
653 |
THE_MAIN_LOOP |
call COST_DRIFT( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
662 |
THE_MAIN_LOOP |
call COST_DRIFTW( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
670 |
THE_MAIN_LOOP |
call COST_THETA_INI_FIN( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
671 |
THE_MAIN_LOOP |
call COST_SALT_INI_FIN( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
119 |
COST_HYD |
& myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
140 |
COST_HYD |
& myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
148 |
COST_HYD |
call COST_CTDS ( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
155 |
COST_HYD |
call COST_ARGO_SALT ( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
162 |
COST_HYD |
call COST_THETA0 ( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
169 |
COST_HYD |
call COST_SALT0 ( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
176 |
COST_HYD |
call COST_THETA ( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
183 |
COST_HYD |
call COST_SALT ( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
41 |
COST_HYD |
integer myiter |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
6 |
COST_HYD |
subroutine COST_HYD( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
77 |
COST_HYD |
& myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
85 |
COST_HYD |
call COST_ARGO_THETA ( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
92 |
COST_HYD |
call COST_CTDT ( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
99 |
COST_HYD |
call COST_XBT ( myiter, mytime, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/exf_getclim.F |
105 |
EXF_GETCLIM |
if ( myiter .EQ. niter0 ) then |
|
./verification/lab_sea/code_ad_seaice_only/exf_getclim.F |
54 |
EXF_GETCLIM |
integer myiter |
|
./verification/lab_sea/code_ad_seaice_only/exf_getclim.F |
66 |
EXF_GETCLIM |
call EXF_SET_CLIMTEMP ( mytime, myiter, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/exf_getclim.F |
73 |
EXF_GETCLIM |
call EXF_SET_CLIMSALT ( mytime, myiter, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/exf_getclim.F |
80 |
EXF_GETCLIM |
call EXF_SET_CLIMSST ( mytime, myiter, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/exf_getclim.F |
87 |
EXF_GETCLIM |
call EXF_SET_CLIMSSS ( mytime, myiter, mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/exf_getclim.F |
8 |
EXF_GETCLIM |
I myiter, |
|
./verification/lab_sea/code_ad_seaice_only/exf_getclim.F |
96 |
EXF_GETCLIM |
& mytime, myiter, mythid ) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
44 |
ADDUMMY_IN_STEPPING |
integer myiter |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
70 |
ADDUMMY_IN_STEPPING |
write(*,*) 'myIter= ',myiter |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
8 |
ADDUMMY_IN_STEPPING |
subroutine ADDUMMY_IN_STEPPING( mytime, myiter, myThid ) |
|
./pkg/cost/cost_tile.F |
58 |
COST_TILE |
subroutine COST_TILE( mytime, myiter, myThid ) |
|
./pkg/cost/cost_tile.F |
86 |
COST_TILE |
integer myiter |
|
./pkg/grdchk/grdchk_main.F |
256 |
GRDCHK_MAIN |
myiter = niter0 |
|
./pkg/grdchk/grdchk_main.F |
266 |
GRDCHK_MAIN |
call G_THE_MAIN_LOOP( mytime, myiter, mythid ) |
|
./pkg/grdchk/grdchk_main.F |
306 |
GRDCHK_MAIN |
myiter = niter0 |
|
./pkg/grdchk/grdchk_main.F |
307 |
GRDCHK_MAIN |
call THE_MAIN_LOOP( mytime, myiter, mythid ) |
|
./pkg/grdchk/grdchk_main.F |
346 |
GRDCHK_MAIN |
myiter = niter0 |
|
./pkg/grdchk/grdchk_main.F |
347 |
GRDCHK_MAIN |
call THE_MAIN_LOOP( mytime, myiter, mythid ) |
|
./pkg/grdchk/grdchk_main.F |
95 |
GRDCHK_MAIN |
integer myiter |
|
./pkg/ecco/the_main_loop.F |
1145 |
THE_MAIN_LOOP |
call COST_ATLANTIC( mytime, myiter,mythid ) |
|
./pkg/ecco/the_main_loop.F |
1156 |
THE_MAIN_LOOP |
call COST_FORCING( myiter, mytime, mythid ) |
|
./pkg/ecco/the_main_loop.F |
1166 |
THE_MAIN_LOOP |
call COST_SSH( myiter, mytime, mythid ) |
|
./pkg/ecco/the_main_loop.F |
1176 |
THE_MAIN_LOOP |
call COST_HYD( myiter, mytime, mythid ) |
|
./pkg/ecco/the_main_loop.F |
1185 |
THE_MAIN_LOOP |
call SEAICE_COST_DRIVER( myiter, mytime, mythid ) |
|
./pkg/ecco/the_main_loop.F |
1195 |
THE_MAIN_LOOP |
call COST_OBCS( myiter, mytime, mythid ) |
|
./pkg/ecco/the_main_loop.F |
1205 |
THE_MAIN_LOOP |
call COST_CURMTR( myiter, mytime, mythid ) |
|
./pkg/ecco/the_main_loop.F |
1216 |
THE_MAIN_LOOP |
call COST_DRIFTER( myiter, mytime, mythid ) |
|
./pkg/ecco/the_main_loop.F |
1227 |
THE_MAIN_LOOP |
call COST_SCAT( myiter, mytime, mythid ) |
|
./pkg/ecco/the_main_loop.F |
1239 |
THE_MAIN_LOOP |
call COST_DRIFT( myiter, mytime, mythid ) |
|
./pkg/ecco/the_main_loop.F |
1248 |
THE_MAIN_LOOP |
call COST_DRIFTW( myiter, mytime, mythid ) |
|
./pkg/ecco/the_main_loop.F |
1256 |
THE_MAIN_LOOP |
call COST_THETA_INI_FIN( myiter, mytime, mythid ) |
|
./pkg/ecco/the_main_loop.F |
1257 |
THE_MAIN_LOOP |
call COST_SALT_INI_FIN( myiter, mytime, mythid ) |
|
./pkg/ecco/the_main_loop.F |
169 |
THE_MAIN_LOOP |
integer myiter |
|
./pkg/ecco/the_main_loop.F |
262 |
THE_MAIN_LOOP |
call CAL_TIMESTAMP( myiter, mytime, mydate, mythid ) |
|
./pkg/ecco/the_main_loop.F |
497 |
THE_MAIN_LOOP |
myiter = nIter0 + (iloop-1) |
|
./pkg/ecco/the_main_loop.F |
537 |
THE_MAIN_LOOP |
call COST_ATLANTIC( mytime, myiter,mythid ) |
|
./pkg/ecco/cost_mean_heatflux.F |
41 |
COST_MEAN_HEATFLUX |
integer myiter |
|
./pkg/ecco/cost_mean_heatflux.F |
6 |
COST_MEAN_HEATFLUX |
I myiter, |
|
./pkg/ecco/cost_curmtr.F |
42 |
COST_CURMTR |
integer myiter |
|
./pkg/ecco/cost_curmtr.F |
6 |
COST_CURMTR |
I myiter, |
|
./pkg/ecco/cost_theta.F |
47 |
COST_THETA |
integer myiter |
|
./pkg/ecco/cost_theta.F |
6 |
COST_THETA |
subroutine COST_THETA( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_hyd.F |
117 |
COST_HYD |
& myiter, mytime, mythid ) |
|
./pkg/ecco/cost_hyd.F |
138 |
COST_HYD |
& myiter, mytime, mythid ) |
|
./pkg/ecco/cost_hyd.F |
146 |
COST_HYD |
call COST_CTDS ( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_hyd.F |
153 |
COST_HYD |
call COST_ARGO_SALT ( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_hyd.F |
160 |
COST_HYD |
call COST_THETA0 ( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_hyd.F |
167 |
COST_HYD |
call COST_SALT0 ( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_hyd.F |
174 |
COST_HYD |
call COST_THETA ( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_hyd.F |
181 |
COST_HYD |
call COST_SALT ( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_hyd.F |
185 |
COST_HYD |
CALL COST_PROFILES( myiter, mytime, mythid) |
|
./pkg/ecco/cost_hyd.F |
41 |
COST_HYD |
integer myiter |
|
./pkg/ecco/cost_hyd.F |
6 |
COST_HYD |
subroutine COST_HYD( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_hyd.F |
75 |
COST_HYD |
& myiter, mytime, mythid ) |
|
./pkg/ecco/cost_hyd.F |
83 |
COST_HYD |
call COST_ARGO_THETA ( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_hyd.F |
90 |
COST_HYD |
call COST_CTDT ( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_hyd.F |
97 |
COST_HYD |
call COST_XBT ( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_scat.F |
41 |
COST_SCAT |
integer myiter |
|
./pkg/ecco/cost_scat.F |
7 |
COST_SCAT |
I myiter, |
|
./pkg/ecco/cost_averagesflags.F |
111 |
COST_AVERAGESFLAGS |
call CAL_GETDATE( myiter, mytime, mydate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
112 |
COST_AVERAGESFLAGS |
call CAL_GETDATE( myiter+1, mytime+modelstep, nextdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
57 |
COST_AVERAGESFLAGS |
integer myiter |
|
./pkg/ecco/cost_averagesflags.F |
7 |
COST_AVERAGESFLAGS |
I myiter, |
|
./pkg/ecco/cost_ctdt.F |
42 |
COST_CTDT |
integer myiter |
|
./pkg/ecco/cost_ctdt.F |
7 |
COST_CTDT |
I myiter, |
|
./pkg/ecco/cost_driftw.F |
44 |
COST_DRIFTW |
integer myiter |
|
./pkg/ecco/cost_driftw.F |
7 |
COST_DRIFTW |
I myiter, |
|
./pkg/ecco/cost_obcsn.F |
44 |
COST_OBCSN |
integer myiter |
|
./pkg/ecco/cost_obcsn.F |
8 |
COST_OBCSN |
I myiter, |
|
./pkg/ecco/cost_obcsvol.F |
46 |
COST_OBCSVOL |
integer myiter |
|
./pkg/ecco/cost_obcsvol.F |
8 |
COST_OBCSVOL |
I myiter, |
|
./pkg/ecco/cost_ssh.F |
50 |
COST_SSH |
integer myiter |
|
./pkg/ecco/cost_ssh.F |
7 |
COST_SSH |
I myiter, |
|
./pkg/ecco/cost_forcing_gen.F |
53 |
COST_FORCING_GEN |
integer myiter |
|
./pkg/ecco/cost_forcing_gen.F |
7 |
COST_FORCING_GEN |
I myiter, |
|
./pkg/ecco/cost_mean_saltflux.F |
41 |
COST_MEAN_SALTFLUX |
integer myiter |
|
./pkg/ecco/cost_mean_saltflux.F |
6 |
COST_MEAN_SALTFLUX |
I myiter, |
|
./pkg/ecco/cost_salt0.F |
44 |
COST_SALT0 |
integer myiter |
|
./pkg/ecco/cost_salt0.F |
7 |
COST_SALT0 |
I myiter, |
|
./pkg/ecco/cost_kapgm.F |
48 |
COST_KAPGM |
integer myiter |
|
./pkg/ecco/cost_kapgm.F |
7 |
COST_KAPGM |
I myiter, |
|
./pkg/ecco/cost_ctds.F |
41 |
COST_CTDS |
integer myiter |
|
./pkg/ecco/cost_ctds.F |
7 |
COST_CTDS |
I myiter, |
|
./pkg/ecco/cost_averagesfields.F |
112 |
COST_AVERAGESFIELDS |
myiter = niter0 + INT((mytime-starttime)/deltaTClock+0.5) |
|
./pkg/ecco/cost_averagesfields.F |
117 |
COST_AVERAGESFIELDS |
I myiter, mytime, mythid, |
|
./pkg/ecco/cost_averagesfields.F |
62 |
COST_AVERAGESFIELDS |
integer myiter |
|
./pkg/ecco/cost_obcs.F |
27 |
COST_OBCS |
integer myiter |
|
./pkg/ecco/cost_obcs.F |
37 |
COST_OBCS |
call COST_OBCSN ( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_obcs.F |
41 |
COST_OBCS |
call COST_OBCSS ( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_obcs.F |
45 |
COST_OBCS |
call COST_OBCSW ( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_obcs.F |
49 |
COST_OBCS |
call COST_OBCSE ( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_obcs.F |
6 |
COST_OBCS |
I myiter, |
|
./pkg/ecco/cost_generic.F |
13 |
COST_GENERIC |
& myiter, mytime, mythid ) |
|
./pkg/ecco/cost_generic.F |
49 |
COST_GENERIC |
integer myiter |
|
./pkg/ecco/cost_ctdtclim.F |
50 |
COST_CTDTCLIM |
integer myiter |
|
./pkg/ecco/cost_ctdtclim.F |
7 |
COST_CTDTCLIM |
I myiter, |
|
./pkg/ecco/cost_drifter.F |
54 |
COST_DRIFTER |
integer myiter |
|
./pkg/ecco/cost_drifter.F |
7 |
COST_DRIFTER |
I myiter, |
|
./pkg/ecco/forward_step.F |
47 |
FORWARD_STEP |
integer myiter |
|
./pkg/ecco/cost_argo_theta.F |
42 |
COST_ARGO_THETA |
integer myiter |
|
./pkg/ecco/cost_argo_theta.F |
7 |
COST_ARGO_THETA |
I myiter, |
|
./pkg/ecco/cost_obcsw.F |
44 |
COST_OBCSW |
integer myiter |
|
./pkg/ecco/cost_obcsw.F |
8 |
COST_OBCSW |
I myiter, |
|
./pkg/ecco/cost_theta0.F |
44 |
COST_THETA0 |
integer myiter |
|
./pkg/ecco/cost_theta0.F |
7 |
COST_THETA0 |
I myiter, |
|
./pkg/ecco/cost_argo_salt.F |
42 |
COST_ARGO_SALT |
integer myiter |
|
./pkg/ecco/cost_argo_salt.F |
7 |
COST_ARGO_SALT |
I myiter, |
|
./pkg/ecco/cost_ctdsclim.F |
50 |
COST_CTDSCLIM |
integer myiter |
|
./pkg/ecco/cost_ctdsclim.F |
7 |
COST_CTDSCLIM |
I myiter, |
|
./pkg/ecco/cost_forcing.F |
103 |
COST_FORCING |
& myiter, mytime, startrec, endrec, |
|
./pkg/ecco/cost_forcing.F |
118 |
COST_FORCING |
& myiter, mytime, startrec, endrec, |
|
./pkg/ecco/cost_forcing.F |
131 |
COST_FORCING |
& myiter, mytime, startrec, endrec, |
|
./pkg/ecco/cost_forcing.F |
146 |
COST_FORCING |
& myiter, mytime, startrec, endrec, |
|
./pkg/ecco/cost_forcing.F |
159 |
COST_FORCING |
& myiter, mytime, startrec, endrec, |
|
./pkg/ecco/cost_forcing.F |
174 |
COST_FORCING |
& myiter, mytime, startrec, endrec, |
|
./pkg/ecco/cost_forcing.F |
189 |
COST_FORCING |
& myiter, mytime, startrec, endrec, |
|
./pkg/ecco/cost_forcing.F |
204 |
COST_FORCING |
& myiter, mytime, startrec, endrec, |
|
./pkg/ecco/cost_forcing.F |
215 |
COST_FORCING |
call COST_MEAN_HEATFLUX( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_forcing.F |
220 |
COST_FORCING |
call COST_MEAN_SALTFLUX( myiter, mytime, mythid ) |
|
./pkg/ecco/cost_forcing.F |
44 |
COST_FORCING |
integer myiter |
|
./pkg/ecco/cost_forcing.F |
62 |
COST_FORCING |
& myiter, mytime, |