| File |
Line number |
Procedure |
Code |
|
./model/inc/FFIELDS.h |
115 |
NO PROCEDURE |
_RL EfluxY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/FFIELDS.h |
116 |
NO PROCEDURE |
_RL EfluxP (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/FFIELDS.h |
121 |
NO PROCEDURE |
_RS eddyPsiX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/FFIELDS.h |
122 |
NO PROCEDURE |
_RS eddyPsiY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/fizhi/fizhi_wrapper.F |
102 |
FIZHI_WRAPPER |
do L = 1,Nr |
|
./pkg/fizhi/fizhi_wrapper.F |
123 |
FIZHI_WRAPPER |
do L = 1,Nr |
|
./pkg/fizhi/fizhi_wrapper.F |
144 |
FIZHI_WRAPPER |
do L = 1,Nr |
|
./pkg/fizhi/fizhi_wrapper.F |
180 |
FIZHI_WRAPPER |
do L = 1,Nr |
|
./pkg/fizhi/fizhi_wrapper.F |
195 |
FIZHI_WRAPPER |
do L = Lbotij+1,Nr+1 |
|
./pkg/fizhi/fizhi_wrapper.F |
200 |
FIZHI_WRAPPER |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_wrapper.F |
201 |
FIZHI_WRAPPER |
. pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_wrapper.F |
295 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
304 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
313 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
322 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gsphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
331 |
FIZHI_WRAPPER |
call ATOC(myThid,guphy,gvphy,maskC,idim1,idim2,jdim1,jdim2,Nr, |
|
./pkg/fizhi/fizhi_wrapper.F |
45 |
FIZHI_WRAPPER |
_RL pedyn(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr+1,nSx,nSy) |
|
./pkg/fizhi/fizhi_wrapper.F |
81 |
FIZHI_WRAPPER |
do L = 1,Nr |
|
./pkg/fizhi/getpwhere.F |
106 |
GETPWHERE |
if(Nr.eq.70)pref(Nrphys) = 0.005 |
|
./pkg/fizhi/getpwhere.F |
48 |
GETPWHERE |
_RL rF_pmid(Nr),rF_edge(Nr+1) |
|
./pkg/fizhi/getpwhere.F |
57 |
GETPWHERE |
if( (Nr.eq.10).or.(Nr.eq.20) ) then |
|
./pkg/fizhi/getpwhere.F |
62 |
GETPWHERE |
elseif ((Nr.eq.40).or.(Nr.eq.70)) then |
|
./pkg/fizhi/getpwhere.F |
83 |
GETPWHERE |
do L = 2,Nr+1 |
|
./pkg/fizhi/getpwhere.F |
86 |
GETPWHERE |
do L = 1,Nr |
|
./pkg/fizhi/getpwhere.F |
91 |
GETPWHERE |
do L = 1,Nr |
|
./model/inc/GRID.h |
406 |
NO PROCEDURE |
_RL deepFacC (Nr) |
|
./model/inc/GRID.h |
407 |
NO PROCEDURE |
_RL deepFac2C(Nr) |
|
./model/inc/GRID.h |
408 |
NO PROCEDURE |
_RL deepFacF (Nr+1) |
|
./model/inc/GRID.h |
409 |
NO PROCEDURE |
_RL deepFac2F(Nr+1) |
|
./model/inc/GRID.h |
410 |
NO PROCEDURE |
_RL recip_deepFacC (Nr) |
|
./model/inc/GRID.h |
411 |
NO PROCEDURE |
_RL recip_deepFac2C(Nr) |
|
./model/inc/GRID.h |
412 |
NO PROCEDURE |
_RL recip_deepFacF (Nr+1) |
|
./model/inc/GRID.h |
413 |
NO PROCEDURE |
_RL recip_deepFac2F(Nr+1) |
|
./model/inc/GRID.h |
427 |
NO PROCEDURE |
_RS hFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./model/inc/GRID.h |
428 |
NO PROCEDURE |
_RS hFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./model/inc/GRID.h |
429 |
NO PROCEDURE |
_RS hFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./model/inc/GRID.h |
439 |
NO PROCEDURE |
_RS recip_hFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./model/inc/GRID.h |
440 |
NO PROCEDURE |
_RS recip_hFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./model/inc/GRID.h |
441 |
NO PROCEDURE |
_RS recip_hFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./model/inc/GRID.h |
455 |
NO PROCEDURE |
_RS maskC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./model/inc/GRID.h |
456 |
NO PROCEDURE |
_RS maskW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./model/inc/GRID.h |
457 |
NO PROCEDURE |
_RS maskS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./model/inc/GRID.h |
462 |
NO PROCEDURE |
_RS drC (1:Nr) |
|
./model/inc/GRID.h |
463 |
NO PROCEDURE |
_RS drF (1:Nr) |
|
./model/inc/GRID.h |
464 |
NO PROCEDURE |
_RS recip_drC (1:Nr) |
|
./model/inc/GRID.h |
465 |
NO PROCEDURE |
_RS recip_drF (1:Nr) |
|
./model/inc/GRID.h |
466 |
NO PROCEDURE |
_RS rC (1:Nr) |
|
./model/inc/GRID.h |
467 |
NO PROCEDURE |
_RS rF (1:Nr+1) |
|
./pkg/fizhi/step_fizhi_corr.F |
101 |
STEP_FIZHI_CORR |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/step_fizhi_corr.F |
102 |
STEP_FIZHI_CORR |
. pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/step_fizhi_corr.F |
147 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,udyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
156 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,vdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
165 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,thdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
174 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,sdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
183 |
STEP_FIZHI_CORR |
call ATOC(myThid,udyntemp,vdyntemp,maskC,im1,im2,jm1,jm2,Nr, |
|
./pkg/fizhi/step_fizhi_corr.F |
191 |
STEP_FIZHI_CORR |
do L = 1,Nr |
|
./pkg/fizhi/step_fizhi_corr.F |
208 |
STEP_FIZHI_CORR |
. Nr,Nsx,Nsy,1,sNx,1,sNy,udyntemp,vdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
216 |
STEP_FIZHI_CORR |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
226 |
STEP_FIZHI_CORR |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
235 |
STEP_FIZHI_CORR |
call DYN2PHYS(thdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
244 |
STEP_FIZHI_CORR |
call DYN2PHYS(sdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
343 |
STEP_FIZHI_CORR |
do L=1,Nr |
|
./pkg/fizhi/step_fizhi_corr.F |
359 |
STEP_FIZHI_CORR |
. Nr,Nsx,Nsy,1,sNx,1,sNy,udyntemp,vdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
372 |
STEP_FIZHI_CORR |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
383 |
STEP_FIZHI_CORR |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
425 |
STEP_FIZHI_CORR |
do L=1,Nr |
|
./pkg/fizhi/step_fizhi_corr.F |
436 |
STEP_FIZHI_CORR |
call DYN2PHYS(thdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
44 |
STEP_FIZHI_CORR |
_RL pedyn(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr+1,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
46 |
STEP_FIZHI_CORR |
_RL udyntemp(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
471 |
STEP_FIZHI_CORR |
do L=1,Nr |
|
./pkg/fizhi/step_fizhi_corr.F |
47 |
STEP_FIZHI_CORR |
_RL vdyntemp(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
482 |
STEP_FIZHI_CORR |
call DYN2PHYS(sdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
48 |
STEP_FIZHI_CORR |
_RL thdyntemp(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
49 |
STEP_FIZHI_CORR |
_RL sdyntemp(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
81 |
STEP_FIZHI_CORR |
do L = 1,Nr |
|
./pkg/fizhi/step_fizhi_corr.F |
96 |
STEP_FIZHI_CORR |
do L = Lbotij+1,Nr+1 |
|
./pkg/flt/flt_bilinear.F |
165 |
FLT_TRILINEAR |
_RL u (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/flt/flt_bilinear.F |
36 |
FLT_BILINEAR |
_RL u (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/flt/flt_functions.F |
165 |
NO PROCEDURE |
do k=0,Nr |
|
./pkg/flt/flt_functions.F |
170 |
NO PROCEDURE |
if (k.eq.Nr) zhi = rC(k)+drF(Nr)*0.5 |
|
./pkg/flt/flt_runga2.F |
220 |
FLT_RUNGA2 |
if(kpart(ip,bi,bj).gt.Nr) |
|
./pkg/flt/flt_runga2.F |
221 |
FLT_RUNGA2 |
& kpart(ip,bi,bj)=Nr |
|
./pkg/flt/flt_up.F |
174 |
FLT_UP |
do k=1,Nr |
|
./pkg/flt/flt_up.F |
180 |
FLT_UP |
tmp(6+1*Nr+k) = vv |
|
./pkg/flt/flt_up.F |
181 |
FLT_UP |
tmp(6+2*Nr+k) = tt |
|
./pkg/flt/flt_up.F |
182 |
FLT_UP |
tmp(6+3*Nr+k) = ss |
|
./pkg/flt/flt_up.F |
188 |
FLT_UP |
do k=1,Nr |
|
./pkg/flt/flt_up.F |
190 |
FLT_UP |
tmp(6+1*Nr+k) = flt_nan |
|
./pkg/flt/flt_up.F |
191 |
FLT_UP |
tmp(6+2*Nr+k) = flt_nan |
|
./pkg/flt/flt_up.F |
192 |
FLT_UP |
tmp(6+3*Nr+k) = flt_nan |
|
./pkg/flt/flt_up.F |
45 |
FLT_UP |
parameter (imax=(6+4*Nr)) |
|
./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 |
55 |
GCHEM_CALC_TENDENCY |
_RL PtrLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gchem/gchem_calc_tendency.F |
56 |
GCHEM_CALC_TENDENCY |
_RL gPtrLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gchem/gchem_calc_tendency.F |
64 |
GCHEM_CALC_TENDENCY |
DO K = 1, Nr |
|
./pkg/generic_advdiff/GAD_SOM_VARS.h |
30 |
NO PROCEDURE |
_RL som_T(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM) |
|
./pkg/generic_advdiff/GAD_SOM_VARS.h |
31 |
NO PROCEDURE |
_RL som_S(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM) |
|
./pkg/generic_advdiff/gad_advection.F |
138 |
GAD_ADVECTION |
_RL localTijk(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
249 |
GAD_ADVECTION |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_advection.F |
251 |
GAD_ADVECTION |
kkey = (igadkey-1)*Nr + k |
|
./pkg/generic_advdiff/gad_advection.F |
293 |
GAD_ADVECTION |
& + (igadkey-1)*maxpass*Nr |
|
./pkg/generic_advdiff/gad_advection.F |
715 |
GAD_ADVECTION |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_advection.F |
717 |
GAD_ADVECTION |
kkey = (igadkey-1)*Nr + (Nr-k+1) |
|
./pkg/generic_advdiff/gad_advection.F |
725 |
GAD_ADVECTION |
if (k.EQ.Nr) kp1Msk=0. |
|
./pkg/generic_advdiff/gad_advection.F |
738 |
GAD_ADVECTION |
& (useAIM .AND. tracerIdentity.EQ.GAD_SALINITY .AND. k.EQ.Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
73 |
GAD_ADVECTION |
_RL uVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_advection.F |
74 |
GAD_ADVECTION |
_RL vVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_advection.F |
75 |
GAD_ADVECTION |
_RL wVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_advection.F |
76 |
GAD_ADVECTION |
_RL tracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_advection.F |
84 |
GAD_ADVECTION |
_RL gTracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
39 |
GAD_C2_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
54 |
GAD_C2_ADV_R |
IF ( k.EQ.1 .OR. k.GT.Nr) THEN |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
43 |
GAD_C2_IMPL_R |
_RL deltaTarg(Nr) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
45 |
GAD_C2_IMPL_R |
_RL a3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
46 |
GAD_C2_IMPL_R |
_RL b3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
47 |
GAD_C2_IMPL_R |
_RL c3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
58 |
GAD_C2_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
41 |
GAD_C4_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
63 |
GAD_C4_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
65 |
GAD_C4_ADV_R |
IF (k.LE.2 .OR. k.GE.Nr) maskPM = 0. |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
67 |
GAD_C4_ADV_R |
IF ( k.EQ.1 .OR. k.GT.Nr) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
100 |
GAD_CALC_RHS |
_RL TracerN(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
101 |
GAD_CALC_RHS |
_RL TracAB (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
113 |
GAD_CALC_RHS |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
438 |
GAD_CALC_RHS |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.k.LT.Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
630 |
GAD_CALC_RHS |
IF (k.LT.Nr .AND. fVerT(i,j,kDown)*rkSign.GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
107 |
GAD_DIAGNOSTICS_STATE |
& 0, Nr, 0, 1, 1, myThid ) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
116 |
GAD_DIAGNOSTICS_STATE |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
140 |
GAD_DIAGNOSTICS_STATE |
& 0, Nr, 2, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
46 |
GAD_DIAGNOSTICS_STATE |
_RL locVar(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
62 |
GAD_DIAGNOSTICS_STATE |
& 0, Nr, 0, 1, 1, myThid ) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
71 |
GAD_DIAGNOSTICS_STATE |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
96 |
GAD_DIAGNOSTICS_STATE |
& 0, Nr, 2, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_diff_r.F |
39 |
GAD_DIFF_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_diff_r.F |
54 |
GAD_DIFF_R |
IF (k.EQ.1 .OR. k.GT.Nr) THEN |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
43 |
GAD_DST2U1_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
65 |
GAD_DST2U1_ADV_R |
IF ( k.LE.1 .OR. k.GT.Nr) THEN |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
47 |
GAD_DST2U1_IMPL_R |
_RL deltaTarg(Nr) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
49 |
GAD_DST2U1_IMPL_R |
_RL a3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
50 |
GAD_DST2U1_IMPL_R |
_RL b3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
51 |
GAD_DST2U1_IMPL_R |
_RL c3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
71 |
GAD_DST2U1_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
44 |
GAD_DST3_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
73 |
GAD_DST3_ADV_R |
kp1=MIN(Nr,k+1) |
|
./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) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
42 |
GAD_DST3FL_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
64 |
GAD_DST3FL_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
51 |
GAD_DST3FL_IMPL_R |
_RL deltaTarg(Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
53 |
GAD_DST3FL_IMPL_R |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
54 |
GAD_DST3FL_IMPL_R |
_RL a5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
55 |
GAD_DST3FL_IMPL_R |
_RL b5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
56 |
GAD_DST3FL_IMPL_R |
_RL c5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
57 |
GAD_DST3FL_IMPL_R |
_RL d5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
58 |
GAD_DST3FL_IMPL_R |
_RL e5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
82 |
GAD_DST3FL_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
85 |
GAD_DST3FL_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
89 |
GAD_DST3FL_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
48 |
GAD_FLUXLIMIT_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
73 |
GAD_FLUXLIMIT_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
75 |
GAD_FLUXLIMIT_ADV_R |
IF ( k.GT.Nr) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
46 |
GAD_FLUXLIMIT_IMPL_R |
_RL deltaTarg(Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
48 |
GAD_FLUXLIMIT_IMPL_R |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
49 |
GAD_FLUXLIMIT_IMPL_R |
_RL a3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
50 |
GAD_FLUXLIMIT_IMPL_R |
_RL b3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
51 |
GAD_FLUXLIMIT_IMPL_R |
_RL c3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
77 |
GAD_FLUXLIMIT_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
80 |
GAD_FLUXLIMIT_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./model/inc/PARAMS.h |
710 |
NO PROCEDURE |
_RL delR(Nr) |
|
./model/inc/PARAMS.h |
711 |
NO PROCEDURE |
_RL delRc(Nr+1) |
|
./model/inc/PARAMS.h |
717 |
NO PROCEDURE |
_RL dTtracerLev(Nr) |
|
./model/inc/PARAMS.h |
757 |
NO PROCEDURE |
_RL diffKrNrT(Nr) |
|
./model/inc/PARAMS.h |
760 |
NO PROCEDURE |
_RL diffKrNrS(Nr) |
|
./model/inc/PARAMS.h |
779 |
NO PROCEDURE |
_RL rhoFacC(Nr), recip_rhoFacC(Nr) |
|
./model/inc/PARAMS.h |
780 |
NO PROCEDURE |
_RL rhoFacF(Nr+1), recip_rhoFacF(Nr+1) |
|
./model/inc/PARAMS.h |
782 |
NO PROCEDURE |
_RL rho1Ref(Nr) |
|
./model/inc/PARAMS.h |
783 |
NO PROCEDURE |
_RL tRef(Nr) |
|
./model/inc/PARAMS.h |
784 |
NO PROCEDURE |
_RL sRef(Nr) |
|
./model/inc/PARAMS.h |
785 |
NO PROCEDURE |
_RL phiRef(2*Nr+1) |
|
./model/inc/PARAMS.h |
786 |
NO PROCEDURE |
_RL dBdrRef(Nr) |
|
./model/inc/PARAMS.h |
787 |
NO PROCEDURE |
_RL rVel2wUnit(Nr+1), wUnit2rVel(Nr+1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
111 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
119 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
133 |
GAD_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
143 |
GAD_IMPLICIT_R |
DO k=1,Nr-1 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
153 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
166 |
GAD_IMPLICIT_R |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
169 |
GAD_IMPLICIT_R |
IF (k.EQ.Nr) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
218 |
GAD_IMPLICIT_R |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.K.LT.Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
299 |
GAD_IMPLICIT_R |
DO k= 1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
42 |
GAD_IMPLICIT_R |
_RL kappaRX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
43 |
GAD_IMPLICIT_R |
_RL wVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
44 |
GAD_IMPLICIT_R |
_RL tracer (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
45 |
GAD_IMPLICIT_R |
_RL gTracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
67 |
GAD_IMPLICIT_R |
_RL a5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
68 |
GAD_IMPLICIT_R |
_RL b5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
69 |
GAD_IMPLICIT_R |
_RL c5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
70 |
GAD_IMPLICIT_R |
_RL d5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
71 |
GAD_IMPLICIT_R |
_RL e5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
75 |
GAD_IMPLICIT_R |
_RL localTijk(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
87 |
GAD_IMPLICIT_R |
IF (Nr.GT.1) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
94 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_init_varia.F |
45 |
GAD_INIT_VARIA |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
29 |
GAD_OS7MP_ADV_R |
_RL Q (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
55 |
GAD_OS7MP_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
56 |
GAD_OS7MP_ADV_R |
kp2=MIN(Nr,k+2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
57 |
GAD_OS7MP_ADV_R |
kp3=MIN(Nr,k+3) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
131 |
GAD_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/generic_advdiff/gad_read_pickup.F |
90 |
GAD_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
68 |
GAD_SOM_ADV_R |
_RL sm_v (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
69 |
GAD_SOM_ADV_R |
_RL sm_o (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
70 |
GAD_SOM_ADV_R |
_RL sm_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
71 |
GAD_SOM_ADV_R |
_RL sm_y (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
72 |
GAD_SOM_ADV_R |
_RL sm_z (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
73 |
GAD_SOM_ADV_R |
_RL sm_xx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
74 |
GAD_SOM_ADV_R |
_RL sm_yy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
75 |
GAD_SOM_ADV_R |
_RL sm_zz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
76 |
GAD_SOM_ADV_R |
_RL sm_xy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
77 |
GAD_SOM_ADV_R |
_RL sm_xz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
78 |
GAD_SOM_ADV_R |
_RL sm_yz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./eesupp/inc/EXCH_JAM.h |
13 |
NO PROCEDURE |
Real*8 exchBuf1(((sNx+2*OLx)*OLy)*Nr) |
|
./eesupp/inc/EXCH_JAM.h |
14 |
NO PROCEDURE |
Real*8 exchBuf2(((sNx+2*OLx)*OLy)*Nr) |
|
./pkg/generic_advdiff/gad_som_advect.F |
109 |
GAD_SOM_ADVECT |
_RL smVol (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_advect.F |
110 |
GAD_SOM_ADVECT |
_RL smTr0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_advect.F |
246 |
GAD_SOM_ADVECT |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_som_advect.F |
320 |
GAD_SOM_ADVECT |
I ipass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
384 |
GAD_SOM_ADVECT |
I iPass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
498 |
GAD_SOM_ADVECT |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_som_advect.F |
501 |
GAD_SOM_ADVECT |
kUp = 1+MOD(Nr-k,2) |
|
./pkg/generic_advdiff/gad_som_advect.F |
502 |
GAD_SOM_ADVECT |
kDown= 1+MOD(Nr-k+1,2) |
|
./pkg/generic_advdiff/gad_som_advect.F |
503 |
GAD_SOM_ADVECT |
IF (k.EQ.Nr) THEN |
|
./pkg/generic_advdiff/gad_som_advect.F |
54 |
GAD_SOM_ADVECT |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_som_advect.F |
55 |
GAD_SOM_ADVECT |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_som_advect.F |
56 |
GAD_SOM_ADVECT |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_som_advect.F |
57 |
GAD_SOM_ADVECT |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_som_advect.F |
66 |
GAD_SOM_ADVECT |
_RL smTr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM) |
|
./pkg/generic_advdiff/gad_som_advect.F |
67 |
GAD_SOM_ADVECT |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_som_exchanges.F |
39 |
GAD_SOM_EXCHANGES |
CALL GAD_EXCH_SOM( som_T, Nr, myThid ) |
|
./pkg/generic_advdiff/gad_som_exchanges.F |
44 |
GAD_SOM_EXCHANGES |
CALL GAD_EXCH_SOM( som_S, Nr, myThid ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
43 |
GAD_SOM_LIM_R |
_RL sm_v (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
44 |
GAD_SOM_LIM_R |
_RL sm_o (1- |