File |
Line number |
Procedure |
Code |
./pkg/offline/offline_fields_load.F |
179 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uvel0, 1,myThid) |
./pkg/offline/offline_fields_load.F |
182 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,uvel1, 1,myThid) |
./pkg/offline/offline_fields_load.F |
191 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vvel0, 1,myThid) |
./pkg/offline/offline_fields_load.F |
194 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,vvel1, 1,myThid) |
./pkg/offline/offline_fields_load.F |
203 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,wvel0, 1,myThid) |
./pkg/offline/offline_fields_load.F |
206 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,wvel1, 1,myThid) |
./pkg/offline/offline_fields_load.F |
215 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,tave0, 1,myThid) |
./pkg/offline/offline_fields_load.F |
218 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,tave1, 1,myThid) |
./pkg/offline/offline_fields_load.F |
227 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,save0, 1,myThid) |
./pkg/offline/offline_fields_load.F |
230 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,save1, 1,myThid) |
./pkg/offline/offline_fields_load.F |
239 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,conv0, 1,myThid) |
./pkg/offline/offline_fields_load.F |
242 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,conv1, 1,myThid) |
./pkg/offline/offline_fields_load.F |
252 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmkx0, 1,myThid) |
./pkg/offline/offline_fields_load.F |
255 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmkx1, 1,myThid) |
./pkg/offline/offline_fields_load.F |
264 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmky0, 1,myThid) |
./pkg/offline/offline_fields_load.F |
267 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmky1, 1,myThid) |
./pkg/offline/offline_fields_load.F |
276 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmkz0, 1,myThid) |
./pkg/offline/offline_fields_load.F |
279 |
OFFLINE_FIELDS_LOAD |
CALL MDSREADFIELD(fn,prec,'RL',Nr,gmkz1, 1,myThid) |
./pkg/offline/offline_fields_load.F |
342 |
OFFLINE_FIELDS_LOAD |
do k=1,Nr |
./pkg/offline/offline_fields_load.F |
419 |
LEF_ZERO3 |
_RS arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
428 |
LEF_ZERO3 |
do k=1,Nr |
./pkg/offline/offline_fields_load.F |
73 |
OFFLINE_FIELDS_LOAD |
_RS uvel0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
74 |
OFFLINE_FIELDS_LOAD |
_RS uvel1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
75 |
OFFLINE_FIELDS_LOAD |
_RS vvel0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
76 |
OFFLINE_FIELDS_LOAD |
_RS vvel1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
77 |
OFFLINE_FIELDS_LOAD |
_RS wvel0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
78 |
OFFLINE_FIELDS_LOAD |
_RS wvel1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
79 |
OFFLINE_FIELDS_LOAD |
_RS tave0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
80 |
OFFLINE_FIELDS_LOAD |
_RS tave1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
81 |
OFFLINE_FIELDS_LOAD |
_RS save0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
82 |
OFFLINE_FIELDS_LOAD |
_RS save1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
83 |
OFFLINE_FIELDS_LOAD |
_RS conv0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
84 |
OFFLINE_FIELDS_LOAD |
_RS conv1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
85 |
OFFLINE_FIELDS_LOAD |
_RS gmkx0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
86 |
OFFLINE_FIELDS_LOAD |
_RS gmkx1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
87 |
OFFLINE_FIELDS_LOAD |
_RS gmky0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
88 |
OFFLINE_FIELDS_LOAD |
_RS gmky1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
89 |
OFFLINE_FIELDS_LOAD |
_RS gmkz0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/offline/offline_fields_load.F |
90 |
OFFLINE_FIELDS_LOAD |
_RS gmkz1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./model/src/diags_oceanic_surf_flux.F |
54 |
DIAGS_OCEANIC_SURF_FLUX |
ks=Nr |
./model/src/calc_grad_phi_hyd.F |
48 |
CALC_GRAD_PHI_HYD |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./model/src/calc_grad_phi_hyd.F |
49 |
CALC_GRAD_PHI_HYD |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/seaice/SEAICE_DIAGS.h |
12 |
NO PROCEDURE |
_RL SEAICE_TimeAve(Nr,nSx,nSy) |
./pkg/seaice/seaice_do_diags.F |
206 |
SEAICE_DO_DIAGS |
DO k=1,Nr |
./pkg/seaice/seaice_do_diags.F |
320 |
SEAICE_DO_DIAGS |
DO k=1,Nr |
./model/src/cycle_tracer.F |
36 |
CYCLE_TRACER |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./model/src/cycle_tracer.F |
37 |
CYCLE_TRACER |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/seaice/seaice_init.F |
54 |
SEAICE_INIT |
DO k=1,Nr |
./model/src/freeze_surface.F |
46 |
FREEZE_SURFACE |
k = Nr |
./pkg/seaice/growth.F |
50 |
GROWTH |
kSurface = Nr |
./pkg/gmredi/GMREDI_TAVE.h |
14 |
NO PROCEDURE |
_RL GM_TimeAve(Nr,nSx,nSy) |
./pkg/gmredi/GMREDI_TAVE.h |
19 |
NO PROCEDURE |
_RL GM_Kwx_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/GMREDI_TAVE.h |
20 |
NO PROCEDURE |
_RL GM_Kwy_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/GMREDI_TAVE.h |
21 |
NO PROCEDURE |
_RL GM_Kwz_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/GMREDI_TAVE.h |
34 |
NO PROCEDURE |
_RL GM_PsiXtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/GMREDI_TAVE.h |
35 |
NO PROCEDURE |
_RL GM_PsiYtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/gmredi_slope_psi.F |
81 |
GMREDI_SLOPE_PSI |
kkey = (igmkey-1)*Nr + k |
./pkg/gmredi/gmredi_init.F |
44 |
GMREDI_INIT |
DO k=1,Nr |
./pkg/gmredi/gmredi_init.F |
71 |
GMREDI_INIT |
CALL TIMEAVE_RESET(GM_Kwx_T,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_init.F |
72 |
GMREDI_INIT |
CALL TIMEAVE_RESET(GM_Kwy_T,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_init.F |
73 |
GMREDI_INIT |
CALL TIMEAVE_RESET(GM_Kwz_T,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_init.F |
74 |
GMREDI_INIT |
DO k=1,Nr |
./pkg/gmredi/gmredi_init.F |
81 |
GMREDI_INIT |
CALL TIMEAVE_RESET(GM_PsiXtave,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_init.F |
82 |
GMREDI_INIT |
CALL TIMEAVE_RESET(GM_PsiYtave,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_xtransport.F |
118 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
./pkg/gmredi/gmredi_xtransport.F |
155 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
./pkg/gmredi/gmredi_xtransport.F |
157 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
./pkg/gmredi/gmredi_xtransport.F |
42 |
GMREDI_XTRANSPORT |
_RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/gmredi_xtransport.F |
76 |
GMREDI_XTRANSPORT |
kkey = (igadkey-1)*Nr + k |
./model/src/external_forcing.F |
154 |
EXTERNAL_FORCING_V |
kSurface = Nr |
./model/src/external_forcing.F |
259 |
EXTERNAL_FORCING_T |
kSurface = Nr |
./model/src/external_forcing.F |
298 |
EXTERNAL_FORCING_T |
IF (klev.EQ.Nr) THEN |
./model/src/external_forcing.F |
376 |
EXTERNAL_FORCING_S |
kSurface = Nr |
./model/src/external_forcing.F |
56 |
EXTERNAL_FORCING_U |
kSurface = Nr |
./pkg/gmredi/gmredi_output.F |
123 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_Kwx_T,Nr,bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
124 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_Kwy_T,Nr,bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
125 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_Kwz_T,Nr,bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
132 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_PsiXtave,Nr,bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
133 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_PsiYtave,Nr,bi,bj,myThid) |
./pkg/gmredi/gmredi_output.F |
136 |
GMREDI_OUTPUT |
DO k=1,Nr |
./pkg/gmredi/gmredi_output.F |
79 |
GMREDI_OUTPUT |
CALL TIMEAVE_NORMALIZ(GM_Kwx_T,GM_timeave, Nr, |
./pkg/gmredi/gmredi_output.F |
81 |
GMREDI_OUTPUT |
CALL TIMEAVE_NORMALIZ(GM_Kwy_T,GM_timeave, Nr, |
./pkg/gmredi/gmredi_output.F |
83 |
GMREDI_OUTPUT |
CALL TIMEAVE_NORMALIZ(GM_Kwz_T,GM_timeave, Nr, |
./pkg/gmredi/gmredi_output.F |
92 |
GMREDI_OUTPUT |
CALL TIMEAVE_NORMALIZ(GM_PsiXtave,GM_timeave, Nr, |
./pkg/gmredi/gmredi_output.F |
94 |
GMREDI_OUTPUT |
CALL TIMEAVE_NORMALIZ(GM_PsiYtave,GM_timeave, Nr, |
./pkg/gmredi/gmredi_calc_uvflow.F |
49 |
GMREDI_CALC_UVFLOW |
kp1 = MIN(k+1,Nr) |
./pkg/gmredi/gmredi_calc_uvflow.F |
51 |
GMREDI_CALC_UVFLOW |
IF (k.GE.Nr) maskp1 = 0. |
./pkg/gmredi/GMREDI.h |
62 |
NO PROCEDURE |
_RL Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/GMREDI.h |
63 |
NO PROCEDURE |
_RL Kwy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/GMREDI.h |
64 |
NO PROCEDURE |
_RL Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/GMREDI.h |
71 |
NO PROCEDURE |
_RL Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/GMREDI.h |
72 |
NO PROCEDURE |
_RL Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/GMREDI.h |
83 |
NO PROCEDURE |
_RL Kuz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/GMREDI.h |
84 |
NO PROCEDURE |
_RL Kvz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/GMREDI.h |
94 |
NO PROCEDURE |
_RL GM_PsiX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/GMREDI.h |
95 |
NO PROCEDURE |
_RL GM_PsiY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/gmredi_rtransport.F |
41 |
GMREDI_RTRANSPORT |
_RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/gmredi_rtransport.F |
72 |
GMREDI_RTRANSPORT |
kkey = (igadkey-1)*Nr + k |
./pkg/gmredi/gmredi_calc_tensor.F |
144 |
GMREDI_CALC_TENSOR |
DO k=2,Nr |
./pkg/gmredi/gmredi_calc_tensor.F |
148 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
./pkg/gmredi/gmredi_calc_tensor.F |
292 |
GMREDI_CALC_TENSOR |
DO k=1,Nr |
./pkg/gmredi/gmredi_calc_tensor.F |
293 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
./pkg/gmredi/gmredi_calc_tensor.F |
295 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
298 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
./pkg/gmredi/gmredi_calc_tensor.F |
34 |
GMREDI_CALC_TENSOR |
_RL sigmaX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/gmredi/gmredi_calc_tensor.F |
35 |
GMREDI_CALC_TENSOR |
_RL sigmaY(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/gmredi/gmredi_calc_tensor.F |
36 |
GMREDI_CALC_TENSOR |
_RL sigmaR(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/gmredi/gmredi_calc_tensor.F |
510 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwx_T, Kwx, Nr, |
./pkg/gmredi/gmredi_calc_tensor.F |
512 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwy_T, Kwy, Nr, |
./pkg/gmredi/gmredi_calc_tensor.F |
514 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwz_T, Kwz, Nr, |
./pkg/gmredi/gmredi_calc_tensor.F |
524 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_PsiXtave, GM_PsiX, Nr, |
./pkg/gmredi/gmredi_calc_tensor.F |
526 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_PsiYtave, GM_PsiY, Nr, |
./pkg/gmredi/gmredi_calc_tensor.F |
530 |
GMREDI_CALC_TENSOR |
DO k=1,Nr |
./pkg/gmredi/gmredi_calc_tensor.F |
546 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kux,'GM_Kux ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
547 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kvy,'GM_Kvy ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
551 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kuz,'GM_Kuz ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
552 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kvz,'GM_Kvz ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
555 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kwx,'GM_Kwx ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
556 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kwy,'GM_Kwy ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
557 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kwz,'GM_Kwz ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
560 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(GM_PsiX,'GM_PsiX ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
561 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(GM_PsiY,'GM_PsiY ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
591 |
GMREDI_CALC_TENSOR_DUMMY |
_RL sigmaX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/gmredi/gmredi_calc_tensor.F |
592 |
GMREDI_CALC_TENSOR_DUMMY |
_RL sigmaY(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/gmredi/gmredi_calc_tensor.F |
593 |
GMREDI_CALC_TENSOR_DUMMY |
_RL sigmaR(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/gmredi/gmredi_calc_tensor.F |
602 |
GMREDI_CALC_TENSOR_DUMMY |
DO k=1,Nr |
./pkg/gmredi/gmredi_ytransport.F |
118 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
./pkg/gmredi/gmredi_ytransport.F |
155 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
./pkg/gmredi/gmredi_ytransport.F |
157 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
./pkg/gmredi/gmredi_ytransport.F |
42 |
GMREDI_YTRANSPORT |
_RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/gmredi/gmredi_ytransport.F |
76 |
GMREDI_YTRANSPORT |
kkey = (igadkey-1)*Nr + k |
./model/src/set_defaults.F |
221 |
SET_DEFAULTS |
DO k=1,Nr |
./model/src/set_defaults.F |
33 |
SET_DEFAULTS |
_RL delRDefault(Nr) |
./model/src/set_defaults.F |
46 |
SET_DEFAULTS |
DO k=1,Nr |
./model/src/set_defaults.F |
49 |
SET_DEFAULTS |
DO k=1,Nr+1 |
./model/src/set_defaults.F |
78 |
SET_DEFAULTS |
DO K =1,Nr |
./pkg/gmredi/gmredi_calc_diff.F |
49 |
GMREDI_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
./pkg/gmredi/gmredi_calc_psi_b.F |
34 |
GMREDI_CALC_PSI_B |
_RL sigmaX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/gmredi/gmredi_calc_psi_b.F |
35 |
GMREDI_CALC_PSI_B |
_RL sigmaY(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/gmredi/gmredi_calc_psi_b.F |
36 |
GMREDI_CALC_PSI_B |
_RL sigmaR(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/gmredi/gmredi_calc_psi_b.F |
76 |
GMREDI_CALC_PSI_B |
DO k=2,Nr |
./pkg/gmredi/gmredi_calc_psi_b.F |
80 |
GMREDI_CALC_PSI_B |
kkey = (igmkey-1)*Nr + k |
./pkg/gchem/GCHEM_FIELDS.h |
16 |
NO PROCEDURE |
_RL gchemTendency(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
./pkg/gchem/gchem_calc_tendency.F |
54 |
GCHEM_CALC_TENDENCY |
_RL PtrLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/gchem/gchem_calc_tendency.F |
55 |
GCHEM_CALC_TENDENCY |
_RL gPtrLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/gchem/gchem_calc_tendency.F |
63 |
GCHEM_CALC_TENDENCY |
DO K = 1, Nr |
./pkg/pp81/PP81_DIAGS.h |
29 |
NO PROCEDURE |
_RL pp_TimeAve(Nr,nSx,nSy) |
./pkg/pp81/PP81_DIAGS.h |
36 |
NO PROCEDURE |
_RL PPviscArtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/pp81/PP81_DIAGS.h |
37 |
NO PROCEDURE |
_RL PPdiffKrtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/pp81/pp81_calc_diff.F |
38 |
PP81_CALC_DIFF |
_RL KappaRx(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/pp81/pp81_calc_diff.F |
50 |
PP81_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
./pkg/pp81/pp81_calc_visc.F |
31 |
PP81_CALC_VISC |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/pp81/pp81_calc_visc.F |
32 |
PP81_CALC_VISC |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./model/src/convective_adjustment.F |
103 |
CONVECTIVE_ADJUSTMENT |
kTop = Nr |
./model/src/convective_adjustment.F |
113 |
CONVECTIVE_ADJUSTMENT |
kkey = (ikey-1)*Nr + k |
./model/src/convective_adjustment.F |
179 |
CONVECTIVE_ADJUSTMENT |
I Nr, deltaTclock, bi, bj, myThid) |
./model/src/convective_adjustment.F |
58 |
CONVECTIVE_ADJUSTMENT |
_RL ConvectCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./model/src/convective_adjustment.F |
74 |
CONVECTIVE_ADJUSTMENT |
DO K=1,Nr |
./model/src/convective_adjustment.F |
98 |
CONVECTIVE_ADJUSTMENT |
kBottom = Nr |
./pkg/pp81/pp81_do_diags.F |
120 |
PP81_DO_DIAGS |
CALL TIMEAVE_RESET(PPviscArtave, Nr,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
121 |
PP81_DO_DIAGS |
CALL TIMEAVE_RESET(PPdiffKrtave,Nr,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
122 |
PP81_DO_DIAGS |
DO k=1,Nr |
./pkg/pp81/pp81_do_diags.F |
140 |
PP81_DO_DIAGS |
& PPviscArtave, PPviscAr, Nr,DDTT,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
142 |
PP81_DO_DIAGS |
& PPdiffKrtave,PPdiffKr,Nr,DDTT,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
144 |
PP81_DO_DIAGS |
DO k=1,Nr |
./pkg/pp81/pp81_do_diags.F |
159 |
PP81_DO_DIAGS |
& Nr, bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
161 |
PP81_DO_DIAGS |
& Nr, bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
190 |
PP81_DO_DIAGS |
CALL TIMEAVE_RESET(PPviscArtave, Nr,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
191 |
PP81_DO_DIAGS |
CALL TIMEAVE_RESET(PPdiffKrtave,Nr,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
192 |
PP81_DO_DIAGS |
DO k=1,Nr |
./pkg/pp81/pp81_do_diags.F |
203 |
PP81_DO_DIAGS |
& PPviscArtave, PPviscAr, Nr,DDTT,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
205 |
PP81_DO_DIAGS |
& PPdiffKrtave,PPdiffKr,Nr,DDTT,bi,bj,myThid) |
./pkg/pp81/pp81_do_diags.F |
207 |
PP81_DO_DIAGS |
DO k=1,Nr |
./pkg/pp81/pp81_do_diags.F |
80 |
PP81_DO_DIAGS |
& Nr, myIter, myThid ) |
./pkg/pp81/pp81_do_diags.F |
82 |
PP81_DO_DIAGS |
& Nr, myIter, myThid ) |
./pkg/pp81/PP81.h |
53 |
NO PROCEDURE |
_RL PPviscAr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/pp81/PP81.h |
54 |
NO PROCEDURE |
_RL PPdiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/pp81/pp81_calc.F |
70 |
PP81_CALC |
DO K = 2, Nr |
./pkg/pp81/pp81_calc.F |
98 |
PP81_CALC |
& (buoyancyRelation .EQ. 'OCEANICP' .AND. K .EQ. Nr) ) THEN |
./pkg/pp81/pp81_init.F |
39 |
PP81_INIT |
do k = 1, Nr |
./model/src/calc_viscosity.F |
38 |
CALC_VISCOSITY |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./model/src/calc_viscosity.F |
39 |
CALC_VISCOSITY |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./model/src/adams_bashforth2.F |
36 |
ADAMS_BASHFORTH2 |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./model/src/adams_bashforth2.F |
37 |
ADAMS_BASHFORTH2 |
_RL gTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/monitor/mon_ke.F |
49 |
MON_KE |
DO K=1,Nr |
./pkg/monitor/mon_advcflw.F |
26 |
MON_ADVCFLW |
_RL W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/monitor/mon_advcflw.F |
27 |
MON_ADVCFLW |
_RS rDz(Nr) |
./pkg/monitor/mon_advcflw.F |
40 |
MON_ADVCFLW |
DO K=1,Nr |
./model/src/ini_vel.F |
47 |
INI_VEL |
DO k=1,Nr |
./model/src/ini_vel.F |
79 |
INI_VEL |
DO k=1,Nr |
./pkg/monitor/monitor.F |
111 |
MONITOR |
CALL MON_PRINTSTATS_RL(Nr,uVel,'_uvel', |
./pkg/monitor/monitor.F |
113 |
MONITOR |
CALL MON_PRINTSTATS_RL(Nr,vVel,'_vvel', |
./pkg/monitor/monitor.F |
115 |
MONITOR |
CALL MON_PRINTSTATS_RL(Nr,wVel,'_wvel', |
./pkg/monitor/monitor.F |
117 |
MONITOR |
CALL MON_WRITESTATS_RL(Nr,theta,'_theta', |
./pkg/monitor/monitor.F |
120 |
MONITOR |
CALL MON_PRINTSTATS_RL(Nr,salt,'_salt', |
./pkg/monitor/mon_advcflw2.F |
27 |
MON_ADVCFLW2 |
_RL W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/monitor/mon_advcflw2.F |
28 |
MON_ADVCFLW2 |
_RS rHFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/monitor/mon_advcflw2.F |
29 |
MON_ADVCFLW2 |
_RS rDrF(Nr) |
./pkg/monitor/mon_advcflw2.F |
42 |
MON_ADVCFLW2 |
DO K=2,Nr |
./pkg/monitor/mon_vort3.F |
81 |
MON_VORT3 |
DO k=1,Nr |
./pkg/monitor/mon_surfcor.F |
100 |
MON_SURFCOR |
IF (ks.LE.Nr) THEN |
./pkg/monitor/mon_surfcor.F |
102 |
MON_SURFCOR |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks) |
./pkg/monitor/mon_surfcor.F |
103 |
MON_SURFCOR |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,ks,bi,bj) |
./pkg/monitor/mon_surfcor.F |
116 |
MON_SURFCOR |
DO k=2,Nr |
./pkg/monitor/mon_surfcor.F |
138 |
MON_SURFCOR |
DO k=1,Nr |
./pkg/monitor/mon_surfcor.F |
79 |
MON_SURFCOR |
IF (ks.LE.Nr) THEN |
./pkg/monitor/mon_solution.F |
45 |
MON_SOLUTION |
I Nr, theta, maskC,hFacC,rA,drF, |
./model/src/ini_salt.F |
101 |
INI_SALT |
CALL PLOT_FIELD_XYZRL( salt, 'Initial Salinity' , Nr, 1, myThid ) |
./model/src/ini_salt.F |
53 |
INI_SALT |
DO K=1,Nr |
./model/src/ini_salt.F |
74 |
INI_SALT |
DO K=1,Nr |