| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_SHP.h |
17 |
NO PROCEDURE |
_RL udynbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_SHP.h |
18 |
NO PROCEDURE |
_RL vdynbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_SHP.h |
19 |
NO PROCEDURE |
_RL thdynbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_SHP.h |
20 |
NO PROCEDURE |
_RL sdynbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_coms.h |
35 |
NO PROCEDURE |
_RL guphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_coms.h |
36 |
NO PROCEDURE |
_RL gvphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_coms.h |
37 |
NO PROCEDURE |
_RL gthphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_coms.h |
38 |
NO PROCEDURE |
_RL gsphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_init_vars.F |
102 |
FIZHI_INIT_VARS |
do L = 1,Nr |
|
./pkg/fizhi/fizhi_init_vars.F |
117 |
FIZHI_INIT_VARS |
do L = Lbotij+1,Nr+1 |
|
./pkg/fizhi/fizhi_init_vars.F |
122 |
FIZHI_INIT_VARS |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_init_vars.F |
123 |
FIZHI_INIT_VARS |
. pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_init_vars.F |
155 |
FIZHI_INIT_VARS |
call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr, |
|
./pkg/fizhi/fizhi_init_vars.F |
162 |
FIZHI_INIT_VARS |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/fizhi/fizhi_init_vars.F |
173 |
FIZHI_INIT_VARS |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/fizhi/fizhi_init_vars.F |
182 |
FIZHI_INIT_VARS |
call DYN2PHYS(theta,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/fizhi/fizhi_init_vars.F |
191 |
FIZHI_INIT_VARS |
call DYN2PHYS(salt,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/fizhi/fizhi_init_vars.F |
214 |
FIZHI_INIT_VARS |
do L = 1,Nr |
|
./pkg/fizhi/fizhi_init_vars.F |
54 |
FIZHI_INIT_VARS |
_RL pedyn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1,nSx,nSy) |
|
./pkg/fizhi/fizhi_init_vars.F |
56 |
FIZHI_INIT_VARS |
_RL udyntemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/fizhi/fizhi_init_vars.F |
57 |
FIZHI_INIT_VARS |
_RL vdyntemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
118 |
FIZHI_TENDENCY_APPLY_V |
if(klev.eq.Nr .or. rC(klev).lt.1000.)then |
|
./pkg/fizhi/fizhi_tendency_apply.F |
192 |
FIZHI_TENDENCY_APPLY_T |
if(klev.eq.Nr .or. rC(klev).lt.1000.)then |
|
./pkg/fizhi/fizhi_tendency_apply.F |
43 |
FIZHI_TENDENCY_APPLY_U |
if(klev.eq.Nr .or. rC(klev).lt.1000.)then |
|
./pkg/fizhi/fizhi_wrapper.F |
101 |
FIZHI_WRAPPER |
do L = 1,Nr |
|
./pkg/fizhi/fizhi_wrapper.F |
122 |
FIZHI_WRAPPER |
do L = 1,Nr |
|
./pkg/fizhi/fizhi_wrapper.F |
143 |
FIZHI_WRAPPER |
do L = 1,Nr |
|
./pkg/fizhi/fizhi_wrapper.F |
179 |
FIZHI_WRAPPER |
do L = 1,Nr |
|
./pkg/fizhi/fizhi_wrapper.F |
194 |
FIZHI_WRAPPER |
do L = Lbotij+1,Nr+1 |
|
./pkg/fizhi/fizhi_wrapper.F |
199 |
FIZHI_WRAPPER |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_wrapper.F |
200 |
FIZHI_WRAPPER |
. pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_wrapper.F |
294 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
303 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
312 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
321 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gsphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
330 |
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 |
80 |
FIZHI_WRAPPER |
do L = 1,Nr |
|
./model/inc/NH_VARS.h |
38 |
NO PROCEDURE |
_RL phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/NH_VARS.h |
40 |
NO PROCEDURE |
_RL gW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/NH_VARS.h |
42 |
NO PROCEDURE |
_RL gwNm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/NH_VARS.h |
44 |
NO PROCEDURE |
_RL gwNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/NH_VARS.h |
46 |
NO PROCEDURE |
_RL viscAh_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/NH_VARS.h |
47 |
NO PROCEDURE |
_RL viscA4_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/fizhi/getpwhere.F |
101 |
GETPWHERE |
WRITE(ioUnit,'(4(A,I6),A)') ' Nr =', Nr, |
|
./pkg/fizhi/getpwhere.F |
111 |
GETPWHERE |
IF (Nr.EQ.70) dpTop = 1. _d -2 |
|
./pkg/fizhi/getpwhere.F |
116 |
GETPWHERE |
DO L = 1,Nr |
|
./pkg/fizhi/getpwhere.F |
121 |
GETPWHERE |
DO L = 1,Nr |
|
./pkg/fizhi/getpwhere.F |
124 |
GETPWHERE |
DO L = ntry+1,MIN(Nrphys,ntry+Nr-dynlev) |
|
./pkg/fizhi/getpwhere.F |
130 |
GETPWHERE |
do L = 2,Nr+1 |
|
./pkg/fizhi/getpwhere.F |
133 |
GETPWHERE |
do L = 1,Nr |
|
./pkg/fizhi/getpwhere.F |
138 |
GETPWHERE |
do L = 1,Nr |
|
./pkg/fizhi/getpwhere.F |
143 |
GETPWHERE |
upperBnd = ntry+Nr-dynlev |
|
./pkg/fizhi/getpwhere.F |
145 |
GETPWHERE |
upperBnd = ntry+Nr-dynlev-1 |
|
./pkg/fizhi/getpwhere.F |
168 |
GETPWHERE |
if(Nr.eq.70)pref(Nrphys) = 0.005 |
|
./pkg/fizhi/getpwhere.F |
59 |
GETPWHERE |
_RL rC_dyn(Nr), dpTop |
|
./pkg/fizhi/getpwhere.F |
61 |
GETPWHERE |
_RL rF_pmid(Nr),rF_edge(Nr+1) |
|
./pkg/fizhi/getpwhere.F |
71 |
GETPWHERE |
if( (Nr.eq.10).or.(Nr.eq.20) ) then |
|
./pkg/fizhi/getpwhere.F |
76 |
GETPWHERE |
elseif ((Nr.eq.40).or.(Nr.eq.70)) then |
|
./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 |
|
./model/inc/PARAMS.h |
763 |
NO PROCEDURE |
_RL delR(Nr) |
|
./model/inc/PARAMS.h |
764 |
NO PROCEDURE |
_RL delRc(Nr+1) |
|
./model/inc/PARAMS.h |
770 |
NO PROCEDURE |
_RL dTtracerLev(Nr) |
|
./model/inc/PARAMS.h |
792 |
NO PROCEDURE |
_RL viscArNr(Nr) |
|
./model/inc/PARAMS.h |
815 |
NO PROCEDURE |
_RL diffKrNrT(Nr) |
|
./model/inc/PARAMS.h |
818 |
NO PROCEDURE |
_RL diffKrNrS(Nr) |
|
./model/inc/PARAMS.h |
835 |
NO PROCEDURE |
_RL rhoFacC(Nr), recip_rhoFacC(Nr) |
|
./model/inc/PARAMS.h |
836 |
NO PROCEDURE |
_RL rhoFacF(Nr+1), recip_rhoFacF(Nr+1) |
|
./model/inc/PARAMS.h |
838 |
NO PROCEDURE |
_RL rho1Ref(Nr) |
|
./model/inc/PARAMS.h |
839 |
NO PROCEDURE |
_RL tRef(Nr) |
|
./model/inc/PARAMS.h |
840 |
NO PROCEDURE |
_RL sRef(Nr) |
|
./model/inc/PARAMS.h |
841 |
NO PROCEDURE |
_RL phiRef(2*Nr+1) |
|
./model/inc/PARAMS.h |
842 |
NO PROCEDURE |
_RL dBdrRef(Nr) |
|
./model/inc/PARAMS.h |
843 |
NO PROCEDURE |
_RL rVel2wUnit(Nr+1), wUnit2rVel(Nr+1) |
|
./pkg/flt/flt_interp_linear.F |
134 |
FLT_TRILINEAR |
_RL var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/flt/flt_interp_linear.F |
182 |
FLT_TRILINEAR |
k1 = MIN( MAX( k1, 1 ), Nr ) |
|
./pkg/flt/flt_interp_linear.F |
183 |
FLT_TRILINEAR |
k2 = MIN( MAX( k2, 1 ), Nr ) |
|
./pkg/flt/flt_interp_linear.F |
35 |
FLT_BILINEAR |
_RL var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/flt/flt_interp_linear.F |
52 |
FLT_BILINEAR |
IF ( kl.LT.1 .OR. kl.GT.Nr ) THEN |
|
./pkg/flt/flt_interp_linear.F |
89 |
FLT_BILINEAR |
klp = MIN(kl+1,Nr) |
|
./pkg/flt/flt_mapping.F |
194 |
FLT_MAP_IJLOCAL2XY |
DO k=1,Nr |
|
./pkg/flt/flt_mapping.F |
243 |
FLT_MAP_IJLOCAL2XY |
ELSEIF ( k.GT.Nr ) THEN |
|
./pkg/flt/flt_mapping.F |
244 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_K2R = rF(Nr+1) |
|
./pkg/flt/flt_runga2.F |
70 |
FLT_RUNGA2 |
kzhi = 0.5 _d 0 + DFLOAT(Nr) |
|
./pkg/flt/flt_runga4.F |
70 |
FLT_RUNGA4 |
kzhi = 0.5 _d 0 + DFLOAT(Nr) |
|
./pkg/flt/flt_traj.F |
134 |
FLT_TRAJ |
IF ( kp.LT.1 .OR. kp.GT.Nr ) THEN |
|
./pkg/flt/flt_traj.F |
146 |
FLT_TRAJ |
kp = MIN( MAX(kp,1), Nr) |
|
./pkg/flt/flt_up.F |
142 |
FLT_UP |
DO k=1,Nr |
|
./pkg/flt/flt_up.F |
148 |
FLT_UP |
tmp(9+1*Nr+k) = vv |
|
./pkg/flt/flt_up.F |
149 |
FLT_UP |
tmp(9+2*Nr+k) = tt |
|
./pkg/flt/flt_up.F |
150 |
FLT_UP |
tmp(9+3*Nr+k) = ss |
|
./pkg/flt/flt_up.F |
40 |
FLT_UP |
PARAMETER (imax=(9+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 |
139 |
GAD_ADVECTION |
_RL localTijk(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
250 |
GAD_ADVECTION |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_advection.F |
252 |
GAD_ADVECTION |
kkey = (igadkey-1)*Nr + k |
|
./pkg/generic_advdiff/gad_advection.F |
294 |
GAD_ADVECTION |
& + (igadkey-1)*maxpass*Nr |
|
./pkg/generic_advdiff/gad_advection.F |
704 |
GAD_ADVECTION |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_advection.F |
706 |
GAD_ADVECTION |
kkey = (igadkey-1)*Nr + (Nr-k+1) |
|
./pkg/generic_advdiff/gad_advection.F |
714 |
GAD_ADVECTION |
if (k.EQ.Nr) kp1Msk=0. |
|
./pkg/generic_advdiff/gad_advection.F |
727 |
GAD_ADVECTION |
& (useAIM .AND. tracerIdentity.EQ.GAD_SALINITY .AND. k.EQ.Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
73 |
GAD_ADVECTION |
_RL deltaTLev(Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
74 |
GAD_ADVECTION |
_RL uVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_advection.F |
75 |
GAD_ADVECTION |
_RL vVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_advection.F |
76 |
GAD_ADVECTION |
_RL wVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_advection.F |
77 |
GAD_ADVECTION |
_RL tracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_advection.F |
85 |
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 |
101 |
GAD_CALC_RHS |
_RL TracerN(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
102 |
GAD_CALC_RHS |
_RL TracAB (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
103 |
GAD_CALC_RHS |
_RL deltaTLev(Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
115 |
GAD_CALC_RHS |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
444 |
GAD_CALC_RHS |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.k.LT.Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
649 |
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) |
|
./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 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
113 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
121 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
135 |
GAD_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
145 |
GAD_IMPLICIT_R |
DO k=1,Nr-1 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
155 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
168 |
GAD_IMPLICIT_R |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
171 |
GAD_IMPLICIT_R |
IF (k.EQ.Nr) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
220 |
GAD_IMPLICIT_R |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.K.LT.Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
301 |
GAD_IMPLICIT_R |
DO k= 1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
43 |
GAD_IMPLICIT_R |
_RL deltaTLev(Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
44 |
GAD_IMPLICIT_R |
_RL kappaRX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
45 |
GAD_IMPLICIT_R |
_RL wVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
46 |
GAD_IMPLICIT_R |
_RL tracer (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
47 |
GAD_IMPLICIT_R |
_RL gTracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
69 |
GAD_IMPLICIT_R |
_RL a5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
70 |
GAD_IMPLICIT_R |
_RL b5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
71 |
GAD_IMPLICIT_R |
_RL c5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
72 |
GAD_IMPLICIT_R |
_RL d5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
73 |
GAD_IMPLICIT_R |
_RL e5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
77 |
GAD_IMPLICIT_R |
_RL localTijk(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
89 |
GAD_IMPLICIT_R |
IF (Nr.GT.1) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
96 |
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) |
|
./pkg/generic_advdiff/gad_som_advect.F |
110 |
GAD_SOM_ADVECT |
_RL smVol (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_advect.F |
111 |
GAD_SOM_ADVECT |
_RL smTr0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_advect.F |
247 |
GAD_SOM_ADVECT |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_som_advect.F |
321 |
GAD_SOM_ADVECT |
I ipass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
385 |
GAD_SOM_ADVECT |
I iPass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
499 |
GAD_SOM_ADVECT |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_som_advect.F |
502 |
GAD_SOM_ADVECT |
kUp = 1+MOD(Nr-k,2) |
|
./pkg/generic_advdiff/gad_som_advect.F |
503 |
GAD_SOM_ADVECT |
kDown= 1+MOD(Nr-k+1,2) |
|
./pkg/generic_advdiff/gad_som_advect.F |
504 |
GAD_SOM_ADVECT |
IF (k.EQ.Nr) THEN |
|
./pkg/generic_advdiff/gad_som_advect.F |
54 |
GAD_SOM_ADVECT |
_RL deltaTLev(Nr) |
|
./pkg/generic_advdiff/gad_som_advect.F |
55 |
GAD_SOM_ADVECT |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_som_advect.F |
56 |
GAD_SOM_ADVECT |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_som_advect.F |
57 |
GAD_SOM_ADVECT |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_som_advect.F |
58 |
GAD_SOM_ADVECT |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_som_advect.F |
67 |
GAD_SOM_ADVECT |
_RL smTr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM) |
|
./pkg/generic_advdiff/gad_som_advect.F |
68 |
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-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
45 |
GAD_SOM_LIM_R |
_RL sm_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
46 |
GAD_SOM_LIM_R |
_RL sm_y (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
47 |
GAD_SOM_LIM_R |
_RL sm_z (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
48 |
GAD_SOM_LIM_R |
_RL sm_xx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
49 |
GAD_SOM_LIM_R |
_RL sm_yy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
50 |
GAD_SOM_LIM_R |
_RL sm_zz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
51 |
GAD_SOM_LIM_R |
_RL sm_xy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
52 |
GAD_SOM_LIM_R |
_RL sm_xz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
53 |
GAD_SOM_LIM_R |
_RL sm_yz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
64 |
GAD_SOM_LIM_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
40 |
GAD_U3_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
60 |
GAD_U3_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
62 |
GAD_U3_ADV_R |
IF ( k.EQ.1 .OR. k.GT.Nr ) THEN |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
52 |
GAD_U3C4_IMPL_R |
_RL deltaTarg(Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
54 |
GAD_U3C4_IMPL_R |
_RL a5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
55 |
GAD_U3C4_IMPL_R |
_RL b5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
56 |
GAD_U3C4_IMPL_R |
_RL c5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
57 |
GAD_U3C4_IMPL_R |
_RL d5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
58 |
GAD_U3C4_IMPL_R |
_RL e5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
78 |
GAD_U3C4_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
81 |
GAD_U3C4_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
85 |
GAD_U3C4_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
87 |
GAD_U3C4_IMPL_R |
& .AND. k.GT.2 .AND. k.LT.Nr |
|
./pkg/generic_advdiff/gad_write_pickup.F |
101 |
GAD_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, |
|
./pkg/generic_advdiff/gad_write_pickup.F |
84 |
GAD_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, |
|
./pkg/generic_advdiff/salt_fill.F |
113 |
SALT_FILL |
CALL DIAGNOSTICS_FILL(salt,'SALTFILL',0,Nr,1,bi,bj,myThid) |
|
./pkg/generic_advdiff/salt_fill.F |
46 |
SALT_FILL |
_RL uVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/salt_fill.F |
47 |
SALT_FILL |
_RL vVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/salt_fill.F |
48 |
SALT_FILL |
_RL salt (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/salt_fill.F |
77 |
SALT_FILL |
& 0,Nr,-1,bi,bj,myThid) |
|
./pkg/generic_advdiff/salt_fill.F |
85 |
SALT_FILL |
do L=Nr,2,-1 |
|
./pkg/ggl90/GGL90.h |
77 |
NO PROCEDURE |
_RL GGL90TKE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
78 |
NO PROCEDURE |
_RL GGL90viscArU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
79 |
NO PROCEDURE |
_RL GGL90viscArV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
80 |
NO PROCEDURE |
_RL GGL90diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90_TAVE.h |
24 |
NO PROCEDURE |
_RL GGL90TKEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90_TAVE.h |
25 |
NO PROCEDURE |
_RL GGL90viscArUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90_TAVE.h |
26 |
NO PROCEDURE |
_RL GGL90viscArVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90_TAVE.h |
27 |
NO PROCEDURE |
_RL GGL90diffKrtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/ggl90_calc.F |
101 |
GGL90_CALC |
_RL a(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
102 |
GGL90_CALC |
_RL b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
103 |
GGL90_CALC |
_RL c(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
135 |
GGL90_CALC |
DO k = 1, Nr |
|
./pkg/ggl90/ggl90_calc.F |
157 |
GGL90_CALC |
DO k = 2, Nr |
|
./pkg/ggl90/ggl90_calc.F |
201 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
211 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
223 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
234 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
253 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
263 |
GGL90_CALC |
GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr), |
|
./pkg/ggl90/ggl90_calc.F |
264 |
GGL90_CALC |
& GGL90mixingLengthMin+drF(Nr)) |
|
./pkg/ggl90/ggl90_calc.F |
267 |
GGL90_CALC |
DO k=Nr-1,2,-1 |
|
./pkg/ggl90/ggl90_calc.F |
276 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
288 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
298 |
GGL90_CALC |
GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr), |
|
./pkg/ggl90/ggl90_calc.F |
299 |
GGL90_CALC |
& GGL90mixingLengthMin+drF(Nr)) |
|
./pkg/ggl90/ggl90_calc.F |
302 |
GGL90_CALC |
DO k=Nr-1,2,-1 |
|
./pkg/ggl90/ggl90_calc.F |
311 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
338 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
460 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
480 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
495 |
GGL90_CALC |
DO k=1,Nr |
|
./pkg/ggl90/ggl90_calc.F |
509 |
GGL90_CALC |
kp1 = MIN(Nr,kSurf+1) |
|
./pkg/ggl90/ggl90_calc.F |
540 |
GGL90_CALC |
DO k=1,Nr |
|
./pkg/ggl90/ggl90_calc.F |
553 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
588 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
621 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
658 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
660 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
662 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
664 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
666 |
GGL90_CALC |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
668 |
GGL90_CALC |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
83 |
GGL90_CALC |
_RL Nsquare(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
86 |
GGL90_CALC |
_RL SQRTTKE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
91 |
GGL90_CALC |
_RL TKEPrandtlNumber (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
92 |
GGL90_CALC |
_RL GGL90mixingLength(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
93 |
GGL90_CALC |
_RL rMixingLength (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
94 |
GGL90_CALC |
_RL mxLength_Dn (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
95 |
GGL90_CALC |
_RL KappaE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
99 |
GGL90_CALC |
_RL GGL90visctmp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc_diff.F |
50 |
GGL90_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./pkg/ggl90/ggl90_calc_visc.F |
31 |
GGL90_CALC_VISC |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/ggl90/ggl90_calc_visc.F |
32 |
GGL90_CALC_VISC |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/ggl90/ggl90_checkpoint.F |
41 |
GGL90_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
|
./pkg/ggl90/ggl90_checkpoint.F |
88 |
GGL90_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
|
./pkg/ggl90/ggl90_init_varia.F |
36 |
GGL90_INIT_VARIA |
DO K=1,Nr |
|
./pkg/ggl90/ggl90_init_varia.F |
70 |
GGL90_INIT_VARIA |
DO K=1,Nr |
|
./pkg/ggl90/ggl90_output.F |
110 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
111 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
112 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
113 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90TKEtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
124 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
126 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
128 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
130 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
146 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
148 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
150 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
152 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
170 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
171 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
172 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
173 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90TKEtave, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/GMREDI.h |
110 |
NO PROCEDURE |
_RL Kuz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
111 |
NO PROCEDURE |
_RL Kvz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
121 |
NO PROCEDURE |
_RL GM_PsiX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
122 |
NO PROCEDURE |
_RL GM_PsiY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
89 |
NO PROCEDURE |
_RL Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
90 |
NO PROCEDURE |
_RL Kwy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
91 |
NO PROCEDURE |
_RL Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
98 |
NO PROCEDURE |
_RL Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
99 |
NO PROCEDURE |
_RL Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI_TAVE.h |
16 |
NO PROCEDURE |
_RL GM_Kwx_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI_TAVE.h |
17 |
NO PROCEDURE |
_RL GM_Kwy_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI_TAVE.h |
18 |
NO PROCEDURE |
_RL GM_Kwz_T (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI_TAVE.h |
32 |
NO PROCEDURE |
_RL GM_PsiXtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI_TAVE.h |
33 |
NO PROCEDURE |
_RL GM_PsiYtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/gmredi_calc_diff.F |
54 |
GMREDI_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
35 |
GMREDI_CALC_PSI_B |
_RL sigmaX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
36 |
GMREDI_CALC_PSI_B |
_RL sigmaY(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
37 |
GMREDI_CALC_PSI_B |
_RL sigmaR(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
77 |
GMREDI_CALC_PSI_B |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
81 |
GMREDI_CALC_PSI_B |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
239 |
GMREDI_CALC_TENSOR |
DO k=Nr,2,-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
242 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
479 |
GMREDI_CALC_TENSOR |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
481 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
53 |
GMREDI_CALC_TENSOR |
_RL sigmaX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
54 |
GMREDI_CALC_TENSOR |
_RL sigmaY(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
55 |
GMREDI_CALC_TENSOR |
_RL sigmaR(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
562 |
GMREDI_CALC_TENSOR |
DO k=Nr,1,-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
563 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
565 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
567 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
750 |
GMREDI_CALC_TENSOR |
DO k=Nr,1,-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
751 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
753 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
755 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
919 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwx_T, Kwx, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
921 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwy_T, Kwy, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
923 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwz_T, Kwz, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
933 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_PsiXtave, GM_PsiX, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
935 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_PsiYtave, GM_PsiY, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
975 |
GMREDI_CALC_TENSOR_DUMMY |
_RL sigmaX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
976 |
GMREDI_CALC_TENSOR_DUMMY |
_RL sigmaY(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
977 |
GMREDI_CALC_TENSOR_DUMMY |
_RL sigmaR(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
989 |
GMREDI_CALC_TENSOR_DUMMY |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
55 |
GMREDI_CALC_UVFLOW |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
57 |
GMREDI_CALC_UVFLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
100 |
GMREDI_DIAGNOSTICS_FILL |
& 0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
40 |
GMREDI_DIAGNOSTICS_FILL |
_RL tmpfld3dloc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
55 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kux,'GM_Kux ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
56 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kvy,'GM_Kvy ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
60 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kuz,'GM_Kuz ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
61 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kvz,'GM_Kvz ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
64 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwx,'GM_Kwx ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
65 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwy,'GM_Kwy ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
66 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwz,'GM_Kwz ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
69 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(GM_PsiX,'GM_PsiX ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
70 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(GM_PsiY,'GM_PsiY ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
76 |
GMREDI_DIAGNOSTICS_FILL |
DO k = 1, Nr |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
86 |
GMREDI_DIAGNOSTICS_FILL |
& 0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
90 |
GMREDI_DIAGNOSTICS_FILL |
DO k = 1, Nr |
|
./pkg/gmredi/gmredi_init_varia.F |
44 |
GMREDI_INIT_VARIA |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_init_varia.F |
71 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwx_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
72 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwy_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
73 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwz_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
79 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_PsiXtave,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
80 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_PsiYtave,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_output.F |
116 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
118 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
120 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
129 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
131 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
191 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwx_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
192 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwy_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
193 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwz_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
200 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_PsiXtave, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
201 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_PsiYtave, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_rtransport.F |
45 |
GMREDI_RTRANSPORT |
_RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/gmredi_rtransport.F |
76 |
GMREDI_RTRANSPORT |
kkey = (igadkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_slope_psi.F |
84 |
GMREDI_SLOPE_PSI |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_xtransport.F |
129 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
167 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
169 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
195 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
197 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
41 |
GMREDI_XTRANSPORT |
_RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/gmredi_xtransport.F |
83 |
GMREDI_XTRANSPORT |
kkey = (igadkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_ytransport.F |
129 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
167 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
169 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
194 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
196 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
41 |
GMREDI_YTRANSPORT |
_RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/gmredi_ytransport.F |
83 |
GMREDI_YTRANSPORT |
kkey = (igadkey-1)*Nr + k |
|
./pkg/grdchk/grdchk_main.F |
273 |
GRDCHK_MAIN |
do k=1,4*Nr+1 |
|
./pkg/gridalt/gridalt_initialise.F |
47 |
GRIDALT_INITIALISE |
call MAKE_PHYS_GRID(drF,hfacC,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/gridalt/gridalt_mapping.h |
7 |
NO PROCEDURE |
integer nlperdyn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,Nsy) |
|
./pkg/gridalt/make_phys_grid.F |
108 |
MAKE_PHYS_GRID |
do L = 1,Nr |
|
./pkg/gridalt/make_phys_grid.F |
112 |
MAKE_PHYS_GRID |
numlevphys = Nr - nlevs + ntry + 1 |
|
./pkg/gridalt/make_phys_grid.F |
171 |
MAKE_PHYS_GRID |
do L = Lbotij+1,Nr |
|
./pkg/gridalt/make_phys_grid.F |
243 |
MAKE_PHYS_GRID |
nlperdyn(i,j,Nr,bi,bj) = numlevphys |
|
./pkg/gridalt/make_phys_grid.F |
46 |
MAKE_PHYS_GRID |
integer im1,im2,jm1,jm2,Nr,Nsx,Nsy,Nrphys |
|
./pkg/gridalt/make_phys_grid.F |
49 |
MAKE_PHYS_GRID |
_RS hfacC(im1:im2,jm1:jm2,Nr,Nsx,Nsy) |
|
./pkg/gridalt/make_phys_grid.F |
4 |
MAKE_PHYS_GRID |
subroutine MAKE_PHYS_GRID(drF,hfacC,im1,im2,jm1,jm2,Nr, |
|
./pkg/gridalt/make_phys_grid.F |
51 |
MAKE_PHYS_GRID |
_RS drF(Nr) |
|
./pkg/gridalt/make_phys_grid.F |
53 |
MAKE_PHYS_GRID |
integer nlperdyn(im1:im2,jm1:jm2,Nr,Nsx,Nsy) |
|
./pkg/gridalt/make_phys_grid.F |
74 |
MAKE_PHYS_GRID |
if( (Nr.eq.10) .or. (Nr.eq.20) ) then |
|
./pkg/gridalt/make_phys_grid.F |
80 |
MAKE_PHYS_GRID |
elseif((Nr.eq.40).or.(Nr.eq.46).or.(Nr.eq.70)) then |
|
./pkg/gridalt/make_phys_grid.F |
92 |
MAKE_PHYS_GRID |
if(Nr.eq.70)thindp=0.02 |
|
./pkg/gridalt/make_phys_grid.F |
94 |
MAKE_PHYS_GRID |
do L = 1,Nr |
|
./pkg/icefront/ICEFRONT.h |
75 |
NO PROCEDURE |
_RL icefront_TendT (1:sNx,1:sNy,Nr,nSx,nSy) |
|
./pkg/icefront/ICEFRONT.h |
76 |
NO PROCEDURE |
_RL icefront_TendS (1:sNx,1:sNy,Nr,nSx,nSy) |
|
./model/inc/SIZE.h |
52 |
NO PROCEDURE |
INTEGER Nr |
|
./model/inc/SIZE.h |
64 |
NO PROCEDURE |
& Nr = 23) |
|
./pkg/icefront/icefront_init_fixed.F |
61 |
ICEFRONT_INIT_FIXED |
DO K = 1 , Nr |
|
./pkg/icefront/icefront_init_varia.F |
41 |
ICEFRONT_INIT_VARIA |
DO K = 1, Nr |
|
./pkg/icefront/icefront_thermodynamics.F |
98 |
ICEFRONT_THERMODYNAMICS |
DO K = 1, Nr |
|
./pkg/kpp/KPP.h |
31 |
NO PROCEDURE |
_RL KPPviscAz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kpp/KPP.h |
32 |
NO PROCEDURE |
_RL KPPdiffKzS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kpp/KPP.h |
33 |
NO PROCEDURE |
_RL KPPdiffKzT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kpp/KPP.h |
34 |
NO PROCEDURE |
_RL KPPghat (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kpp/KPP_PARAMS.h |
20 |
NO PROCEDURE |
parameter( Nrm1 = Nr-1 ) |
|
./pkg/kpp/KPP_PARAMS.h |
21 |
NO PROCEDURE |
parameter( Nrp1 = Nr+1 ) |
|
./pkg/kpp/KPP_PARAMS.h |
22 |
NO PROCEDURE |
parameter( Nrp2 = Nr+2 ) |
|
./pkg/kpp/KPP_PARAMS.h |
41 |
NO PROCEDURE |
_RL zgrid ( 0:Nr+1 ) |
|
./pkg/kpp/KPP_PARAMS.h |
42 |
NO PROCEDURE |
_RL hwide ( 0:Nr+1 ) |
|
./pkg/kpp/KPP_TAVE.h |
30 |
NO PROCEDURE |
_RL KPPviscAztave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kpp/KPP_TAVE.h |
31 |
NO PROCEDURE |
_RL KPPdiffKzTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kpp/KPP_TAVE.h |
32 |
NO PROCEDURE |
_RL KPPdiffKzStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kpp/KPP_TAVE.h |
33 |
NO PROCEDURE |
_RL KPPghatKStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kpp/kpp_calc.F |
184 |
KPP_CALC |
_RL shsq ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_calc.F |
185 |
KPP_CALC |
_RL dVsq ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_calc.F |
186 |
KPP_CALC |
_RL dbloc ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_calc.F |
187 |
KPP_CALC |
_RL Ritop ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_calc.F |
189 |
KPP_CALC |
_RL ghat ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_calc.F |
266 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
280 |
KPP_CALC |
DO k = 1, Nr-1 |
|
./pkg/kpp/kpp_calc.F |
295 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
315 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
414 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
527 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
549 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
561 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
669 |
KPP_CALC_DUMMY |
DO k = 1,Nr |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
53 |
KPP_CALC_DIFF_PTR |
DO k=1,MIN(Nr,kSize) |
|
./pkg/kpp/kpp_calc_diff_s.F |
50 |
KPP_CALC_DIFF_S |
DO k=1,MIN(Nr,kSize) |
|
./pkg/kpp/kpp_calc_diff_t.F |
50 |
KPP_CALC_DIFF_T |
DO k=1,MIN(Nr,kSize) |
|
./pkg/kpp/kpp_calc_visc.F |
29 |
KPP_CALC_VISC |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/kpp/kpp_calc_visc.F |
30 |
KPP_CALC_VISC |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/kpp/kpp_do_exch.F |
37 |
KPP_DO_EXCH |
CALL EXCH_3D_RL( KPPviscAz, Nr, myThid ) |
|
./pkg/kpp/kpp_forcing_surf.F |
125 |
KPP_FORCING_SURF |
_RL dVsq ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_forcing_surf.F |
251 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
277 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
351 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
392 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_init_fixed.F |
177 |
KPP_INIT_FIXED |
DO k = 1, Nr |
|
./pkg/kpp/kpp_init_fixed.F |
182 |
KPP_INIT_FIXED |
zgrid(Nrp1) = zgrid(Nr) * 100. |
|
./pkg/kpp/kpp_init_varia.F |
69 |
KPP_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/kpp/kpp_output.F |
197 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
198 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
199 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
200 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
218 |
KPP_OUTPUT |
& KPPviscAztave, KPPviscAz, Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
220 |
KPP_OUTPUT |
& KPPdiffKzTtave,KPPdiffKzT,Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
222 |
KPP_OUTPUT |
& KPPdiffKzStave,KPPdiffKzS,Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
223 |
KPP_OUTPUT |
DO k=2,Nr |
|
./pkg/kpp/kpp_output.F |
263 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
265 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
267 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
269 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
341 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
342 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
343 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
344 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
360 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPviscAz ,'KPPviscA',0,Nr,0,1,1,myThid) |
|
./pkg/kpp/kpp_output.F |
361 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPdiffKzS,'KPPdiffS',0,Nr,0,1,1,myThid) |
|
./pkg/kpp/kpp_output.F |
362 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPdiffKzT,'KPPdiffT',0,Nr,0,1,1,myThid) |
|
./pkg/kpp/kpp_output.F |
376 |
KPP_OUTPUT |
DO k=2,Nr |
|
./pkg/kpp/kpp_output.F |
388 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(tmpLoc,'KPPghatK',0,Nr,3,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
94 |
KPP_OUTPUT |
_RL tmpLoc(1:sNx,1:sNy,Nr) |
|
./pkg/kpp/kpp_routines.F |
100 |
KPPMIX |
_RL Ritop (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1032 |
Z121 |
v(i,Nrp1) = v(i,Nr) |
|
./pkg/kpp/kpp_routines.F |
1034 |
Z121 |
do k = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
103 |
KPPMIX |
_RL diffusKzS(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1046 |
Z121 |
do k = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
104 |
KPPMIX |
_RL diffusKzT(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
116 |
KPPMIX |
_RL ghat (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1197 |
BLMIX |
_RL blmc (imt,Nr,mdiff) |
|
./pkg/kpp/kpp_routines.F |
1198 |
BLMIX |
_RL ghat (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1307 |
BLMIX |
do ki = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
1310 |
BLMIX |
kkppkey = (ikppkey-1)*Nr + ki |
|
./pkg/kpp/kpp_routines.F |
136 |
KPPMIX |
_RL blmc (imt,Nr,mdiff) |
|
./pkg/kpp/kpp_routines.F |
138 |
KPPMIX |
_RL Rib (imt,Nr ) |
|
./pkg/kpp/kpp_routines.F |
1434 |
ENHANCE |
_RL ghat (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1438 |
ENHANCE |
_RL blmc (imt,Nr,mdiff) |
|
./pkg/kpp/kpp_routines.F |
1450 |
ENHANCE |
if ((ki .ge. 1) .and. (ki .lt. Nr)) then |
|
./pkg/kpp/kpp_routines.F |
1516 |
STATEKPP |
_RL DBLOC ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_routines.F |
1517 |
STATEKPP |
_RL DBSFC ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_routines.F |
1544 |
STATEKPP |
kkppkey = (ikppkey-1)*Nr + 1 |
|
./pkg/kpp/kpp_routines.F |
1584 |
STATEKPP |
DO K = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
1586 |
STATEKPP |
kkppkey = (ikppkey-1)*Nr + k |
|
./pkg/kpp/kpp_routines.F |
1657 |
STATEKPP |
TTALPHA(I,J,Nrp1) = TTALPHA(I,J,Nr) |
|
./pkg/kpp/kpp_routines.F |
1658 |
STATEKPP |
SSBETA(I,J,Nrp1) = SSBETA(I,J,Nr) |
|
./pkg/kpp/kpp_routines.F |
1659 |
STATEKPP |
DBLOC(I,J,Nr) = 0. |
|
./pkg/kpp/kpp_routines.F |
1665 |
STATEKPP |
CALL DIAGNOSTICS_FILL(DBSFC ,'KPPdbsfc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1666 |
STATEKPP |
CALL DIAGNOSTICS_FILL(DBLOC ,'KPPdbloc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1723 |
KPP_DOUBLEDIFF |
_RL KappaRT( 1-Olx:sNx+Olx, 1-Oly:sNy+Oly, Nr ) |
|
./pkg/kpp/kpp_routines.F |
1724 |
KPP_DOUBLEDIFF |
_RL KappaRS( 1-Olx:sNx+Olx, 1-Oly:sNy+Oly, Nr ) |
|
./pkg/kpp/kpp_routines.F |
1756 |
KPP_DOUBLEDIFF |
kkppkey = (ikppkey-1)*Nr + 1 |
|
./pkg/kpp/kpp_routines.F |
1765 |
KPP_DOUBLEDIFF |
DO K = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
238 |
KPPMIX |
do k = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
252 |
KPPMIX |
diffus(i,k,2) = max ( blmc(i,k,2), diffusKzS(i,Nr) ) |
|
./pkg/kpp/kpp_routines.F |
253 |
KPPMIX |
diffus(i,k,3) = max ( blmc(i,k,3), diffusKzT(i,Nr) ) |
|
./pkg/kpp/kpp_routines.F |
331 |
BLDEPTH |
_RL dvsq (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
332 |
BLDEPTH |
_RL dbloc (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
333 |
BLDEPTH |
_RL Ritop (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
358 |
BLDEPTH |
_RL Rib (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
381 |
BLDEPTH |
_RL KPPBFSFC(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
382 |
BLDEPTH |
_RL KPPRi(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
403 |
BLDEPTH |
do kl = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
411 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
414 |
BLDEPTH |
kkppkey = (ikppkey-1)*Nr + kl |
|
./pkg/kpp/kpp_routines.F |
515 |
BLDEPTH |
CALL DIAGNOSTICS_FILL(KPPBFSFC,'KPPbfsfc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
516 |
BLDEPTH |
CALL DIAGNOSTICS_FILL(KPPRi ,'KPPRi ',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
527 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
616 |
BLDEPTH |
& + (stable(i)-1.) * zgrid(Nr) |
|
./pkg/kpp/kpp_routines.F |
639 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
839 |
RI_IWMIX |
_RL shsq (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
840 |
RI_IWMIX |
_RL dbloc (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
841 |
RI_IWMIX |
_RL dblocSm (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
842 |
RI_IWMIX |
_RL diffusKzS(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
843 |
RI_IWMIX |
_RL diffusKzT(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
882 |
RI_IWMIX |
do ki = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
892 |
RI_IWMIX |
do ki = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
90 |
KPPMIX |
_RL shsq (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
91 |
KPPMIX |
_RL dvsq (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
926 |
RI_IWMIX |
do ki = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
947 |
RI_IWMIX |
kp1 = MIN(ki+1,Nr) |
|
./pkg/kpp/kpp_routines.F |
99 |
KPPMIX |
_RL dbloc (imt,Nr) |
|
./model/inc/SURFACE.h |
100 |
NO PROCEDURE |
_RS h0FacS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/SURFACE.h |
98 |
NO PROCEDURE |
_RS h0FacC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/SURFACE.h |
99 |
NO PROCEDURE |
_RS h0FacW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/layers/LAYERS_SIZE.h |
19 |
NO PROCEDURE |
PARAMETER( FineGridMax = Nr * FineGridFact ) |
|
./pkg/layers/layers_calc.F |
167 |
LAYERS_CALC |
kcip1 = MIN(kci+1,Nr) |
|
./pkg/layers/layers_calc.F |
169 |
LAYERS_CALC |
IF (kci.GE.Nr) maskp1 = 0. |
|
./pkg/layers/layers_calc.F |
238 |
LAYERS_CALC |
kcip1 = MIN(kci+1,Nr) |
|
./pkg/layers/layers_calc.F |
240 |
LAYERS_CALC |
IF (kci.GE.Nr) maskp1 = 0. |
|
./pkg/layers/layers_init_fixed.F |
100 |
LAYERS_INIT_FIXED |
& .AND. (ZZc(kk) .LT. Zc(Nr)) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
35 |
LAYERS_INIT_FIXED |
_RL Zf(Nr+1) |
|
./pkg/layers/layers_init_fixed.F |
36 |
LAYERS_INIT_FIXED |
_RL Zc(Nr) |
|
./pkg/layers/layers_init_fixed.F |
62 |
LAYERS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/layers/layers_init_fixed.F |
72 |
LAYERS_INIT_FIXED |
DO k=2,Nr |
|
./pkg/layers/layers_init_fixed.F |
76 |
LAYERS_INIT_FIXED |
Zf(Nr+1) = Zf(Nr) + drF(Nr) |
|
./pkg/layers/layers_init_fixed.F |
95 |
LAYERS_INIT_FIXED |
ELSE IF ( (ZZc(kk) .GE. Zc(Nr)) .OR. (k .EQ. Nr) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
96 |
LAYERS_INIT_FIXED |
MapIndex(kk) = Nr - 1 |
|
./pkg/longstep/LONGSTEP.h |
32 |
NO PROCEDURE |
_RL LS_uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/longstep/LONGSTEP.h |
33 |
NO PROCEDURE |
_RL LS_vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/longstep/LONGSTEP.h |
34 |
NO PROCEDURE |
_RL LS_wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/longstep/LONGSTEP.h |
35 |
NO PROCEDURE |
_RL LS_theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/longstep/LONGSTEP.h |
36 |
NO PROCEDURE |
_RL LS_salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/longstep/LONGSTEP.h |
37 |
NO PROCEDURE |
_RL LS_IVDConvCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/longstep/LONGSTEP.h |
61 |
NO PROCEDURE |
_RL LS_Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/longstep/LONGSTEP.h |
62 |
NO PROCEDURE |
_RL LS_Kwy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/longstep/LONGSTEP.h |
63 |
NO PROCEDURE |
_RL LS_Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/longstep/LONGSTEP.h |
75 |
NO PROCEDURE |
_RL LS_KPPdiffKzS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/longstep/LONGSTEP.h |
76 |
NO PROCEDURE |
_RL LS_KPPghat (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/longstep/longstep_average.F |
108 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_KwxCount, LS_Kwx, Kwx, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
109 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_KwyCount, LS_Kwy, Kwy, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
110 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_KwzCount, LS_Kwz, Kwz, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
116 |
LONGSTEP_AVERAGE |
& LS_KPPdiffKzS, KPPdiffKzS, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
118 |
LONGSTEP_AVERAGE |
& LS_KPPghat, KPPghat, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
126 |
LONGSTEP_AVERAGE |
& Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
128 |
LONGSTEP_AVERAGE |
& Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
129 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_wVelCount, LS_wVel, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
130 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_thetaCount,LS_theta,Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
131 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_saltCount, LS_salt, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
134 |
LONGSTEP_AVERAGE |
& LS_IVDConvCount, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
142 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_KwxCount, LS_Kwx, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
143 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_KwyCount, LS_Kwy, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
144 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_KwzCount, LS_Kwz, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
150 |
LONGSTEP_AVERAGE |
& LS_KPPdiffKzS, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
152 |
LONGSTEP_AVERAGE |
& LS_KPPghat, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
158 |
LONGSTEP_AVERAGE |
CALL EXCH_UV_3D_RL( LS_uVel, LS_vVel, .TRUE., Nr, myThid ) |
|
./pkg/longstep/longstep_average.F |
159 |
LONGSTEP_AVERAGE |
CALL EXCH_3D_RL( LS_wVel , Nr, myThid ) |
|
./pkg/longstep/longstep_average.F |
160 |
LONGSTEP_AVERAGE |
CALL EXCH_3D_RL( LS_theta, Nr, myThid ) |
|
./pkg/longstep/longstep_average.F |
161 |
LONGSTEP_AVERAGE |
CALL EXCH_3D_RL( LS_salt , Nr, myThid ) |
|
./pkg/longstep/longstep_average.F |
170 |
LONGSTEP_AVERAGE |
CALL EXCH_UV_AGRID_3D_RL( LS_Kwx, LS_Kwy, .FALSE., Nr, myThid ) |
|
./pkg/longstep/longstep_average.F |
171 |
LONGSTEP_AVERAGE |
CALL EXCH_3D_RL( LS_Kwz , Nr, myThid ) |
|
./pkg/longstep/longstep_average.F |
176 |
LONGSTEP_AVERAGE |
CALL EXCH_3D_RL( LS_KPPdiffKzS, Nr, myThid ) |
|
./pkg/longstep/longstep_average.F |
177 |
LONGSTEP_AVERAGE |
CALL EXCH_3D_RL( LS_KPPghat, Nr, myThid ) |
|
./pkg/longstep/longstep_average.F |
184 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_uVel, 'LSuVel ',0,Nr,0,1,1,myThid) |
|
./pkg/longstep/longstep_average.F |
185 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_vVel, 'LSvVel ',0,Nr,0,1,1,myThid) |
|
./pkg/longstep/longstep_average.F |
186 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_wVel, 'LSwVel ',0,Nr,0,1,1,myThid) |
|
./pkg/longstep/longstep_average.F |
187 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_theta,'LStheta ',0,Nr,0,1,1,myThid) |
|
./pkg/longstep/longstep_average.F |
188 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_salt, 'LSsalt ',0,Nr,0,1,1,myThid) |
|
./pkg/longstep/longstep_average.F |
191 |
LONGSTEP_AVERAGE |
& 'LScnvAdj',0,Nr,0,1,1,myThid) |
|
./pkg/longstep/longstep_average.F |
198 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_Kwx , 'LSkwx ',0,Nr,0,1,1,myThid) |
|
./pkg/longstep/longstep_average.F |
199 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_Kwy , 'LSkwy ',0,Nr,0,1,1,myThid) |
|
./pkg/longstep/longstep_average.F |
200 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_Kwz , 'LSkwz ',0,Nr,0,1,1,myThid) |
|
./pkg/longstep/longstep_average.F |
206 |
LONGSTEP_AVERAGE |
& 'LSKPPdfS',0,Nr,0,1,1,myThid) |
|
./pkg/longstep/longstep_average.F |
208 |
LONGSTEP_AVERAGE |
& 'LSKPPght',0,Nr,0,1,1,myThid) |
|
./pkg/longstep/longstep_average.F |
56 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_uVelCount, LS_uVel, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
57 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_vVelCount, LS_vVel, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
58 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_wVelCount, LS_wVel, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
59 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_thetaCount,LS_theta,Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
60 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_saltCount, LS_salt, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
63 |
LONGSTEP_AVERAGE |
& LS_IVDConvCount, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
70 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_KwxCount, LS_Kwx, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
71 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_KwyCount, LS_Kwy, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
72 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_KwzCount, LS_Kwz, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
78 |
LONGSTEP_AVERAGE |
& LS_KPPdiffKzS, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
80 |
LONGSTEP_AVERAGE |
& LS_KPPghat, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
89 |
LONGSTEP_AVERAGE |
& Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
91 |
LONGSTEP_AVERAGE |
& Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
92 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_wVelCount, LS_wVel, wVel, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
93 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_thetaCount, LS_theta, theta, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
94 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_saltCount, LS_salt, salt, Nr, myThid) |
|
./pkg/longstep/longstep_average.F |
97 |
LONGSTEP_AVERAGE |
& LS_IVDConvCount, IVDConvCount, Nr, myThid) |
|
./pkg/longstep/longstep_forcing_surf.F |
54 |
LONGSTEP_FORCING_SURF |
ks = Nr |
|
./pkg/longstep/longstep_init_varia.F |
46 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_uVelCount, LS_uVel, Nr, myThid) |
|
./pkg/longstep/longstep_init_varia.F |
47 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_vVelCount, LS_vVel, Nr, myThid) |
|
./pkg/longstep/longstep_init_varia.F |
48 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_wVelCount, LS_wVel, Nr, myThid) |
|
./pkg/longstep/longstep_init_varia.F |
49 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_thetaCount,LS_theta,Nr, myThid) |
|
./pkg/longstep/longstep_init_varia.F |
50 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_saltCount, LS_salt, Nr, myThid) |
|
./pkg/longstep/longstep_init_varia.F |
53 |
LONGSTEP_INIT_VARIA |
& LS_IVDConvCount, Nr, myThid) |
|
./pkg/longstep/longstep_init_varia.F |
59 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_KwxCount, LS_Kwx, Nr, myThid) |
|
./pkg/longstep/longstep_init_varia.F |
60 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_KwyCount, LS_Kwy, Nr, myThid) |
|
./pkg/longstep/longstep_init_varia.F |
61 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_KwzCount, LS_Kwz, Nr, myThid) |
|
./pkg/longstep/longstep_init_varia.F |
67 |
LONGSTEP_INIT_VARIA |
& LS_KPPdiffKzS, Nr, myThid) |
|
./pkg/longstep/longstep_init_varia.F |
69 |
LONGSTEP_INIT_VARIA |
& LS_KPPghat, Nr, myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
114 |
LONGSTEP_THERMODYNAMICS |
_RL kappaRk (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/longstep/longstep_thermodynamics.F |
190 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
212 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
285 |
LONGSTEP_THERMODYNAMICS |
DO k=Nr,1,-1 |
|
./pkg/longstep/longstep_thermodynamics.F |
290 |
LONGSTEP_THERMODYNAMICS |
kkey = (itdkey-1)*Nr + k |
|
./pkg/longstep/longstep_thermodynamics.F |
306 |
LONGSTEP_THERMODYNAMICS |
IF (k.EQ.Nr) THEN |
|
./pkg/longstep/longstep_thermodynamics.F |
477 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_uVel,'LS_Uvel (THERMODYNAMICS)',myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
478 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_vVel,'LS_Vvel (THERMODYNAMICS)',myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
479 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_wVel,'LS_Wvel (THERMODYNAMICS)',myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
480 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_theta,'LS_Theta (THERMODYNAMICS)', |
|
./pkg/longstep/longstep_thermodynamics.F |
482 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_salt,'LS_Salt (THERMODYNAMICS)',myThid) |
|
./pkg/matrix/MATRIX.h |
13 |
NO PROCEDURE |
_RL MATRIX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/matrix/MATRIX.h |
15 |
NO PROCEDURE |
_RL PTRACERS_initial(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/matrix/matrix_init.F |
33 |
MATRIX_INIT |
DO k=1,Nr |
|
./pkg/matrix/matrix_store_tendency.F |
36 |
MATRIX_STORE_TENDENCY_EXP |
DO k=1,Nr |
|
./pkg/matrix/matrix_store_tendency.F |
84 |
MATRIX_STORE_TENDENCY_IMP |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
110 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
44 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
67 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
87 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/mdsio/MDSIO_BUFF_3D.h |
23 |
NO PROCEDURE |
PARAMETER ( size3dBuf = Nr+NrPhys ) |
|
./pkg/mdsio/MDSIO_BUFF_3D.h |
25 |
NO PROCEDURE |
PARAMETER ( size3dBuf = 2*Nr ) |
|
./pkg/mdsio/mdsio_gl.F |
1502 |
MDSWRITEFIELD_2D_GL |
dimList(1,3)=Nr |
|
./pkg/mdsio/mdsio_gl.F |
1504 |
MDSWRITEFIELD_2D_GL |
dimList(3,3)=Nr |
|
./pkg/mdsio/mdsio_gl.F |
257 |
MDSREADFIELD_3D_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl.F |
267 |
MDSREADFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
275 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
277 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
290 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
292 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
466 |
MDSWRITEFIELD_3D_GL |
_RL arr_gl(sNx,nSx,nPx,sNy,nSy,nPy,Nr) |
|
./pkg/mdsio/mdsio_gl.F |
482 |
MDSWRITEFIELD_3D_GL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl.F |
62 |
MDSREADFIELD_3D_GL |
_RL arr_gl(sNx,nSx,nPx,sNy,nSy,nPy,Nr) |
|
./pkg/mdsio/mdsio_gl.F |
669 |
MDSWRITEFIELD_3D_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl.F |
676 |
MDSWRITEFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
679 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
681 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
694 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
696 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
739 |
MDSWRITEFIELD_3D_GL |
dimList(1,3)=Nr |
|
./pkg/mdsio/mdsio_gl.F |
741 |
MDSWRITEFIELD_3D_GL |
dimList(3,3)=Nr |
|
./pkg/mdsio/mdsio_gl.F |
743 |
MDSWRITEFIELD_3D_GL |
if (Nr .EQ. 1) nDims=2 |
|
./pkg/mdsio/mdsio_gl.F |
75 |
MDSREADFIELD_3D_GL |
_RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
168 |
MDSREADFIELD_XZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
171 |
MDSREADFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
290 |
MDSREADFIELD_YZ_GL |
_RL arr_gl(nSx,nPx,sNy,nSy,nPy,Nr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
302 |
MDSREADFIELD_YZ_GL |
_RL arr(1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
395 |
MDSREADFIELD_YZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
398 |
MDSREADFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
529 |
MDSWRITEFIELD_XZ_GL |
_RL arr_gl(sNx,nSx,nPx,nSy,nPy,Nr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
544 |
MDSWRITEFIELD_XZ_GL |
_RL arr(1-oLx:sNx+oLx,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
602 |
MDSWRITEFIELD_XZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
608 |
MDSWRITEFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
62 |
MDSREADFIELD_XZ_GL |
_RL arr_gl(sNx,nSx,nPx,nSy,nPy,Nr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
669 |
MDSWRITEFIELD_XZ_GL |
dimList(1,3)=Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
671 |
MDSWRITEFIELD_XZ_GL |
dimList(3,3)=Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
673 |
MDSWRITEFIELD_XZ_GL |
if (Nr .EQ. 1) nDims=2 |
|
./pkg/mdsio/mdsio_gl_slice.F |
74 |
MDSREADFIELD_XZ_GL |
_RL arr(1-oLx:sNx+oLx,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
757 |
MDSWRITEFIELD_YZ_GL |
_RL arr_gl(nSx,nPx,sNy,nSy,nPy,Nr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
772 |
MDSWRITEFIELD_YZ_GL |
_RL arr(1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
830 |
MDSWRITEFIELD_YZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
836 |
MDSWRITEFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
897 |
MDSWRITEFIELD_YZ_GL |
dimList(1,3)=Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
899 |
MDSWRITEFIELD_YZ_GL |
dimList(3,3)=Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
901 |
MDSWRITEFIELD_YZ_GL |
if (Nr .EQ. 1) nDims=2 |
|
./model/src/adams_bashforth2.F |
37 |
ADAMS_BASHFORTH2 |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/adams_bashforth2.F |
38 |
ADAMS_BASHFORTH2 |
_RL gTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/adams_bashforth3.F |
102 |
ADAMS_BASHFORTH3 |
DO k=1,Nr |
|
./model/src/adams_bashforth3.F |
62 |
ADAMS_BASHFORTH3 |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/adams_bashforth3.F |
63 |
ADAMS_BASHFORTH3 |
_RL gTrNm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/src/calc_3d_diffusivity.F |
111 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
125 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
142 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
171 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
176 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
181 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
189 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
205 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
214 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
223 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
232 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
58 |
CALC_3D_DIFFUSIVITY |
_RL KappaRTr(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/calc_3d_diffusivity.F |
79 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./pkg/mdsio/mdsio_writelocal.F |
391 |
MDS_WRITELOCAL |
dimList(1,3) = Nr |
|
./pkg/mdsio/mdsio_writelocal.F |
393 |
MDS_WRITELOCAL |
dimList(3,3) = Nr |
|
./pkg/mdsio/mdsio_writelocal.F |
422 |
MDS_WRITELOCAL |
dimList(1,3) = Nr |
|
./pkg/mdsio/mdsio_writelocal.F |
424 |
MDS_WRITELOCAL |
dimList(3,3) = Nr |
|
./pkg/mnc/mnc_cw_cvars.F |
308 |
MNC_CW_WRITE_CVAR |
cv_count(1) = Nr |
|
./pkg/mnc/mnc_cw_cvars.F |
327 |
MNC_CW_WRITE_CVAR |
cv_count(1) = Nr + 1 |
|
./pkg/mnc/mnc_cw_cvars.F |
346 |
MNC_CW_WRITE_CVAR |
cv_count(1) = Nr |
|
./pkg/mnc/mnc_cw_cvars.F |
366 |
MNC_CW_WRITE_CVAR |
cv_count(1) = Nr |
|
./pkg/mnc/mnc_cw_cvars.F |
386 |
MNC_CW_WRITE_CVAR |
cv_count(1) = Nr - 1 |
|
./pkg/mnc/mnc_cw_cvars.F |
51 |
MNC_CW_WRITE_CVAR |
_RS rtmp(sNx + 2*OLx + sNy + 2*OLy + Nr) |
|
./pkg/mnc/mnc_cw_init.F |
12 |
MNC_CW_INIT |
I sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr, |
|
./pkg/mnc/mnc_cw_init.F |
189 |
MNC_CW_INIT |
dim(ndim) = Nr |
|
./pkg/mnc/mnc_cw_init.F |
191 |
MNC_CW_INIT |
ie(ndim) = Nr |
|
./pkg/mnc/mnc_cw_init.F |
196 |
MNC_CW_INIT |
dim(ndim) = Nr + 1 |
|
./pkg/mnc/mnc_cw_init.F |
198 |
MNC_CW_INIT |
ie(ndim) = Nr + 1 |
|
./pkg/mnc/mnc_cw_init.F |
203 |
MNC_CW_INIT |
dim(ndim) = Nr |
|
./pkg/mnc/mnc_cw_init.F |
205 |
MNC_CW_INIT |
ie(ndim) = Nr |
|
./pkg/mnc/mnc_cw_init.F |
210 |
MNC_CW_INIT |
dim(ndim) = Nr |
|
./pkg/mnc/mnc_cw_init.F |
212 |
MNC_CW_INIT |
ie(ndim) = Nr |
|
./pkg/mnc/mnc_cw_init.F |
217 |
MNC_CW_INIT |
dim(ndim) = Nr - 1 |
|
./pkg/mnc/mnc_cw_init.F |
219 |
MNC_CW_INIT |
ie(ndim) = Nr - 1 |
|
./pkg/mnc/mnc_cw_init.F |
47 |
MNC_CW_INIT |
integer sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr |
|
./pkg/mnc/mnc_cw_model_attr.F |
140 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nr', 1, Nr, myThid) |
|
./model/src/calc_common_factors.F |
48 |
CALC_COMMON_FACTORS |
_RL uVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/calc_common_factors.F |
49 |
CALC_COMMON_FACTORS |
_RL vVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/mom_common/MOM_VISC.h |
25 |
NO PROCEDURE |
_RL viscAhDfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/MOM_VISC.h |
26 |
NO PROCEDURE |
_RL viscAhZfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/MOM_VISC.h |
34 |
NO PROCEDURE |
_RL viscA4Dfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/MOM_VISC.h |
35 |
NO PROCEDURE |
_RL viscA4Zfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_calc_hfacz.F |
91 |
MOM_CALC_HFACZ |
kkey = (ikey-1)*Nr + k |
|
./pkg/mom_common/mom_calc_visc.F |
156 |
MOM_CALC_VISC |
lockey_1 = (ikey-1)*Nr + k |
|
./pkg/mom_common/mom_calc_visc.F |
468 |
MOM_CALC_VISC |
kp1 = MIN(k+1,Nr) |
|
./pkg/mom_common/mom_calc_visc.F |
479 |
MOM_CALC_VISC |
ELSEIF ( k.EQ.Nr ) THEN |
|
./model/src/calc_div_ghat.F |
44 |
CALC_DIV_GHAT |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_init_fixed.F |
146 |
MOM_INIT_FIXED |
CALL EXCH_3D_RL( viscAhDfld, Nr, myThid ) |
|
./pkg/mom_common/mom_init_fixed.F |
150 |
MOM_INIT_FIXED |
CALL EXCH_Z_3D_RL( viscAhZfld, Nr, myThid ) |
|
./pkg/mom_common/mom_init_fixed.F |
156 |
MOM_INIT_FIXED |
CALL EXCH_3D_RL( viscA4Dfld, Nr, myThid ) |
|
./pkg/mom_common/mom_init_fixed.F |
160 |
MOM_INIT_FIXED |
CALL EXCH_Z_3D_RL( viscA4Zfld, Nr, myThid ) |
|
./pkg/mom_common/mom_init_fixed.F |
47 |
MOM_INIT_FIXED |
DO k=1,Nr |
|
./pkg/mom_common/mom_init_fixed.F |
63 |
MOM_INIT_FIXED |
DO k=1,Nr |
|
./pkg/mom_common/mom_quasihydrostatic.F |
39 |
MOM_QUASIHYDROSTATIC |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
40 |
MOM_QUASIHYDROSTATIC |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
42 |
MOM_U_BOTTOMDRAG |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
59 |
MOM_U_BOTTOMDRAG |
kBottom = Nr |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
35 |
MOM_U_CORIOLIS_NH |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
49 |
MOM_U_CORIOLIS_NH |
kp1=min(k+1,Nr) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
51 |
MOM_U_CORIOLIS_NH |
IF (k.EQ.Nr) wMsk=0. |
|
./pkg/mom_common/mom_u_implicit_r.F |
106 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
117 |
MOM_U_IMPLICIT_R |
IF ( momImplVertAdv .AND. Nr.GT.1 ) THEN |
|
./pkg/mom_common/mom_u_implicit_r.F |
120 |
MOM_U_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
203 |
MOM_U_IMPLICIT_R |
DO k= 1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
32 |
MOM_U_IMPLICIT_R |
_RL kappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/mom_common/mom_u_implicit_r.F |
43 |
MOM_U_IMPLICIT_R |
_RL b5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/mom_common/mom_u_implicit_r.F |
44 |
MOM_U_IMPLICIT_R |
_RL c5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/mom_common/mom_u_implicit_r.F |
45 |
MOM_U_IMPLICIT_R |
_RL d5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/mom_common/mom_u_implicit_r.F |
66 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
79 |
MOM_U_IMPLICIT_R |
IF ( implicitViscosity .AND. Nr.GT.1 ) THEN |
|
./pkg/mom_common/mom_u_implicit_r.F |
84 |
MOM_U_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
95 |
MOM_U_IMPLICIT_R |
DO k=1,Nr-1 |
|
./pkg/mom_common/mom_u_metric_nh.F |
37 |
MOM_U_METRIC_NH |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_u_metric_nh.F |
50 |
MOM_U_METRIC_NH |
kp1=min(k+1,Nr) |
|
./pkg/mom_common/mom_u_metric_nh.F |
52 |
MOM_U_METRIC_NH |
IF (k.EQ.Nr) wVelBottomOverride=0. |
|
./pkg/mom_common/mom_u_rviscflux.F |
37 |
MOM_U_RVISCFLUX |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_u_rviscflux.F |
38 |
MOM_U_RVISCFLUX |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_rviscflux.F |
51 |
MOM_U_RVISCFLUX |
IF ( k.LE.1 .OR. k.GT.Nr ) THEN |
|
./pkg/mom_common/mom_v_bottomdrag.F |
49 |
MOM_V_BOTTOMDRAG |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
66 |
MOM_V_BOTTOMDRAG |
kBottom = Nr |
|
./model/src/calc_grad_phi_hyd.F |
47 |
CALC_GRAD_PHI_HYD |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/calc_grad_phi_hyd.F |
48 |
CALC_GRAD_PHI_HYD |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
35 |
MOM_V_CORIOLIS_NH |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
49 |
MOM_V_CORIOLIS_NH |
kp1=min(k+1,Nr) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
51 |
MOM_V_CORIOLIS_NH |
IF (k.EQ.Nr) wMsk=0. |
|
./pkg/mom_common/mom_v_implicit_r.F |
106 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
117 |
MOM_V_IMPLICIT_R |
IF ( momImplVertAdv .AND. Nr.GT.1 ) THEN |
|
./pkg/mom_common/mom_v_implicit_r.F |
120 |
MOM_V_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
203 |
MOM_V_IMPLICIT_R |
DO k= 1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
32 |
MOM_V_IMPLICIT_R |
_RL kappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/mom_common/mom_v_implicit_r.F |
43 |
MOM_V_IMPLICIT_R |
_RL b5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/mom_common/mom_v_implicit_r.F |
44 |
MOM_V_IMPLICIT_R |
_RL c5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/mom_common/mom_v_implicit_r.F |
45 |
MOM_V_IMPLICIT_R |
_RL d5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/mom_common/mom_v_implicit_r.F |
66 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
79 |
MOM_V_IMPLICIT_R |
IF ( implicitViscosity .AND. Nr.GT.1 ) THEN |
|
./pkg/mom_common/mom_v_implicit_r.F |
84 |
MOM_V_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
95 |
MOM_V_IMPLICIT_R |
DO k=1,Nr-1 |
|
./pkg/mom_common/mom_v_metric_nh.F |
37 |
MOM_V_METRIC_NH |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_v_metric_nh.F |
50 |
MOM_V_METRIC_NH |
kp1=min(k+1,Nr) |
|
./pkg/mom_common/mom_v_metric_nh.F |
52 |
MOM_V_METRIC_NH |
IF (k.EQ.Nr) wVelBottomOverride=0. |
|
./pkg/mom_common/mom_v_rviscflux.F |
37 |
MOM_V_RVISCFLUX |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_v_rviscflux.F |
38 |
MOM_V_RVISCFLUX |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_v_rviscflux.F |
51 |
MOM_V_RVISCFLUX |
IF ( k.LE.1 .OR. k.GT.Nr ) THEN |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
36 |
MOM_W_CORIOLIS_NH |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
37 |
MOM_W_CORIOLIS_NH |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
52 |
MOM_W_CORIOLIS_NH |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/mom_common/mom_w_metric_nh.F |
36 |
MOM_W_METRIC_NH |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_w_metric_nh.F |
37 |
MOM_W_METRIC_NH |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_w_metric_nh.F |
50 |
MOM_W_METRIC_NH |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/mom_common/mom_w_sidedrag.F |
43 |
MOM_W_SIDEDRAG |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_w_sidedrag.F |
47 |
MOM_W_SIDEDRAG |
_RL viscAh_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/mom_w_sidedrag.F |
48 |
MOM_W_SIDEDRAG |
_RL viscA4_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
135 |
MOM_CALC_RTRANS |
ELSEIF (k.LE.Nr) THEN |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
71 |
MOM_CALC_RTRANS |
IF ( k.EQ.Nr+1 .AND. |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
85 |
MOM_CALC_RTRANS |
ELSEIF ( k.GT.Nr ) THEN |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
87 |
MOM_CALC_RTRANS |
IF ( k.GT.Nr ) THEN |
|
./pkg/mom_fluxform/mom_fluxform.F |
163 |
MOM_FLUXFORM |
_RL uBnd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
164 |
MOM_FLUXFORM |
_RL vBnd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
169 |
MOM_FLUXFORM |
max0 = Nr |
|
./pkg/mom_fluxform/mom_fluxform.F |
353 |
MOM_FLUXFORM |
IF ( momAdvection .AND. k.LT.Nr ) THEN |
|
./pkg/mom_fluxform/mom_fluxform.F |
78 |
MOM_FLUXFORM |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_fluxform/mom_fluxform.F |
79 |
MOM_FLUXFORM |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
37 |
MOM_U_ADV_WU |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
38 |
MOM_U_ADV_WU |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
51 |
MOM_U_ADV_WU |
IF ( k.EQ.Nr+1 .AND. |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
59 |
MOM_U_ADV_WU |
ELSEIF ( k.GT.Nr .OR. (k.EQ.1.AND.rigidLid) ) THEN |
|
./model/src/calc_gs.F |
124 |
CALC_GS |
kkey = (itdkey-1)*Nr + k |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
39 |
MOM_UV_BOUNDARY |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
40 |
MOM_UV_BOUNDARY |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
79 |
MOM_UV_BOUNDARY |
kp1 = MIN( k+1, Nr ) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
83 |
MOM_UV_BOUNDARY |
IF ( k.EQ.Nr ) maskP1 = 0. |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
38 |
MOM_V_ADV_WV |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
39 |
MOM_V_ADV_WV |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
52 |
MOM_V_ADV_WV |
IF ( k.EQ.Nr+1 .AND. |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
60 |
MOM_V_ADV_WV |
ELSEIF ( k.GT.Nr .OR. (k.EQ.1.AND.rigidLid) ) THEN |
|
./model/src/calc_gt.F |
123 |
CALC_GT |
kkey = (itdkey-1)*Nr + k |
|
./pkg/mom_vecinv/mom_vecinv.F |
125 |
MOM_VECINV |
max0 = Nr |
|
./pkg/mom_vecinv/mom_vecinv.F |
55 |
MOM_VECINV |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_vecinv/mom_vecinv.F |
56 |
MOM_VECINV |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_vecinv/mom_vecinv.F |
597 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
599 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
25 |
MOM_VI_U_VERTSHEAR |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
26 |
MOM_VI_U_VERTSHEAR |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
49 |
MOM_VI_U_VERTSHEAR |
Kp1=min(K+1,Nr) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
51 |
MOM_VI_U_VERTSHEAR |
IF (K.EQ.Nr) mask_Kp1=0. |
|
./model/src/calc_gw.F |
123 |
CALC_GW |
DO k=1,Nr |
|
./model/src/calc_gw.F |
155 |
CALC_GW |
DO k=1,Nr |
|
./model/src/calc_gw.F |
157 |
CALC_GW |
kp1 = MIN( k+1,Nr ) |
|
./model/src/calc_gw.F |
161 |
CALC_GW |
IF ( k.EQ.Nr ) mskP1 = 0. |
|
./model/src/calc_gw.F |
48 |
CALC_GW |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/calc_gw.F |
49 |
CALC_GW |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/calc_gw.F |
581 |
CALC_GW |
& k,Nr, 1, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
623 |
CALC_GW |
CALL DIAGNOSTICS_FILL(viscAh_W,'VISCAHW ',0,Nr,1,bi,bj,myThid) |
|
./model/src/calc_gw.F |
624 |
CALC_GW |
CALL DIAGNOSTICS_FILL(viscA4_W,'VISCA4W ',0,Nr,1,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
25 |
MOM_VI_V_VERTSHEAR |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
26 |
MOM_VI_V_VERTSHEAR |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
49 |
MOM_VI_V_VERTSHEAR |
Kp1=min(K+1,Nr) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
51 |
MOM_VI_V_VERTSHEAR |
IF (K.EQ.Nr) mask_Kp1=0. |
|
./pkg/monitor/mon_advcfl.F |
26 |
MON_ADVCFL |
_RL U(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/monitor/mon_advcfl.F |
40 |
MON_ADVCFL |
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 |
|
./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_ke.F |
56 |
MON_KE |
DO k=1,Nr |
|
./pkg/monitor/mon_ke.F |
57 |
MON_KE |
kp1 = MIN(k+1,Nr) |
|
./pkg/monitor/mon_ke.F |
59 |
MON_KE |
IF ( k.GE.Nr ) mskp1 = 0. |
|
./pkg/monitor/mon_solution.F |
45 |
MON_SOLUTION |
I Nr, theta, hFacC, maskInC, rA, drF, |
|
./model/src/calc_oce_mxlayer.F |
107 |
CALC_OCE_MXLAYER |
DO k = 2,Nr |
|
./model/src/calc_oce_mxlayer.F |
153 |
CALC_OCE_MXLAYER |
DO k = 2,Nr-1 |
|
./model/src/calc_oce_mxlayer.F |
41 |
CALC_OCE_MXLAYER |
_RL sigmaR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/monitor/mon_surfcor.F |
105 |
MON_SURFCOR |
IF (ks.LE.Nr) THEN |
|
./pkg/monitor/mon_surfcor.F |
107 |
MON_SURFCOR |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks) |
|
./pkg/monitor/mon_surfcor.F |
108 |
MON_SURFCOR |
& *hFacC(i,j,Nr,bi,bj)*_recip_hFacC(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
121 |
MON_SURFCOR |
DO k=2,Nr |
|
./pkg/monitor/mon_surfcor.F |
143 |
MON_SURFCOR |
DO k=1,Nr |
|
./pkg/monitor/mon_surfcor.F |
84 |
MON_SURFCOR |
IF (ks.LE.Nr) THEN |
|
./pkg/monitor/mon_vort3.F |
90 |
MON_VORT3 |
DO k=1,Nr |
|
./pkg/monitor/monitor.F |
110 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, uVel, '_uvel', |
|
./pkg/monitor/monitor.F |
112 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, vVel, '_vvel', |
|
./pkg/monitor/monitor.F |
114 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, wVel, '_wvel', |
|
./pkg/monitor/monitor.F |
116 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, theta,'_theta', |
|
./pkg/monitor/monitor.F |
118 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, salt, '_salt', |
|
./pkg/monitor/monitor.F |
124 |
MONITOR |
IF ( usingPCoords ) k = Nr |
|
./pkg/monitor/monitor.F |
48 |
MONITOR |
_RS thickFacC(Nr), thickFacF(Nr) |
|
./pkg/monitor/monitor.F |
96 |
MONITOR |
DO k=1,Nr |
|
./pkg/monitor/monitor_ad.F |
113 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, aduVel, '_aduvel', |
|
./pkg/monitor/monitor_ad.F |
115 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, advVel, '_advvel', |
|
./pkg/monitor/monitor_ad.F |
117 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, adwVel, '_adwvel', |
|
./pkg/monitor/monitor_ad.F |
119 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, adtheta,'_adtheta', |
|
./pkg/monitor/monitor_ad.F |
121 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, adsalt, '_adsalt', |
|
./pkg/monitor/monitor_ad.F |
126 |
ADMONITOR |
IF ( usingPCoords ) k = Nr |
|
./pkg/monitor/monitor_g.F |
114 |
G_MONITOR |
CALL MON_WRITESTATS_RL( Nr, g_uVel, '_g_uvel', |
|
./pkg/monitor/monitor_g.F |
116 |
G_MONITOR |
CALL MON_WRITESTATS_RL( Nr, g_vVel, '_g_vvel', |
|
./pkg/monitor/monitor_g.F |
118 |
G_MONITOR |
CALL MON_WRITESTATS_RL( Nr, g_wVel, '_g_wvel', |
|
./pkg/monitor/monitor_g.F |
120 |
G_MONITOR |
CALL MON_WRITESTATS_RL( Nr, g_theta,'_g_theta', |
|
./pkg/monitor/monitor_g.F |
122 |
G_MONITOR |
CALL MON_WRITESTATS_RL( Nr, g_salt, '_g_salt', |
|
./pkg/monitor/monitor_g.F |
127 |
G_MONITOR |
IF ( usingPCoords ) k = Nr |
|
./pkg/my82/MY82.h |
58 |
NO PROCEDURE |
_RL MYviscAr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/my82/MY82.h |
59 |
NO PROCEDURE |
_RL MYdiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/calc_phi_hyd.F |
145 |
CALC_PHI_HYD |
kkey = (ikey-1)*Nr + k |
|
./model/src/calc_phi_hyd.F |
228 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
262 |
CALC_PHI_HYD |
kkey = (ikey-1)*Nr + k |
|
./model/src/calc_phi_hyd.F |
333 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
396 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
462 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
66 |
CALC_PHI_HYD |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/calc_phi_hyd.F |
67 |
CALC_PHI_HYD |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/my82/MY82_TAVE.h |
24 |
NO PROCEDURE |
_RL MYviscArtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/my82/MY82_TAVE.h |
25 |
NO PROCEDURE |
_RL MYdiffKrtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/my82/my82_calc.F |
134 |
MY82_CALC |
DO K = 2, Nr |
|
./pkg/my82/my82_calc.F |
154 |
MY82_CALC |
DO K = 1, Nr |
|
./pkg/my82/my82_calc.F |
65 |
MY82_CALC |
_RL SH(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/my82/my82_calc.F |
66 |
MY82_CALC |
_RL SM(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/my82/my82_calc.F |
67 |
MY82_CALC |
_RL tke(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/my82/my82_calc.F |
81 |
MY82_CALC |
DO K = 1, Nr |
|
./pkg/my82/my82_calc.F |
92 |
MY82_CALC |
DO K = 2, Nr |
|
./pkg/my82/my82_calc_diff.F |
50 |
MY82_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./pkg/my82/my82_calc_visc.F |
29 |
MY82_CALC_VISC |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/my82/my82_calc_visc.F |
30 |
MY82_CALC_VISC |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/my82/my82_init_varia.F |
50 |
MY82_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/my82/my82_output.F |
136 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
137 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
149 |
MY82_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
151 |
MY82_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
169 |
MY82_OUTPUT |
& MY_timeAve, Nr, bi,bj,myThid) |
|
./pkg/my82/my82_output.F |
171 |
MY82_OUTPUT |
& MY_timeAve, Nr, bi,bj,myThid) |
|
./pkg/my82/my82_output.F |
211 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
212 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
227 |
MY82_OUTPUT |
CALL DIAGNOSTICS_FILL(MYviscAr,'MYVISCAR',0,Nr,0,1,1,myThid) |
|
./pkg/my82/my82_output.F |
228 |
MY82_OUTPUT |
CALL DIAGNOSTICS_FILL(MYdiffKr,'MYDIFFKR',0,Nr,0,1,1,myThid) |
|
./model/src/calc_r_star.F |
107 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
121 |
CALC_R_STAR |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
137 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
149 |
CALC_R_STAR |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
267 |
CALC_R_STAR |
IF (kSurfC(1-i,1-j,bi,bj).GT.Nr) rStarFacC(1-i,1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
268 |
CALC_R_STAR |
IF (kSurfC(ii, 1-j,bi,bj).GT.Nr) rStarFacC(ii, 1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
269 |
CALC_R_STAR |
IF (kSurfC(1-i,jj, bi,bj).GT.Nr) rStarFacC(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
270 |
CALC_R_STAR |
IF (kSurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
272 |
CALC_R_STAR |
IF (kSurfW(1-i,1-j,bi,bj).GT.Nr) rStarFacW(1-i,1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
273 |
CALC_R_STAR |
IF (kSurfW(ii, 1-j,bi,bj).GT.Nr) rStarFacW(ii, 1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
274 |
CALC_R_STAR |
IF (kSurfW(1-i,jj, bi,bj).GT.Nr) rStarFacW(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
275 |
CALC_R_STAR |
IF (kSurfW(ii, jj, bi,bj).GT.Nr) rStarFacW(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
277 |
CALC_R_STAR |
IF (kSurfS(1-i,1-j,bi,bj).GT.Nr) rStarFacS(1-i,1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
278 |
CALC_R_STAR |
IF (kSurfS(ii, 1-j,bi,bj).GT.Nr) rStarFacS(ii, 1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
279 |
CALC_R_STAR |
IF (kSurfS(1-i,jj, bi,bj).GT.Nr) rStarFacS(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
280 |
CALC_R_STAR |
IF (kSurfS(ii, jj, bi,bj).GT.Nr) rStarFacS(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
94 |
CALC_R_STAR |
IF (kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/mypackage/MYPACKAGE.h |
52 |
NO PROCEDURE |
_RL myPa_StatScal1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mypackage/MYPACKAGE.h |
53 |
NO PROCEDURE |
_RL myPa_StatScal2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mypackage/MYPACKAGE.h |
54 |
NO PROCEDURE |
_RL myPa_StatVelU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mypackage/MYPACKAGE.h |
55 |
NO PROCEDURE |
_RL myPa_StatVelV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mypackage/MYPACKAGE.h |
69 |
NO PROCEDURE |
_RL myPa_TendScal1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mypackage/MYPACKAGE.h |
70 |
NO PROCEDURE |
_RL myPa_TendScal2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mypackage/MYPACKAGE.h |
71 |
NO PROCEDURE |
_RL myPa_TendVelU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mypackage/MYPACKAGE.h |
72 |
NO PROCEDURE |
_RL myPa_TendVelV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mypackage/mypackage_diagnostics_state.F |
42 |
MYPACKAGE_DIAGNOSTICS_STATE |
& 0,Nr, 0, 1, 1, myThid ) |
|
./pkg/mypackage/mypackage_diagnostics_state.F |
44 |
MYPACKAGE_DIAGNOSTICS_STATE |
& 0,Nr, 0, 1, 1, myThid ) |
|
./pkg/mypackage/mypackage_diagnostics_state.F |
46 |
MYPACKAGE_DIAGNOSTICS_STATE |
& 0,Nr, 0, 1, 1, myThid ) |
|
./pkg/mypackage/mypackage_diagnostics_state.F |
48 |
MYPACKAGE_DIAGNOSTICS_STATE |
& 0,Nr, 0, 1, 1, myThid ) |
|
./pkg/mypackage/mypackage_init_varia.F |
104 |
MYPACKAGE_INIT_VARIA |
& .TRUE., Nr, myThid ) |
|
./pkg/mypackage/mypackage_init_varia.F |
108 |
MYPACKAGE_INIT_VARIA |
& .TRUE., Nr, myThid ) |
|
./pkg/mypackage/mypackage_init_varia.F |
40 |
MYPACKAGE_INIT_VARIA |
DO k=1,Nr |
|
./pkg/mypackage/mypackage_init_varia.F |
84 |
MYPACKAGE_INIT_VARIA |
CALL EXCH_3D_RL( myPa_StatScal1, Nr, myThid ) |
|
./pkg/mypackage/mypackage_init_varia.F |
89 |
MYPACKAGE_INIT_VARIA |
CALL EXCH_3D_RL( myPa_StatScal2, Nr, myThid ) |
|
./model/src/calc_surf_dr.F |
140 |
CALC_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/calc_surf_dr.F |
156 |
CALC_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/calc_surf_dr.F |
75 |
CALC_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./pkg/mypackage/mypackage_read_pickup.F |
129 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
131 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
133 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
135 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
137 |
MYPACKAGE_READ_PICKUP |
nj = nj*Nr |
|
./pkg/mypackage/mypackage_read_pickup.F |
173 |
MYPACKAGE_READ_PICKUP |
CALL EXCH_3D_RL( myPa_StatScal1, Nr, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
174 |
MYPACKAGE_READ_PICKUP |
CALL EXCH_3D_RL( myPa_StatScal2, Nr, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
177 |
MYPACKAGE_READ_PICKUP |
& .TRUE., Nr, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
181 |
MYPACKAGE_READ_PICKUP |
& .TRUE., Nr, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
66 |
MYPACKAGE_READ_PICKUP |
I Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
129 |
MYPACKAGE_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/mypackage/mypackage_write_pickup.F |
130 |
MYPACKAGE_WRITE_PICKUP |
j = Nr |
|
./pkg/mypackage/mypackage_write_pickup.F |
78 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
83 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
88 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
92 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
98 |
MYPACKAGE_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/obcs/OBCS.h |
135 |
NO PROCEDURE |
_RL OBNu (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
136 |
NO PROCEDURE |
_RL OBNv (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
137 |
NO PROCEDURE |
_RL OBNt (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
138 |
NO PROCEDURE |
_RL OBNs (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
143 |
NO PROCEDURE |
_RL OBNu0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
144 |
NO PROCEDURE |
_RL OBNv0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
145 |
NO PROCEDURE |
_RL OBNt0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
146 |
NO PROCEDURE |
_RL OBNs0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
147 |
NO PROCEDURE |
_RL OBNu1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
148 |
NO PROCEDURE |
_RL OBNv1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
149 |
NO PROCEDURE |
_RL OBNt1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
150 |
NO PROCEDURE |
_RL OBNs1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
180 |
NO PROCEDURE |
_RL OBSu (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
181 |
NO PROCEDURE |
_RL OBSv (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
182 |
NO PROCEDURE |
_RL OBSt (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
183 |
NO PROCEDURE |
_RL OBSs (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
188 |
NO PROCEDURE |
_RL OBSu0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
189 |
NO PROCEDURE |
_RL OBSv0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
190 |
NO PROCEDURE |
_RL OBSt0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
191 |
NO PROCEDURE |
_RL OBSs0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
192 |
NO PROCEDURE |
_RL OBSu1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
193 |
NO PROCEDURE |
_RL OBSv1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
194 |
NO PROCEDURE |
_RL OBSt1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
195 |
NO PROCEDURE |
_RL OBSs1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
225 |
NO PROCEDURE |
_RL OBEu (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
226 |
NO PROCEDURE |
_RL OBEv (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
227 |
NO PROCEDURE |
_RL OBEt (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
228 |
NO PROCEDURE |
_RL OBEs (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
233 |
NO PROCEDURE |
_RL OBEu0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
234 |
NO PROCEDURE |
_RL OBEv0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
235 |
NO PROCEDURE |
_RL OBEt0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
236 |
NO PROCEDURE |
_RL OBEs0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
237 |
NO PROCEDURE |
_RL OBEu1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
238 |
NO PROCEDURE |
_RL OBEv1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
239 |
NO PROCEDURE |
_RL OBEt1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
240 |
NO PROCEDURE |
_RL OBEs1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
270 |
NO PROCEDURE |
_RL OBWu (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
271 |
NO PROCEDURE |
_RL OBWv (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
272 |
NO PROCEDURE |
_RL OBWt (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
273 |
NO PROCEDURE |
_RL OBWs (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
278 |
NO PROCEDURE |
_RL OBWu0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
279 |
NO PROCEDURE |
_RL OBWv0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
280 |
NO PROCEDURE |
_RL OBWt0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
281 |
NO PROCEDURE |
_RL OBWs0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
282 |
NO PROCEDURE |
_RL OBWu1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
283 |
NO PROCEDURE |
_RL OBWv1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
284 |
NO PROCEDURE |
_RL OBWt1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
285 |
NO PROCEDURE |
_RL OBWs1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
315 |
NO PROCEDURE |
_RL OBNw (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
316 |
NO PROCEDURE |
_RL OBSw (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
317 |
NO PROCEDURE |
_RL OBEw (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
318 |
NO PROCEDURE |
_RL OBWw (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
323 |
NO PROCEDURE |
_RL OBNw0(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
324 |
NO PROCEDURE |
_RL OBSw0(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
325 |
NO PROCEDURE |
_RL OBEw0(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
326 |
NO PROCEDURE |
_RL OBWw0(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
327 |
NO PROCEDURE |
_RL OBNw1(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
328 |
NO PROCEDURE |
_RL OBSw1(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
329 |
NO PROCEDURE |
_RL OBEw1(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS.h |
330 |
NO PROCEDURE |
_RL OBWw1(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_PTRACERS.h |
11 |
NO PROCEDURE |
_RL OBNptr (1-Olx:sNx+Olx,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/OBCS_PTRACERS.h |
14 |
NO PROCEDURE |
_RL OBNptr0(1-Olx:sNx+Olx,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/OBCS_PTRACERS.h |
15 |
NO PROCEDURE |
_RL OBNptr1(1-Olx:sNx+Olx,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/OBCS_PTRACERS.h |
20 |
NO PROCEDURE |
_RL OBSptr (1-Olx:sNx+Olx,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/OBCS_PTRACERS.h |
23 |
NO PROCEDURE |
_RL OBSptr0(1-Olx:sNx+Olx,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/OBCS_PTRACERS.h |
24 |
NO PROCEDURE |
_RL OBSptr1(1-Olx:sNx+Olx,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/OBCS_PTRACERS.h |
29 |
NO PROCEDURE |
_RL OBEptr (1-Oly:sNy+Oly,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/OBCS_PTRACERS.h |
32 |
NO PROCEDURE |
_RL OBEptr0(1-Oly:sNy+Oly,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/OBCS_PTRACERS.h |
33 |
NO PROCEDURE |
_RL OBEptr1(1-Oly:sNy+Oly,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/OBCS_PTRACERS.h |
38 |
NO PROCEDURE |
_RL OBWptr (1-Oly:sNy+Oly,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/OBCS_PTRACERS.h |
41 |
NO PROCEDURE |
_RL OBWptr0(1-Oly:sNy+Oly,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/OBCS_PTRACERS.h |
42 |
NO PROCEDURE |
_RL OBWptr1(1-Oly:sNy+Oly,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/ORLANSKI.h |
100 |
NO PROCEDURE |
_RL WW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
101 |
NO PROCEDURE |
_RL WW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
102 |
NO PROCEDURE |
_RL UN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
103 |
NO PROCEDURE |
_RL UN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
104 |
NO PROCEDURE |
_RL UN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
105 |
NO PROCEDURE |
_RL UN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
106 |
NO PROCEDURE |
_RL VN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
107 |
NO PROCEDURE |
_RL VN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
108 |
NO PROCEDURE |
_RL VN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
109 |
NO PROCEDURE |
_RL VN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
110 |
NO PROCEDURE |
_RL TN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
111 |
NO PROCEDURE |
_RL TN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
112 |
NO PROCEDURE |
_RL TN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
113 |
NO PROCEDURE |
_RL TN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
114 |
NO PROCEDURE |
_RL SN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
115 |
NO PROCEDURE |
_RL SN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
116 |
NO PROCEDURE |
_RL SN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
117 |
NO PROCEDURE |
_RL SN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
118 |
NO PROCEDURE |
_RL WN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
119 |
NO PROCEDURE |
_RL WN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
120 |
NO PROCEDURE |
_RL WN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
121 |
NO PROCEDURE |
_RL WN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
122 |
NO PROCEDURE |
_RL US_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
123 |
NO PROCEDURE |
_RL US_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
124 |
NO PROCEDURE |
_RL US_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
125 |
NO PROCEDURE |
_RL US_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
126 |
NO PROCEDURE |
_RL VS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
127 |
NO PROCEDURE |
_RL VS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
128 |
NO PROCEDURE |
_RL VS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
129 |
NO PROCEDURE |
_RL VS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
130 |
NO PROCEDURE |
_RL TS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
131 |
NO PROCEDURE |
_RL TS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
132 |
NO PROCEDURE |
_RL TS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
133 |
NO PROCEDURE |
_RL TS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
134 |
NO PROCEDURE |
_RL SS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
135 |
NO PROCEDURE |
_RL SS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
136 |
NO PROCEDURE |
_RL SS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
137 |
NO PROCEDURE |
_RL SS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
138 |
NO PROCEDURE |
_RL WS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
139 |
NO PROCEDURE |
_RL WS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
140 |
NO PROCEDURE |
_RL WS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
141 |
NO PROCEDURE |
_RL WS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
150 |
NO PROCEDURE |
_RL CVEL_UE(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
151 |
NO PROCEDURE |
_RL CVEL_VE(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
152 |
NO PROCEDURE |
_RL CVEL_TE(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
153 |
NO PROCEDURE |
_RL CVEL_SE(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
154 |
NO PROCEDURE |
_RL CVEL_WE(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
155 |
NO PROCEDURE |
_RL CVEL_UW(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
156 |
NO PROCEDURE |
_RL CVEL_VW(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
157 |
NO PROCEDURE |
_RL CVEL_TW(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
158 |
NO PROCEDURE |
_RL CVEL_SW(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
159 |
NO PROCEDURE |
_RL CVEL_WW(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
160 |
NO PROCEDURE |
_RL CVEL_UN(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
161 |
NO PROCEDURE |
_RL CVEL_VN(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
162 |
NO PROCEDURE |
_RL CVEL_TN(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
163 |
NO PROCEDURE |
_RL CVEL_SN(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
164 |
NO PROCEDURE |
_RL CVEL_WN(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
165 |
NO PROCEDURE |
_RL CVEL_US(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
166 |
NO PROCEDURE |
_RL CVEL_VS(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
167 |
NO PROCEDURE |
_RL CVEL_TS(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
168 |
NO PROCEDURE |
_RL CVEL_SS(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
169 |
NO PROCEDURE |
_RL CVEL_WS(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
62 |
NO PROCEDURE |
_RL UE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
63 |
NO PROCEDURE |
_RL UE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
64 |
NO PROCEDURE |
_RL UE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
65 |
NO PROCEDURE |
_RL UE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
66 |
NO PROCEDURE |
_RL VE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
67 |
NO PROCEDURE |
_RL VE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
68 |
NO PROCEDURE |
_RL VE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
69 |
NO PROCEDURE |
_RL VE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
70 |
NO PROCEDURE |
_RL TE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
71 |
NO PROCEDURE |
_RL TE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
72 |
NO PROCEDURE |
_RL TE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
73 |
NO PROCEDURE |
_RL TE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
74 |
NO PROCEDURE |
_RL SE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
75 |
NO PROCEDURE |
_RL SE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
76 |
NO PROCEDURE |
_RL SE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
77 |
NO PROCEDURE |
_RL SE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
78 |
NO PROCEDURE |
_RL WE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
79 |
NO PROCEDURE |
_RL WE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
80 |
NO PROCEDURE |
_RL WE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
81 |
NO PROCEDURE |
_RL WE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
82 |
NO PROCEDURE |
_RL UW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
83 |
NO PROCEDURE |
_RL UW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
84 |
NO PROCEDURE |
_RL UW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
85 |
NO PROCEDURE |
_RL UW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
86 |
NO PROCEDURE |
_RL VW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
87 |
NO PROCEDURE |
_RL VW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
88 |
NO PROCEDURE |
_RL VW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
89 |
NO PROCEDURE |
_RL VW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
90 |
NO PROCEDURE |
_RL TW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
91 |
NO PROCEDURE |
_RL TW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
92 |
NO PROCEDURE |
_RL TW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
93 |
NO PROCEDURE |
_RL TW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
94 |
NO PROCEDURE |
_RL SW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
95 |
NO PROCEDURE |
_RL SW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
96 |
NO PROCEDURE |
_RL SW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
97 |
NO PROCEDURE |
_RL SW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
98 |
NO PROCEDURE |
_RL WW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/ORLANSKI.h |
99 |
NO PROCEDURE |
_RL WW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/calc_viscosity.F |
40 |
CALC_VISCOSITY |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/calc_viscosity.F |
41 |
CALC_VISCOSITY |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/calc_viscosity.F |
50 |
CALC_VISCOSITY |
DO k = 1,Nr |
|
./pkg/obcs/obcs_apply_eta.F |
56 |
OBCS_APPLY_ETA |
IF ( ksurfS(i,j_obc,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
62 |
OBCS_APPLY_ETA |
IF ( ksurfS(i,j_obc+1,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
72 |
OBCS_APPLY_ETA |
IF ( ksurfW(i_obc,j,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
78 |
OBCS_APPLY_ETA |
IF ( ksurfW(i_obc+1,j,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_ptracer.F |
61 |
OBCS_APPLY_PTRACER |
kHi = Nr |
|
./pkg/obcs/obcs_apply_ptracer.F |
62 |
OBCS_APPLY_PTRACER |
kMx = Nr |
|
./pkg/obcs/obcs_apply_r_star.F |
44 |
OBCS_APPLY_R_STAR |
IF (ksurfS(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
54 |
OBCS_APPLY_R_STAR |
IF (ksurfS(i,j+1,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
68 |
OBCS_APPLY_R_STAR |
IF (ksurfW(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
78 |
OBCS_APPLY_R_STAR |
IF (ksurfW(i+1,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
45 |
OBCS_APPLY_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
54 |
OBCS_APPLY_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
67 |
OBCS_APPLY_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
76 |
OBCS_APPLY_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/calc_wsurf_tr.F |
43 |
CALC_WSURF_TR |
_RL thetaFld(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/calc_wsurf_tr.F |
44 |
CALC_WSURF_TR |
_RL saltFld (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/calc_wsurf_tr.F |
45 |
CALC_WSURF_TR |
_RL wVelFld (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/calc_wsurf_tr.F |
71 |
CALC_WSURF_TR |
IF (ks.LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
39 |
OBCS_APPLY_TS |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_ts.F |
40 |
OBCS_APPLY_TS |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_ts.F |
67 |
OBCS_APPLY_TS |
kHi = Nr |
|
./pkg/obcs/obcs_apply_uv.F |
38 |
OBCS_APPLY_UV |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_uv.F |
39 |
OBCS_APPLY_UV |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_uv.F |
65 |
OBCS_APPLY_UV |
kHi = Nr |
|
./pkg/obcs/obcs_apply_w.F |
22 |
OBCS_APPLY_W |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
110 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
146 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
162 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
197 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
232 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
282 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
314 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
346 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
378 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
37 |
OBCS_CALC |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
38 |
OBCS_CALC |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
39 |
OBCS_CALC |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
40 |
OBCS_CALC |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
41 |
OBCS_CALC |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
442 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
460 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
479 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
497 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
516 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
534 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
553 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
571 |
OBCS_CALC |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc.F |
94 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
139 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
144 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
158 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
170 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
186 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
201 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
234 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
286 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
291 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
305 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
317 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
333 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
348 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
381 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
432 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
468 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
605 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
94 |
OBCS_CALC_STEVENS |
_RL uMerPri(1-OLy:sNy+OLy,Nr) |
|
./pkg/obcs/obcs_check_depths.F |
41 |
OBCS_CHECK_DEPTHS |
DO K=1,Nr |
|
./pkg/obcs/obcs_external_fields_load.F |
138 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
139 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
142 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
143 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
146 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
147 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
150 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
151 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
155 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
156 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
169 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
170 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
173 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
174 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
177 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
178 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
181 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
182 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
186 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
187 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
200 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
201 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
204 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
205 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
208 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
209 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
212 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
213 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
217 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
218 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
231 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
232 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
235 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
236 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
239 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
240 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
243 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
244 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
248 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
249 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
266 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
268 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
275 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
277 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
284 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
286 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
293 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
295 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
337 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile,fp,Nr,OBEu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
340 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile,fp,Nr,OBEv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
343 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile,fp,Nr,OBEt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
346 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile,fp,Nr,OBEs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
350 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile,fp,Nr,OBEw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
363 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile,fp,Nr,OBWu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
366 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile,fp,Nr,OBWv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
369 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile,fp,Nr,OBWt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
372 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile,fp,Nr,OBWs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
376 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile,fp,Nr,OBWw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
389 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile,fp,Nr,OBNu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
392 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile,fp,Nr,OBNv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
395 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile,fp,Nr,OBNt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
398 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile,fp,Nr,OBNs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
402 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile,fp,Nr,OBNw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
415 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile,fp,Nr,OBSu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
418 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile,fp,Nr,OBSv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
421 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile,fp,Nr,OBSt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
424 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile,fp,Nr,OBSs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
428 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile,fp,Nr,OBSw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
445 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
452 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
459 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
466 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_external_fields_load.F |
657 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
_RL fld (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_external_fields_load.F |
658 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
_RL fld0(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_external_fields_load.F |
659 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
_RL fld1(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_external_fields_load.F |
668 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
DO K = 1, Nr |
|
./pkg/obcs/obcs_external_fields_load.F |
707 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
_RL fld (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_external_fields_load.F |
708 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
_RL fld0(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_external_fields_load.F |
709 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
_RL fld1(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_external_fields_load.F |
718 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
DO K = 1, Nr |
|
./pkg/obcs/obcs_init_fixed.F |
102 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBNhFac0(i,bi,bj)=hFacS(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
108 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBShFac0(i,bi,bj)=hFacS(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
120 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBEhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
126 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBWhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_variables.F |
131 |
OBCS_INIT_VARIABLES |
DO K=1,Nr |
|
./pkg/obcs/obcs_init_variables.F |
272 |
OBCS_INIT_VARIABLES |
DO K=1,Nr |
|
./pkg/obcs/obcs_init_variables.F |
383 |
OBCS_INIT_VARIABLES |
I Nr, bi, bj, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
385 |
OBCS_INIT_VARIABLES |
I Nr, bi, bj, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
402 |
OBCS_INIT_VARIABLES |
DO K=1,Nr |
|
./pkg/obcs/obcs_init_variables.F |
428 |
OBCS_INIT_VARIABLES |
I Nr, bi, bj, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
56 |
OBCS_INIT_VARIABLES |
DO K=1,Nr |
|
./pkg/obcs/obcs_output.F |
101 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
102 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
103 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
104 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
107 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
115 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
116 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
117 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
118 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
121 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
129 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
130 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
131 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
132 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
135 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
143 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
144 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
145 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
146 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
149 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
59 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNu, 'OBNu' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
60 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNv, 'OBNv' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
61 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNt, 'OBNt' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
62 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNs, 'OBNs' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
66 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSu, 'OBSu' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
67 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSv, 'OBSv' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
68 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSt, 'OBSt' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
69 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSs, 'OBSs' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
73 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEu, 'OBEu' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
74 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEv, 'OBEv' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
75 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEt, 'OBEt' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
76 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEs, 'OBEs' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
80 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWu, 'OBWu' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
81 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWv, 'OBWv' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
82 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWt, 'OBWt' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_output.F |
83 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWs, 'OBWs' , Nr, myIter, mythid ) |
|
./pkg/obcs/obcs_prescribe_read.F |
252 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBu (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
253 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBv (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
254 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBt (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
255 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBs (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
256 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBu0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
257 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBv0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
258 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBt0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
259 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBs0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
260 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBu1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
261 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBv1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
262 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBt1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
263 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBs1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
296 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBptr (1-Olx:sNx+Olx,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/obcs_prescribe_read.F |
297 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBptr0(1-Olx:sNx+Olx,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/obcs_prescribe_read.F |
298 |
OBCS_PRESCRIBE_EXF_XZ |
_RL OBptr1(1-Olx:sNx+Olx,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/obcs_prescribe_read.F |
486 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBu (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
487 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBv (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
488 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBt (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
489 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBs (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
490 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBu0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
491 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBv0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
492 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBt0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
493 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBs0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
494 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBu1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
495 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBv1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
496 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBt1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
497 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBs1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_prescribe_read.F |
530 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBptr (1-Oly:sNy+Oly,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/obcs_prescribe_read.F |
531 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBptr0(1-Oly:sNy+Oly,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/obcs_prescribe_read.F |
532 |
OBCS_PRESCRIBE_EXF_YZ |
_RL OBptr1(1-Oly:sNy+Oly,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/obcs_read_pickup.F |
100 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
101 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
102 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
103 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
104 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
105 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
106 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
107 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
108 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
109 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
110 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_US , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
111 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_VS , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
112 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_TS , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
113 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_SS , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
116 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
117 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
118 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
119 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
120 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_WS , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
121 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, OBSw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
131 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
132 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
133 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
134 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
135 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
136 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
137 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
138 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
139 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
140 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
141 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
142 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
143 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
144 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
145 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
146 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
147 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_UE , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
148 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_VE , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
149 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_TE , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
150 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_SE , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
153 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
154 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
155 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
156 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
157 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_WE , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
158 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, OBEw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
167 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
168 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
169 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
170 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
171 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
172 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
173 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
174 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
175 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
176 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
177 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
178 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
179 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
180 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
181 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
182 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
183 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_UW , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
184 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_VW , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
185 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_TW , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
186 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_SW , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
189 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
190 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
191 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
192 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
193 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_WW , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
194 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, OBWw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
58 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
59 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
60 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
61 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
62 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
63 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
64 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
65 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
66 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
67 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
68 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
69 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
70 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
71 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
72 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
73 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
74 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_UN , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
75 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_VN , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
76 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_TN , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
77 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_SN , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
80 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
81 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
82 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
83 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
84 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_WN , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
85 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, OBNw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
94 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
95 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
96 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
97 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
98 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
99 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_sponge.F |
439 |
OBCS_SPONGE_T |
kkey = (ikey-1)*Nr + klev |
|
./pkg/obcs/obcs_sponge.F |
670 |
OBCS_SPONGE_S |
kkey = (ikey-1)*Nr + klev |
|
./pkg/obcs/obcs_write_pickup.F |
100 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
101 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
102 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
103 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
104 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
105 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
106 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
107 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
108 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
109 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
110 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
111 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
112 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
113 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
114 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
115 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_US , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
116 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_VS , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
117 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_TS , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
118 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_SS , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
121 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
122 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
123 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
124 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
125 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_WS , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
126 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, OBSw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
136 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
137 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
138 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
139 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
140 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
141 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
142 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
143 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
144 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
145 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
146 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
147 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
148 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
149 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
150 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
151 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
152 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_UE , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
153 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_VE , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
154 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_TE , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
155 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_SE , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
158 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
159 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
160 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
161 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
162 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_WE , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
163 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, OBEw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
172 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
173 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
174 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
175 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
176 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
177 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
178 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
179 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
180 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
181 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
182 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
183 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
184 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
185 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
186 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
187 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
188 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_UW , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
189 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_VW , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
190 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_TW , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
191 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_SW , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
194 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
195 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
196 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
197 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
198 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_WW , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
199 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, OBWw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
63 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
64 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
65 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
66 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
67 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
68 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
69 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
70 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
71 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
72 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
73 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
74 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
75 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
76 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
77 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
78 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
79 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_UN , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
80 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_VN , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
81 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_TN , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
82 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_SN , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
85 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
86 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
87 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
88 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
89 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_WN , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
90 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, OBNw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
99 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/orlanski_east.F |
104 |
ORLANSKI_EAST |
DO K=1,Nr |
|
./pkg/obcs/orlanski_east.F |
80 |
ORLANSKI_EAST |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_east.F |
81 |
ORLANSKI_EAST |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_east.F |
82 |
ORLANSKI_EAST |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_east.F |
83 |
ORLANSKI_EAST |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_east.F |
84 |
ORLANSKI_EAST |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_init.F |
32 |
ORLANSKI_INIT |
DO K=1,Nr |
|
./pkg/obcs/orlanski_north.F |
71 |
ORLANSKI_NORTH |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_north.F |
72 |
ORLANSKI_NORTH |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_north.F |
73 |
ORLANSKI_NORTH |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_north.F |
74 |
ORLANSKI_NORTH |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_north.F |
75 |
ORLANSKI_NORTH |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_north.F |
95 |
ORLANSKI_NORTH |
DO K=1,Nr |
|
./pkg/obcs/orlanski_south.F |
71 |
ORLANSKI_SOUTH |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_south.F |
72 |
ORLANSKI_SOUTH |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_south.F |
73 |
ORLANSKI_SOUTH |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_south.F |
74 |
ORLANSKI_SOUTH |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_south.F |
75 |
ORLANSKI_SOUTH |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_south.F |
95 |
ORLANSKI_SOUTH |
DO K=1,Nr |
|
./pkg/obcs/orlanski_west.F |
106 |
ORLANSKI_WEST |
DO K=1,Nr |
|
./pkg/obcs/orlanski_west.F |
82 |
ORLANSKI_WEST |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_west.F |
83 |
ORLANSKI_WEST |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_west.F |
84 |
ORLANSKI_WEST |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_west.F |
85 |
ORLANSKI_WEST |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_west.F |
86 |
ORLANSKI_WEST |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/cg3d.F |
137 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
153 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
182 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
201 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
203 |
CG3D |
kp1 = MIN(k+1, Nr) |
|
./model/src/cg3d.F |
207 |
CG3D |
IF ( k .EQ. Nr) maskP1 = 0. _d 0 |
|
./model/src/cg3d.F |
239 |
CG3D |
CALL EXCH_S3D_RL( cg3d_r, Nr, myThid ) |
|
./model/src/cg3d.F |
245 |
CG3D |
I 'cg3d_r_I', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
|
./model/src/cg3d.F |
289 |
CG3D |
DO k=2,Nr |
|
./model/src/cg3d.F |
302 |
CG3D |
DO k=Nr,Nr |
|
./model/src/cg3d.F |
313 |
CG3D |
DO k=Nr-1,1,-1 |
|
./model/src/cg3d.F |
348 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
372 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
391 |
CG3D |
IF ( Nr .GT. 1 ) THEN |
|
./model/src/cg3d.F |
433 |
CG3D |
DO k=2,Nr-1 |
|
./model/src/cg3d.F |
455 |
CG3D |
IF ( Nr .GT. 1 ) THEN |
|
./model/src/cg3d.F |
456 |
CG3D |
k=Nr |
|
./model/src/cg3d.F |
494 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
528 |
CG3D |
CALL EXCH_S3D_RL( cg3d_r, Nr, myThid ) |
|
./model/src/cg3d.F |
535 |
CG3D |
I 'cg3d_r_F', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
|
./model/src/cg3d.F |
541 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
68 |
CG3D |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/cg3d.F |
69 |
CG3D |
_RL cg3d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
63 |
NO PROCEDURE |
_RS uvel0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
64 |
NO PROCEDURE |
_RS uvel1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
65 |
NO PROCEDURE |
_RS vvel0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
66 |
NO PROCEDURE |
_RS vvel1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
67 |
NO PROCEDURE |
_RS wvel0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
68 |
NO PROCEDURE |
_RS wvel1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
69 |
NO PROCEDURE |
_RS tave0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
70 |
NO PROCEDURE |
_RS tave1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
71 |
NO PROCEDURE |
_RS save0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
72 |
NO PROCEDURE |
_RS save1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
73 |
NO PROCEDURE |
_RS conv0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
74 |
NO PROCEDURE |
_RS conv1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
75 |
NO PROCEDURE |
_RS gmkx0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
76 |
NO PROCEDURE |
_RS gmkx1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
77 |
NO PROCEDURE |
_RS gmky0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
78 |
NO PROCEDURE |
_RS gmky1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
79 |
NO PROCEDURE |
_RS gmkz0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
80 |
NO PROCEDURE |
_RS gmkz1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
87 |
NO PROCEDURE |
_RS kdfs0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
88 |
NO PROCEDURE |
_RS kdfs1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
89 |
NO PROCEDURE |
_RS kght0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
90 |
NO PROCEDURE |
_RS kght1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/offline_fields_load.F |
149 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, uvel0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
153 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, uvel1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
161 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, vvel0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
164 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, vvel1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
172 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, wvel0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
175 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, wvel1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
183 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, tave0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
186 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, tave1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
194 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, save0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
197 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, save1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
205 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, conv0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
208 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, conv1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
217 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkx0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
220 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkx1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
228 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmky0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
231 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmky1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
239 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkz0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
242 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkz1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
285 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kdfs0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
288 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kdfs1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
298 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kght0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
301 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kght1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
317 |
OFFLINE_FIELDS_LOAD |
CALL EXCH_UV_AGRID_3D_RS( gmkx0, gmky0, .FALSE., Nr, myThid ) |
|
./pkg/offline/offline_fields_load.F |
318 |
OFFLINE_FIELDS_LOAD |
CALL EXCH_UV_AGRID_3D_RS( gmkx1, gmky1, .FALSE., Nr, myThid ) |
|
./pkg/offline/offline_fields_load.F |
337 |
OFFLINE_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/offline/offline_fields_load.F |
429 |
LEF_ZERO3 |
_RS arr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/offline_fields_load.F |
438 |
LEF_ZERO3 |
do k=1,Nr |
|
./pkg/offline/offline_init_varia.F |
32 |
OFFLINE_INIT_VARIA |
DO k=1,Nr |
|
./pkg/opps/OPPS.h |
87 |
NO PROCEDURE |
& Nr,nSx,nSy) |
|
./pkg/opps/OPPS_TAVE.h |
23 |
NO PROCEDURE |
_RL OPPSconvCountTave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/opps/opps_calc.F |
101 |
OPPS_CALC |
_RL Paa(Nr,nTracer) |
|
./pkg/opps/opps_calc.F |
102 |
OPPS_CALC |
_RL wda(Nr), mda(Nr), pda(Nr,nTracer) |
|
./pkg/opps/opps_calc.F |
110 |
OPPS_CALC |
_RL Ad(Nr),Wd(Nr),Dd(Nr),Md(Nr) |
|
./pkg/opps/opps_calc.F |
111 |
OPPS_CALC |
_RL De(Nr) |
|
./pkg/opps/opps_calc.F |
112 |
OPPS_CALC |
_RL PlumeEntrainment(Nr) |
|
./pkg/opps/opps_calc.F |
113 |
OPPS_CALC |
_RL Pd(Nr,nTracer) |
|
./pkg/opps/opps_calc.F |
82 |
OPPS_CALC |
_RL tracerEnv(Nr,nTracer),wVel(Nr) |
|
./pkg/opps/opps_init.F |
39 |
OPPS_INIT |
do k = 1, Nr |
|
./model/src/config_check.F |
111 |
CONFIG_CHECK |
IF ( dTtracerLev(1).NE.dTtracerLev(Nr) .AND. implicitDiffusion |
|
./pkg/opps/opps_interface.F |
105 |
OPPS_INTERFACE |
IF ( kSurfC(I,J,bi,bj) .LE. Nr ) THEN |
|
./pkg/opps/opps_interface.F |
107 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./pkg/opps/opps_interface.F |
113 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./pkg/opps/opps_interface.F |
121 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./pkg/opps/opps_interface.F |
133 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./pkg/opps/opps_interface.F |
153 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./pkg/opps/opps_interface.F |
171 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./pkg/opps/opps_interface.F |
177 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./pkg/opps/opps_interface.F |
73 |
OPPS_INTERFACE |
_RL wVelLoc(Nr) |
|
./pkg/opps/opps_interface.F |
74 |
OPPS_INTERFACE |
_RL tracerLoc(Nr,nTracer) |
|
./pkg/opps/opps_interface.F |
94 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./pkg/opps/opps_output.F |
104 |
OPPS_OUTPUT |
CALL TIMEAVE_RESET( OPPSconvCountTave, Nr, bi, bj, myThid ) |
|
./pkg/opps/opps_output.F |
115 |
OPPS_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/opps/opps_output.F |
131 |
OPPS_OUTPUT |
& OPPS_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/opps/opps_output.F |
143 |
OPPS_OUTPUT |
CALL TIMEAVE_RESET( OPPSconvCountTave, Nr, bi, bj, 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_TAVE.h |
23 |
NO PROCEDURE |
_RL PPviscArtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/pp81/PP81_TAVE.h |
24 |
NO PROCEDURE |
_RL PPdiffKrtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/pp81/pp81_calc.F |
67 |
PP81_CALC |
DO K = 2, Nr |
|
./pkg/pp81/pp81_calc.F |
95 |
PP81_CALC |
& (usingPCoords .AND. K .EQ. Nr) ) THEN |
|
./pkg/pp81/pp81_calc_diff.F |
50 |
PP81_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./pkg/pp81/pp81_calc_visc.F |
32 |
PP81_CALC_VISC |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/pp81/pp81_calc_visc.F |
33 |
PP81_CALC_VISC |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/config_summary.F |
145 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( viscArNr, Nr, INDEX_K, 'viscArNr =', |
|
./model/src/config_summary.F |
164 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( diffKrNrT, Nr, INDEX_K, 'diffKrNrT =', |
|
./model/src/config_summary.F |
167 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( diffKrNrS, Nr, INDEX_K, 'diffKrNrS =', |
|
./model/src/config_summary.F |
196 |
CONFIG_SUMMARY |
DO k = 1, Nr |
|
./model/src/config_summary.F |
223 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( rhoFacC, Nr, INDEX_K, 'rhoFacC = ', |
|
./model/src/config_summary.F |
225 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( rhoFacF, Nr+1, INDEX_K, 'rhoFacF = ', |
|
./model/src/config_summary.F |
489 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( dTtracerLev, Nr, INDEX_K, 'dTtracerLev =', |
|
./model/src/config_summary.F |
53 |
CONFIG_SUMMARY |
_RL bufRL(Nr+1) |
|
./model/src/config_summary.F |
633 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, drC, Nr, INDEX_K, 'drC = ', |
|
./model/src/config_summary.F |
635 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, drF, Nr, INDEX_K, 'drF = ', |
|
./model/src/config_summary.F |
638 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL,dAHybSigF,Nr,INDEX_K,'dAHybSigF =', |
|
./model/src/config_summary.F |
640 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL,dBHybSigF,Nr,INDEX_K,'dBHybSigF =', |
|
./model/src/config_summary.F |
663 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, rC, Nr, INDEX_K, 'rcoord =', |
|
./model/src/config_summary.F |
665 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, rF,Nr+1,INDEX_K, 'rF = ', |
|
./model/src/config_summary.F |
668 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS(bufRL,aHybSigmF,Nr+1,INDEX_K,'aHybSigmF =', |
|
./model/src/config_summary.F |
670 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS(bufRL,bHybSigmF,Nr+1,INDEX_K,'bHybSigmF =', |
|
./model/src/config_summary.F |
673 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( deepFacC, Nr, INDEX_K, 'deepFacC = ', |
|
./model/src/config_summary.F |
675 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( deepFacF, Nr+1, INDEX_K, 'deepFacF = ', |
|
./model/src/config_summary.F |
677 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL(rVel2wUnit,Nr+1, INDEX_K,'rVel2wUnit =', |
|
./model/src/config_summary.F |
679 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL(wUnit2rVel,Nr+1, INDEX_K,'wUnit2rVel =', |
|
./model/src/config_summary.F |
681 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( dBdrRef, Nr, INDEX_K, 'dBdrRef =', |
|
./model/src/config_summary.F |
93 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( tRef, Nr, INDEX_K, 'tRef =', |
|
./model/src/config_summary.F |
95 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( sRef, Nr, INDEX_K, 'sRef =', |
|
./pkg/pp81/pp81_init_varia.F |
39 |
PP81_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/pp81/pp81_output.F |
104 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
105 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
116 |
PP81_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
118 |
PP81_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
134 |
PP81_OUTPUT |
& PP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
136 |
PP81_OUTPUT |
& PP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
150 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
151 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPdiffKrtave, Nr, bi, bj, myThid ) |
|
./model/src/convective_adjustment.F |
110 |
CONVECTIVE_ADJUSTMENT |
kBottom = Nr |
|
./model/src/convective_adjustment.F |
115 |
CONVECTIVE_ADJUSTMENT |
kTop = Nr |
|
./model/src/convective_adjustment.F |
134 |
CONVECTIVE_ADJUSTMENT |
kkey = (ikey-1)*Nr + k |
|
./model/src/convective_adjustment.F |
208 |
CONVECTIVE_ADJUSTMENT |
I Nr, deltaTclock, bi, bj, myThid) |
|
./model/src/convective_adjustment.F |
215 |
CONVECTIVE_ADJUSTMENT |
I 0, Nr, 2, bi, bj, myThid ) |
|
./model/src/convective_adjustment.F |
60 |
CONVECTIVE_ADJUSTMENT |
_RL ConvectCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/convective_adjustment.F |
86 |
CONVECTIVE_ADJUSTMENT |
DO K=1,Nr |
|
./model/src/convective_adjustment_ini.F |
110 |
CONVECTIVE_ADJUSTMENT_INI |
kBottom = Nr |
|
./model/src/convective_adjustment_ini.F |
115 |
CONVECTIVE_ADJUSTMENT_INI |
kTop = Nr |
|
./model/src/convective_adjustment_ini.F |
134 |
CONVECTIVE_ADJUSTMENT_INI |
kkey = (ikey-1)*Nr + k |
|
./model/src/convective_adjustment_ini.F |
64 |
CONVECTIVE_ADJUSTMENT_INI |
_RL ConvectCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/convective_adjustment_ini.F |
86 |
CONVECTIVE_ADJUSTMENT_INI |
DO K=1,Nr |
|
./pkg/ptracers/PTRACERS_FIELDS.h |
21 |
NO PROCEDURE |
_RL pTracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/ptracers/PTRACERS_FIELDS.h |
23 |
NO PROCEDURE |
_RL gPtr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/ptracers/PTRACERS_FIELDS.h |
25 |
NO PROCEDURE |
_RL gpTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/ptracers/PTRACERS_PARAMS.h |
32 |
NO PROCEDURE |
_RL PTRACERS_diffKrNr(Nr,PTRACERS_num) |
|
./pkg/ptracers/PTRACERS_PARAMS.h |
33 |
NO PROCEDURE |
_RL PTRACERS_ref(Nr,PTRACERS_num) |
|
./pkg/ptracers/PTRACERS_PARAMS.h |
35 |
NO PROCEDURE |
_RL PTRACERS_dTLev(Nr) |
|
./pkg/ptracers/PTRACERS_TAVE.h |
36 |
NO PROCEDURE |
_RL ptracertave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./model/src/convective_weights.F |
45 |
CONVECTIVE_WEIGHTS |
_RL ConvectCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,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_diagnostics_state.F |
103 |
PTRACERS_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( dummy, diagName, 0,Nr,0,1,1,myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
111 |
PTRACERS_DIAGNOSTICS_STATE |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
136 |
PTRACERS_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( dummy, diagName, 0,Nr,0,1,1,myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
144 |
PTRACERS_DIAGNOSTICS_STATE |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
168 |
PTRACERS_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( dummy, diagName, 0,Nr,0,1,1,myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
40 |
PTRACERS_DIAGNOSTICS_STATE |
_RL dummy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
71 |
PTRACERS_DIAGNOSTICS_STATE |
& 0,Nr,0,1,1,myThid ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
78 |
PTRACERS_DIAGNOSTICS_STATE |
DO k=1,Nr |
|
./model/src/convectively_mixtracer.F |
34 |
CONVECTIVELY_MIXTRACER |
_RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ptracers/ptracers_dyn_state_mod.F |
19 |
PTRACERS_INIT_FIXED_DYNAMIC |
& sNx, sNy, Nr, OLx, OLy, |
|
./pkg/ptracers/ptracers_dyn_state_mod.F |
28 |
PTRACERS_INIT_FIXED_DYNAMIC |
INTEGER sNx, sNy, Nr, OLx, OLy, nSx, nSy, nSOM |
|
./pkg/ptracers/ptracers_dyn_state_mod.F |
39 |
PTRACERS_INIT_FIXED_DYNAMIC |
& Nr, |
|
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
49 |
PTRACERS_FIELDS_BLOCKING_EXCH |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
53 |
PTRACERS_FIELDS_BLOCKING_EXCH |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
62 |
PTRACERS_FIELDS_BLOCKING_EXCH |
I Nr, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_forcing.F |
36 |
PTRACERS_FORCING |
_RL gPtracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ptracers/ptracers_forcing.F |
55 |
PTRACERS_FORCING |
kSurface = Nr |
|
./pkg/ptracers/ptracers_forcing_surf.F |
58 |
PTRACERS_FORCING_SURF |
ks = Nr |
|
./pkg/ptracers/ptracers_gterm_blocking_exchanges.F |
42 |
PTRACERS_GTERM_BLOCKING_EXCH |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_implicit.F |
54 |
PTRACERS_IMPLICIT |
_RL kappaRk(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ptracers/ptracers_init_fixed.F |
98 |
PTRACERS_INIT_FIXED |
& sNx, sNy, Nr, OLx, OLy, |
|
./pkg/ptracers/ptracers_init_varia.F |
103 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_init_varia.F |
51 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_init_varia.F |
70 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_integrate.F |
121 |
PTRACERS_INTEGRATE |
kkey = (iptrkey-1)*Nr + k |
|
./pkg/ptracers/ptracers_monitor.F |
115 |
PTRACERS_MONITOR |
& Nr, pTracer(1-OLx,1-OLy,1,1,1,ip), suff, |
|
./pkg/ptracers/ptracers_read_pickup.F |
114 |
PTRACERS_READ_PICKUP |
I Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
169 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
173 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
187 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
191 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
202 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
206 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
210 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
212 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
223 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
225 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
233 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
235 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
282 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
287 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
77 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
84 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
110 |
PTRACERS_READPARMS |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
141 |
PTRACERS_READPARMS |
DO k = 1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
215 |
PTRACERS_READPARMS |
IF ( PTRACERS_dTLev(1).NE.PTRACERS_dTLev(Nr) |
|
./pkg/ptracers/ptracers_readparms.F |
255 |
PTRACERS_READPARMS |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
307 |
PTRACERS_READPARMS |
CALL WRITE_1D_RL( PTRACERS_dTLev, Nr, INDEX_K, |
|
./pkg/ptracers/ptracers_readparms.F |
352 |
PTRACERS_READPARMS |
CALL WRITE_1D_RL( PTRACERS_diffKrNr(1,iTracer), Nr, INDEX_K, |
|
./pkg/ptracers/ptracers_readparms.F |
360 |
PTRACERS_READPARMS |
CALL WRITE_1D_RL( PTRACERS_ref(1,iTracer), Nr, INDEX_K, |
|
./pkg/ptracers/ptracers_timeave.F |
64 |
PTRACERS_TIMEAVE |
& Nr, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_timeave.F |
84 |
PTRACERS_TIMEAVE |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
136 |
PTRACERS_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_write_pickup.F |
147 |
PTRACERS_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_write_pickup.F |
171 |
PTRACERS_WRITE_PICKUP |
& 0, 0, Nr, ' ', |
|
./pkg/ptracers/ptracers_write_pickup.F |
199 |
PTRACERS_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, |
|
./model/src/cycle_tracer.F |
35 |
CYCLE_TRACER |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/cycle_tracer.F |
36 |
CYCLE_TRACER |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/cycle_tracer.F |
47 |
CYCLE_TRACER |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_write_timeave.F |
72 |
PTRACERS_WRITE_TIMEAVE |
& ptracer_half, Nr, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
52 |
PTRACERS_ZONAL_FILT_APPLY |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./pkg/rbcs/RBCS.h |
26 |
NO PROCEDURE |
_RS RBC_mask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,maskLEN) |
|
./pkg/rbcs/RBCS.h |
27 |
NO PROCEDURE |
_RL RBCtemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS.h |
28 |
NO PROCEDURE |
_RL RBCsalt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS.h |
69 |
NO PROCEDURE |
_RL RBC_ptracers(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/rbcs/RBCS.h |
86 |
NO PROCEDURE |
_RS rbct0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS.h |
87 |
NO PROCEDURE |
_RS rbct1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS.h |
88 |
NO PROCEDURE |
_RS rbcs0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS.h |
89 |
NO PROCEDURE |
_RS rbcs1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS.h |
94 |
NO PROCEDURE |
_RS rbcptr0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/rbcs/RBCS.h |
96 |
NO PROCEDURE |
_RS rbcptr1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/rbcs/rbcs_fields_load.F |
238 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_fields_load.F |
257 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_fields_load.F |
77 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_fields_load.F |
93 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./model/src/diags_oceanic_surf_flux.F |
54 |
DIAGS_OCEANIC_SURF_FLUX |
ks=Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
43 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_varia.F |
39 |
RBCS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_varia.F |
59 |
RBCS_INIT_VARIA |
DO k=1,Nr |
|
./model/src/diags_phi_rlow.F |
101 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = half*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/diags_phi_rlow.F |
121 |
DIAGS_PHI_RLOW |
IF ( k.EQ.Nr ) THEN |
|
./model/src/diags_phi_rlow.F |
51 |
DIAGS_PHI_RLOW |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/diags_phi_rlow.F |
52 |
DIAGS_PHI_RLOW |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rw/read_fld_xyz_rl.F |
16 |
READ_FLD_XYZ_RL |
_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/rw/read_fld_xyz_rl.F |
45 |
READ_FLD_XYZ_RL |
nNz=Nr |
|
./pkg/rw/read_fld_xyz_rs.F |
16 |
READ_FLD_XYZ_RS |
_RS field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/rw/read_fld_xyz_rs.F |
45 |
READ_FLD_XYZ_RS |
nNz=Nr |
|
./pkg/rw/read_rec.F |
156 |
READ_REC_XYZ_RS |
_RS field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/rw/read_rec.F |
184 |
READ_REC_XYZ_RS |
nNz=Nr |
|
./pkg/rw/read_rec.F |
216 |
READ_REC_XYZ_RL |
_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/rw/read_rec.F |
244 |
READ_REC_XYZ_RL |
nNz=Nr |
|
./model/src/diags_rho.F |
118 |
DIAGS_RHO_G |
_RL rho3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/diags_rho.F |
119 |
DIAGS_RHO_G |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/diags_rho.F |
120 |
DIAGS_RHO_G |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/diags_rho.F |
141 |
DIAGS_RHO_G |
& 0, Nr, 0, 1, 1, myThid ) |
|
./model/src/diags_rho.F |
144 |
DIAGS_RHO_G |
& 'RHOANOSQ', 0, Nr, 0, 1, 1, myThid ) |
|
./model/src/diags_rho.F |
149 |
DIAGS_RHO_G |
DO k=1,Nr |
|
./model/src/diags_rho.F |
166 |
DIAGS_RHO_G |
DO k=1,Nr |
|
./model/src/diags_rho.F |
50 |
DIAGS_RHO_L |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rw/write_fld_s3d_rl.F |
51 |
WRITE_FLD_S3D_RL |
PARAMETER ( kSiz = Nr ) |
|
./pkg/rw/write_fld_s3d_rs.F |
51 |
WRITE_FLD_S3D_RS |
PARAMETER ( kSiz = Nr ) |
|
./pkg/rw/write_fld_xyz_rl.F |
16 |
WRITE_FLD_XYZ_RL |
_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/rw/write_fld_xyz_rl.F |
48 |
WRITE_FLD_XYZ_RL |
nNz=Nr |
|
./pkg/rw/write_fld_xyz_rs.F |
16 |
WRITE_FLD_XYZ_RS |
_RS field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/rw/write_fld_xyz_rs.F |
48 |
WRITE_FLD_XYZ_RS |
nNz=Nr |
|
./pkg/rw/write_rec.F |
229 |
WRITE_REC_XYZ_RS |
_RS field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/rw/write_rec.F |
261 |
WRITE_REC_XYZ_RS |
nNz=Nr |
|
./pkg/rw/write_rec.F |
293 |
WRITE_REC_XYZ_RL |
_RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/rw/write_rec.F |
325 |
WRITE_REC_XYZ_RL |
nNz=Nr |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
104 |
SALT_PLUME_CALC_DEPTH |
DO k=2,Nr |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
40 |
SALT_PLUME_CALC_DEPTH |
_RL sigmaR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
75 |
SALT_PLUME_CALC_DEPTH |
DO k = 2,Nr |
|
./model/src/do_fields_blocking_exchanges.F |
71 |
DO_FIELDS_BLOCKING_EXCHANGES |
I Nr, bi, bj, myThid ) |
|
./model/src/do_fields_blocking_exchanges.F |
73 |
DO_FIELDS_BLOCKING_EXCHANGES |
I Nr, bi, bj, myThid ) |
|
./model/src/do_fields_blocking_exchanges.F |
85 |
DO_FIELDS_BLOCKING_EXCHANGES |
CALL EXCH_UV_DGRID_3D_RL( uVelD,vVelD, .TRUE., Nr, myThid ) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
52 |
SALT_PLUME_FORCING_SURF |
ks = Nr |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
56 |
SALT_PLUME_TENDENCY_APPLY_S |
IF (klev.EQ.Nr) THEN |
|
./pkg/sbo/sbo_calc.F |
199 |
SBO_CALC |
DO k = 0, Nr |
|
./model/src/do_oceanic_phys.F |
100 |
DO_OCEANIC_PHYS |
_RL sigmaX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/do_oceanic_phys.F |
101 |
DO_OCEANIC_PHYS |
_RL sigmaY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/do_oceanic_phys.F |
102 |
DO_OCEANIC_PHYS |
_RL sigmaR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/do_oceanic_phys.F |
139 |
DO_OCEANIC_PHYS |
DO K=1,Nr |
|
./model/src/do_oceanic_phys.F |
376 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
448 |
DO_OCEANIC_PHYS |
DO k=Nr,1,-1 |
|
./model/src/do_oceanic_phys.F |
455 |
DO_OCEANIC_PHYS |
kkey = (itdkey-1)*Nr + k |
|
./model/src/do_oceanic_phys.F |
536 |
DO_OCEANIC_PHYS |
CALL ZERO_ADJ_LOC( Nr, sigmaX, myThid) |
|
./model/src/do_oceanic_phys.F |
537 |
DO_OCEANIC_PHYS |
CALL ZERO_ADJ_LOC( Nr, sigmaY, myThid) |
|
./model/src/do_oceanic_phys.F |
538 |
DO_OCEANIC_PHYS |
CALL ZERO_ADJ_LOC( Nr, sigmaR, myThid) |
|
./model/src/do_oceanic_phys.F |
590 |
DO_OCEANIC_PHYS |
CALL DIAGNOSTICS_FILL (sigmaR, 'DRHODR ', 0, Nr, |
|
./model/src/do_oceanic_phys.F |
713 |
DO_OCEANIC_PHYS |
I Nr, deltaTclock, bi, bj, myThid) |
|
./model/src/do_oceanic_phys.F |
798 |
DO_OCEANIC_PHYS |
& 0, Nr, 0, 1, 1, myThid ) |
|
./pkg/seaice/seaice_advection.F |
227 |
SEAICE_ADVECTION |
kkey = (igadkey-1)*Nr + k |
|
./pkg/seaice/seaice_advection.F |
267 |
SEAICE_ADVECTION |
& + (igadkey-1)*maxcube*Nr |
|
./model/src/do_the_model_io.F |
60 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
62 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
64 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
|
./pkg/seaice/seaice_growth.F |
205 |
SEAICE_GROWTH |
kSurface = Nr |
|
./pkg/seaice/seaice_growth_if.F |
163 |
SEAICE_GROWTH_IF |
kSurface = Nr |
|
./pkg/seaice/seaice_init_fixed.F |
49 |
SEAICE_INIT_FIXED |
kSurface = Nr |
|
./pkg/seaice/seaice_init_varia.F |
59 |
SEAICE_INIT_VARIA |
kSurface = Nr |
|
./model/src/dynamics.F |
189 |
DYNAMICS |
_RL KappaRU (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/dynamics.F |
190 |
DYNAMICS |
_RL KappaRV (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/dynamics.F |
304 |
DYNAMICS |
DO k=1,Nr |
|
./model/src/dynamics.F |
384 |
DYNAMICS |
DO k=1,Nr |
|
./model/src/dynamics.F |
402 |
DYNAMICS |
DO k=1,Nr |
|
./model/src/dynamics.F |
409 |
DYNAMICS |
kp1 = MIN(k+1,Nr) |
|
./model/src/dynamics.F |
414 |
DYNAMICS |
kkey = (idynkey-1)*Nr + k |
|
./model/src/dynamics.F |
678 |
DYNAMICS |
CALL DIAGNOSTICS_FILL(totPhihyd,'PHIHYD ',0,Nr,0,1,1,myThid) |
|
./model/src/dynamics.F |
683 |
DYNAMICS |
& 'PHIHYDSQ',0,Nr,0,1,1,myThid) |
|
./model/src/dynamics.F |
694 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
695 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
696 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
697 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,theta,'Theta (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
698 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,salt,'Salt (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
699 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gU,'Gu (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
700 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gV,'Gv (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
701 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gT,'Gt (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
702 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gS,'Gs (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
704 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,guNm1,'GuNm1 (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
705 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gvNm1,'GvNm1 (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
706 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gtNm1,'GtNm1 (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
707 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gsNm1,'GsNm1 (DYNAMICS)',myThid) |
|
./pkg/shap_filt/SHAP_FILT.h |
56 |
NO PROCEDURE |
_RL Shap_tmpFld1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/SHAP_FILT.h |
57 |
NO PROCEDURE |
_RL Shap_tmpFld2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
123 |
SHAP_FILT_APPLY_TS |
CALL DIAGNOSTICS_FILL(Shap_tmpFld1,'SHAP_dT ',0,Nr, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
134 |
SHAP_FILT_APPLY_TS |
I nShapS, Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
139 |
SHAP_FILT_APPLY_TS |
I nShapS, exchInOut, Nr, myTime, myIter, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
143 |
SHAP_FILT_APPLY_TS |
I nShapS, Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
168 |
SHAP_FILT_APPLY_TS |
CALL DIAGNOSTICS_FILL(Shap_tmpFld1,'SHAP_dS ',0,Nr, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
38 |
SHAP_FILT_APPLY_TS |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
39 |
SHAP_FILT_APPLY_TS |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
71 |
SHAP_FILT_APPLY_TS |
DO k=1, Nr |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
89 |
SHAP_FILT_APPLY_TS |
I nShapT, Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
94 |
SHAP_FILT_APPLY_TS |
I nShapT, exchInOut, Nr, myTime, myIter, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
98 |
SHAP_FILT_APPLY_TS |
I nShapT, Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
104 |
SHAP_FILT_APPLY_UV |
I Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
127 |
SHAP_FILT_APPLY_UV |
CALL DIAGNOSTICS_FILL(Shap_tmpFld1,'SHAP_dU ',0,Nr, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
129 |
SHAP_FILT_APPLY_UV |
CALL DIAGNOSTICS_FILL(Shap_tmpFld2,'SHAP_dV ',0,Nr, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
134 |
SHAP_FILT_APPLY_UV |
DO k=1,Nr |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
39 |
SHAP_FILT_APPLY_UV |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
40 |
SHAP_FILT_APPLY_UV |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
74 |
SHAP_FILT_APPLY_UV |
DO k=1, Nr |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
88 |
SHAP_FILT_APPLY_UV |
I Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
92 |
SHAP_FILT_APPLY_UV |
I Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
96 |
SHAP_FILT_APPLY_UV |
I Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
126 |
SHAP_FILT_TRACER_S1 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
172 |
SHAP_FILT_TRACER_S1 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
73 |
SHAP_FILT_TRACER_S1 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
231 |
SHAP_FILT_TRACER_S2 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
97 |
SHAP_FILT_TRACER_S2 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
170 |
SHAP_FILT_TRACER_S4 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
72 |
SHAP_FILT_TRACER_S4 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_tracerold.F |
27 |
SHAP_FILT_TRACEROLD |
_RL field(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_u.F |
22 |
SHAP_FILT_U |
_RL uVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
162 |
SHAP_FILT_UV_S1 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
282 |
SHAP_FILT_UV_S1 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
85 |
SHAP_FILT_UV_S1 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
216 |
SHAP_FILT_UV_S2C |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
86 |
SHAP_FILT_UV_S2C |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
159 |
SHAP_FILT_UV_S4 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
284 |
SHAP_FILT_UV_S4 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
84 |
SHAP_FILT_UV_S4 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_v.F |
22 |
SHAP_FILT_V |
_RL vVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/external_forcing.F |
160 |
EXTERNAL_FORCING_V |
kSurface = Nr |
|
./model/src/external_forcing.F |
272 |
EXTERNAL_FORCING_T |
kSurface = Nr |
|
./model/src/external_forcing.F |
364 |
EXTERNAL_FORCING_T |
IF (klev.EQ.Nr) THEN |
|
./model/src/external_forcing.F |
456 |
EXTERNAL_FORCING_S |
kSurface = Nr |
|
./model/src/external_forcing.F |
56 |
EXTERNAL_FORCING_U |
kSurface = Nr |
|
./pkg/shelfice/shelfice_forcing.F |
156 |
SHELFICE_FORCING_S |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
157 |
SHELFICE_FORCING_S |
kp1 = MIN(kLev+1,Nr) |
|
./pkg/shelfice/shelfice_forcing.F |
64 |
SHELFICE_FORCING_T |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
65 |
SHELFICE_FORCING_T |
kp1 = MIN(kLev+1,Nr) |
|
./pkg/shelfice/shelfice_init_fixed.F |
58 |
SHELFICE_INIT_FIXED |
DO K = Nr, 1, -1 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
131 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. K .LT. Nr ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
132 |
SHELFICE_THERMODYNAMICS |
Kp1 = MIN(Nr,K+1) |
|
./model/src/external_forcing_surf.F |
69 |
EXTERNAL_FORCING_SURF |
ks = Nr |
|
./pkg/shelfice/shelfice_u_drag.F |
42 |
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 |
|
./pkg/shelfice/shelfice_update_masks.F |
37 |
SHELFICE_UPDATE_MASKS |
_RS rF (1:Nr+1) |
|
./pkg/shelfice/shelfice_update_masks.F |
38 |
SHELFICE_UPDATE_MASKS |
_RS recip_drF (1:Nr) |
|
./pkg/shelfice/shelfice_update_masks.F |
39 |
SHELFICE_UPDATE_MASKS |
_RS hFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
|
./pkg/shelfice/shelfice_update_masks.F |
86 |
SHELFICE_UPDATE_MASKS |
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 |
64 |
SHELFICE_V_DRAG |
kTop = Nr |
|
./pkg/smooth/SMOOTH.h |
28 |
NO PROCEDURE |
& smooth3D_Lx(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
29 |
NO PROCEDURE |
& smooth3D_Ly(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
30 |
NO PROCEDURE |
& smooth3D_Lz(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
31 |
NO PROCEDURE |
& smooth3Dnorm (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/SMOOTH.h |
43 |
NO PROCEDURE |
& smooth3D_kappaR (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
44 |
NO PROCEDURE |
& smooth3D_Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
45 |
NO PROCEDURE |
& smooth3D_Kwy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
46 |
NO PROCEDURE |
& smooth3D_Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
47 |
NO PROCEDURE |
& smooth3D_Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
48 |
NO PROCEDURE |
& smooth3D_Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
49 |
NO PROCEDURE |
& smooth3D_Kuz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
50 |
NO PROCEDURE |
& smooth3D_Kvz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
51 |
NO PROCEDURE |
& smooth3D_Kuy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
52 |
NO PROCEDURE |
& smooth3D_Kvx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_correl3d.F |
44 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kwx,1, 1, myThid ) |
|
./pkg/smooth/smooth_correl3d.F |
46 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kwy,2, 1, myThid ) |
|
./pkg/smooth/smooth_correl3d.F |
48 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kwz,3, 1, myThid ) |
|
./pkg/smooth/smooth_correl3d.F |
50 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kux,4, 1, myThid ) |
|
./pkg/smooth/smooth_correl3d.F |
52 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kvy,5, 1, myThid ) |
|
./pkg/smooth/smooth_correl3d.F |
54 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kuz,6, 1, myThid ) |
|
./pkg/smooth/smooth_correl3d.F |
56 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kvz,7, 1, myThid ) |
|
./pkg/smooth/smooth_correl3d.F |
58 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kuy,8, 1, myThid ) |
|
./pkg/smooth/smooth_correl3d.F |
60 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kvx,9, 1, myThid ) |
|
./pkg/smooth/smooth_correl3d.F |
62 |
SMOOTH_CORREL3D |
& Nr,smooth3D_kappaR,10, 1, myThid ) |
|
./pkg/smooth/smooth_correl3d.F |
78 |
SMOOTH_CORREL3D |
& Nr, smooth3Dnorm,1,1,mythid) |
|
./pkg/smooth/smooth_correl3d.F |
84 |
SMOOTH_CORREL3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
121 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
140 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
147 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
33 |
SMOOTH_DIFF3D |
_RL fld_in(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_diff3d.F |
34 |
SMOOTH_DIFF3D |
_RL fld_tmp(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_diff3d.F |
35 |
SMOOTH_DIFF3D |
_RL gT_in(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_diff3d.F |
36 |
SMOOTH_DIFF3D |
_RL gTm1_in(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_diff3d.F |
58 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
118 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
126 |
SMOOTH_FILTERVAR3D |
DO k=kk,Nr,dkLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
149 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
171 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr,dkLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
194 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
216 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
240 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
258 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
279 |
SMOOTH_FILTERVAR3D |
& Nr, smooth3Dnorm, 1, 1, myThid ) |
|
./pkg/smooth/smooth_filtervar3d.F |
32 |
SMOOTH_FILTERVAR3D |
_RL smoothTmpFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_filtervar3d.F |
33 |
SMOOTH_FILTERVAR3D |
_RL smoothTmpMean(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_filtervar3d.F |
34 |
SMOOTH_FILTERVAR3D |
_RL smoothTmpVar(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_filtervar3d.F |
54 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kwx, |
|
./pkg/smooth/smooth_filtervar3d.F |
56 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kwy, |
|
./pkg/smooth/smooth_filtervar3d.F |
58 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kwz, |
|
./pkg/smooth/smooth_filtervar3d.F |
60 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kux, |
|
./pkg/smooth/smooth_filtervar3d.F |
62 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kvy, |
|
./pkg/smooth/smooth_filtervar3d.F |
64 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kuz, |
|
./pkg/smooth/smooth_filtervar3d.F |
66 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kvz, |
|
./pkg/smooth/smooth_filtervar3d.F |
68 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kuy, |
|
./pkg/smooth/smooth_filtervar3d.F |
70 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kvx, |
|
./pkg/smooth/smooth_filtervar3d.F |
72 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_kappaR, |
|
./pkg/smooth/smooth_filtervar3d.F |
88 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
104 |
SMOOTH_IMPLDIFF |
c(i,j,Nr) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
109 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
118 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
128 |
SMOOTH_IMPLDIFF |
IF (Nr.GT.1) THEN |
|
./pkg/smooth/smooth_impldiff.F |
141 |
SMOOTH_IMPLDIFF |
IF (Nr.GE.2) THEN |
|
./pkg/smooth/smooth_impldiff.F |
144 |
SMOOTH_IMPLDIFF |
DO k=2,Nr |
|
./pkg/smooth/smooth_impldiff.F |
164 |
SMOOTH_IMPLDIFF |
DO k=2,Nr |
|
./pkg/smooth/smooth_impldiff.F |
176 |
SMOOTH_IMPLDIFF |
DO k=Nr-1,1,-1 |
|
./pkg/smooth/smooth_impldiff.F |
185 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
44 |
SMOOTH_IMPLDIFF |
_RL KappaRX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
45 |
SMOOTH_IMPLDIFF |
_RS recip_hFac(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_impldiff.F |
46 |
SMOOTH_IMPLDIFF |
_RL gXnm1(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_impldiff.F |
53 |
SMOOTH_IMPLDIFF |
_RL gYnm1(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_impldiff.F |
54 |
SMOOTH_IMPLDIFF |
_RL a(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
55 |
SMOOTH_IMPLDIFF |
_RL b(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
56 |
SMOOTH_IMPLDIFF |
_RL c(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
57 |
SMOOTH_IMPLDIFF |
_RL bet(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
58 |
SMOOTH_IMPLDIFF |
_RL gam(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
64 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
78 |
SMOOTH_IMPLDIFF |
DO k=2,Nr |
|
./pkg/smooth/smooth_impldiff.F |
91 |
SMOOTH_IMPLDIFF |
DO k=1,Nr-1 |
|
./pkg/smooth/smooth_init3d.F |
120 |
SMOOTH_INIT3D |
& Nr, smooth3D_Lx,1,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
122 |
SMOOTH_INIT3D |
& Nr, smooth3D_Ly,2,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
128 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
142 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
182 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kwx,1,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
184 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kwy,2,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
186 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kwz,3,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
188 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kux,4,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
190 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kvy,5,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
192 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kuz,6,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
194 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kvz,7,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
196 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kuy,8,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
198 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kvx,9,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
200 |
SMOOTH_INIT3D |
& Nr,smooth3D_kappaR,10,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
62 |
SMOOTH_INIT3D |
& Nr, smooth3D_Lz,1,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
67 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
80 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
95 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_rhs.F |
135 |
SMOOTH_RHS |
& +0.5*recip_drC(MIN(k+1,Nr))* |
|
./pkg/smooth/smooth_rhs.F |
136 |
SMOOTH_RHS |
& ( maskC(i-1,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
137 |
SMOOTH_RHS |
& (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
138 |
SMOOTH_RHS |
& +maskC( i ,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
139 |
SMOOTH_RHS |
& (fld_in( i ,j,k,bi,bj)-fld_in( i ,j,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
203 |
SMOOTH_RHS |
& +0.5*recip_drC(MIN(k+1,Nr))* |
|
./pkg/smooth/smooth_rhs.F |
204 |
SMOOTH_RHS |
& ( maskC(i,j-1,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
205 |
SMOOTH_RHS |
& (fld_in(i,j-1,k,bi,bj)-fld_in(i,j-1,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
206 |
SMOOTH_RHS |
& +maskC(i, j ,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
207 |
SMOOTH_RHS |
& (fld_in(i, j ,k,bi,bj)-fld_in(i, j ,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
342 |
SMOOTH_RHS |
DO k=1,Nr |
|
./pkg/smooth/smooth_rhs.F |
69 |
SMOOTH_RHS |
_RL fld_in(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_rhs.F |
70 |
SMOOTH_RHS |
_RL gt_in(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_rhs.F |
77 |
SMOOTH_RHS |
DO k=1,Nr |
|
./pkg/smooth/smooth_rhs.F |
95 |
SMOOTH_RHS |
DO k=1,Nr |
|
./model/src/freesurf_rescale_g.F |
33 |
FREESURF_RESCALE_G |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/freeze_surface.F |
46 |
FREEZE_SURFACE |
k = Nr |
|
./model/src/grad_sigma.F |
39 |
GRAD_SIGMA |
_RL sigmaX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/grad_sigma.F |
40 |
GRAD_SIGMA |
_RL sigmaY(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/grad_sigma.F |
41 |
GRAD_SIGMA |
_RL sigmaR(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/timeave/TIMEAVE_STATV.h |
100 |
NO PROCEDURE |
_RL UVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
101 |
NO PROCEDURE |
_RL TdiffRtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
103 |
NO PROCEDURE |
_RL uZetatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
104 |
NO PROCEDURE |
_RL vZetatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
106 |
NO PROCEDURE |
_RL phiHydtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
108 |
NO PROCEDURE |
_RL ConvectCountTave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
120 |
NO PROCEDURE |
_RL hUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
121 |
NO PROCEDURE |
_RL hVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
84 |
NO PROCEDURE |
_RL uVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
85 |
NO PROCEDURE |
_RL vVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
86 |
NO PROCEDURE |
_RL wVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
87 |
NO PROCEDURE |
_RL thetatave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
88 |
NO PROCEDURE |
_RL salttave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
90 |
NO PROCEDURE |
_RL UTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
91 |
NO PROCEDURE |
_RL VTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
92 |
NO PROCEDURE |
_RL WTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
93 |
NO PROCEDURE |
_RL UStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
94 |
NO PROCEDURE |
_RL VStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
95 |
NO PROCEDURE |
_RL WStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
97 |
NO PROCEDURE |
_RL TTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
98 |
NO PROCEDURE |
_RL UUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/timeave/TIMEAVE_STATV.h |
99 |
NO PROCEDURE |
_RL VVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/impldiff.F |
100 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
106 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
130 |
IMPLDIFF |
DO k=2,Nr |
|
./model/src/impldiff.F |
148 |
IMPLDIFF |
DO k=1,Nr-1 |
|
./model/src/impldiff.F |
171 |
IMPLDIFF |
c(i,j,Nr) = 0. _d 0 |
|
./model/src/impldiff.F |
176 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
190 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
205 |
IMPLDIFF |
IF (Nr.GT.1) THEN |
|
./model/src/impldiff.F |
223 |
IMPLDIFF |
IF (Nr.GE.2) THEN |
|
./model/src/impldiff.F |
226 |
IMPLDIFF |
DO k=2,Nr |
|
./model/src/impldiff.F |
256 |
IMPLDIFF |
DO k=2,Nr |
|
./model/src/impldiff.F |
273 |
IMPLDIFF |
DO k=Nr-1,1,-1 |
|
./model/src/impldiff.F |
287 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
318 |
IMPLDIFF |
DO k= 1,Nr |
|
./model/src/impldiff.F |
54 |
IMPLDIFF |
_RL KappaRX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/impldiff.F |
55 |
IMPLDIFF |
_RS recip_hFac(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/impldiff.F |
56 |
IMPLDIFF |
_RL gXnm1(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/impldiff.F |
62 |
IMPLDIFF |
_RL deltaTX(Nr) |
|
./model/src/impldiff.F |
63 |
IMPLDIFF |
_RL gYnm1(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/impldiff.F |
64 |
IMPLDIFF |
_RL a(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/impldiff.F |
65 |
IMPLDIFF |
_RL b(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/impldiff.F |
66 |
IMPLDIFF |
_RL c(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/impldiff.F |
67 |
IMPLDIFF |
_RL bet(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/impldiff.F |
68 |
IMPLDIFF |
_RL gam(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/impldiff.F |
89 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
96 |
IMPLDIFF |
DO k=1,Nr |
|
./pkg/timeave/timeave_statv_write.F |
100 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UUtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
101 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VVtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
102 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UVtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
106 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(hUtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
107 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(hVtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
113 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(TdiffRtave,timeAve_full,Nr, |
|
./pkg/timeave/timeave_statv_write.F |
116 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(uZetatave,timeAve_full,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
117 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(vZetatave,timeAve_full,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
119 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(phiHydtave,timeAve_full,Nr, |
|
./pkg/timeave/timeave_statv_write.F |
123 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(ConvectCountTave,timeAve_full,Nr, |
|
./pkg/timeave/timeave_statv_write.F |
85 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(thetatave,timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
86 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(salttave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
87 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(uVeltave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
88 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(vVeltave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
89 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(wVeltave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
92 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
93 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
94 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(WTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
95 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UStave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
96 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VStave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
97 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(WStave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
99 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(TTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statvars.F |
115 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(thetatave,theta, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
116 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(salttave, salt, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
117 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(uVeltave, uVel, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
118 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(vVeltave, vVel, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
119 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(wVeltave, wVel, Nr, DDTT, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
124 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(TTtave, theta,theta, Nr, 0, |
|
./pkg/timeave/timeave_statvars.F |
126 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(UUtave, uVel, uVel, Nr, 0, |
|
./pkg/timeave/timeave_statvars.F |
128 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(VVtave, vVel, vVel, Nr, 0, |
|
./pkg/timeave/timeave_statvars.F |
130 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(UVtave, uVel, vVel, Nr, 12, |
|
./pkg/timeave/timeave_statvars.F |
134 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(WTtave, theta, wVel, Nr, 3, |
|
./pkg/timeave/timeave_statvars.F |
136 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2V(WStave, salt, wVel, Nr, 3, |
|
./pkg/timeave/timeave_statvars.F |
146 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_1VFC(hUtave, uVel, hFacW, Nr, |
|
./pkg/timeave/timeave_statvars.F |
148 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_1VFC(hVtave, vVel, hFacS, Nr, |
|
./pkg/timeave/timeave_statvars.F |
154 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(UTtave, theta, uVel, hFacW, Nr, 1, |
|
./pkg/timeave/timeave_statvars.F |
156 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(VTtave, theta, vVel, hFacS, Nr, 2, |
|
./pkg/timeave/timeave_statvars.F |
158 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(UStave, salt, uVel, hFacW, Nr, 1, |
|
./pkg/timeave/timeave_statvars.F |
160 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMUL_2VFC(VStave, salt, vVel, hFacS, Nr, 2, |
|
./pkg/timeave/timeave_statvars.F |
187 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(phiHydtave, totPhihyd, Nr, |
|
./pkg/timeave/timeave_statvars.F |
58 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(thetatave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
59 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(salttave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
60 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(uVeltave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
61 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(vVeltave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
62 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(wVeltave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
64 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(UTtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
65 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(VTtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
66 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(WTtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
67 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(UStave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
68 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(VStave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
69 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(WStave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
71 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(TTtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
72 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(UUtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
73 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(VVtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
74 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(UVtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
76 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(TdiffRtave,Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
78 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(uZetatave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
79 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(vZetatave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
81 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(phiHydtave,Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
83 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(ConvectCountTave,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statvars.F |
85 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(hUtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_statvars.F |
86 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(hVtave, Nr, bi, bj, myThid) |
|
./pkg/timeave/timeave_surf_flux.F |
41 |
TIMEAVE_SURF_FLUX |
k=Nr |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
30 |
ZONAL_FILT_APPLY_TS |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
31 |
ZONAL_FILT_APPLY_TS |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
46 |
ZONAL_FILT_APPLY_TS |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
50 |
ZONAL_FILT_APPLY_TS |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
30 |
ZONAL_FILT_APPLY_UV |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
31 |
ZONAL_FILT_APPLY_UV |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
47 |
ZONAL_FILT_APPLY_UV |
DO k=1,Nr |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
71 |
ZONAL_FILT_APPLY_UV |
I 0, sNy+1, Nr, bi, bj, 1, myThid ) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
78 |
ZONAL_FILT_APPLY_UV |
I 0, sNy+1, Nr, bi, bj, 2, myThid ) |
|
./model/src/ini_cg2d.F |
98 |
INI_CG2D |
DO k=1,Nr |
|
./verification/MLAdjust/code/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/MLAdjust/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numdiags = 50*Nr ) |
|
./verification/MLAdjust/code/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/MLAdjust/code/SIZE.h |
44 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/MLAdjust/code/SIZE.h |
56 |
NO PROCEDURE |
& Nr = 40) |
|
./verification/OpenAD/code_ad/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/OpenAD/code_ad/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./model/src/ini_cg3d.F |
111 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
139 |
INI_CG3D |
DO k=2,Nr |
|
./model/src/ini_cg3d.F |
162 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
222 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
230 |
INI_CG3D |
IF ( k .NE. Nr ) THEN |
|
./model/src/ini_cg3d.F |
251 |
INI_CG3D |
IF ( ks.LE.Nr ) THEN |
|
./model/src/ini_cg3d.F |
261 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
290 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
296 |
INI_CG3D |
IF ( k.NE.Nr ) THEN |
|
./model/src/ini_cg3d.F |
321 |
INI_CG3D |
DO k=2,Nr |
|
./model/src/ini_cg3d.F |
330 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
66 |
INI_CG3D |
DO k=1,Nr |
|
./verification/OpenAD/code_ad_singlelayer/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/OpenAD/code_ad_singlelayer/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/OpenAD/code_oad/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/OpenAD/code_oad/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/OpenAD/code_oad_all/cost_dependent_init.F |
68 |
COST_DEPENDENT_INIT |
do k=1,4*Nr |
|
./verification/OpenAD/code_oad_all/cost_dependent_init.F |
71 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
111 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
119 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
133 |
GAD_IMPLICIT_R |
DO k=2,Nr |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
143 |
GAD_IMPLICIT_R |
DO k=1,Nr-1 |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
153 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
166 |
GAD_IMPLICIT_R |
DO k=Nr,1,-1 |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
169 |
GAD_IMPLICIT_R |
IF (k.EQ.Nr) THEN |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
218 |
GAD_IMPLICIT_R |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.K.LT.Nr) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
299 |
GAD_IMPLICIT_R |
DO k= 1,Nr |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
42 |
GAD_IMPLICIT_R |
_RL kappaRX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
43 |
GAD_IMPLICIT_R |
_RL wVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
44 |
GAD_IMPLICIT_R |
_RL tracer (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
45 |
GAD_IMPLICIT_R |
_RL gTracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
67 |
GAD_IMPLICIT_R |
_RL a5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
68 |
GAD_IMPLICIT_R |
_RL b5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
69 |
GAD_IMPLICIT_R |
_RL c5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
70 |
GAD_IMPLICIT_R |
_RL d5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
71 |
GAD_IMPLICIT_R |
_RL e5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
75 |
GAD_IMPLICIT_R |
_RL localTijk(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
87 |
GAD_IMPLICIT_R |
IF (Nr.GT.1) THEN |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
94 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
272 |
GRDCHK_MAIN |
do k=1,4*Nr+1 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
111 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
140 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./verification/adjustment.128x64x1/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/adjustment.128x64x1/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/adjustment.cs-32x32x1/code/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/adjustment.cs-32x32x1/code/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/adjustment.cs-32x32x1/code_min/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/adjustment.cs-32x32x1/code_min/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/advect_cs/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/advect_cs/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 10*Nr ) |
|
./verification/advect_cs/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*Nr ) |
|
./model/src/ini_depths.F |
101 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./model/src/ini_depths.F |
244 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./verification/advect_cs/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/advect_cs/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/advect_cs/code/ini_vel.F |
54 |
INI_VEL |
DO k=1,Nr |
|
./verification/advect_cs/code/ini_vel.F |
83 |
INI_VEL |
DO k=1,Nr |
|
./verification/advect_xy/code/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/advect_xy/code/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/advect_xy/code/ini_salt.F |
129 |
INI_SALT |
& Nr, 1, myThid ) |
|
./verification/advect_xy/code/ini_salt.F |
55 |
INI_SALT |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_salt.F |
86 |
INI_SALT |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_theta.F |
136 |
INI_THETA |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_theta.F |
151 |
INI_THETA |
& Nr, 1, myThid ) |
|
./verification/advect_xy/code/ini_theta.F |
56 |
INI_THETA |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_theta.F |
90 |
INI_THETA |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_vel.F |
48 |
INI_VEL |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_vel.F |
73 |
INI_VEL |
DO k=1,Nr |
|
./verification/advect_xz/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/advect_xz/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 20) |
|
./model/src/ini_dynvars.F |
47 |
INI_DYNVARS |
DO K=1,Nr |
|
./verification/aim.5l_Equatorial_Channel/code/SIZE.h |
44 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/aim.5l_Equatorial_Channel/code/SIZE.h |
56 |
NO PROCEDURE |
& Nr = 5) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
101 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
241 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
244 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_LatLon/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/aim.5l_LatLon/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 5) |
|
./verification/aim.5l_cs/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/aim.5l_cs/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numdiags = 40*Nr ) |
|
./verification/aim.5l_cs/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*Nr ) |
|
./verification/aim.5l_cs/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/aim.5l_cs/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 5) |
|
./model/src/ini_eos.F |
79 |
INI_EOS |
IF (k.NE.Nr) THEN |
|
./model/src/ini_eos.F |
88 |
INI_EOS |
READ(37,*) (eosRefT(k),eosRefS(k),eosSig0(k),k=1,Nr) |
|
./model/src/ini_eos.F |
89 |
INI_EOS |
DO k=1,Nr |
|
./verification/bottom_ctrl_5x5/code_ad/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/bottom_ctrl_5x5/code_ad/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 4) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
59 |
COST_TEST |
DO K=1,Nr |
|
./verification/cfc_example/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/cfc_example/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/cpl_aim+ocn/code_atm/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/cpl_aim+ocn/code_atm/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 5) |
|
./verification/cpl_aim+ocn/code_ocn/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/cpl_aim+ocn/code_ocn/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/cpl_atm2d+ocn/code_atmice/SIZE.h |
44 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/cpl_atm2d+ocn/code_atmice/SIZE.h |
56 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/cpl_atm2d+ocn/code_ocn/SIZE.h |
44 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/cpl_atm2d+ocn/code_ocn/SIZE.h |
56 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/deep_anelastic/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/deep_anelastic/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numdiags = 10*Nr ) |
|
./verification/deep_anelastic/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/deep_anelastic/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/deep_anelastic/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 120) |
|
./model/src/ini_hfac.F |
40 |
INI_HFAC |
DO K=1, Nr |
|
./verification/dome/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/dome/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 25) |
|
./verification/dome/code/obcs_calc.F |
129 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/dome/code/obcs_calc.F |
148 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/dome/code/obcs_calc.F |
209 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/dome/code/obcs_calc.F |
29 |
OBCS_CALC |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/dome/code/obcs_calc.F |
30 |
OBCS_CALC |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/dome/code/obcs_calc.F |
31 |
OBCS_CALC |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/dome/code/obcs_calc.F |
32 |
OBCS_CALC |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/dome/code/obcs_calc.F |
33 |
OBCS_CALC |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/dome/code/obcs_calc.F |
97 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/exp2/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/exp2/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 20) |
|
./verification/exp4/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/exp4/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 8) |
|
./verification/fizhi-cs-32x32x40/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/fizhi-cs-32x32x40/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 40) |
|
./model/src/ini_linear_phisurf.F |
173 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
201 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./verification/fizhi-cs-aqualev20/code/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/fizhi-cs-aqualev20/code/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 1000*Nr ) |
|
./verification/fizhi-cs-aqualev20/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/fizhi-cs-aqualev20/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 20) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
104 |
INI_SALT |
DO K=1,Nr-1 |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
125 |
INI_SALT |
DO K=1,Nr |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
146 |
INI_SALT |
CALL PLOT_FIELD_XYZRL( salt, 'Initial Salinity' , Nr, 1, myThid ) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
50 |
INI_SALT |
_RL pedyn(Nr+1), pdyn(Nr), pkappa(Nr) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
53 |
INI_SALT |
_RL temperature(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
54 |
INI_SALT |
_RL rhum(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
55 |
INI_SALT |
_RL qstar(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
60 |
INI_SALT |
do K = 2,Nr+1 |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
63 |
INI_SALT |
do K = 1,Nr |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
67 |
INI_SALT |
do K = 1,Nr |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
73 |
INI_SALT |
DO K=1,Nr |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
86 |
INI_SALT |
DO K=1,Nr |
|
./model/src/ini_masks_etc.F |
119 |
INI_MASKS_ETC |
DO k=Nr,1,-1 |
|
./model/src/ini_masks_etc.F |
133 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
178 |
INI_MASKS_ETC |
kSurfC(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
181 |
INI_MASKS_ETC |
DO k=Nr,1,-1 |
|
./model/src/ini_masks_etc.F |
191 |
INI_MASKS_ETC |
DO k= 1, Nr |
|
./model/src/ini_masks_etc.F |
197 |
INI_MASKS_ETC |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) maskInC(i,j,bi,bj)= 1. |
|
./model/src/ini_masks_etc.F |
235 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
292 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
308 |
INI_MASKS_ETC |
kSurfW(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
309 |
INI_MASKS_ETC |
kSurfS(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
310 |
INI_MASKS_ETC |
DO k=Nr,1,-1 |
|
./model/src/ini_masks_etc.F |
315 |
INI_MASKS_ETC |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) maskInW(i,j,bi,bj)= 1. |
|
./model/src/ini_masks_etc.F |
317 |
INI_MASKS_ETC |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) maskInS(i,j,bi,bj)= 1. |
|
./model/src/ini_masks_etc.F |
340 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacC, 'hFacC' , Nr, 1, myThid ) |
|
./model/src/ini_masks_etc.F |
341 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacW, 'hFacW' , Nr, 1, myThid ) |
|
./model/src/ini_masks_etc.F |
342 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacS, 'hFacS' , Nr, 1, myThid ) |
|
./model/src/ini_masks_etc.F |
348 |
INI_MASKS_ETC |
DO k=1,Nr |
|
./model/src/ini_masks_etc.F |
93 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./verification/fizhi-gridalt-hs/code/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/fizhi-gridalt-hs/code/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/fizhi-gridalt-hs/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/fizhi-gridalt-hs/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 10) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
102 |
FIZHI_INIT_VARS |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
103 |
FIZHI_INIT_VARS |
. pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
135 |
FIZHI_INIT_VARS |
call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
142 |
FIZHI_INIT_VARS |
call DYN2PHYS(udyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
153 |
FIZHI_INIT_VARS |
call DYN2PHYS(vdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
162 |
FIZHI_INIT_VARS |
call DYN2PHYS(theta,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
172 |
FIZHI_INIT_VARS |
call DYN2PHYS(salt,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
195 |
FIZHI_INIT_VARS |
do L = 1,Nr |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
42 |
FIZHI_INIT_VARS |
_RL pedyn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
44 |
FIZHI_INIT_VARS |
_RL udyntemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
45 |
FIZHI_INIT_VARS |
_RL vdyntemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
82 |
FIZHI_INIT_VARS |
do L = 1,Nr |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
97 |
FIZHI_INIT_VARS |
do L = Lbotij+1,Nr+1 |
|
./model/src/ini_mixing.F |
49 |
INI_MIXING |
DO k=1,Nr |
|
./verification/flt_example/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/flt_example/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 8) |
|
./verification/flt_example/extra/cvprofiles.F |
150 |
NO PROCEDURE |
imax=(6+4*Nr) |
|
./verification/flt_example/extra/cvprofiles.F |
179 |
NO PROCEDURE |
allocate (Dep_t(Nr)) |
|
./verification/flt_example/extra/cvprofiles.F |
180 |
NO PROCEDURE |
allocate (Dep_w(Nr+1)) |
|
./verification/flt_example/extra/cvprofiles.F |
181 |
NO PROCEDURE |
allocate (Dep_wm1(Nr)) |
|
./verification/flt_example/extra/cvprofiles.F |
185 |
NO PROCEDURE |
allocate (temp(npart,Nr,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
187 |
NO PROCEDURE |
allocate (uvel(npart,Nr,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
188 |
NO PROCEDURE |
allocate (vvel(npart,Nr,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
189 |
NO PROCEDURE |
allocate (salt(npart,Nr,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
200 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
215 |
NO PROCEDURE |
do k=2,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
225 |
NO PROCEDURE |
do k=2,Nr+1 |
|
./verification/flt_example/extra/cvprofiles.F |
227 |
NO PROCEDURE |
if (k .ne. Nr+1) Dep_wm1(k) = Dep_w(k) |
|
./verification/flt_example/extra/cvprofiles.F |
230 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
288 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
290 |
NO PROCEDURE |
if (.not. preflag) vvel(ip,k,np) = SNGL(tmp(6+1*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
291 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+2*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
292 |
NO PROCEDURE |
if (.not. preflag) salt(ip,k,np) = SNGL(tmp(6+3*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
334 |
NO PROCEDURE |
Dep_tdim = ncddef(ncid, 'Depth_t', Nr, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
335 |
NO PROCEDURE |
Dep_wm1dim= ncddef(ncid, 'Depth_wm1', Nr, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
336 |
NO PROCEDURE |
Dep_wdim = ncddef(ncid, 'Depth_w', Nr+1, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
507 |
NO PROCEDURE |
edges(1) = Nr |
|
./verification/flt_example/extra/cvprofiles.F |
511 |
NO PROCEDURE |
edges(1) = Nr+1 |
|
./verification/flt_example/extra/cvprofiles.F |
515 |
NO PROCEDURE |
edges(1) = Nr |
|
./verification/flt_example/extra/cvprofiles.F |
535 |
NO PROCEDURE |
edges(2) = Nr |
|
./verification/flt_example/extra/cvprofiles.F |
558 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
559 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+3*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
560 |
NO PROCEDURE |
if (SNGL(tmp(6+2*Nr+k)) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
588 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
590 |
NO PROCEDURE |
if (SNGL(tmp(6+2*Nr+k)) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
618 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
619 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+1*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
620 |
NO PROCEDURE |
if (SNGL(tmp(6+2*Nr+k)) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
86 |
NO PROCEDURE |
namelist //coord Nr, delZ |
|
./verification/front_relax/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/front_relax/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numdiags = 20*Nr ) |
|
./verification/front_relax/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*Nr ) |
|
./verification/front_relax/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/front_relax/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 25) |
|
./verification/front_relax/code_ad/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/front_relax/code_ad/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/global1x1_tot/code/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 40, numperlist = 10, numLevels=2*Nr ) |
|
./verification/global1x1_tot/code/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./model/src/ini_model_io.F |
205 |
INI_MODEL_IO |
& Nr,myThid ) |
|
./verification/global1x1_tot/code/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global1x1_tot/code/SIZE.h |
52 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
142 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
162 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
316 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( salt0errfile, 32, 'RL', Nr, |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
355 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( temp0errfile, 32, 'RL', Nr, |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
397 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( salterrfile, 32, 'RL', Nr, wsalt2, 1, |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
441 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( temperrfile, 32, 'RL', Nr, wtheta2, 1, |
|
./verification/global1x1_tot/code_bulk_adj/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 50, numperlist = 50, numLevels=2*Nr ) |
|
./verification/global1x1_tot/code_bulk_adj/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./model/src/ini_nh_fields.F |
100 |
INI_NH_FIELDS |
DO k=1,Nr |
|
./model/src/ini_nh_fields.F |
126 |
INI_NH_FIELDS |
DO k = 1,Nr |
|
./model/src/ini_nh_fields.F |
85 |
INI_NH_FIELDS |
IF ( ks.LE.Nr ) THEN |
|
./verification/global1x1_tot/code_bulk_adj/SIZE.h |
36 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global1x1_tot/code_bulk_adj/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/global1x1_tot/code_seaice_adj/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 40, numperlist = 10, numLevels=2*Nr ) |
|
./verification/global1x1_tot/code_seaice_adj/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./model/src/ini_nh_vars.F |
51 |
INI_NH_VARS |
DO k=1,Nr |
|
./verification/global1x1_tot/code_seaice_adj/SIZE.h |
36 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global1x1_tot/code_seaice_adj/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/global1x1_tot/code_taueddy/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 40, numperlist = 10, numLevels=2*Nr ) |
|
./verification/global1x1_tot/code_taueddy/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./model/src/ini_nlfs_vars.F |
105 |
INI_NLFS_VARS |
IF (ks.LE.Nr) THEN |
|
./model/src/ini_nlfs_vars.F |
82 |
INI_NLFS_VARS |
DO k=1,Nr |
|
./verification/global1x1_tot/code_taueddy/SIZE.h |
36 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global1x1_tot/code_taueddy/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
140 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
160 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
314 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( salt0errfile, 32, 'RL', Nr, |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
353 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( temp0errfile, 32, 'RL', Nr, |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
395 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( salterrfile, 32, 'RL', Nr, wsalt2, 1, |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
439 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( temperrfile, 32, 'RL', Nr, wtheta2, 1, |
|
./model/src/ini_p_ground.F |
108 |
INI_P_GROUND |
DO K=1,2*Nr |
|
./model/src/ini_p_ground.F |
144 |
INI_P_GROUND |
DO k=1,Nr |
|
./model/src/ini_p_ground.F |
148 |
INI_P_GROUND |
IF (k.LT.Nr) ratioRp(k) = 0.5 _d 0*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/ini_p_ground.F |
229 |
INI_P_GROUND |
IF ( Po_surf.LT.rC(1) .AND. Po_surf.GT.rC(Nr) ) THEN |
|
./model/src/ini_p_ground.F |
231 |
INI_P_GROUND |
DO k=1,Nr |
|
./model/src/ini_p_ground.F |
237 |
INI_P_GROUND |
IF (k.LT.Nr) rMidKp1 = (rC(k)+rC(k+1))*0.5 _d 0 |
|
./model/src/ini_p_ground.F |
273 |
INI_P_GROUND |
IF (ks.LE.Nr) THEN |
|
./model/src/ini_p_ground.F |
276 |
INI_P_GROUND |
DO k=2,Nr |
|
./model/src/ini_p_ground.F |
313 |
INI_P_GROUND |
IF ( Po_surf.LT.rC(1) .AND. Po_surf.GT.rC(Nr) ) THEN |
|
./model/src/ini_p_ground.F |
315 |
INI_P_GROUND |
DO k=1,Nr |
|
./model/src/ini_p_ground.F |
64 |
INI_P_GROUND |
_RL hRef(2*Nr+1), rHalf(2*Nr+1) |
|
./model/src/ini_p_ground.F |
73 |
INI_P_GROUND |
_RL ratioRm(Nr), ratioRp(Nr) |
|
./model/src/ini_p_ground.F |
88 |
INI_P_GROUND |
DO K=1,Nr |
|
./model/src/ini_p_ground.F |
92 |
INI_P_GROUND |
rHalf(2*Nr+1) = rF(Nr+1) |
|
./model/src/ini_p_ground.F |
97 |
INI_P_GROUND |
DO K=1,2*Nr+1 |
|
./verification/global2x2_tot/code/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global2x2_tot/code/SIZE.h |
52 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/global2x2_tot/code_forw/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 70, numperlist = 1, numLevels=Nr ) |
|
./verification/global2x2_tot/code_forw/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./model/src/ini_parms.F |
1144 |
INI_PARMS |
DO k=1,Nr+1 |
|
./model/src/ini_parms.F |
1165 |
INI_PARMS |
DO k = 1, Nr |
|
./model/src/ini_parms.F |
336 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
456 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
468 |
INI_PARMS |
ELSEIF ( vertSetCount.GT.0 .AND. vertSetCount.LT.Nr ) THEN |
|
./model/src/ini_parms.F |
470 |
INI_PARMS |
& vertSetCount, ' /', Nr, ') of viscArNr is not allowed' |
|
./model/src/ini_parms.F |
482 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
494 |
INI_PARMS |
ELSEIF ( vertSetCount.GT.0 .AND. vertSetCount.LT.Nr ) THEN |
|
./model/src/ini_parms.F |
496 |
INI_PARMS |
& vertSetCount, ' /', Nr, ') of diffKrNrT is not allowed' |
|
./model/src/ini_parms.F |
508 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
520 |
INI_PARMS |
ELSEIF ( vertSetCount.GT.0 .AND. vertSetCount.LT.Nr ) THEN |
|
./model/src/ini_parms.F |
522 |
INI_PARMS |
& vertSetCount, ' /', Nr, ') of diffKrNrS is not allowed' |
|
./model/src/ini_parms.F |
57 |
INI_PARMS |
_RL delRDefault(Nr) |
|
./model/src/ini_parms.F |
814 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
89 |
INI_PARMS |
_RL delZ(Nr) |
|
./model/src/ini_parms.F |
90 |
INI_PARMS |
_RL delP(Nr) |
|
./model/src/ini_parms.F |
969 |
INI_PARMS |
DO k =1,Nr |
|
./verification/global2x2_tot/code_forw/SIZE.h |
36 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global2x2_tot/code_forw/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/global_ocean.90x40x15/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/global_ocean.90x40x15/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 20*Nr ) |
|
./verification/global_ocean.90x40x15/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*Nr ) |
|
./verification/global_ocean.90x40x15/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global_ocean.90x40x15/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/global_ocean.90x40x15/code_ad/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global_ocean.90x40x15/code_ad/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./model/src/ini_pressure.F |
105 |
INI_PRESSURE |
DO k = 1, Nr |
|
./model/src/ini_pressure.F |
70 |
INI_PRESSURE |
DO k = 1,Nr |
|
./verification/global_ocean.90x40x15/code_ad_nlfs/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global_ocean.90x40x15/code_ad_nlfs/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/global_ocean.90x40x15/code_ad_vecinv/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global_ocean.90x40x15/code_ad_vecinv/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/global_ocean.cs32x15/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/global_ocean.cs32x15/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numdiags = 40*Nr ) |
|
./verification/global_ocean.cs32x15/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/global_ocean.cs32x15/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global_ocean.cs32x15/code/SIZE.h |
62 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/global_ocean.cs32x15/code_ad/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/global_ocean.cs32x15/code_ad/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numdiags = 40*Nr ) |
|
./verification/global_ocean.cs32x15/code_ad/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./model/src/ini_salt.F |
132 |
INI_SALT |
& Nr, 1, myThid ) |
|
./model/src/ini_salt.F |
57 |
INI_SALT |
DO k=1,Nr |
|
./model/src/ini_salt.F |
89 |
INI_SALT |
DO k=1,Nr |
|
./verification/global_ocean.cs32x15/code_ad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global_ocean.cs32x15/code_ad/SIZE.h |
62 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
40 |
COST_TEST |
_RL thetaLev(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/global_ocean_ebm/code/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global_ocean_ebm/code/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./model/src/ini_sigma_hfac.F |
101 |
INI_SIGMA_HFAC |
DO k=1, Nr |
|
./model/src/ini_sigma_hfac.F |
215 |
INI_SIGMA_HFAC |
DO k=1, Nr |
|
./model/src/ini_sigma_hfac.F |
226 |
INI_SIGMA_HFAC |
DO k=1, Nr |
|
./model/src/ini_sigma_hfac.F |
240 |
INI_SIGMA_HFAC |
kSurfW(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_sigma_hfac.F |
241 |
INI_SIGMA_HFAC |
kSurfS(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_sigma_hfac.F |
57 |
INI_SIGMA_HFAC |
IF ( usingPCoords ) rEmpty = rF(Nr+1) |
|
./model/src/ini_sigma_hfac.F |
59 |
INI_SIGMA_HFAC |
rFullDepth = rF(1)-rF(Nr+1) |
|
./model/src/ini_sigma_hfac.F |
87 |
INI_SIGMA_HFAC |
kLowC (i,j,bi,bj) = Nr |
|
./model/src/ini_sigma_hfac.F |
91 |
INI_SIGMA_HFAC |
kSurfC (i,j,bi,bj) = Nr+1 |
|
./verification/global_ocean_ebm/code_ad/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global_ocean_ebm/code_ad/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/global_with_exf/code/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/global_with_exf/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numdiags = 5*Nr ) |
|
./verification/global_with_exf/code/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/global_with_exf/code/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global_with_exf/code/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/hs94.128x64x5/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/hs94.128x64x5/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 5) |
|
./verification/hs94.1x64x5/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/hs94.1x64x5/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 5) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
129 |
INI_THETA |
& Nr, 1, myThid ) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
65 |
INI_THETA |
DO K=1,Nr |
|
./verification/hs94.1x64x5/code/ini_theta.F |
86 |
INI_THETA |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
98 |
INI_THETA |
DO K=1,Nr |
|
./model/src/ini_theta.F |
136 |
INI_THETA |
DO k=1,Nr |
|
./model/src/ini_theta.F |
151 |
INI_THETA |
& Nr, 1, myThid ) |
|
./model/src/ini_theta.F |
58 |
INI_THETA |
DO k=1,Nr |
|
./model/src/ini_theta.F |
90 |
INI_THETA |
DO k=1,Nr |
|
./verification/hs94.1x64x5/code_ad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/hs94.1x64x5/code_ad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 5) |
|
./verification/hs94.1x64x5/code_ad/adcommon.h |
74 |
NO PROCEDURE |
_RL addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/hs94.1x64x5/code_ad/adcommon.h |
79 |
NO PROCEDURE |
_RL adkapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
129 |
INI_THETA |
& Nr, 1, myThid ) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
65 |
INI_THETA |
DO K=1,Nr |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
86 |
INI_THETA |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
98 |
INI_THETA |
DO K=1,Nr |
|
./verification/hs94.cs-32x32x5/code/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/hs94.cs-32x32x5/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numdiags = 14*Nr ) |
|
./verification/hs94.cs-32x32x5/code/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/hs94.cs-32x32x5/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/hs94.cs-32x32x5/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 5) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
140 |
EXTERNAL_FORCING_V |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
224 |
EXTERNAL_FORCING_T |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
56 |
EXTERNAL_FORCING_U |
rFullDepth = rF(1)-rF(Nr+1) |
|
./model/src/ini_vel.F |
48 |
INI_VEL |
DO k=1,Nr |
|
./model/src/ini_vel.F |
72 |
INI_VEL |
DO k=1,Nr |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
129 |
INI_THETA |
& Nr, 1, myThid ) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
65 |
INI_THETA |
DO K=1,Nr |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
86 |
INI_THETA |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
98 |
INI_THETA |
DO K=1,Nr |
|
./verification/ideal_2D_oce/code/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/ideal_2D_oce/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numdiags = 45*Nr ) |
|
./verification/ideal_2D_oce/code/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 45*Nr ) |
|
./verification/ideal_2D_oce/code/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/ideal_2D_oce/code/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/internal_wave/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/internal_wave/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 20) |
|
./verification/internal_wave/code/obcs_calc.F |
104 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
125 |
OBCS_CALC |
& + Uinflow*sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
139 |
OBCS_CALC |
& *sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
157 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
177 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
28 |
OBCS_CALC |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
29 |
OBCS_CALC |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
30 |
OBCS_CALC |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
31 |
OBCS_CALC |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
32 |
OBCS_CALC |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
43 |
OBCS_CALC |
_RL vertStructWst(Nr) |
|
./verification/internal_wave/code/obcs_calc.F |
54 |
OBCS_CALC |
do K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
55 |
OBCS_CALC |
vertStructWst(K)=cos(mz*PI* (rC(K)/rF(Nr+1)) ) |
|
./verification/internal_wave/code/obcs_calc.F |
58 |
OBCS_CALC |
tmpsum=tmpsum/rF(Nr+1) |
|
./verification/internal_wave/code/obcs_calc.F |
59 |
OBCS_CALC |
do K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
84 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/inverted_barometer/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/inverted_barometer/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 10*Nr ) |
|
./verification/inverted_barometer/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*Nr ) |
|
./verification/inverted_barometer/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/inverted_barometer/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 4) |
|
./model/src/ini_vertical_grid.F |
104 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
108 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
123 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
130 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
134 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
141 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
163 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
170 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
176 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
183 |
INI_VERTICAL_GRID |
rFullDepth = rF(1) - rF(Nr+1) |
|
./model/src/ini_vertical_grid.F |
189 |
INI_VERTICAL_GRID |
IF ( usingPCoords ) rSigBndRS = rF(Nr+1) |
|
./model/src/ini_vertical_grid.F |
213 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
227 |
INI_VERTICAL_GRID |
& *( tmpRS -rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
231 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
245 |
INI_VERTICAL_GRID |
& *( tmpRS -rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
251 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
262 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( rF(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
267 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
278 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
294 |
INI_VERTICAL_GRID |
bHybSigmF(Nr+1) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
295 |
INI_VERTICAL_GRID |
aHybSigmF(Nr+1) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
296 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
303 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
310 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
314 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
320 |
INI_VERTICAL_GRID |
dAHybSigC(Nr+1) = ( aHybSigmF(Nr+1) - aHybSigmC(Nr) )*rkSign |
|
./model/src/ini_vertical_grid.F |
321 |
INI_VERTICAL_GRID |
dBHybSigC(Nr+1) = ( bHybSigmF(Nr+1) - bHybSigmC(Nr) )*rkSign |
|
./model/src/ini_vertical_grid.F |
327 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
328 |
INI_VERTICAL_GRID |
tmpError = ( rC(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
343 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
344 |
INI_VERTICAL_GRID |
tmpError = ( rF(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
76 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
80 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
95 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
99 |
INI_VERTICAL_GRID |
drF(Nr) = delRc(Nr+1) + drF(Nr) |
|
./verification/isomip/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/isomip/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 2*Nr+2 ) |
|
./verification/isomip/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/isomip/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/isomip/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 30) |
|
./verification/lab_sea/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 30, numperlist = 50, numLevels=2*Nr ) |
|
./verification/lab_sea/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numdiags = 20*Nr ) |
|
./verification/lab_sea/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/lab_sea/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/lab_sea/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/lab_sea/code_ad/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 30, numperlist = 50, numLevels=2*Nr ) |
|
./verification/lab_sea/code_ad/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numdiags = 20*Nr ) |
|
./verification/lab_sea/code_ad/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/lab_sea/code_ad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/lab_sea/code_ad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/lab_sea/code_ad_seaice_ocean/SIZE.h |
43 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/lab_sea/code_ad_seaice_ocean/SIZE.h |
55 |
NO PROCEDURE |
& Nr = 23) |
|
./model/src/integr_continuity.F |
226 |
INTEGR_CONTINUITY |
DO k=Nr,1,-1 |
|
./model/src/integr_continuity.F |
235 |
INTEGR_CONTINUITY |
IF ( k.EQ.Nr .AND. myTime.NE.baseTime .AND. usingPCoords |
|
./model/src/integr_continuity.F |
45 |
INTEGR_CONTINUITY |
_RL uFld(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/integr_continuity.F |
46 |
INTEGR_CONTINUITY |
_RL vFld(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/integr_continuity.F |
90 |
INTEGR_CONTINUITY |
DO k=1,Nr |
|
./verification/lab_sea/code_ad_seaice_only/SIZE.h |
43 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/lab_sea/code_ad_seaice_only/SIZE.h |
55 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/matrix_example/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/matrix_example/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/natl_box/code/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/natl_box/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numdiags = 5*Nr ) |
|
./verification/natl_box/code/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/natl_box/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/natl_box/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 23) |
|
./model/src/integrate_for_w.F |
120 |
INTEGRATE_FOR_W |
IF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
146 |
INTEGRATE_FOR_W |
IF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
171 |
INTEGRATE_FOR_W |
IF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
36 |
INTEGRATE_FOR_W |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/integrate_for_w.F |
37 |
INTEGRATE_FOR_W |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/integrate_for_w.F |
39 |
INTEGRATE_FOR_W |
_RL mFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/integrate_for_w.F |
43 |
INTEGRATE_FOR_W |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/integrate_for_w.F |
95 |
INTEGRATE_FOR_W |
ELSEIF (k.EQ.Nr) THEN |
|
./verification/natl_box_adjoint/code/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 40, numperlist = 10, numLevels=2*Nr ) |
|
./verification/natl_box_adjoint/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/natl_box_adjoint/code/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/natl_box_adjoint/code/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/natl_box_adjoint/code_bulk/SIZE.h |
36 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/natl_box_adjoint/code_bulk/SIZE.h |
48 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/natl_box_adjoint/code_pack/SIZE.h |
36 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/natl_box_adjoint/code_pack/SIZE.h |
48 |
NO PROCEDURE |
& Nr = 23) |
|
./model/src/load_grid_spacing.F |
65 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RL( delRFile, ' ', delR, Nr, 1, myThid ) |
|
./model/src/load_grid_spacing.F |
74 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RL( delRcFile, ' ', delRc, Nr+1, 1, myThid ) |
|
./model/src/load_grid_spacing.F |
84 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RS( hybSigmFile,' ',aHybSigmF,Nr+1, 1,myThid ) |
|
./model/src/load_grid_spacing.F |
85 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RS( hybSigmFile,' ',bHybSigmF,Nr+1, 2,myThid ) |
|
./verification/natl_box_adjoint/code_seaice/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 20, numperlist = 50, numLevels=2*Nr ) |
|
./verification/natl_box_adjoint/code_seaice/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numdiags = 1*Nr ) |
|
./verification/natl_box_adjoint/code_seaice/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/natl_box_adjoint/code_seaice/SIZE.h |
36 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/natl_box_adjoint/code_seaice/SIZE.h |
48 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/offline_exf_seaice/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 20, numperlist = 50, numLevels=2*Nr ) |
|
./verification/offline_exf_seaice/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numdiags = 15+1*Nr ) |
|
./verification/offline_exf_seaice/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./model/src/load_ref_files.F |
100 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( sRefFile, ' ', sRef, Nr, 1, myThid ) |
|
./model/src/load_ref_files.F |
111 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( rhoRefFile, ' ', rho1Ref, Nr, 1, myThid ) |
|
./model/src/load_ref_files.F |
52 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
58 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
70 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( tRefFile, ' ', tRef, Nr, 1, myThid ) |
|
./model/src/load_ref_files.F |
82 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
88 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./verification/offline_exf_seaice/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/offline_exf_seaice/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 3 ) |
|
./verification/offline_exf_seaice/code_ad/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 20, numperlist = 50, numLevels=2*Nr ) |
|
./verification/offline_exf_seaice/code_ad/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numdiags = 15+1*Nr ) |
|
./verification/offline_exf_seaice/code_ad/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/offline_exf_seaice/code_ad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/offline_exf_seaice/code_ad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 3 ) |
|
./model/src/momentum_correction_step.F |
101 |
MOMENTUM_CORRECTION_STEP |
DO k=1,Nr |
|
./verification/rotating_tank/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/rotating_tank/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numdiags = 10*Nr ) |
|
./verification/rotating_tank/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/rotating_tank/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/rotating_tank/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 29) |
|
./verification/rotating_tank/code/external_forcing.F |
154 |
EXTERNAL_FORCING_V |
kSurface = Nr |
|
./verification/rotating_tank/code/external_forcing.F |
302 |
EXTERNAL_FORCING_T |
kSurface = Nr |
|
./verification/rotating_tank/code/external_forcing.F |
341 |
EXTERNAL_FORCING_T |
IF (klev.EQ.Nr) THEN |
|
./verification/rotating_tank/code/external_forcing.F |
486 |
EXTERNAL_FORCING_S |
kSurface = Nr |
|
./verification/rotating_tank/code/external_forcing.F |
56 |
EXTERNAL_FORCING_U |
kSurface = Nr |
|
./verification/seaice_obcs/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/seaice_obcs/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/short_surf_wave/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/short_surf_wave/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 10*Nr ) |
|
./verification/short_surf_wave/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*Nr ) |
|
./verification/short_surf_wave/code/SIZE.h |
44 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/short_surf_wave/code/SIZE.h |
56 |
NO PROCEDURE |
& Nr = 50) |
|
./verification/solid-body.cs-32x32x1/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/solid-body.cs-32x32x1/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 10*Nr ) |
|
./verification/solid-body.cs-32x32x1/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*Nr ) |
|
./verification/solid-body.cs-32x32x1/code/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/solid-body.cs-32x32x1/code/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
51 |
INI_VEL |
DO k=1,Nr |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
88 |
INI_VEL |
DO k=1,Nr |
|
./verification/tidal_basin_2d/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tidal_basin_2d/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 30) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
185 |
EXTERNAL_FORCING_V |
kSurface = Nr |
|
./verification/tidal_basin_2d/code/external_forcing.F |
290 |
EXTERNAL_FORCING_T |
kSurface = Nr |
|
./verification/tidal_basin_2d/code/external_forcing.F |
329 |
EXTERNAL_FORCING_T |
IF (klev.EQ.Nr) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
407 |
EXTERNAL_FORCING_S |
kSurface = Nr |
|
./verification/tidal_basin_2d/code/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
kSurface = Nr |
|
./verification/tutorial_advection_in_gyre/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/tutorial_advection_in_gyre/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numdiags = 10*Nr ) |
|
./verification/tutorial_advection_in_gyre/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/tutorial_advection_in_gyre/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_advection_in_gyre/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/tutorial_baroclinic_gyre/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_baroclinic_gyre/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 4) |
|
./verification/tutorial_barotropic_gyre/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_barotropic_gyre/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/tutorial_cfc_offline/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_cfc_offline/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/tutorial_deep_convection/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/tutorial_deep_convection/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 10*Nr ) |
|
./verification/tutorial_deep_convection/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/tutorial_deep_convection/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_deep_convection/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 50) |
|
./verification/tutorial_dic_adjoffline/code_ad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_dic_adjoffline/code_ad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/tutorial_global_oce_biogeo/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_global_oce_biogeo/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/tutorial_global_oce_biogeo/code_ad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_global_oce_biogeo/code_ad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/tutorial_global_oce_in_p/code/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_global_oce_in_p/code/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/tutorial_global_oce_latlon/code/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_global_oce_latlon/code/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
40 |
PTRACERS_FORCING |
_RL gPtracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
59 |
PTRACERS_FORCING |
kSurface = Nr |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
58 |
PTRACERS_FORCING_SURF |
ks = Nr |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
117 |
NO PROCEDURE |
_RL EfluxY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
118 |
NO PROCEDURE |
_RL EfluxP (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
123 |
NO PROCEDURE |
_RS EddyTaux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
124 |
NO PROCEDURE |
_RS EddyTauy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_global_oce_optim/code_ad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
38 |
COST_TEMP |
_RL thetalev(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
105 |
COST_WEIGHTS |
DO k = 1, Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
42 |
COST_WEIGHTS |
_RL wti(Nr) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
43 |
COST_WEIGHTS |
REAL*8 tmpwti(Nr) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
58 |
COST_WEIGHTS |
DO k = 1,Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
68 |
COST_WEIGHTS |
DO k = 1,Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
82 |
COST_WEIGHTS |
length_of_rec = MDS_RECLEN( precFloat64, Nr, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
88 |
COST_WEIGHTS |
CALL MDS_BYTESWAPR8( Nr, tmpwti ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
93 |
COST_WEIGHTS |
DO k=1,Nr |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
69 |
EXTERNAL_FORCING_SURF |
ks = Nr |
|
./verification/tutorial_held_suarez_cs/code/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/tutorial_held_suarez_cs/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numdiags = 15*Nr ) |
|
./verification/tutorial_held_suarez_cs/code/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/tutorial_held_suarez_cs/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_held_suarez_cs/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 20) |
|
./verification/tutorial_offline/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_offline/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/tutorial_plume_on_slope/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_plume_on_slope/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 60) |
|
./verification/tutorial_tracer_adjsens/code_ad/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_tracer_adjsens/code_ad/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 20) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
58 |
PTRACERS_FORCING_SURF |
ks = Nr |
|
./verification/vermix/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/vermix/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 15*Nr ) |
|
./verification/vermix/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/vermix/code/SIZE.h |
37 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/vermix/code/SIZE.h |
49 |
NO PROCEDURE |
& Nr = 26) |
|
./model/src/post_cg3d.F |
137 |
POST_CG3D |
DO k=1,Nr |
|
./model/src/post_cg3d.F |
74 |
POST_CG3D |
IF ( ks.LE.Nr ) THEN |
|
./model/src/post_cg3d.F |
89 |
POST_CG3D |
DO k=1,Nr |
|
./model/src/pre_cg3d.F |
114 |
PRE_CG3D |
IF ( ks.LE.Nr ) THEN |
|
./model/src/pre_cg3d.F |
136 |
PRE_CG3D |
DO k=1,Nr |
|
./model/src/pre_cg3d.F |
154 |
PRE_CG3D |
IF ( ks.LE.Nr ) THEN |
|
./model/src/pre_cg3d.F |
203 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
205 |
PRE_CG3D |
IF (k.GE.Nr) wFacKp = 0. |
|
./model/src/pre_cg3d.F |
218 |
PRE_CG3D |
DO k=2,Nr |
|
./model/src/pre_cg3d.F |
219 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
224 |
PRE_CG3D |
IF (k.GE.Nr) wFacKp = 0. |
|
./model/src/pre_cg3d.F |
242 |
PRE_CG3D |
DO k=1,Nr |
|
./model/src/pre_cg3d.F |
51 |
PRE_CG3D |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/pre_cg3d.F |
86 |
PRE_CG3D |
IF ( usingPCoords ) ks = Nr |
|
./model/src/read_pickup.F |
105 |
READ_PICKUP |
I Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
163 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
164 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gU, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
165 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 3, myIter,myThid ) |
|
./model/src/read_pickup.F |
166 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 4, myIter,myThid ) |
|
./model/src/read_pickup.F |
167 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gV, 5, myIter,myThid ) |
|
./model/src/read_pickup.F |
168 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 6, myIter,myThid ) |
|
./model/src/read_pickup.F |
169 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 7, myIter,myThid ) |
|
./model/src/read_pickup.F |
170 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gT, 8, myIter,myThid ) |
|
./model/src/read_pickup.F |
171 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 9, myIter,myThid ) |
|
./model/src/read_pickup.F |
172 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 10, myIter,myThid ) |
|
./model/src/read_pickup.F |
173 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gS, 11, myIter,myThid ) |
|
./model/src/read_pickup.F |
174 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1,12, myIter,myThid ) |
|
./model/src/read_pickup.F |
177 |
READ_PICKUP |
& 12*Nr+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
181 |
READ_PICKUP |
& 12*Nr+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
189 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
190 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm(1-Olx,1-Oly,1,1,1,1), |
|
./model/src/read_pickup.F |
192 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm(1-Olx,1-Oly,1,1,1,2), |
|
./model/src/read_pickup.F |
195 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
196 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm(1-Olx,1-Oly,1,1,1,1), |
|
./model/src/read_pickup.F |
198 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm(1-Olx,1-Oly,1,1,1,2), |
|
./model/src/read_pickup.F |
201 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta,nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
202 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm(1-Olx,1-Oly,1,1,1,1), |
|
./model/src/read_pickup.F |
204 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm(1-Olx,1-Oly,1,1,1,2), |
|
./model/src/read_pickup.F |
207 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
208 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm(1-Olx,1-Oly,1,1,1,1), |
|
./model/src/read_pickup.F |
210 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm(1-Olx,1-Oly,1,1,1,2), |
|
./model/src/read_pickup.F |
214 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
215 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
216 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 3, myIter,myThid ) |
|
./model/src/read_pickup.F |
217 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 4, myIter,myThid ) |
|
./model/src/read_pickup.F |
218 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 5, myIter,myThid ) |
|
./model/src/read_pickup.F |
219 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 6, myIter,myThid ) |
|
./model/src/read_pickup.F |
220 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 7, myIter,myThid ) |
|
./model/src/read_pickup.F |
221 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1, 8, myIter,myThid ) |
|
./model/src/read_pickup.F |
224 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,1, etaN, nj*Nr+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
227 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,dEtaHdt,nj*Nr+2,myIter,myThid ) |
|
./model/src/read_pickup.F |
230 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1, etaH, nj*Nr+3, myIter,myThid ) |
|
./model/src/read_pickup.F |
237 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, totPhiHyd,1,myIter,myThid ) |
|
./model/src/read_pickup.F |
242 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phi_nh, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
244 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm(1-Olx,1-Oly,1,1,1,1), |
|
./model/src/read_pickup.F |
246 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm(1-Olx,1-Oly,1,1,1,2), |
|
./model/src/read_pickup.F |
249 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm1, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
258 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
260 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
262 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
264 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
273 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
277 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
282 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
286 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
293 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
297 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
302 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
306 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
313 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
317 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
322 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
326 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
334 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
338 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
346 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
349 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
354 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
359 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
364 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
372 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
377 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
384 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
389 |
READ_PICKUP |
nj = nj*Nr |
|
./model/src/read_pickup.F |
478 |
READ_PICKUP |
CALL EXCH_UV_3D_RL( uVel, vVel, .TRUE., Nr, myThid ) |
|
./model/src/read_pickup.F |
479 |
READ_PICKUP |
CALL EXCH_3D_RL( theta, Nr, myThid ) |
|
./model/src/read_pickup.F |
480 |
READ_PICKUP |
CALL EXCH_3D_RL( salt, Nr, myThid ) |
|
./model/src/read_pickup.F |
483 |
READ_PICKUP |
& gvNm(1-Olx,1-Oly,1,1,1,1),.TRUE.,Nr,myThid ) |
|
./model/src/read_pickup.F |
485 |
READ_PICKUP |
& gvNm(1-Olx,1-Oly,1,1,1,2),.TRUE.,Nr,myThid ) |
|
./model/src/read_pickup.F |
486 |
READ_PICKUP |
CALL EXCH_3D_RL( gtNm(1-Olx,1-Oly,1,1,1,1), Nr, myThid ) |
|
./model/src/read_pickup.F |
487 |
READ_PICKUP |
CALL EXCH_3D_RL( gtNm(1-Olx,1-Oly,1,1,1,2), Nr, myThid ) |
|
./model/src/read_pickup.F |
488 |
READ_PICKUP |
CALL EXCH_3D_RL( gsNm(1-Olx,1-Oly,1,1,1,1), Nr, myThid ) |
|
./model/src/read_pickup.F |
489 |
READ_PICKUP |
CALL EXCH_3D_RL( gsNm(1-Olx,1-Oly,1,1,1,2), Nr, myThid ) |
|
./model/src/read_pickup.F |
491 |
READ_PICKUP |
CALL EXCH_UV_3D_RL( guNm1, gvNm1, .TRUE., Nr, myThid ) |
|
./model/src/read_pickup.F |
492 |
READ_PICKUP |
CALL EXCH_3D_RL( gtNm1, Nr, myThid ) |
|
./model/src/read_pickup.F |
493 |
READ_PICKUP |
CALL EXCH_3D_RL( gsNm1, Nr, myThid ) |
|
./model/src/read_pickup.F |
502 |
READ_PICKUP |
& CALL EXCH_3D_RL( totPhiHyd, Nr, myThid ) |
|
./model/src/read_pickup.F |
506 |
READ_PICKUP |
CALL EXCH_3D_RL( phi_nh, Nr, myThid ) |
|
./model/src/read_pickup.F |
510 |
READ_PICKUP |
CALL EXCH_3D_RL( gwNm(1-Olx,1-Oly,1,1,1,1), Nr, myThid ) |
|
./model/src/read_pickup.F |
511 |
READ_PICKUP |
CALL EXCH_3D_RL( gwNm(1-Olx,1-Oly,1,1,1,2), Nr, myThid ) |
|
./model/src/read_pickup.F |
513 |
READ_PICKUP |
CALL EXCH_3D_RL( gwNm1, Nr, myThid ) |
|
./model/src/set_defaults.F |
254 |
SET_DEFAULTS |
DO k=1,Nr |
|
./model/src/set_defaults.F |
33 |
SET_DEFAULTS |
_RL delRDefault(Nr) |
|
./model/src/set_defaults.F |
48 |
SET_DEFAULTS |
DO k=1,Nr |
|
./model/src/set_defaults.F |
51 |
SET_DEFAULTS |
DO k=1,Nr+1 |
|
./model/src/set_grid_factors.F |
51 |
SET_GRID_FACTORS |
DO k=1,Nr |
|
./model/src/set_grid_factors.F |
57 |
SET_GRID_FACTORS |
DO k=1,Nr+1 |
|
./model/src/set_grid_factors.F |
66 |
SET_GRID_FACTORS |
DO k=1,Nr |
|
./model/src/set_grid_factors.F |
70 |
SET_GRID_FACTORS |
DO k=1,Nr+1 |
|
./model/src/set_grid_factors.F |
75 |
SET_GRID_FACTORS |
DO k=1,Nr |
|
./model/src/set_grid_factors.F |
80 |
SET_GRID_FACTORS |
DO k=1,Nr+1 |
|
./model/src/set_grid_factors.F |
87 |
SET_GRID_FACTORS |
DO k=1,Nr |
|
./model/src/set_grid_factors.F |
91 |
SET_GRID_FACTORS |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
112 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
121 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
144 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
153 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
158 |
SET_REF_STATE |
IF ( k.LE.Nr ) CALL FIND_RHO_SCALAR( |
|
./model/src/set_ref_state.F |
161 |
SET_REF_STATE |
IF ( k.GE.2 .AND. k.LE.Nr ) THEN |
|
./model/src/set_ref_state.F |
183 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
198 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
201 |
SET_REF_STATE |
ELSEIF ( k.GT.Nr ) THEN |
|
./model/src/set_ref_state.F |
221 |
SET_REF_STATE |
DO k=1,2*Nr |
|
./model/src/set_ref_state.F |
235 |
SET_REF_STATE |
DO k=1,Nr-1 |
|
./model/src/set_ref_state.F |
242 |
SET_REF_STATE |
k = Nr |
|
./model/src/set_ref_state.F |
259 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
268 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
281 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
284 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
289 |
SET_REF_STATE |
rhoFacF(Nr+1)= 2. _d 0*rhoFacC(Nr) - rhoFacF(Nr) |
|
./model/src/set_ref_state.F |
291 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
294 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
311 |
SET_REF_STATE |
DO k=1,2*Nr+1 |
|
./model/src/set_ref_state.F |
319 |
SET_REF_STATE |
CALL WRITE_GLVEC_RL( 'RhoRef',' ',rhoRef, Nr, -1, myThid ) |
|
./model/src/set_ref_state.F |
42 |
SET_REF_STATE |
_RL rHalf(2*Nr+1) |
|
./model/src/set_ref_state.F |
43 |
SET_REF_STATE |
_RL rhoRef(Nr) |
|
./model/src/set_ref_state.F |
51 |
SET_REF_STATE |
DO k=1,2*Nr |
|
./model/src/set_ref_state.F |
56 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
62 |
SET_REF_STATE |
rHalf(2*Nr+1) = rF(Nr+1) |
|
./model/src/set_ref_state.F |
64 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
70 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
74 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/solve_for_pressure.F |
174 |
SOLVE_FOR_PRESSURE |
DO k=Nr,1,-1 |
|
./model/src/solve_for_pressure.F |
191 |
SOLVE_FOR_PRESSURE |
IF ( ks.LE.Nr ) THEN |
|
./model/src/solve_for_pressure.F |
375 |
SOLVE_FOR_PRESSURE |
CALL DEBUG_STATS_RL(Nr,cg3d_b,'cg3d_b (SOLVE_FOR_PRESSURE)', |
|
./model/src/solve_pentadiagonal.F |
138 |
SOLVE_PENTADIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_pentadiagonal.F |
139 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.Nr) THEN |
|
./model/src/solve_pentadiagonal.F |
145 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.Nr-1) THEN |
|
./model/src/solve_pentadiagonal.F |
173 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
183 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
193 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
252 |
SOLVE_PENTADIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_pentadiagonal.F |
253 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.Nr) THEN |
|
./model/src/solve_pentadiagonal.F |
255 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.Nr-1) THEN |
|
./model/src/solve_pentadiagonal.F |
266 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
54 |
SOLVE_PENTADIAGONAL |
_RL a5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_pentadiagonal.F |
55 |
SOLVE_PENTADIAGONAL |
_RL b5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_pentadiagonal.F |
56 |
SOLVE_PENTADIAGONAL |
_RL c5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_pentadiagonal.F |
57 |
SOLVE_PENTADIAGONAL |
_RL d5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_pentadiagonal.F |
58 |
SOLVE_PENTADIAGONAL |
_RL e5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_pentadiagonal.F |
59 |
SOLVE_PENTADIAGONAL |
_RL y5d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/solve_pentadiagonal.F |
67 |
SOLVE_PENTADIAGONAL |
_RL y5d_m1(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_pentadiagonal.F |
68 |
SOLVE_PENTADIAGONAL |
_RL a5d_prime(Nr), b5d_prime(Nr) |
|
./model/src/solve_pentadiagonal.F |
69 |
SOLVE_PENTADIAGONAL |
_RL c5d_prime(Nr), d5d_prime(Nr), e5d_prime(Nr) |
|
./model/src/solve_pentadiagonal.F |
70 |
SOLVE_PENTADIAGONAL |
_RL y5d_prime(Nr), y5d_update(Nr), tmpval |
|
./model/src/solve_pentadiagonal.F |
78 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
100 |
SOLVE_TRIDIAGONAL |
DO k=2,Nr |
|
./model/src/solve_tridiagonal.F |
112 |
SOLVE_TRIDIAGONAL |
DO k=Nr-1,1,-1 |
|
./model/src/solve_tridiagonal.F |
128 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
139 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
146 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
171 |
SOLVE_TRIDIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_tridiagonal.F |
172 |
SOLVE_TRIDIAGONAL |
IF ( k.EQ.Nr ) THEN |
|
./model/src/solve_tridiagonal.F |
180 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
44 |
SOLVE_TRIDIAGONAL |
_RL a3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_tridiagonal.F |
45 |
SOLVE_TRIDIAGONAL |
_RL b3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_tridiagonal.F |
46 |
SOLVE_TRIDIAGONAL |
_RL c3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_tridiagonal.F |
47 |
SOLVE_TRIDIAGONAL |
_RL y3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./model/src/solve_tridiagonal.F |
56 |
SOLVE_TRIDIAGONAL |
_RL bet(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_tridiagonal.F |
58 |
SOLVE_TRIDIAGONAL |
_RL c3d_prime(Nr), y3d_prime(Nr),y3d_update(Nr) |
|
./model/src/solve_tridiagonal.F |
59 |
SOLVE_TRIDIAGONAL |
_RL c3d_m1(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_tridiagonal.F |
60 |
SOLVE_TRIDIAGONAL |
_RL y3d_m1(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_tridiagonal.F |
81 |
SOLVE_TRIDIAGONAL |
DO k=2,Nr |
|
./model/src/taueddy_external_forcing.F |
154 |
TAUEDDY_EXTERNAL_FORCING_V |
kSurface = Nr |
|
./model/src/taueddy_external_forcing.F |
163 |
TAUEDDY_EXTERNAL_FORCING_V |
Kp1=min(klev+1,Nr) |
|
./model/src/taueddy_external_forcing.F |
166 |
TAUEDDY_EXTERNAL_FORCING_V |
IF (klev.EQ.Nr) maskp1=0. |
|
./model/src/taueddy_external_forcing.F |
64 |
TAUEDDY_EXTERNAL_FORCING_U |
kSurface = Nr |
|
./model/src/taueddy_external_forcing.F |
73 |
TAUEDDY_EXTERNAL_FORCING_U |
Kp1=min(klev+1,Nr) |
|
./model/src/taueddy_external_forcing.F |
76 |
TAUEDDY_EXTERNAL_FORCING_U |
IF (klev.EQ.Nr) maskp1=0. |
|
./model/src/taueddy_init_varia.F |
43 |
TAUEDDY_INIT_VARIA |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
178 |
THERMODYNAMICS |
_RL kappaRk (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/thermodynamics.F |
279 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
305 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
456 |
THERMODYNAMICS |
DO k=Nr,1,-1 |
|
./model/src/thermodynamics.F |
461 |
THERMODYNAMICS |
kkey = (itdkey-1)*Nr + k |
|
./model/src/thermodynamics.F |
477 |
THERMODYNAMICS |
IF (k.EQ.Nr) THEN |
|
./model/src/thermodynamics.F |
846 |
THERMODYNAMICS |
I Nr, 3, deltaTclock, bi, bj, myThid) |
|
./model/src/thermodynamics.F |
918 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
919 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
920 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
921 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,theta,'Theta (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
922 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,salt,'Salt (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
923 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,gT,'Gt (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
924 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,gS,'Gs (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
926 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,gtNm1,'GtNm1 (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
927 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,gsNm1,'GsNm1 (THERMODYNAMICS)',myThid) |
|
./model/src/timestep_tracer.F |
33 |
TIMESTEP_TRACER |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/timestep_tracer.F |
34 |
TIMESTEP_TRACER |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/timestep_wvel.F |
113 |
TIMESTEP_WVEL |
DO k=1,Nr |
|
./model/src/timestep_wvel.F |
121 |
TIMESTEP_WVEL |
DO k=1,Nr |
|
./model/src/timestep_wvel.F |
59 |
TIMESTEP_WVEL |
DO k=1,Nr |
|
./model/src/tracers_iigw_correction.F |
62 |
TRACERS_IIGW_CORRECTION |
DO k=1,Nr |
|
./model/src/tracers_iigw_correction.F |
65 |
TRACERS_IIGW_CORRECTION |
kp1 = MIN(k+1,Nr) |
|
./model/src/update_cg2d.F |
79 |
UPDATE_CG2D |
DO K=1,Nr |
|
./model/src/update_masks_etc.F |
125 |
UPDATE_MASKS_ETC |
DO K=Nr,1,-1 |
|
./model/src/update_masks_etc.F |
200 |
UPDATE_MASKS_ETC |
DO K=1, Nr |
|
./model/src/update_masks_etc.F |
277 |
UPDATE_MASKS_ETC |
& Nr, 1, myThid ) |
|
./model/src/update_masks_etc.F |
279 |
UPDATE_MASKS_ETC |
& Nr, 1, myThid ) |
|
./model/src/update_masks_etc.F |
281 |
UPDATE_MASKS_ETC |
& Nr, 1, myThid ) |
|
./model/src/update_masks_etc.F |
293 |
UPDATE_MASKS_ETC |
DO K=1,Nr |
|
./model/src/update_masks_etc.F |
338 |
UPDATE_MASKS_ETC |
ksurfW(I,J,bi,bj) = Nr+1 |
|
./model/src/update_masks_etc.F |
339 |
UPDATE_MASKS_ETC |
ksurfS(I,J,bi,bj) = Nr+1 |
|
./model/src/update_masks_etc.F |
340 |
UPDATE_MASKS_ETC |
DO k=Nr,1,-1 |
|
./model/src/update_masks_etc.F |
67 |
UPDATE_MASKS_ETC |
DO K=1, Nr |
|
./model/src/update_r_star.F |
85 |
UPDATE_R_STAR |
DO k=1,Nr |
|
./model/src/update_sigma.F |
103 |
UPDATE_SIGMA |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
111 |
UPDATE_SIGMA |
DO k=1,Nr |
|
./model/src/update_sigma.F |
129 |
UPDATE_SIGMA |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
137 |
UPDATE_SIGMA |
DO k=1,Nr |
|
./model/src/update_sigma.F |
155 |
UPDATE_SIGMA |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
163 |
UPDATE_SIGMA |
DO k=1,Nr |
|
./model/src/update_sigma.F |
62 |
UPDATE_SIGMA |
rFullDepth = rF(1)-rF(Nr+1) |
|
./model/src/update_surf_dr.F |
103 |
UPDATE_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/update_surf_dr.F |
112 |
UPDATE_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/update_surf_dr.F |
90 |
UPDATE_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/write_grid.F |
110 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'RC', ' ', rC, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
111 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'RF', ' ', rF, 1+Nr,-1, myThid ) |
|
./model/src/write_grid.F |
112 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'DRC',' ', drC, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
113 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'DRF',' ', drF, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
115 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'AHybSigF',' ',aHybSigmF,1+Nr,-1,myThid ) |
|
./model/src/write_grid.F |
116 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'BHybSigF',' ',bHybSigmF,1+Nr,-1,myThid ) |
|
./model/src/write_grid.F |
117 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'AHybSigC',' ',aHybSigmC, Nr, -1,myThid ) |
|
./model/src/write_grid.F |
118 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'BHybSigC',' ',bHybSigmC, Nr, -1,myThid ) |
|
./model/src/write_grid.F |
119 |
WRITE_GRID |
CALL WRITE_GLVEC_RS('DAHybSigF',' ',dAHybSigF, Nr, -1,myThid ) |
|
./model/src/write_grid.F |
120 |
WRITE_GRID |
CALL WRITE_GLVEC_RS('DBHybSigF',' ',dBHybSigF, Nr, -1,myThid ) |
|
./model/src/write_grid.F |
121 |
WRITE_GRID |
CALL WRITE_GLVEC_RS('DAHybSigC',' ',dAHybSigC,1+Nr,-1,myThid ) |
|
./model/src/write_grid.F |
122 |
WRITE_GRID |
CALL WRITE_GLVEC_RS('DBHybSigC',' ',dBHybSigC,1+Nr,-1,myThid ) |
|
./model/src/write_grid.F |
126 |
WRITE_GRID |
DO k=1,Nr+1 |
|
./model/src/write_grid.F |
129 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'PHrefF',' ',tmpVar,1+Nr,-1, myThid ) |
|
./model/src/write_grid.F |
130 |
WRITE_GRID |
DO k=1,Nr |
|
./model/src/write_grid.F |
133 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'PHrefC',' ',tmpVar, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
47 |
WRITE_GRID |
_RS tmpVar(Nr+1) |
|
./model/src/write_pickup.F |
112 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, uVel, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
115 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, vVel, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
119 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, theta, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
122 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, salt, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
132 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm(1-Olx,1-Oly,1,1,1,m1), |
|
./model/src/write_pickup.F |
138 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm(1-Olx,1-Oly,1,1,1,m2), |
|
./model/src/write_pickup.F |
145 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm(1-Olx,1-Oly,1,1,1,m1), |
|
./model/src/write_pickup.F |
151 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm(1-Olx,1-Oly,1,1,1,m2), |
|
./model/src/write_pickup.F |
160 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm(1-Olx,1-Oly,1,1,1,m1), |
|
./model/src/write_pickup.F |
169 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm(1-Olx,1-Oly,1,1,1,m2), |
|
./model/src/write_pickup.F |
181 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm(1-Olx,1-Oly,1,1,1,m1), |
|
./model/src/write_pickup.F |
190 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm(1-Olx,1-Oly,1,1,1,m2), |
|
./model/src/write_pickup.F |
203 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm(1-Olx,1-Oly,1,1,1,m1), |
|
./model/src/write_pickup.F |
209 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm(1-Olx,1-Oly,1,1,1,m2), |
|
./model/src/write_pickup.F |
218 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
221 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
226 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
231 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
237 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
246 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr,totPhiHyd,-j,myIter, myThid ) |
|
./model/src/write_pickup.F |
252 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, phi_nh, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
260 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr,addMass,-j,myIter, myThid ) |
|
./model/src/write_pickup.F |
268 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
274 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
282 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
290 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./pkg/admtlm/admtlm_bypassad.F |
76 |
ADMTLM_BYPASSAD |
DO k=1,Nr |
|
./pkg/admtlm/admtlm_bypassad.F |
80 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,1*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
82 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,2*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
84 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,3*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
87 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,4*Nr+1) |
|
./pkg/admtlm/admtlm_init_fixed.F |
42 |
ADMTLM_INIT_FIXED |
DO k=1,Nr |
|
./pkg/admtlm/admtlm_map.F |
35 |
ADMTLM_MAP |
DO k=1,4*Nr |
|
./pkg/admtlm/admtlm_map.F |
39 |
ADMTLM_MAP |
adobjf_state_final(i,j,bi,bj,4*Nr+1) = |
|
./pkg/admtlm/admtlm_map.F |
40 |
ADMTLM_MAP |
& g_objf_state_final(i,j,bi,bj,4*Nr+1) |
|
./pkg/admtlm/admtlm_metric.F |
55 |
ADMTLM_METRIC |
DO k=1,Nr |
|
./pkg/admtlm/admtlm_metric.F |
57 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+0*Nr)**2/stdDevtheta**2 |
|
./pkg/admtlm/admtlm_metric.F |
58 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+1*Nr)**2/stdDevsalt**2 |
|
./pkg/admtlm/admtlm_metric.F |
59 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+2*Nr)**2/stdDevuvel**2 |
|
./pkg/admtlm/admtlm_metric.F |
60 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+3*Nr)**2/stdDevvvel**2 |
|
./pkg/admtlm/admtlm_metric.F |
63 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,1+4*Nr)**2/stdDevetan**2 |
|
./pkg/admtlm/admtlm_metric.F |
70 |
ADMTLM_METRIC |
myMetric = myMetric/(nx*ny*(4*Nr+1)) |
|
./eesupp/src/eewrite_eeenv.F |
107 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' Nr =', Nr, |
|
./pkg/aim_v23/AIM2DYN.h |
21 |
NO PROCEDURE |
_RL aim_dTdt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/aim_v23/AIM2DYN.h |
22 |
NO PROCEDURE |
_RL aim_dSdt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/aim_v23/AIM_SIZE.h |
17 |
NO PROCEDURE |
PARAMETER ( NLON=sNx, NLAT=sNy, NLEV=Nr, NGP=NLON*NLAT ) |
|
./pkg/aim_v23/AIM_TAVE.h |
75 |
NO PROCEDURE |
_RL aimRHtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/aim_v23/aim_aim2dyn.F |
119 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
121 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
93 |
AIM_AIM2DYN |
DO k=1,Nr |
|
./pkg/aim_v23/aim_diagnostics.F |
100 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dQ_LSC', suff, Nr, QT_LSC, |
|
./pkg/aim_v23/aim_diagnostics.F |
105 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_clskySW', suff, Nr, TT_SWclr, |
|
./pkg/aim_v23/aim_diagnostics.F |
107 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_clskyLW', suff, Nr, TT_LWclr, |
|
./pkg/aim_v23/aim_diagnostics.F |
163 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_RelHum', suff, Nr, RH, |
|
./pkg/aim_v23/aim_diagnostics.F |
353 |
AIM_DIAGNOSTICS |
DO k=1,Nr |
|
./pkg/aim_v23/aim_diagnostics.F |
376 |
AIM_DIAGNOSTICS |
& 'RADSW ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
378 |
AIM_DIAGNOSTICS |
& 'RADLW ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
380 |
AIM_DIAGNOSTICS |
& 'DTCONV ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
382 |
AIM_DIAGNOSTICS |
& 'TURBT ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
384 |
AIM_DIAGNOSTICS |
& 'DTLS ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
386 |
AIM_DIAGNOSTICS |
& 'DQCONV ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
388 |
AIM_DIAGNOSTICS |
& 'TURBQ ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
390 |
AIM_DIAGNOSTICS |
& 'DQLS ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
392 |
AIM_DIAGNOSTICS |
& 'RELHUM ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
440 |
AIM_DIAGNOSTICS |
& 'SWCLR ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
442 |
AIM_DIAGNOSTICS |
& 'LWCLR ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
86 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_RSW', suff, Nr, TT_RSW, |
|
./pkg/aim_v23/aim_diagnostics.F |
88 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_RLW', suff, Nr, TT_RLW, |
|
./pkg/aim_v23/aim_diagnostics.F |
90 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_CNV', suff, Nr, TT_CNV, |
|
./pkg/aim_v23/aim_diagnostics.F |
92 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_PBL', suff, Nr, TT_PBL, |
|
./pkg/aim_v23/aim_diagnostics.F |
94 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_LSC', suff, Nr, TT_LSC, |
|
./pkg/aim_v23/aim_diagnostics.F |
96 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dQ_CNV', suff, Nr, QT_CNV, |
|
./pkg/aim_v23/aim_diagnostics.F |
98 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dQ_PBL', suff, Nr, QT_PBL, |
|
./pkg/aim_v23/aim_do_physics.F |
93 |
AIM_DO_PHYSICS |
IF (k.LE.Nr) |
|
./pkg/aim_v23/aim_do_physics.F |
95 |
AIM_DO_PHYSICS |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k) |
|
./pkg/aim_v23/aim_do_physics.F |
96 |
AIM_DO_PHYSICS |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
97 |
AIM_DO_PHYSICS |
salt(i,j,Nr,bi,bj) = 0. |
|
./pkg/aim_v23/aim_dyn2aim.F |
107 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
118 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
137 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
159 |
AIM_DYN2AIM |
DO K = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
190 |
AIM_DYN2AIM |
IF (K.LE.Nr) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
204 |
AIM_DYN2AIM |
DO K = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
85 |
AIM_DYN2AIM |
kGrd(I2) = (Nr+1) - ksurfC(I,J,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
94 |
AIM_DYN2AIM |
IF ( K.LE.Nr ) THEN |
|
./pkg/aim_v23/aim_initialise.F |
46 |
AIM_INITIALISE |
_RL HSG(0:Nr) |
|
./pkg/aim_v23/aim_initialise.F |
59 |
AIM_INITIALISE |
DO k=1,Nr |
|
./pkg/aim_v23/aim_initialise.F |
63 |
AIM_INITIALISE |
k=Nr+1 |
|
./pkg/aim_v23/aim_tendency_apply.F |
120 |
AIM_TENDENCY_APPLY_U |
IF (aim_taveFreq.NE.0 .AND. kLev.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
126 |
AIM_TENDENCY_APPLY_U |
IF (usediagnostics .AND. kLev.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
197 |
AIM_TENDENCY_APPLY_V |
IF ( kLev.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
246 |
AIM_TENDENCY_APPLY_V |
IF (aim_taveFreq.NE.0 .AND. kLev.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
252 |
AIM_TENDENCY_APPLY_V |
IF (usediagnostics .AND. kLev.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
71 |
AIM_TENDENCY_APPLY_U |
IF ( kLev.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_write_local.F |
50 |
AIM_WRITE_LOCAL |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/aim_v23/aim_write_local.F |
58 |
AIM_WRITE_LOCAL |
IF ( nNr.LT.1 .OR. nNr.GT.Nr ) THEN |
|
./pkg/aim_v23/aim_write_local.F |
65 |
AIM_WRITE_LOCAL |
& 'AIM_WRITE_LOCAL: 3rd dim.(field)=',nNr,' has to be <',Nr |
|
./pkg/aim_v23/aim_write_local.F |
71 |
AIM_WRITE_LOCAL |
IF (nNr.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_write_local.F |
73 |
AIM_WRITE_LOCAL |
DO k=1,Nr |
|
./pkg/aim_v23/aim_write_phys.F |
110 |
AIM_WRITE_PHYS |
ELSEIF (nNr.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_write_phys.F |
112 |
AIM_WRITE_PHYS |
DO k=1,Nr |
|
./pkg/aim_v23/aim_write_phys.F |
53 |
AIM_WRITE_PHYS |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/aim_v23/aim_write_phys.F |
78 |
AIM_WRITE_PHYS |
IF ( nNr.LT.1 .OR. nNr.GT.Nr ) THEN |
|
./pkg/aim_v23/aim_write_phys.F |
85 |
AIM_WRITE_PHYS |
& 'AIM_WRITE_PHYS: 3rd dim.(field)=',nNr,' has to be <',Nr |
|
./pkg/aim_v23/aim_write_tave.F |
116 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimRHtave,aim_timeAve,Nr,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
223 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
81 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid) |
|
./pkg/aim_v23/phy_radiat.F |
486 |
RADSW |
& 'CLDCLW ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/autodiff/AUTODIFF.h |
24 |
NO PROCEDURE |
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,NDV3D) |
|
./pkg/autodiff/AUTODIFF.h |
30 |
NO PROCEDURE |
_RL StoreOBCSN(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB) |
|
./pkg/autodiff/AUTODIFF.h |
31 |
NO PROCEDURE |
_RL StoreOBCSS(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB) |
|
./pkg/autodiff/AUTODIFF.h |
32 |
NO PROCEDURE |
_RL StoreOBCSE(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB) |
|
./pkg/autodiff/AUTODIFF.h |
33 |
NO PROCEDURE |
_RL StoreOBCSW(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB) |
|
./eesupp/src/ini_procs.F |
392 |
INI_PROCS |
elCount = Nr |
|
./eesupp/src/ini_procs.F |
488 |
INI_PROCS |
elCount = Nr |
|
./pkg/autodiff/adcommon.h |
109 |
NO PROCEDURE |
_RL addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/adcommon.h |
114 |
NO PROCEDURE |
_RL adkapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/adcommon.h |
119 |
NO PROCEDURE |
_RL adkapredi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/autodiff_restore.F |
130 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
311 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
344 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
377 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
410 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
140 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
378 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
420 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
462 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
504 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/g_common.h |
115 |
NO PROCEDURE |
_RL g_diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/g_common.h |
120 |
NO PROCEDURE |
_RL g_kapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/g_common.h |
125 |
NO PROCEDURE |
_RL g_kapredi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/ini_autodiff.F |
51 |
INI_AUTODIFF |
DO K=1,Nr |
|
./pkg/autodiff/myactivefunction.F |
27 |
NO PROCEDURE |
_RL mytmp3d(sNx,sNy,Nr,nSx,nSy) |
|
./pkg/autodiff/myactivefunction_ad.F |
28 |
ADMYACTIVEFUNCTION |
_RL mytmp3d(sNx,sNy,Nr,nSx,nSy) |
|
./pkg/autodiff/myactivefunction_ad.F |
29 |
ADMYACTIVEFUNCTION |
_RL admytmp3d(sNx,sNy,Nr,nSx,nSy) |
|
./pkg/cd_code/CD_CODE_VARS.h |
12 |
NO PROCEDURE |
_RL uVelD (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cd_code/CD_CODE_VARS.h |
13 |
NO PROCEDURE |
_RL vVelD (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cd_code/CD_CODE_VARS.h |
15 |
NO PROCEDURE |
_RL uNM1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cd_code/CD_CODE_VARS.h |
16 |
NO PROCEDURE |
_RL vNM1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cd_code/cd_code_ini_vars.F |
34 |
CD_CODE_INI_VARS |
DO K=1,Nr |
|
./pkg/cd_code/cd_code_read_pickup.F |
67 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
68 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, vVelD, 2, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
69 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, uNM1, 3, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
70 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, vNM1, 4, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
72 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec, 1, etaNm1,6*Nr+1,myIter,myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
74 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec, 1, etaNm1,4*Nr+1,myIter,myThid) |
|
./pkg/cd_code/cd_code_read_pickup.F |
79 |
CD_CODE_READ_PICKUP |
CALL EXCH_UV_DGRID_3D_RL( uVelD,vVelD, .TRUE., Nr, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
78 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
79 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, vVelD, 2, myIter, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
80 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, uNM1, 3, myIter, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
81 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, vNM1, 4, myIter, myThid ) |
|
./pkg/cd_code/cd_code_write_pickup.F |
82 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1,etaNm1,4*Nr+1,myIter,myThid) |
|
./pkg/cfc/cfc11_forcing.F |
40 |
CFC11_FORCING |
_RL PTR_CFC11(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/cfc/cfc11_forcing.F |
41 |
CFC11_FORCING |
_RL GCFC11(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/cfc/cfc11_surfforcing.F |
27 |
CFC11_SURFFORCING |
_RL PTR_cfc11(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/cfc/cfc12_forcing.F |
40 |
CFC12_FORCING |
_RL PTR_CFC12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/cfc/cfc12_forcing.F |
41 |
CFC12_FORCING |
_RL GCFC12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/cfc/cfc12_surfforcing.F |
27 |
CFC12_SURFFORCING |
_RL PTR_cfc12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
127 |
CHEAPAML_READ_PICKUP |
nj = nj*Nr |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
67 |
CHEAPAML_READ_PICKUP |
I Nr, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
101 |
CHEAPAML_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
102 |
CHEAPAML_WRITE_PICKUP |
j = Nr |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
77 |
CHEAPAML_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/cost/adcost.h |
26 |
NO PROCEDURE |
_RL adobjf_state_final (snx,sny,nsx,nsy,4*Nr+1) |
|
./pkg/cost/cost.h |
152 |
NO PROCEDURE |
_RL cMeanTheta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cost/cost.h |
153 |
NO PROCEDURE |
_RL cMeanUVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cost/cost.h |
154 |
NO PROCEDURE |
_RL cMeanVVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cost/cost.h |
155 |
NO PROCEDURE |
_RL cMeanThetaUVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cost/cost.h |
156 |
NO PROCEDURE |
_RL cMeanThetaVVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cost/cost.h |
84 |
NO PROCEDURE |
_RL objf_state_final (snx,sny,nsx,nsy,4*Nr+1) |
|
./pkg/cost/cost_accumulate_mean.F |
46 |
COST_ACCUMULATE_MEAN |
do k = 1, Nr |
|
./pkg/cost/cost_atlantic_heat.F |
118 |
COST_ATLANTIC_HEAT |
do k = 1, Nr |
|
./pkg/cost/cost_atlantic_heat.F |
144 |
COST_ATLANTIC_HEAT |
do k = 1, Nr |
|
./pkg/cost/cost_atlantic_heat.F |
171 |
COST_ATLANTIC_HEAT |
do k = 1, Nr |
|
./pkg/cost/cost_atlantic_heat.F |
36 |
COST_ATLANTIC_HEAT |
_RL uVel_bar(Nr), vVel_bar(Nr), theta_bar(Nr) |
|
./pkg/cost/cost_atlantic_heat.F |
37 |
COST_ATLANTIC_HEAT |
_RL thetaUvel_bar(Nr), thetaVvel_bar(Nr) |
|
./pkg/cost/cost_atlantic_heat.F |
38 |
COST_ATLANTIC_HEAT |
_RL countU(Nr), countV(Nr), countT(Nr) |
|
./pkg/cost/cost_atlantic_heat.F |
39 |
COST_ATLANTIC_HEAT |
_RL countTU(Nr), countTV(Nr) |
|
./pkg/cost/cost_atlantic_heat.F |
92 |
COST_ATLANTIC_HEAT |
do k = 1, Nr |
|
./pkg/cost/cost_dependent_init.F |
71 |
COST_DEPENDENT_INIT |
do k=1,4*Nr |
|
./pkg/cost/cost_dependent_init.F |
74 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
89 |
COST_INIT_VARIA |
do k=1,4*Nr |
|
./pkg/cost/cost_init_varia.F |
92 |
COST_INIT_VARIA |
objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0 |
|
./pkg/cost/cost_state_final.F |
36 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,0*Nr+k) = theta(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
37 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,1*Nr+k) = salt(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
38 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,2*Nr+k) = uvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
39 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,3*Nr+k) = vvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
41 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,4*Nr+1) = etan(i,j,bi,bj) |
|
./pkg/cost/cost_vector.F |
36 |
COST_VECTOR |
_RL vVel_bar(Nr), theta_bar(Nr), count(Nr) |
|
./pkg/cost/g_cost.h |
26 |
NO PROCEDURE |
_RL g_objf_state_final (snx,sny,nsx,nsy,4*Nr+1) |
|
./pkg/ctrl/adctrl_bound.F |
114 |
ADCTRL_BOUND_2D |
_RL maskFld3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nsx,nsy) |
|
./pkg/ctrl/adctrl_bound.F |
24 |
ADCTRL_BOUND_3D |
_RL fieldCur(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nsx,nsy) |
|
./pkg/ctrl/adctrl_bound.F |
25 |
ADCTRL_BOUND_3D |
_RL maskFld3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nsx,nsy) |
|
./pkg/ctrl/adctrl_bound.F |
26 |
ADCTRL_BOUND_3D |
_RL adjFieldCur(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nsx,nsy) |
|
./pkg/ctrl/ctrl.h |
1001 |
NO PROCEDURE |
parameter ( maxm = Nx*Ny*(4*Nr+1), maxn=Nx*Ny*(4*Nr+1) ) |
|
./pkg/ctrl/ctrl.h |
52 |
NO PROCEDURE |
parameter( admtlmrec = Nx*Ny*(4*Nr+1) ) |
|
./pkg/ctrl/ctrl.h |
544 |
NO PROCEDURE |
_RL xx_obcsn0 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
545 |
NO PROCEDURE |
_RL xx_obcsn1 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
548 |
NO PROCEDURE |
_RL xx_obcss0 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
549 |
NO PROCEDURE |
_RL xx_obcss1 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
552 |
NO PROCEDURE |
_RL xx_obcsw0 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
553 |
NO PROCEDURE |
_RL xx_obcsw1 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
556 |
NO PROCEDURE |
_RL xx_obcse0 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl.h |
557 |
NO PROCEDURE |
_RL xx_obcse1 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/ctrl_bound.F |
25 |
CTRL_BOUND_3D |
_RL fieldCur(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nsx,nsy) |
|
./pkg/ctrl/ctrl_bound.F |
26 |
CTRL_BOUND_3D |
_RL maskFld3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nsx,nsy) |
|
./pkg/ctrl/ctrl_bound.F |
80 |
CTRL_BOUND_2D |
_RL maskFld3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nsx,nsy) |
|
./pkg/ctrl/ctrl_getobcse.F |
147 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
182 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
265 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
300 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
159 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
197 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
290 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
327 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
148 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
184 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
267 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
303 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
147 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
182 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
268 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
303 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_init_wet.F |
249 |
CTRL_INIT_WET |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_init_wet.F |
536 |
CTRL_INIT_WET |
do k=1,Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
182 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
218 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
254 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
290 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
340 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
376 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
412 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
448 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
105 |
CTRL_SET_GLOBFLD_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype)+1 |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
96 |
CTRL_SET_GLOBFLD_XY |
nrec_nl=int(ncvarrecs(ivartype)/Nr) |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
99 |
CTRL_SET_GLOBFLD_XY |
& Nr, globfld3d, |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
82 |
CTRL_SET_GLOBFLD_XYZ |
& Nr, globfld3d, |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
106 |
CTRL_SET_GLOBFLD_XZ |
& Nr, globfld3d, |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
115 |
CTRL_SET_GLOBFLD_XZ |
& Nr, globfldxz, |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
107 |
CTRL_SET_GLOBFLD_YZ |
& Nr, globfld3d, |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
117 |
CTRL_SET_GLOBFLD_YZ |
& Nr, globfldyz, |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
156 |
CTRL_SET_PACK_XY |
& Nr, globmsk, 1, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
158 |
CTRL_SET_PACK_XY |
nrec_nl=int(ncvarrecs(ivartype)/Nr) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
162 |
CTRL_SET_PACK_XY |
& Nr, globfld3d, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
163 |
CTRL_SET_PACK_XY |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
244 |
CTRL_SET_PACK_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
351 |
CTRL_SET_PACK_XY |
_RL msk3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
475 |
CTRL_SET_PACK_XY |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
161 |
CTRL_SET_PACK_XYZ |
& Nr, weightfld3d, 1, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
166 |
CTRL_SET_PACK_XYZ |
& Nr, globmsk, 1, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
171 |
CTRL_SET_PACK_XYZ |
& Nr, globfld3d, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
278 |
CTRL_SET_PACK_XYZ |
_RL msk3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
282 |
CTRL_SET_PACK_XYZ |
_RL fld3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
286 |
CTRL_SET_PACK_XYZ |
_RL fld3dDim(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
287 |
CTRL_SET_PACK_XYZ |
_RL fld3dNodim(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
290 |
CTRL_SET_PACK_XYZ |
_RL wei3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
335 |
CTRL_SET_PACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
340 |
CTRL_SET_PACK_XYZ |
DO k=1,Nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
388 |
CTRL_SET_PACK_XYZ |
& Nr, fld3dNodim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
390 |
CTRL_SET_PACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
409 |
CTRL_SET_PACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
416 |
CTRL_SET_PACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
98 |
CTRL_SET_PACK_XYZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
99 |
CTRL_SET_PACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
171 |
CTRL_SET_PACK_XZ |
& Nr, globmskxz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
178 |
CTRL_SET_PACK_XZ |
& Nr, weightfldxz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
169 |
CTRL_SET_PACK_YZ |
& Nr, globmskyz(1,1,1,1,1,1,iobcs), iobcs,mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
176 |
CTRL_SET_PACK_YZ |
& Nr, weightfldyz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
158 |
CTRL_SET_UNPACK_XY |
& Nr, globmsk, 1, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
160 |
CTRL_SET_UNPACK_XY |
nrec_nl=int(ncvarrecs(ivartype)/Nr) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
162 |
CTRL_SET_UNPACK_XY |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
269 |
CTRL_SET_UNPACK_XY |
do irec = nrec_nl*Nr+1,ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
398 |
CTRL_SET_UNPACK_XY |
_RL msk3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
471 |
CTRL_SET_UNPACK_XY |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
100 |
CTRL_SET_UNPACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
169 |
CTRL_SET_UNPACK_XYZ |
& Nr, weightfld3d, 1, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
174 |
CTRL_SET_UNPACK_XYZ |
& Nr, globmsk, 1, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
188 |
CTRL_SET_UNPACK_XYZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
280 |
CTRL_SET_UNPACK_XYZ |
& Nr, globfld3d, |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
306 |
CTRL_SET_UNPACK_XYZ |
_RL msk3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
310 |
CTRL_SET_UNPACK_XYZ |
_RL fld3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
314 |
CTRL_SET_UNPACK_XYZ |
_RL fld3dDim(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
315 |
CTRL_SET_UNPACK_XYZ |
_RL fld3dNodim(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
318 |
CTRL_SET_UNPACK_XYZ |
_RL wei3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
383 |
CTRL_SET_UNPACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
430 |
CTRL_SET_UNPACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .TRUE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
437 |
CTRL_SET_UNPACK_XYZ |
DO k=1,Nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
489 |
CTRL_SET_UNPACK_XYZ |
& Nr, fld3dNodim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
491 |
CTRL_SET_UNPACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
496 |
CTRL_SET_UNPACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
99 |
CTRL_SET_UNPACK_XYZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
174 |
CTRL_SET_UNPACK_XZ |
& Nr, globmskxz(1,1,1,1,1,1,iobcs), iobcs,mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
181 |
CTRL_SET_UNPACK_XZ |
& Nr, weightfldxz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
223 |
CTRL_SET_UNPACK_XZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
291 |
CTRL_SET_UNPACK_XZ |
& Nr, globfld3d, irec, |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
313 |
CTRL_SET_UNPACK_XZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
375 |
CTRL_SET_UNPACK_XZ |
& Nr, globfldxz, irec, |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
174 |
CTRL_SET_UNPACK_YZ |
& Nr, globmskyz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
181 |
CTRL_SET_UNPACK_YZ |
& Nr, weightfldyz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
223 |
CTRL_SET_UNPACK_YZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
291 |
CTRL_SET_UNPACK_YZ |
& Nr, globfld3d, irec, |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
311 |
CTRL_SET_UNPACK_YZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
367 |
CTRL_SET_UNPACK_YZ |
& Nr, globfldyz, irec, |
|
./pkg/ctrl/ctrl_volflux.F |
182 |
CTRL_VOLFLUX |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_volflux.F |
231 |
CTRL_VOLFLUX |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_volflux.F |
285 |
CTRL_VOLFLUX |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_volflux.F |
347 |
CTRL_VOLFLUX |
do k = 1, Nr |
|
./pkg/debug/debug_cs_corner_uv.F |
56 |
DEBUG_CS_CORNER_UV |
_RL tmpU(4,Nr,nSx,nSy) |
|
./pkg/debug/debug_cs_corner_uv.F |
57 |
DEBUG_CS_CORNER_UV |
_RL tmpV(4,Nr,nSx,nSy) |
|
./pkg/diagnostics/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./pkg/diagnostics/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 1*Nr ) |
|
./pkg/diagnostics/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./pkg/diagnostics/diagnostics_check.F |
123 |
DIAGNOSTICS_CHECK |
margin = rkSign*(rF(Nr+1)-rF(1))*0.1 _d 0 |
|
./pkg/diagnostics/diagnostics_check.F |
125 |
DIAGNOSTICS_CHECK |
IF ( levs(k,ld)-MAX(rF(1),rF(Nr+1)).GT.margin |
|
./pkg/diagnostics/diagnostics_check.F |
126 |
DIAGNOSTICS_CHECK |
& .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin |
|
./pkg/diagnostics/diagnostics_check.F |
135 |
DIAGNOSTICS_CHECK |
& ' not in the domain:',rF(1),' :',rF(Nr+1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
107 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
126 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UV_VEL_C',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
132 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
143 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UV_VEL_Z',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
149 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
163 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WU_VEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
169 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
183 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WV_VEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
191 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
201 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UVELTH ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
207 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
217 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VVELTH ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
223 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
234 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WVELTH ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
240 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
250 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UVELSLT ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
256 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
266 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VVELSLT ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
272 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
283 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WVELSLT ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
289 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
299 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UVELPHI ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
305 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
315 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VVELPHI ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
326 |
DIAGNOSTICS_FILL_STATE |
DO k = Nr,1,-1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
340 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'RCENTER ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
350 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
360 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTUTEND',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
366 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
376 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTVTEND',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
382 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
392 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTTTEND',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
398 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
408 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTSTEND',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
419 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(theta,'THETA ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
420 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(salt, 'SALT ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
429 |
DIAGNOSTICS_FILL_STATE |
do K = 1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
440 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk, 'RELHUM ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
445 |
DIAGNOSTICS_FILL_STATE |
& 'THETASQ ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
447 |
DIAGNOSTICS_FILL_STATE |
& 'SALTSQ ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
45 |
DIAGNOSTICS_FILL_STATE |
_RL tmpMk(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
480 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
489 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL( tmpMk,'SALTanom',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
491 |
DIAGNOSTICS_FILL_STATE |
& 'SALTSQan',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
499 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
509 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UVELMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
515 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
525 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VVELMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
528 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(wVel, 'WVELMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
533 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
544 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UTHMASS ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
550 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
561 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VTHMASS ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
567 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
578 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WTHMASS ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
584 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
595 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'USLTMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
601 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
612 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VSLTMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
618 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
629 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WSLTMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
643 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
651 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTUTEND',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
659 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
667 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTVTEND',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
675 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
683 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTTTEND',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
691 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
699 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTSTEND',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
85 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL( phi_nh,'PHI_NH ',0,Nr,0,1,1,myThid ) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
89 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(uVel, 'UVEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
90 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(vVel, 'VVEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
91 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(wVel, 'WVEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
94 |
DIAGNOSTICS_FILL_STATE |
& 'UVELSQ ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
96 |
DIAGNOSTICS_FILL_STATE |
& 'VVELSQ ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
98 |
DIAGNOSTICS_FILL_STATE |
& 'WVELSQ ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
81 |
DIAGNOSTICS_SET_LEVELS |
nlevs = MAX(Nr,Nrphys) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
94 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = Nr |
|
./pkg/diagnostics/diagstats_local.F |
116 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'U') drLoc = drC(MIN(k+1,Nr)) |
|
./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_output.F |
30 |
DIAGSTATS_OUTPUT |
PARAMETER (nLev = Nr+Nrphys) |
|
./pkg/diagnostics/diagstats_output.F |
32 |
DIAGSTATS_OUTPUT |
PARAMETER (nLev = Nr) |
|
./pkg/dic/DIC_DIAGS.h |
10 |
NO PROCEDURE |
_RL o2ann (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_DIAGS.h |
12 |
NO PROCEDURE |
_RL po4var(Nr) |
|
./pkg/dic/DIC_DIAGS.h |
13 |
NO PROCEDURE |
_RL o2var(Nr) |
|
./pkg/dic/DIC_DIAGS.h |
17 |
NO PROCEDURE |
_RL po4obsl1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_DIAGS.h |
18 |
NO PROCEDURE |
_RL po4obsl2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_DIAGS.h |
19 |
NO PROCEDURE |
_RL po4obsl3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_DIAGS.h |
21 |
NO PROCEDURE |
_RL o2obsl1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_DIAGS.h |
22 |
NO PROCEDURE |
_RL o2obsl2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_DIAGS.h |
23 |
NO PROCEDURE |
_RL o2obsl3 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_DIAGS.h |
7 |
NO PROCEDURE |
_RL po4obs (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_DIAGS.h |
8 |
NO PROCEDURE |
_RL o2obs (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_DIAGS.h |
9 |
NO PROCEDURE |
_RL po4ann (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
134 |
NO PROCEDURE |
_RL BIOave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
135 |
NO PROCEDURE |
_RL CARave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
141 |
NO PROCEDURE |
_RL OmegaCave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
142 |
NO PROCEDURE |
_RL pfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
143 |
NO PROCEDURE |
_RL epfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
144 |
NO PROCEDURE |
_RL cfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
152 |
NO PROCEDURE |
_RL omegaC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/alk_surfforcing.F |
36 |
ALK_SURFFORCING |
_RL PTR_ALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/bio_export.F |
42 |
BIO_EXPORT |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/bio_export.F |
44 |
BIO_EXPORT |
_RL PTR_FE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/calcite_saturation.F |
31 |
CALCITE_SATURATION |
_RL PTR_DIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/calcite_saturation.F |
32 |
CALCITE_SATURATION |
_RL PTR_ALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/calcite_saturation.F |
33 |
CALCITE_SATURATION |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/calcite_saturation.F |
73 |
CALCITE_SATURATION |
DO k=1,Nr |
|
./pkg/dic/car_flux.F |
125 |
CAR_FLUX |
ko = Nr |
|
./pkg/dic/car_flux.F |
34 |
CAR_FLUX |
_RL CAR_S(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/car_flux.F |
39 |
CAR_FLUX |
_RL cflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/car_flux.F |
69 |
CAR_FLUX |
IF (k.EQ.Nr) THEN |
|
./pkg/dic/car_flux.F |
92 |
CAR_FLUX |
DO ko=k+1,Nr-1 |
|
./pkg/dic/car_flux.F |
93 |
CAR_FLUX |
kop1 = MIN(Nr,ko+1) |
|
./pkg/dic/car_flux_omega_top.F |
107 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
143 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) |
|
./pkg/dic/car_flux_omega_top.F |
36 |
CAR_FLUX_OMEGA_TOP |
_RL bioac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/car_flux_omega_top.F |
41 |
CAR_FLUX_OMEGA_TOP |
_RL cflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/car_flux_omega_top.F |
92 |
CAR_FLUX_OMEGA_TOP |
Do ko=k+1,Nr |
|
./pkg/dic/carbon_chem.F |
671 |
CARBON_COEFFS |
_RL ttemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/carbon_chem.F |
672 |
CARBON_COEFFS |
_RL stemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/carbon_chem.F |
898 |
CARBON_COEFFS_PRESSURE_DEP |
_RL ttemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/carbon_chem.F |
899 |
CARBON_COEFFS_PRESSURE_DEP |
_RL stemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/dic_atmos.F |
148 |
DIC_ATMOS |
DO k=1,Nr |
|
./pkg/dic/dic_aver.F |
47 |
DIC_AVER |
DO k=1,Nr |
|
./pkg/dic/dic_aver_final.F |
38 |
DIC_AVER_FINAL |
CALL TIMEAVE_NORMALIZE(PO4ann, OBS_timetave, Nr , |
|
./pkg/dic/dic_aver_final.F |
40 |
DIC_AVER_FINAL |
CALL TIMEAVE_NORMALIZE(O2ann, OBS_timetave, Nr , |
|
./pkg/dic/dic_aver_init.F |
117 |
DIC_AVER_INIT |
do k=1,Nr |
|
./pkg/dic/dic_aver_init.F |
125 |
DIC_AVER_INIT |
do it=1,MIN(12,Nr) |
|
./pkg/dic/dic_aver_init.F |
149 |
DIC_AVER_INIT |
DO k=1,Nr |
|
./pkg/dic/dic_aver_init.F |
189 |
DIC_AVER_INIT |
DO k=1,Nr |
|
./pkg/dic/dic_aver_init.F |
207 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4ann,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_aver_init.F |
208 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2ann,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_aver_init.F |
37 |
DIC_AVER_INIT |
_RL po4av(Nr) |
|
./pkg/dic/dic_aver_init.F |
38 |
DIC_AVER_INIT |
_RL o2av(Nr) |
|
./pkg/dic/dic_aver_init.F |
39 |
DIC_AVER_INIT |
_RL volvar(Nr) |
|
./pkg/dic/dic_aver_init.F |
49 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4obs, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
50 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2obs, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
52 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4obsl1, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
53 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4obsl2, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
54 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4obsl3, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
56 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2obsl1, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
57 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2obsl2, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
58 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2obsl3, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_aver_init.F |
62 |
DIC_AVER_INIT |
do k=1,Nr |
|
./pkg/dic/dic_biotic_diags.F |
141 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(BIOave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
142 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(CARave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
148 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(OmegaCave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
149 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(pfluxave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
150 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(epfluxave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
151 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(cfluxave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
51 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_NORMALIZE(BIOave, DIC_timeAve, Nr , |
|
./pkg/dic/dic_biotic_diags.F |
53 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_NORMALIZE(CARave, DIC_timeAve, Nr , |
|
./pkg/dic/dic_biotic_diags.F |
65 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_NORMALIZE(OmegaCave, DIC_timeAve, Nr , |
|
./pkg/dic/dic_biotic_diags.F |
67 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_NORMALIZE(pfluxave,DIC_timeAve, Nr , |
|
./pkg/dic/dic_biotic_diags.F |
69 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_NORMALIZE(epfluxave,DIC_timeAve, Nr , |
|
./pkg/dic/dic_biotic_diags.F |
71 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_NORMALIZE(cfluxave,DIC_timeAve, Nr , |
|
./pkg/dic/dic_biotic_forcing.F |
100 |
DIC_BIOTIC_FORCING |
_RL freefe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
108 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
179 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
211 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
262 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
297 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
341 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(BIOac ,'DICBIOA ',0,Nr,2,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
342 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(CAR ,'DICCARB ',0,Nr,2,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
49 |
DIC_BIOTIC_FORCING |
_RL PTR_DIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
50 |
DIC_BIOTIC_FORCING |
_RL PTR_ALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
51 |
DIC_BIOTIC_FORCING |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
52 |
DIC_BIOTIC_FORCING |
_RL PTR_DOP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
54 |
DIC_BIOTIC_FORCING |
_RL PTR_O2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
57 |
DIC_BIOTIC_FORCING |
_RL PTR_FE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
81 |
DIC_BIOTIC_FORCING |
_RL GDIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
82 |
DIC_BIOTIC_FORCING |
_RL GALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
83 |
DIC_BIOTIC_FORCING |
_RL GPO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
84 |
DIC_BIOTIC_FORCING |
_RL GDOP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
88 |
DIC_BIOTIC_FORCING |
_RL CAR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
89 |
DIC_BIOTIC_FORCING |
_RL BIOac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
90 |
DIC_BIOTIC_FORCING |
_RL RDOP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
91 |
DIC_BIOTIC_FORCING |
_RL pflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
92 |
DIC_BIOTIC_FORCING |
_RL exportflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
93 |
DIC_BIOTIC_FORCING |
_RL CAR_S(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
94 |
DIC_BIOTIC_FORCING |
_RL cflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
96 |
DIC_BIOTIC_FORCING |
_RL GO2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
99 |
DIC_BIOTIC_FORCING |
_RL GFE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_init.F |
37 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(BIOave, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
38 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(CARave, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
44 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(OmegaCave, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
45 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(pfluxave, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
46 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(epfluxave, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_biotic_init.F |
47 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(cfluxave, Nr, bi, bj, myThid) |
|
./pkg/dic/dic_init_fixed.F |
84 |
DIC_INIT_FIXED |
nlev=Nr |
|
./pkg/dic/dic_init_fixed.F |
87 |
DIC_INIT_FIXED |
DO WHILE ( k .LT. Nr .AND. rC(k) .GE. -zcrit ) |
|
./pkg/dic/dic_init_varia.F |
49 |
DIC_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/dic/dic_surfforcing.F |
36 |
DIC_SURFFORCING |
_RL PTR_CO2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_surfforcing.F |
37 |
DIC_SURFFORCING |
_RL PTR_ALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_surfforcing.F |
38 |
DIC_SURFFORCING |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_surfforcing_init.F |
45 |
DIC_SURFFORCING_INIT |
_RL PTR_CO2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_write_pickup.F |
109 |
DIC_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/dic/dic_write_pickup.F |
110 |
DIC_WRITE_PICKUP |
j = Nr |
|
./pkg/dic/dic_write_pickup.F |
84 |
DIC_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/dic/fe_chem.F |
38 |
FE_CHEM |
_RL fe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/fe_chem.F |
39 |
FE_CHEM |
_RL freefe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/fe_chem.F |
61 |
FE_CHEM |
DO k=1,Nr |
|
./pkg/dic/o2_surfforcing.F |
33 |
O2_SURFFORCING |
_RL PTR_O2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/phos_flux.F |
132 |
PHOS_FLUX |
ko = Nr |
|
./pkg/dic/phos_flux.F |
34 |
PHOS_FLUX |
_RL BIOac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/phos_flux.F |
39 |
PHOS_FLUX |
_RL pflux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/phos_flux.F |
40 |
PHOS_FLUX |
_RL exportflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/phos_flux.F |
70 |
PHOS_FLUX |
IF (k.EQ.Nr) THEN |
|
./pkg/dic/phos_flux.F |
94 |
PHOS_FLUX |
DO ko=k+1,Nr-1 |
|
./pkg/dic/phos_flux.F |
95 |
PHOS_FLUX |
kop1 = MIN(Nr,ko+1) |
|
./pkg/dic/tracer_meanarea.F |
27 |
TRACER_MEANAREA |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/down_slope/dwnslp_apply.F |
117 |
DWNSLP_APPLY |
DO k=1,Nr |
|
./pkg/down_slope/dwnslp_apply.F |
194 |
DWNSLP_APPLY |
& CALL DIAGNOSTICS_FILL( gTracer, diagName, 0,Nr,2,bi,bj,myThid ) |
|
./pkg/down_slope/dwnslp_apply.F |
53 |
DWNSLP_APPLY |
_RL deltaTLev(Nr) |
|
./pkg/down_slope/dwnslp_apply.F |
54 |
DWNSLP_APPLY |
_RS recip_drF(Nr) |
|
./pkg/down_slope/dwnslp_apply.F |
56 |
DWNSLP_APPLY |
_RS recip_hFac_arg( xySize, Nr, nSx, nSy ) |
|
./pkg/down_slope/dwnslp_apply.F |
57 |
DWNSLP_APPLY |
_RL tracer ( xySize, Nr, nSx, nSy ) |
|
./pkg/down_slope/dwnslp_apply.F |
58 |
DWNSLP_APPLY |
_RL trStar ( xySize, Nr, nSx, nSy ) |
|
./pkg/down_slope/dwnslp_apply.F |
69 |
DWNSLP_APPLY |
_RL gTrLoc(0:Nr) |
|
./pkg/down_slope/dwnslp_apply.F |
78 |
DWNSLP_APPLY |
_RL gTracer( xySize, Nr ) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
41 |
DWNSLP_CALC_FLOW |
_RL rho3d ( xySize, Nr,nSx,nSy ) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
44 |
DWNSLP_CALC_RHO |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
45 |
DWNSLP_CALC_RHO |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
107 |
DWNSLP_INIT_FIXED |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
138 |
DWNSLP_INIT_FIXED |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
166 |
DWNSLP_INIT_FIXED |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
79 |
DWNSLP_INIT_FIXED |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/inc/CG3D.h |
35 |
NO PROCEDURE |
_RS aW3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/CG3D.h |
36 |
NO PROCEDURE |
_RS aS3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/CG3D.h |
37 |
NO PROCEDURE |
_RS aV3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/CG3D.h |
38 |
NO PROCEDURE |
_RS aC3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/CG3D.h |
39 |
NO PROCEDURE |
_RS zMC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/CG3D.h |
40 |
NO PROCEDURE |
_RS zML (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/CG3D.h |
41 |
NO PROCEDURE |
_RS zMU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/CG3D.h |
50 |
NO PROCEDURE |
_RL cg3d_q(1-1 :sNx+1 ,1-1 :sNy+1 ,Nr,nSx,nSy) |
|
./model/inc/CG3D.h |
51 |
NO PROCEDURE |
_RL cg3d_r(1-1 :sNx+1 ,1-1 :sNy+1 ,Nr,nSx,nSy) |
|
./model/inc/CG3D.h |
52 |
NO PROCEDURE |
_RL cg3d_s(1-1 :sNx+1 ,1-1 :sNy+1 ,Nr,nSx,nSy) |
|
./pkg/ebm/ebm_forcing_surf.F |
54 |
EBM_FORCING_SURF |
kSurface = Nr |
|
./pkg/ecco/cost_drift.F |
240 |
COST_DRIFT |
& writeBinaryPrec, globalfiles, 'RL', Nr, |
|
./pkg/ecco/cost_drift.F |
270 |
COST_DRIFT |
& writeBinaryPrec, globalfiles, 'RL', Nr, |
|
./pkg/ecco/cost_generic.F |
152 |
COST_GENERIC |
do k = 1,Nr |
|
./pkg/ecco/cost_obcs_ageos.F |
261 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
324 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
388 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
451 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
75 |
COST_OBCS_AGEOS |
_RL xzgrdrho(1-olx:snx+olx,Nr,nsx,nsy) |
|
./pkg/ecco/cost_obcs_ageos.F |
76 |
COST_OBCS_AGEOS |
_RL yzgrdrho(1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_obcsvol.F |
204 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
246 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
289 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
332 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_salt.F |
215 |
COST_SALT |
& writeBinaryPrec, globalfiles, 'RL', Nr, |
|
./pkg/ecco/cost_tau_eddy.F |
232 |
COST_TAU_EDDY |
do k=2,Nr |
|
./pkg/ecco/cost_theta.F |
214 |
COST_THETA |
& writeBinaryPrec, globalfiles, 'RL', Nr, |
|
./pkg/ecco/cost_trans_merid.F |
76 |
COST_TRANS_MERID |
_RL mvsum(nsect), mvmin(nsect), mvmax(nsect), mvlev(nsect,Nr) |
|
./pkg/ecco/cost_trans_zonal.F |
76 |
COST_TRANS_ZONAL |
_RL musum(nsect), mumin(nsect), mumax(nsect), mulev(nsect,Nr) |
|
./model/inc/DYNVARS.h |
115 |
NO PROCEDURE |
_RL addMass(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
134 |
NO PROCEDURE |
_RL totPhiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
135 |
NO PROCEDURE |
_RL rhoInSitu(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
137 |
NO PROCEDURE |
_RL IVDConvCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
48 |
NO PROCEDURE |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
49 |
NO PROCEDURE |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
50 |
NO PROCEDURE |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
51 |
NO PROCEDURE |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
52 |
NO PROCEDURE |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
53 |
NO PROCEDURE |
_RL gU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
54 |
NO PROCEDURE |
_RL gV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
55 |
NO PROCEDURE |
_RL gT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
56 |
NO PROCEDURE |
_RL gS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
58 |
NO PROCEDURE |
_RL guNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/DYNVARS.h |
59 |
NO PROCEDURE |
_RL gvNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/DYNVARS.h |
60 |
NO PROCEDURE |
_RL gtNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/DYNVARS.h |
61 |
NO PROCEDURE |
_RL gsNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/DYNVARS.h |
63 |
NO PROCEDURE |
_RL guNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
64 |
NO PROCEDURE |
_RL gvNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
65 |
NO PROCEDURE |
_RL gtNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
66 |
NO PROCEDURE |
_RL gsNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
78 |
NO PROCEDURE |
_RL diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
88 |
NO PROCEDURE |
_RL kapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
93 |
NO PROCEDURE |
_RL kapredi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ecco/ecco_cost_weights.F |
1460 |
ECCO_COST_WEIGHTS |
& Nr, wdiffkr2, 1, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1484 |
ECCO_COST_WEIGHTS |
& Nr, wkapgm2, 1, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1508 |
ECCO_COST_WEIGHTS |
& Nr, wkapredi2, 1, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1532 |
ECCO_COST_WEIGHTS |
& Nr, wedtaux2, 1, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
162 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./pkg/ecco/ecco_cost_weights.F |
197 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./pkg/ecco/ecco_cost_weights.F |
342 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( salt0errfile, 32, 'RL', Nr, |
|
./pkg/ecco/ecco_cost_weights.F |
383 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( temp0errfile, 32, 'RL', Nr, |
|
./pkg/ecco/ecco_cost_weights.F |
428 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( salterrfile, 32, 'RL', Nr, wsalt2, 1, |
|
./pkg/ecco/ecco_cost_weights.F |
476 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( temperrfile, 32, 'RL', Nr, wtheta2, 1, |
|
./pkg/exch2/W2_EXCH2_BUFFER.h |
19 |
NO PROCEDURE |
& = ( (sNx+2*OLx)*2*OLy+(sNy+2*OLy)*2*OLx)*Nr |
|
./model/inc/EOS.h |
33 |
NO PROCEDURE |
_RL eosC(9,Nr+1),eosSig0(Nr+1),eosRefT(Nr+1),eosRefS(Nr+1) |
|
./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) |
|
./model/inc/GRID.h |
322 |
NO PROCEDURE |
_RL deepFacC (Nr) |
|
./model/inc/GRID.h |
323 |
NO PROCEDURE |
_RL deepFac2C (Nr) |
|
./model/inc/GRID.h |
324 |
NO PROCEDURE |
_RL deepFacF (Nr+1) |
|
./model/inc/GRID.h |
325 |
NO PROCEDURE |
_RL deepFac2F (Nr+1) |
|
./model/inc/GRID.h |
326 |
NO PROCEDURE |
_RL recip_deepFacC (Nr) |
|
./model/inc/GRID.h |
327 |
NO PROCEDURE |
_RL recip_deepFac2C(Nr) |
|
./model/inc/GRID.h |
328 |
NO PROCEDURE |
_RL recip_deepFacF (Nr+1) |
|
./model/inc/GRID.h |
329 |
NO PROCEDURE |
_RL recip_deepFac2F(Nr+1) |
|
./model/inc/GRID.h |
445 |
NO PROCEDURE |
_RS hFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
446 |
NO PROCEDURE |
_RS hFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
447 |
NO PROCEDURE |
_RS hFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
457 |
NO PROCEDURE |
_RS recip_hFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
458 |
NO PROCEDURE |
_RS recip_hFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
459 |
NO PROCEDURE |
_RS recip_hFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
476 |
NO PROCEDURE |
_RS maskC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
477 |
NO PROCEDURE |
_RS maskW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
478 |
NO PROCEDURE |
_RS maskS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
479 |
NO PROCEDURE |
_RS drC (Nr) |
|
./model/inc/GRID.h |
480 |
NO PROCEDURE |
_RS drF (Nr) |
|
./model/inc/GRID.h |
481 |
NO PROCEDURE |
_RS recip_drC (Nr) |
|
./model/inc/GRID.h |
482 |
NO PROCEDURE |
_RS recip_drF (Nr) |
|
./model/inc/GRID.h |
483 |
NO PROCEDURE |
_RS rC (Nr) |
|
./model/inc/GRID.h |
484 |
NO PROCEDURE |
_RS rF (Nr+1) |
|
./model/inc/GRID.h |
485 |
NO PROCEDURE |
_RS aHybSigmF (Nr+1) |
|
./model/inc/GRID.h |
486 |
NO PROCEDURE |
_RS bHybSigmF (Nr+1) |
|
./model/inc/GRID.h |
487 |
NO PROCEDURE |
_RS aHybSigmC (Nr) |
|
./model/inc/GRID.h |
488 |
NO PROCEDURE |
_RS bHybSigmC (Nr) |
|
./model/inc/GRID.h |
489 |
NO PROCEDURE |
_RS dAHybSigF (Nr) |
|
./model/inc/GRID.h |
490 |
NO PROCEDURE |
_RS dBHybSigF (Nr) |
|
./model/inc/GRID.h |
491 |
NO PROCEDURE |
_RS dBHybSigC (Nr+1) |
|
./model/inc/GRID.h |
492 |
NO PROCEDURE |
_RS dAHybSigC (Nr+1) |
|
./pkg/exf/exf_set_obcs.F |
101 |
EXF_SET_OBCS_XZ |
DO k = 1,Nr |
|
./pkg/exf/exf_set_obcs.F |
151 |
EXF_SET_OBCS_YZ |
_RL obcs_fld_yz(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/exf/exf_set_obcs.F |
152 |
EXF_SET_OBCS_YZ |
_RL obcs_yz_0(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/exf/exf_set_obcs.F |
153 |
EXF_SET_OBCS_YZ |
_RL obcs_yz_1(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/exf/exf_set_obcs.F |
185 |
EXF_SET_OBCS_YZ |
CALL READ_REC_YZ_RL( obcs_file0, exf_iprec_obcs, Nr, |
|
./pkg/exf/exf_set_obcs.F |
198 |
EXF_SET_OBCS_YZ |
CALL READ_REC_YZ_RL( obcs_file1, exf_iprec_obcs, Nr, |
|
./pkg/exf/exf_set_obcs.F |
204 |
EXF_SET_OBCS_YZ |
DO k = 1,Nr |
|
./pkg/exf/exf_set_obcs.F |
47 |
EXF_SET_OBCS_XZ |
_RL obcs_fld_xz(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/exf/exf_set_obcs.F |
48 |
EXF_SET_OBCS_XZ |
_RL obcs_xz_0(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/exf/exf_set_obcs.F |
49 |
EXF_SET_OBCS_XZ |
_RL obcs_xz_1(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/exf/exf_set_obcs.F |
82 |
EXF_SET_OBCS_XZ |
CALL READ_REC_XZ_RL( obcs_file0, exf_iprec_obcs, Nr, |
|
./pkg/exf/exf_set_obcs.F |
95 |
EXF_SET_OBCS_XZ |
CALL READ_REC_XZ_RL( obcs_file1, exf_iprec_obcs, Nr, |
|
./pkg/exf/exf_swapffields.F |
165 |
EXF_SWAPFFIELDS_XZ |
_RL ffld0(1-olx:snx+olx,Nr,nsx,nsy) |
|
./pkg/exf/exf_swapffields.F |
166 |
EXF_SWAPFFIELDS_XZ |
_RL ffld1(1-olx:snx+olx,Nr,nsx,nsy) |
|
./pkg/exf/exf_swapffields.F |
184 |
EXF_SWAPFFIELDS_XZ |
do k = 1,Nr |
|
./pkg/exf/exf_swapffields.F |
223 |
EXF_SWAPFFIELDS_YZ |
_RL ffld0(1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/exf/exf_swapffields.F |
224 |
EXF_SWAPFFIELDS_YZ |
_RL ffld1(1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/exf/exf_swapffields.F |
242 |
EXF_SWAPFFIELDS_YZ |
do k = 1,Nr |