| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd.F |
387 |
ADMTLM_DSVD |
CALL INITIALISE_FIXED( myThid ) |
|
./pkg/admtlm/admtlm_metric.F |
25 |
ADMTLM_METRIC |
integer myThid |
|
./pkg/admtlm/admtlm_metric.F |
49 |
ADMTLM_METRIC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/admtlm/admtlm_metric.F |
4 |
ADMTLM_METRIC |
subroutine ADMTLM_METRIC( myThid ) |
|
./pkg/admtlm/admtlm_metric.F |
50 |
ADMTLM_METRIC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/admtlm/admtlm_metric.F |
67 |
ADMTLM_METRIC |
_GLOBAL_SUM_R8( myMetric , myThid ) |
|
./pkg/admtlm/admtlm_metric.F |
71 |
ADMTLM_METRIC |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/admtlm/admtlm_metric.F |
72 |
ADMTLM_METRIC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/admtlm/admtlm_driver.F |
11 |
ADMTLM_DRIVER |
SUBROUTINE ADMTLM_DRIVER( myThid ) |
|
./pkg/admtlm/admtlm_driver.F |
37 |
ADMTLM_DRIVER |
INTEGER myThid |
|
./pkg/admtlm/admtlm_driver.F |
46 |
ADMTLM_DRIVER |
IF (debugMode) CALL DEBUG_ENTER('ADMTLM_DRIVER',myThid) |
|
./pkg/admtlm/admtlm_driver.F |
58 |
ADMTLM_DRIVER |
CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid ) |
|
./pkg/admtlm/admtlm_driver.F |
89 |
ADMTLM_DRIVER |
IF (debugMode) CALL DEBUG_LEAVE('ADMTLM_DRIVER',myThid) |
|
./pkg/admtlm/admtlm_bypassad.F |
26 |
ADMTLM_BYPASSAD |
integer myThid |
|
./pkg/admtlm/admtlm_bypassad.F |
4 |
ADMTLM_BYPASSAD |
subroutine ADMTLM_BYPASSAD( myThid ) |
|
./pkg/admtlm/admtlm_map.F |
22 |
ADMTLM_MAP |
integer myThid |
|
./pkg/admtlm/admtlm_map.F |
29 |
ADMTLM_MAP |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/admtlm/admtlm_map.F |
30 |
ADMTLM_MAP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/admtlm/admtlm_map.F |
4 |
ADMTLM_MAP |
subroutine ADMTLM_MAP( myThid ) |
|
./pkg/ebm/ebm_atmosphere.F |
345 |
EBM_ATMOSPHERE |
_EXCH_XY_R4(Qnet , myThid ) |
|
./pkg/ebm/ebm_atmosphere.F |
346 |
EBM_ATMOSPHERE |
_EXCH_XY_R4(EmPmR , myThid ) |
|
./pkg/ebm/ebm_atmosphere.F |
45 |
EBM_ATMOSPHERE |
INTEGER myThid |
|
./pkg/ebm/ebm_atmosphere.F |
66 |
EBM_ATMOSPHERE |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ebm/ebm_atmosphere.F |
67 |
EBM_ATMOSPHERE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ebm/ebm_atmosphere.F |
6 |
EBM_ATMOSPHERE |
SUBROUTINE EBM_ATMOSPHERE ( myTime, myiter, myThid ) |
|
./pkg/ebm/ebm_atmosphere.F |
70 |
EBM_ATMOSPHERE |
act1 = bi - myBxLo(myThid) |
|
./pkg/ebm/ebm_atmosphere.F |
71 |
EBM_ATMOSPHERE |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
|
./pkg/ebm/ebm_atmosphere.F |
72 |
EBM_ATMOSPHERE |
act2 = bj - myByLo(myThid) |
|
./pkg/ebm/ebm_atmosphere.F |
73 |
EBM_ATMOSPHERE |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
|
./pkg/ebm/ebm_atmosphere.F |
74 |
EBM_ATMOSPHERE |
act3 = myThid - 1 |
|
./pkg/ebm/ebm_forcing_surf.F |
11 |
EBM_FORCING_SURF |
I myTime, myIter, myThid ) |
|
./pkg/ebm/ebm_forcing_surf.F |
41 |
EBM_FORCING_SURF |
INTEGER myThid |
|
./pkg/ebm/ebm_zonalmean.F |
29 |
EBM_ZONALMEAN |
INTEGER myThid |
|
./pkg/ebm/ebm_zonalmean.F |
50 |
EBM_ZONALMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ebm/ebm_zonalmean.F |
58 |
EBM_ZONALMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ebm/ebm_zonalmean.F |
59 |
EBM_ZONALMEAN |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ebm/ebm_zonalmean.F |
6 |
EBM_ZONALMEAN |
SUBROUTINE EBM_ZONALMEAN( myTime, myIter, myThid ) |
|
./pkg/ebm/ebm_zonalmean.F |
76 |
EBM_ZONALMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ebm/ebm_zonalmean.F |
78 |
EBM_ZONALMEAN |
_GLOBAL_SUM_R8( CountX(j,bj), myThid ) |
|
./pkg/ebm/ebm_zonalmean.F |
79 |
EBM_ZONALMEAN |
_GLOBAL_SUM_R8( ZonalMeanSST(j,bj), myThid ) |
|
./pkg/ebm/ebm_zonalmean.F |
86 |
EBM_ZONALMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ebm/ebm_readparms.F |
23 |
EBM_READPARMS |
INTEGER myThid |
|
./pkg/ebm/ebm_readparms.F |
41 |
EBM_READPARMS |
_BEGIN_MASTER(myThid) |
|
./pkg/ebm/ebm_readparms.F |
49 |
EBM_READPARMS |
O iUnit, myThid ) |
|
./pkg/ebm/ebm_readparms.F |
5 |
EBM_READPARMS |
SUBROUTINE EBM_READPARMS( myThid ) |
|
./pkg/ebm/ebm_readparms.F |
88 |
EBM_READPARMS |
_END_MASTER(myThid) |
|
./pkg/ebm/ebm_wind_perturb.F |
127 |
EBM_WIND_PERTURB |
_EXCH_XY_R4(winPert , myThid ) |
|
./pkg/ebm/ebm_wind_perturb.F |
28 |
EBM_WIND_PERTURB |
INTEGER myThid |
|
./pkg/ebm/ebm_wind_perturb.F |
52 |
EBM_WIND_PERTURB |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ebm/ebm_wind_perturb.F |
53 |
EBM_WIND_PERTURB |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ebm/ebm_wind_perturb.F |
7 |
EBM_WIND_PERTURB |
SUBROUTINE EBM_WIND_PERTURB( myTime, myIter, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
101 |
EBM_LOAD_CLIMATOLOGY |
& 'WIND_STRESS_CLIMATOLOGY FV',1,myThid) |
|
./pkg/ebm/ebm_load_climatology.F |
103 |
EBM_LOAD_CLIMATOLOGY |
_EXCH_XY_R4( SSS, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
104 |
EBM_LOAD_CLIMATOLOGY |
_EXCH_XY_R4( SST, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
105 |
EBM_LOAD_CLIMATOLOGY |
_EXCH_XY_R4( Run, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
106 |
EBM_LOAD_CLIMATOLOGY |
CALL EXCH_UV_XY_RS( fu, fv, .TRUE., myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
23 |
EBM_LOAD_CLIMATOLOGY |
INTEGER myThid |
|
./pkg/ebm/ebm_load_climatology.F |
35 |
EBM_LOAD_CLIMATOLOGY |
_BEGIN_MASTER( myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
36 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( saltClimFile, ' ', SSS, 0, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
37 |
EBM_LOAD_CLIMATOLOGY |
_END_MASTER( myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
41 |
EBM_LOAD_CLIMATOLOGY |
_BEGIN_MASTER( myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
42 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( thetaClimFile, ' ', SST, 0, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
43 |
EBM_LOAD_CLIMATOLOGY |
_END_MASTER( myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
47 |
EBM_LOAD_CLIMATOLOGY |
_BEGIN_MASTER( myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
48 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( RunoffFile, ' ', Run, 0, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
49 |
EBM_LOAD_CLIMATOLOGY |
_END_MASTER( myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
61 |
EBM_LOAD_CLIMATOLOGY |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ebm/ebm_load_climatology.F |
62 |
EBM_LOAD_CLIMATOLOGY |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ebm/ebm_load_climatology.F |
74 |
EBM_LOAD_CLIMATOLOGY |
_BEGIN_MASTER(myThid) |
|
./pkg/ebm/ebm_load_climatology.F |
75 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
76 |
EBM_LOAD_CLIMATOLOGY |
_END_MASTER(myThid) |
|
./pkg/ebm/ebm_load_climatology.F |
7 |
EBM_LOAD_CLIMATOLOGY |
SUBROUTINE EBM_LOAD_CLIMATOLOGY( myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
80 |
EBM_LOAD_CLIMATOLOGY |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ebm/ebm_load_climatology.F |
81 |
EBM_LOAD_CLIMATOLOGY |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ebm/ebm_load_climatology.F |
90 |
EBM_LOAD_CLIMATOLOGY |
_BEGIN_MASTER(myThid) |
|
./pkg/ebm/ebm_load_climatology.F |
91 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
92 |
EBM_LOAD_CLIMATOLOGY |
_END_MASTER(myThid) |
|
./pkg/ebm/ebm_load_climatology.F |
95 |
EBM_LOAD_CLIMATOLOGY |
CALL PLOT_FIELD_XYRS( SST, 'Theta Climatology' , 1, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
96 |
EBM_LOAD_CLIMATOLOGY |
CALL PLOT_FIELD_XYRS( SSS, 'Salt Climatology' , 1, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
97 |
EBM_LOAD_CLIMATOLOGY |
CALL PLOT_FIELD_XYRS( Run, 'Runoff Climatology' , 1, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
99 |
EBM_LOAD_CLIMATOLOGY |
& 'WIND_STRESS_CLIMATOLOGY FU',1,myThid) |
|
./pkg/ebm/ebm_ini_vars.F |
26 |
EBM_INI_VARS |
INTEGER myThid |
|
./pkg/ebm/ebm_ini_vars.F |
38 |
EBM_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ebm/ebm_ini_vars.F |
39 |
EBM_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ebm/ebm_ini_vars.F |
49 |
EBM_INI_VARS |
_EXCH_XY_R4(Run, myThid ) |
|
./pkg/ebm/ebm_ini_vars.F |
50 |
EBM_INI_VARS |
_EXCH_XY_R4(winPert, myThid ) |
|
./pkg/ebm/ebm_ini_vars.F |
52 |
EBM_INI_VARS |
CALL EBM_LOAD_CLIMATOLOGY( myThid ) |
|
./pkg/ebm/ebm_ini_vars.F |
54 |
EBM_INI_VARS |
CALL EBM_DRIVER( startTime, niter0, myThid ) |
|
./pkg/ebm/ebm_ini_vars.F |
59 |
EBM_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
|
./pkg/ebm/ebm_ini_vars.F |
60 |
EBM_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ebm/ebm_ini_vars.F |
68 |
EBM_INI_VARS |
I startTime, niter0, myThid ) |
|
./pkg/ebm/ebm_ini_vars.F |
6 |
EBM_INI_VARS |
SUBROUTINE EBM_INI_VARS( myThid ) |
|
./pkg/ebm/ebm_driver.F |
39 |
EBM_DRIVER |
INTEGER myThid |
|
./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_area_t.F |
124 |
EBM_AREA_T |
_GLOBAL_SUM_R8( TmlS, myThid ) |
|
./pkg/ebm/ebm_area_t.F |
125 |
EBM_AREA_T |
_GLOBAL_SUM_R8( TmlN, myThid ) |
|
./pkg/ebm/ebm_area_t.F |
126 |
EBM_AREA_T |
_GLOBAL_SUM_R8( TtS, myThid ) |
|
./pkg/ebm/ebm_area_t.F |
127 |
EBM_AREA_T |
_GLOBAL_SUM_R8( TtN, myThid ) |
|
./pkg/ebm/ebm_area_t.F |
129 |
EBM_AREA_T |
_GLOBAL_SUM_R8( CountmlS, myThid ) |
|
./pkg/ebm/ebm_area_t.F |
130 |
EBM_AREA_T |
_GLOBAL_SUM_R8( CountmlN, myThid ) |
|
./pkg/ebm/ebm_area_t.F |
131 |
EBM_AREA_T |
_GLOBAL_SUM_R8( CounttS, myThid ) |
|
./pkg/ebm/ebm_area_t.F |
132 |
EBM_AREA_T |
_GLOBAL_SUM_R8( CounttN, myThid ) |
|
./pkg/ebm/ebm_area_t.F |
30 |
EBM_AREA_T |
INTEGER myThid |
|
./pkg/ebm/ebm_area_t.F |
67 |
EBM_AREA_T |
DO bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/ebm/ebm_area_t.F |
68 |
EBM_AREA_T |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ebm/ebm_area_t.F |
6 |
EBM_AREA_T |
SUBROUTINE EBM_AREA_T( myTime, myIter, myThid ) |
|
./pkg/exf/exf_getforcing.F |
214 |
EXF_GETFORCING |
CALL EXCH_UV_XY_RL(ustress, vstress, .TRUE., myThid) |
|
./pkg/exf/exf_init_fixed.F |
29 |
EXF_INIT_FIXED |
INTEGER myThid |
|
./pkg/exf/exf_init_fixed.F |
37 |
EXF_INIT_FIXED |
CALL EXF_DIAGNOSTICS_INIT( myThid ) |
|
./pkg/exf/exf_init_fixed.F |
9 |
EXF_INIT_FIXED |
SUBROUTINE EXF_INIT_FIXED( myThid ) |
|
./pkg/exf/exf_init_runoff.F |
89 |
EXF_INIT_RUNOFF |
& 0, myThid ) |
|
./pkg/exf/exf_monitor.F |
100 |
EXF_MONITOR |
CALL MON_OUT_I ('_tsnumber', myIter,mon_string_none,myThid) |
|
./pkg/exf/exf_monitor.F |
101 |
EXF_MONITOR |
CALL MON_OUT_RL('_time_sec', myTime,mon_string_none,myThid) |
|
./pkg/exf/exf_monitor.F |
105 |
EXF_MONITOR |
& maskH,maskH,rAw,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
107 |
EXF_MONITOR |
& maskH,maskH,rAs,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
109 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
111 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
114 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
116 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
119 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
122 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
124 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
126 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
128 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
12 |
EXF_MONITOR |
I myTime, myIter, myThid ) |
|
./pkg/exf/exf_monitor.F |
130 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
134 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
138 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
142 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
144 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
148 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
152 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
156 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
160 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
166 |
EXF_MONITOR |
_BEGIN_MASTER(myThid) |
|
./pkg/exf/exf_monitor.F |
184 |
EXF_MONITOR |
_END_MASTER(myThid) |
|
./pkg/exf/exf_monitor.F |
37 |
EXF_MONITOR |
INTEGER myThid |
|
./pkg/exf/exf_monitor.F |
57 |
EXF_MONITOR |
_BEGIN_MASTER(myThid) |
|
./pkg/exf/exf_monitor.F |
74 |
EXF_MONITOR |
& 'T', '-_-_--__-__t', 0,0, myThid) |
|
./pkg/exf/exf_monitor.F |
75 |
EXF_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid) |
|
./pkg/exf/exf_monitor.F |
77 |
EXF_MONITOR |
& 'I',mon_fname,1,1,'T', myIter, myThid) |
|
./pkg/exf/exf_monitor.F |
78 |
EXF_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid) |
|
./pkg/exf/exf_monitor.F |
94 |
EXF_MONITOR |
_END_MASTER(myThid) |
|
./pkg/exf/exf_monitor.F |
99 |
EXF_MONITOR |
CALL MON_SET_PREF('exf',myThid) |
|
./pkg/exf/exf_clim_readparms.F |
151 |
EXF_CLIM_READPARMS |
I myThid ) |
|
./pkg/exf/exf_bulkformulae.F |
213 |
EXF_BULKFORMULAE |
act1 = bi - myBxLo(myThid) |
|
./pkg/exf/exf_bulkformulae.F |
214 |
EXF_BULKFORMULAE |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
|
./pkg/exf/exf_bulkformulae.F |
215 |
EXF_BULKFORMULAE |
act2 = bj - myByLo(myThid) |
|
./pkg/exf/exf_bulkformulae.F |
216 |
EXF_BULKFORMULAE |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
|
./pkg/exf/exf_bulkformulae.F |
217 |
EXF_BULKFORMULAE |
act3 = myThid - 1 |
|
./pkg/exf/exf_diagnostics_init.F |
102 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
109 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
116 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
123 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
130 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
137 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
144 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
151 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
158 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
165 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
172 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
179 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
27 |
EXF_DIAGNOSTICS_INIT |
INTEGER myThid |
|
./pkg/exf/exf_diagnostics_init.F |
52 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
59 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
66 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
73 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
80 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
87 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
94 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/exf/exf_diagnostics_init.F |
9 |
EXF_DIAGNOSTICS_INIT |
SUBROUTINE EXF_DIAGNOSTICS_INIT( myThid ) |
|
./pkg/exf/exf_interp.F |
90 |
EXF_INTERP |
do bj=myByLo(myThid),myByHi(myThid) |
|
./pkg/exf/exf_interp.F |
91 |
EXF_INTERP |
do bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/exf/exf_mapfields.F |
100 |
EXF_MAPFIELDS |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
|
./pkg/exf/exf_mapfields.F |
101 |
EXF_MAPFIELDS |
act2 = bj - myByLo(myThid) |
|
./pkg/exf/exf_mapfields.F |
102 |
EXF_MAPFIELDS |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
|
./pkg/exf/exf_mapfields.F |
103 |
EXF_MAPFIELDS |
act3 = myThid - 1 |
|
./pkg/exf/exf_mapfields.F |
244 |
EXF_MAPFIELDS |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
|
./pkg/exf/exf_mapfields.F |
99 |
EXF_MAPFIELDS |
act1 = bi - myBxLo(myThid) |
|
./pkg/exf/exf_readparms.F |
570 |
EXF_READPARMS |
I myThid ) |
|
./pkg/exf/exf_interp_read.F |
107 |
EXF_INTERP_READ |
_END_MASTER( myThid ) |
|
./pkg/exf/exf_interp_read.F |
58 |
EXF_INTERP_READ |
_BEGIN_MASTER( myThid ) |
|
./pkg/exf/exf_diagnostics_fill.F |
37 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(ustress, 'EXFtaux ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
38 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(vstress, 'EXFtauy ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
39 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(sflux, 'EXFempmr',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
40 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(hflux, 'EXFqnet ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
42 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(swflux, 'EXFswnet',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
45 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(uwind, 'EXFuwind',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
46 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(vwind, 'EXFvwind',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
49 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(atemp, 'EXFatemp',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
50 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(aqh, 'EXFaqh ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
51 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(hs , 'EXFhs ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
52 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(hl , 'EXFhl ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
53 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(lwflux, 'EXFlwnet',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
54 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(precip, 'EXFpreci',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
55 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(snowprecip, 'EXFsnow ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
58 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(evap, 'EXFevap ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
61 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(lwdown, 'EXFlwdn ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
62 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(swdown, 'EXFswdn ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_diagnostics_fill.F |
65 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(apressure, 'EXFpress',0,1,0,1,1,myThid) |
|
./pkg/ptracers/ptracers_statvars.F |
104 |
PTRACERS_STATVARS |
& 1,deltaTclock,bi,bj,myThid) |
|
./pkg/ptracers/ptracers_statvars.F |
10 |
PTRACERS_STATVARS |
I myTime, myIter, bi, bj, myThid) |
|
./pkg/ptracers/ptracers_statvars.F |
34 |
PTRACERS_STATVARS |
INTEGER myThid |
|
./pkg/ptracers/ptracers_statvars.F |
50 |
PTRACERS_STATVARS |
& 1 ,bi,bj,myThid) |
|
./pkg/ptracers/ptracers_statvars.F |
52 |
PTRACERS_STATVARS |
& Nr,bi,bj,myThid) |
|
./pkg/ptracers/ptracers_statvars.F |
73 |
PTRACERS_STATVARS |
& Nr, DDTT, bi, bj, myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
104 |
PTRACERS_INTEGRATE |
act1 = bi - myBxLo(myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
105 |
PTRACERS_INTEGRATE |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
|
./pkg/ptracers/ptracers_integrate.F |
106 |
PTRACERS_INTEGRATE |
act2 = bj - myByLo(myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
107 |
PTRACERS_INTEGRATE |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
|
./pkg/ptracers/ptracers_integrate.F |
108 |
PTRACERS_INTEGRATE |
act3 = myThid - 1 |
|
./pkg/ptracers/ptracers_integrate.F |
151 |
PTRACERS_INTEGRATE |
I myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
159 |
PTRACERS_INTEGRATE |
I myIter,myTime,myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
16 |
PTRACERS_INTEGRATE |
I myTime,myIter,myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
177 |
PTRACERS_INTEGRATE |
I iterNb, myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
189 |
PTRACERS_INTEGRATE |
I myIter,myTime,myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
197 |
PTRACERS_INTEGRATE |
I myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
204 |
PTRACERS_INTEGRATE |
I myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
214 |
PTRACERS_INTEGRATE |
I myIter,myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
222 |
PTRACERS_INTEGRATE |
I myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
67 |
PTRACERS_INTEGRATE |
INTEGER myThid |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
102 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
110 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
118 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
124 |
PTRACERS_DIAGNOSTICS_INIT |
diagSufx = GAD_DIAG_SUFX( tracerId, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
132 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
138 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
144 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
151 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
157 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
163 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
170 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
26 |
PTRACERS_DIAGNOSTICS_INIT |
INTEGER myThid |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
94 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_init.F |
9 |
PTRACERS_DIAGNOSTICS_INIT |
SUBROUTINE PTRACERS_DIAGNOSTICS_INIT( myThid ) |
|
./pkg/ptracers/ptracers_implicit.F |
107 |
PTRACERS_IMPLICIT |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_implicit.F |
118 |
PTRACERS_IMPLICIT |
I myThid ) |
|
./pkg/ptracers/ptracers_implicit.F |
127 |
PTRACERS_IMPLICIT |
I myThid ) |
|
./pkg/ptracers/ptracers_implicit.F |
12 |
PTRACERS_IMPLICIT |
I bi, bj, myTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_implicit.F |
41 |
PTRACERS_IMPLICIT |
INTEGER myThid |
|
./pkg/ptracers/ptracers_implicit.F |
68 |
PTRACERS_IMPLICIT |
act1 = bi - myBxLo(myThid) |
|
./pkg/ptracers/ptracers_implicit.F |
69 |
PTRACERS_IMPLICIT |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
|
./pkg/ptracers/ptracers_implicit.F |
70 |
PTRACERS_IMPLICIT |
act2 = bj - myByLo(myThid) |
|
./pkg/ptracers/ptracers_implicit.F |
71 |
PTRACERS_IMPLICIT |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
|
./pkg/ptracers/ptracers_implicit.F |
72 |
PTRACERS_IMPLICIT |
act3 = myThid - 1 |
|
./pkg/ptracers/ptracers_implicit.F |
89 |
PTRACERS_IMPLICIT |
I myThid) |
|
./pkg/ptracers/ptracers_gterm_blocking_exchanges.F |
10 |
PTRACERS_GTERM_BLOCKING_EXCH |
SUBROUTINE PTRACERS_GTERM_BLOCKING_EXCH( myThid ) |
|
./pkg/ptracers/ptracers_gterm_blocking_exchanges.F |
24 |
PTRACERS_GTERM_BLOCKING_EXCH |
INTEGER myThid |
|
./pkg/ptracers/ptracers_gterm_blocking_exchanges.F |
42 |
PTRACERS_GTERM_BLOCKING_EXCH |
_EXCH_XYZ_R8(gPtr(1-Olx,1-Oly,1,1,1,iTracer),myThid) |
|
./pkg/ptracers/ptracers_cycle.F |
10 |
PTRACERS_CYCLE |
SUBROUTINE PTRACERS_CYCLE(bi,bj,k,myIter,myTime,myThid) |
|
./pkg/ptracers/ptracers_cycle.F |
31 |
PTRACERS_CYCLE |
INTEGER myThid |
|
./pkg/ptracers/ptracers_cycle.F |
51 |
PTRACERS_CYCLE |
I myTime,myIter,myThid ) |
|
./pkg/ptracers/ptracers_advection.F |
10 |
PTRACERS_ADVECTION |
SUBROUTINE PTRACERS_ADVECTION( bi,bj,myIter,myTime,myThid ) |
|
./pkg/ptracers/ptracers_advection.F |
38 |
PTRACERS_ADVECTION |
INTEGER myThid |
|
./pkg/ptracers/ptracers_advection.F |
60 |
PTRACERS_ADVECTION |
act1 = bi - myBxLo(myThid) |
|
./pkg/ptracers/ptracers_advection.F |
61 |
PTRACERS_ADVECTION |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
|
./pkg/ptracers/ptracers_advection.F |
62 |
PTRACERS_ADVECTION |
act2 = bj - myByLo(myThid) |
|
./pkg/ptracers/ptracers_advection.F |
63 |
PTRACERS_ADVECTION |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
|
./pkg/ptracers/ptracers_advection.F |
64 |
PTRACERS_ADVECTION |
act3 = myThid - 1 |
|
./pkg/ptracers/ptracers_advection.F |
92 |
PTRACERS_ADVECTION |
I bi,bj,myTime,myIter,myThid) |
|
./pkg/ptracers/ptracers_init_fixed.F |
11 |
PTRACERS_INIT_FIXED |
SUBROUTINE PTRACERS_INIT_FIXED( myThid ) |
|
./pkg/ptracers/ptracers_init_fixed.F |
26 |
PTRACERS_INIT_FIXED |
INTEGER myThid |
|
./pkg/ptracers/ptracers_init_fixed.F |
65 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/ptracers/ptracers_init_fixed.F |
68 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/ptracers/ptracers_init_fixed.F |
78 |
PTRACERS_INIT_FIXED |
CALL PTRACERS_MNC_INIT( myThid ) |
|
./pkg/ptracers/ptracers_init_fixed.F |
84 |
PTRACERS_INIT_FIXED |
CALL PTRACERS_DIAGNOSTICS_INIT( myThid ) |
|
./pkg/ptracers/ptracers_convect.F |
10 |
PTRACERS_CONVECT |
SUBROUTINE PTRACERS_CONVECT( bi,bj,k,weightA,weightB,myThid ) |
|
./pkg/ptracers/ptracers_convect.F |
31 |
PTRACERS_CONVECT |
INTEGER myThid |
|
./pkg/ptracers/ptracers_convect.F |
49 |
PTRACERS_CONVECT |
I myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
101 |
PTRACERS_MONITOR |
_BEGIN_MASTER(myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
103 |
PTRACERS_MONITOR |
_END_MASTER(myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
107 |
PTRACERS_MONITOR |
& suff, maskC,hFacC,rA ,drF,myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
112 |
PTRACERS_MONITOR |
_BEGIN_MASTER(myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
11 |
PTRACERS_MONITOR |
I myIter, myTime, myThid ) |
|
./pkg/ptracers/ptracers_monitor.F |
132 |
PTRACERS_MONITOR |
_END_MASTER(myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
35 |
PTRACERS_MONITOR |
INTEGER myThid |
|
./pkg/ptracers/ptracers_monitor.F |
62 |
PTRACERS_MONITOR |
_BEGIN_MASTER(myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
84 |
PTRACERS_MONITOR |
_END_MASTER(myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
94 |
PTRACERS_MONITOR |
CALL MON_SET_PREF('trctime',myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
95 |
PTRACERS_MONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
96 |
PTRACERS_MONITOR |
CALL MON_OUT_RL('_secondsf', myTime,mon_string_none,myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
99 |
PTRACERS_MONITOR |
CALL MON_SET_PREF('trcstat_',myThid) |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
102 |
PTRACERS_READ_CHECKPOINT |
& gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),iRec,myThid) |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
103 |
PTRACERS_READ_CHECKPOINT |
_EXCH_XYZ_R8(pTracer(1-Olx,1-Oly,1,1,1,iTracer),myThid) |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
104 |
PTRACERS_READ_CHECKPOINT |
_EXCH_XYZ_R8(gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),myThid) |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
11 |
PTRACERS_READ_CHECKPOINT |
SUBROUTINE PTRACERS_READ_CHECKPOINT( |