| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_metric.F |
53 |
ADMTLM_METRIC |
DO k=1,Nr |
|
./pkg/admtlm/admtlm_metric.F |
55 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+0*Nr)**2/stdDevtheta**2 |
|
./pkg/admtlm/admtlm_metric.F |
56 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+1*Nr)**2/stdDevsalt**2 |
|
./pkg/admtlm/admtlm_metric.F |
57 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+2*Nr)**2/stdDevuvel**2 |
|
./pkg/admtlm/admtlm_metric.F |
58 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+3*Nr)**2/stdDevvvel**2 |
|
./pkg/admtlm/admtlm_metric.F |
61 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,1+4*Nr)**2/stdDevetan**2 |
|
./pkg/admtlm/admtlm_metric.F |
68 |
ADMTLM_METRIC |
myMetric = myMetric/(nx*ny*(4*Nr+1)) |
|
./pkg/admtlm/admtlm_bypassad.F |
74 |
ADMTLM_BYPASSAD |
DO k=1,Nr |
|
./pkg/admtlm/admtlm_bypassad.F |
78 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,1*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
80 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,2*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
82 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,3*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
85 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,4*Nr+1) |
|
./pkg/admtlm/admtlm_map.F |
33 |
ADMTLM_MAP |
DO k=1,4*Nr |
|
./pkg/admtlm/admtlm_map.F |
37 |
ADMTLM_MAP |
adobjf_state_final(i,j,bi,bj,4*Nr+1) = |
|
./pkg/admtlm/admtlm_map.F |
38 |
ADMTLM_MAP |
& g_objf_state_final(i,j,bi,bj,4*Nr+1) |
|
./pkg/ebm/ebm_forcing_surf.F |
56 |
EBM_FORCING_SURF |
kSurface = Nr |
|
./pkg/exf/exf_set_obcs.F |
122 |
EXF_SET_OBCS_YZ |
_RL obcs_fld_yz(1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/exf/exf_set_obcs.F |
123 |
EXF_SET_OBCS_YZ |
_RL obcs_yz_0(1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/exf/exf_set_obcs.F |
124 |
EXF_SET_OBCS_YZ |
_RL obcs_yz_1(1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/exf/exf_set_obcs.F |
146 |
EXF_SET_OBCS_YZ |
call MDSREADFIELDYZ( obcs_file, exf_iprec, exf_yftype, Nr |
|
./pkg/exf/exf_set_obcs.F |
154 |
EXF_SET_OBCS_YZ |
call MDSREADFIELDYZ( obcs_file, exf_iprec, exf_yftype, Nr |
|
./pkg/exf/exf_set_obcs.F |
161 |
EXF_SET_OBCS_YZ |
do k = 1,Nr |
|
./pkg/exf/exf_set_obcs.F |
35 |
EXF_SET_OBCS_XZ |
_RL obcs_fld_xz(1-olx:snx+olx,Nr,nsx,nsy) |
|
./pkg/exf/exf_set_obcs.F |
36 |
EXF_SET_OBCS_XZ |
_RL obcs_xz_0(1-olx:snx+olx,Nr,nsx,nsy) |
|
./pkg/exf/exf_set_obcs.F |
37 |
EXF_SET_OBCS_XZ |
_RL obcs_xz_1(1-olx:snx+olx,Nr,nsx,nsy) |
|
./pkg/exf/exf_set_obcs.F |
60 |
EXF_SET_OBCS_XZ |
call MDSREADFIELDXZ( obcs_file, exf_iprec, exf_yftype, Nr |
|
./pkg/exf/exf_set_obcs.F |
68 |
EXF_SET_OBCS_XZ |
call MDSREADFIELDXZ( obcs_file, exf_iprec, exf_yftype, Nr |
|
./pkg/exf/exf_set_obcs.F |
75 |
EXF_SET_OBCS_XZ |
do k = 1,Nr |
|
./pkg/exf/exf_swapffields.F |
164 |
EXF_SWAPFFIELDS_XZ |
_RL ffld0(1-olx:snx+olx,Nr,nsx,nsy) |
|
./pkg/exf/exf_swapffields.F |
165 |
EXF_SWAPFFIELDS_XZ |
_RL ffld1(1-olx:snx+olx,Nr,nsx,nsy) |
|
./pkg/exf/exf_swapffields.F |
183 |
EXF_SWAPFFIELDS_XZ |
do k = 1,Nr |
|
./pkg/exf/exf_swapffields.F |
222 |
EXF_SWAPFFIELDS_YZ |
_RL ffld0(1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/exf/exf_swapffields.F |
223 |
EXF_SWAPFFIELDS_YZ |
_RL ffld1(1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/exf/exf_swapffields.F |
241 |
EXF_SWAPFFIELDS_YZ |
do k = 1,Nr |
|
./pkg/ptracers/ptracers_statvars.F |
107 |
PTRACERS_STATVARS |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_statvars.F |
52 |
PTRACERS_STATVARS |
& Nr,bi,bj,myThid) |
|
./pkg/ptracers/ptracers_statvars.F |
54 |
PTRACERS_STATVARS |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_statvars.F |
73 |
PTRACERS_STATVARS |
& Nr, DDTT, bi, bj, myThid) |
|
./pkg/ptracers/ptracers_statvars.F |
77 |
PTRACERS_STATVARS |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_integrate.F |
116 |
PTRACERS_INTEGRATE |
kkey = (iptrkey-1)*Nr + k |
|
./pkg/ptracers/ptracers_implicit.F |
123 |
PTRACERS_IMPLICIT |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_implicit.F |
45 |
PTRACERS_IMPLICIT |
_RL kappaRk(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ptracers/PTRACERS.h |
33 |
NO PROCEDURE |
_RL PTRACERS_diffKrNr(Nr,PTRACERS_num) |
|
./pkg/ptracers/PTRACERS.h |
34 |
NO PROCEDURE |
_RL PTRACERS_ref(Nr,PTRACERS_num) |
|
./pkg/ptracers/PTRACERS.h |
83 |
NO PROCEDURE |
_RL pTracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/ptracers/PTRACERS.h |
85 |
NO PROCEDURE |
_RL gPtr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/ptracers/PTRACERS.h |
87 |
NO PROCEDURE |
_RL gPtrNM1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/ptracers/ptracers_monitor.F |
106 |
PTRACERS_MONITOR |
& Nr, ptracer(1-Olx,1-Oly,1,1,1,ip), |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
101 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
72 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
80 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
86 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_read_checkpoint.F |
98 |
PTRACERS_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr, |
|
./pkg/ptracers/ptracers_forcing_surf.F |
52 |
PTRACERS_FORCING_SURF |
ks = Nr |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
111 |
PTRACERS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./pkg/ptracers/ptracers_write_checkpoint.F |
115 |
PTRACERS_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr, |
|
./pkg/ptracers/ptracers_write_timeave.F |
73 |
PTRACERS_WRITE_TIMEAVE |
& ptracer_half,Nr,bi,bj,myThid) |
|
./model/inc/SURFACE.h |
100 |
NO PROCEDURE |
_RS h0FacW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/SURFACE.h |
101 |
NO PROCEDURE |
_RS h0FacS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/SURFACE.h |
99 |
NO PROCEDURE |
_RS h0FacC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ptracers/ptracers_forcing.F |
41 |
PTRACERS_FORCING |
_RL gPtracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ptracers/ptracers_forcing.F |
60 |
PTRACERS_FORCING |
kSurface = Nr |
|
./pkg/ptracers/ptracers_readparms.F |
186 |
PTRACERS_READPARMS |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
278 |
PTRACERS_READPARMS |
CALL WRITE_1D_R8( PTRACERS_diffKrNr(1,iTracer), Nr, INDEX_K, |
|
./pkg/ptracers/ptracers_readparms.F |
284 |
PTRACERS_READPARMS |
CALL WRITE_1D_R8( PTRACERS_ref(1,iTracer), Nr, INDEX_K, |
|
./pkg/ptracers/ptracers_readparms.F |
88 |
PTRACERS_READPARMS |
DO k=1,Nr |
|
./pkg/ptracers/PTRACERS_STATV.h |
30 |
NO PROCEDURE |
_RL ptracertave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/ptracers/PTRACERS_STATV.h |
32 |
NO PROCEDURE |
_RL ptracer_half(Nr,nSx,nSy), ptracer_full(Nr,nSx,nSy) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
108 |
PTRACERS_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL( dummy, diagname, 0,Nr,0,1,1,myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
34 |
PTRACERS_DIAGNOSTICS_FILL |
_RL dummy(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nr,Nsx,Nsy) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
49 |
PTRACERS_DIAGNOSTICS_FILL |
& 0,Nr,0,1,1,myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
56 |
PTRACERS_DIAGNOSTICS_FILL |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
68 |
PTRACERS_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL( dummy, diagname, 0,Nr,0,1,1,myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
76 |
PTRACERS_DIAGNOSTICS_FILL |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
88 |
PTRACERS_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL( dummy, diagname, 0,Nr,0,1,1,myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
96 |
PTRACERS_DIAGNOSTICS_FILL |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_debug.F |
44 |
PTRACERS_DEBUG |
CALL DEBUG_STATS_RL(Nr, |
|
./pkg/ptracers/ptracers_debug.F |
47 |
PTRACERS_DEBUG |
CALL DEBUG_STATS_RL(Nr, |
|
./pkg/ptracers/ptracers_debug.F |
50 |
PTRACERS_DEBUG |
CALL DEBUG_STATS_RL(Nr, |
|
./pkg/ptracers/ptracers_init_varia.F |
45 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_init_varia.F |
86 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/shelfice/shelfice_v_drag.F |
42 |
SHELFICE_V_DRAG |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/shelfice/shelfice_v_drag.F |
63 |
SHELFICE_V_DRAG |
kTop = Nr |
|
./pkg/shelfice/shelfice_init.F |
44 |
SHELFICE_INIT_FIXED |
DO K = Nr, 1, -1 |
|
./pkg/shelfice/shelfice_forcing.F |
132 |
SHELFICE_FORCING_S |
kSurface = Nr |
|
./pkg/shelfice/shelfice_forcing.F |
59 |
SHELFICE_FORCING_T |
kSurface = Nr |
|
./pkg/shelfice/shelfice_u_drag.F |
43 |
SHELFICE_U_DRAG |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/shelfice/shelfice_u_drag.F |
64 |
SHELFICE_U_DRAG |
kTop = Nr |
|
./model/inc/NH_VARS.h |
30 |
NO PROCEDURE |
_RL phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/NH_VARS.h |
31 |
NO PROCEDURE |
_RL gW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/NH_VARS.h |
32 |
NO PROCEDURE |
_RL gwNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/NH_VARS.h |
33 |
NO PROCEDURE |
_RL viscAh_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/NH_VARS.h |
34 |
NO PROCEDURE |
_RL viscA4_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/PARAMS.h |
666 |
NO PROCEDURE |
_RL delR(Nr) |
|
./model/inc/PARAMS.h |
667 |
NO PROCEDURE |
_RL delRc(Nr+1) |
|
./model/inc/PARAMS.h |
673 |
NO PROCEDURE |
_RL dTtracerLev(Nr) |
|
./model/inc/PARAMS.h |
715 |
NO PROCEDURE |
_RL diffKrNrT(Nr) |
|
./model/inc/PARAMS.h |
718 |
NO PROCEDURE |
_RL diffKrNrS(Nr) |
|
./model/inc/PARAMS.h |
736 |
NO PROCEDURE |
_RL tRef(Nr) |
|
./model/inc/PARAMS.h |
737 |
NO PROCEDURE |
_RL sRef(Nr) |
|
./model/inc/PARAMS.h |
738 |
NO PROCEDURE |
_RL phiRef(2*Nr+1) |
|
./model/inc/PARAMS.h |
739 |
NO PROCEDURE |
_RL dBdrRef(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_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_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) |
|
./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 |
|
./pkg/gmredi/gmredi_calc_diff.F |
49 |
GMREDI_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./pkg/gmredi/gmredi_slope_psi.F |
79 |
GMREDI_SLOPE_PSI |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/GMREDI.h |
64 |
NO PROCEDURE |
_RL Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
65 |
NO PROCEDURE |
_RL Kwy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
66 |
NO PROCEDURE |
_RL Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
73 |
NO PROCEDURE |
_RL Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
74 |
NO PROCEDURE |
_RL Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
85 |
NO PROCEDURE |
_RL Kuz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
86 |
NO PROCEDURE |
_RL Kvz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
96 |
NO PROCEDURE |
_RL GM_PsiX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
97 |
NO PROCEDURE |
_RL GM_PsiY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./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_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_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 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
54 |
GMREDI_CALC_UVFLOW |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
56 |
GMREDI_CALC_UVFLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_calc_tensor.F |
162 |
GMREDI_CALC_TENSOR |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
166 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
310 |
GMREDI_CALC_TENSOR |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
311 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
313 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
316 |
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 |
604 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwx_T, Kwx, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
606 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwy_T, Kwy, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
608 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwz_T, Kwz, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
618 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_PsiXtave, GM_PsiX, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
620 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_PsiYtave, GM_PsiY, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
624 |
GMREDI_CALC_TENSOR |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
661 |
GMREDI_CALC_TENSOR_DUMMY |
_RL sigmaX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
662 |
GMREDI_CALC_TENSOR_DUMMY |
_RL sigmaY(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
663 |
GMREDI_CALC_TENSOR_DUMMY |
_RL sigmaR(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
672 |
GMREDI_CALC_TENSOR_DUMMY |
DO k=1,Nr |
|
./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/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 |
|
./pkg/gmredi/gmredi_output.F |
108 |
GMREDI_OUTPUT |
CALL TIMEAVE_NORMALIZ(GM_Kwx_T,GM_timeave, Nr, |
|
./pkg/gmredi/gmredi_output.F |
110 |
GMREDI_OUTPUT |
CALL TIMEAVE_NORMALIZ(GM_Kwy_T,GM_timeave, Nr, |
|
./pkg/gmredi/gmredi_output.F |
112 |
GMREDI_OUTPUT |
CALL TIMEAVE_NORMALIZ(GM_Kwz_T,GM_timeave, Nr, |
|
./pkg/gmredi/gmredi_output.F |
121 |
GMREDI_OUTPUT |
CALL TIMEAVE_NORMALIZ(GM_PsiXtave,GM_timeave, Nr, |
|
./pkg/gmredi/gmredi_output.F |
123 |
GMREDI_OUTPUT |
CALL TIMEAVE_NORMALIZ(GM_PsiYtave,GM_timeave, Nr, |
|
./pkg/gmredi/gmredi_output.F |
179 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_Kwx_T,Nr,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_output.F |
180 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_Kwy_T,Nr,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_output.F |
181 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_Kwz_T,Nr,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_output.F |
188 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_PsiXtave,Nr,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_output.F |
189 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET(GM_PsiYtave,Nr,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_output.F |
192 |
GMREDI_OUTPUT |
DO k=1,Nr |
|
./model/inc/FFIELDS.h |
117 |
NO PROCEDURE |
_RL EfluxY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/FFIELDS.h |
118 |
NO PROCEDURE |
_RL EfluxP (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/FFIELDS.h |
123 |
NO PROCEDURE |
_RS EddyTaux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/FFIELDS.h |
124 |
NO PROCEDURE |
_RS EddyTauy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
36 |
GMREDI_DIAGNOSTICS_FILL |
_RL tmpfld3dloc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
51 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kux,'GM_Kux ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
52 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kvy,'GM_Kvy ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
56 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kuz,'GM_Kuz ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
57 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kvz,'GM_Kvz ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
60 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwx,'GM_Kwx ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
61 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwy,'GM_Kwy ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
62 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwz,'GM_Kwz ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
65 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(GM_PsiX,'GM_PsiX ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
66 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(GM_PsiY,'GM_PsiY ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
72 |
GMREDI_DIAGNOSTICS_FILL |
DO k = 1, Nr |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
82 |
GMREDI_DIAGNOSTICS_FILL |
& 0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
86 |
GMREDI_DIAGNOSTICS_FILL |
DO k = 1, Nr |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
96 |
GMREDI_DIAGNOSTICS_FILL |
& 0,Nr,1,bi,bj,myThid) |
|
./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/diagnostics/diagstats_output.F |
30 |
DIAGSTATS_OUTPUT |
PARAMETER (nLev = Nr+Nrphys) |
|
./pkg/diagnostics/diagstats_output.F |
32 |
DIAGSTATS_OUTPUT |
PARAMETER (nLev = Nr) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
72 |
DIAGNOSTICS_SET_LEVELS |
nlevs = MAX(Nr,Nrphys) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
83 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = Nr |
|
./model/inc/DYNVARS.h |
104 |
NO PROCEDURE |
_RL totPhiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
105 |
NO PROCEDURE |
_RL IVDConvCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
47 |
NO PROCEDURE |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
48 |
NO PROCEDURE |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
49 |
NO PROCEDURE |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
50 |
NO PROCEDURE |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
51 |
NO PROCEDURE |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
52 |
NO PROCEDURE |
_RL gU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
53 |
NO PROCEDURE |
_RL gV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
54 |
NO PROCEDURE |
_RL gT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
55 |
NO PROCEDURE |
_RL gS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
57 |
NO PROCEDURE |
_RL guNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/DYNVARS.h |
58 |
NO PROCEDURE |
_RL gvNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/DYNVARS.h |
59 |
NO PROCEDURE |
_RL gtNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/DYNVARS.h |
60 |
NO PROCEDURE |
_RL gsNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/DYNVARS.h |
62 |
NO PROCEDURE |
_RL guNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
63 |
NO PROCEDURE |
_RL gvNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
64 |
NO PROCEDURE |
_RL gtNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
65 |
NO PROCEDURE |
_RL gsNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
79 |
NO PROCEDURE |
_RL diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
84 |
NO PROCEDURE |
_RL kapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
204 |
DIAGSTATS_MNC_OUT |
dim(1) = Nr+Nrphys+1 |
|
./pkg/diagnostics/diagstats_mnc_out.F |
72 |
DIAGSTATS_MNC_OUT |
_RS ztmp(Nr+Nrphys) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
74 |
DIAGSTATS_MNC_OUT |
_RL stmp(Nr+Nrphys+1,nRegions+1) |
|
./pkg/diagnostics/diagstats_local.F |
110 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'U') drLoc = drC(MIN(k+1,Nr)) |
|
./pkg/diagnostics/diagstats_local.F |
180 |
DIAGSTATS_LOCAL |
< |