| File |
Line number |
Procedure |
Code |
|
./model/inc/FFIELDS.h |
119 |
NO PROCEDURE |
_RL addMass(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/FFIELDS.h |
123 |
NO PROCEDURE |
_RS frictionHeating(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/FFIELDS.h |
152 |
NO PROCEDURE |
_RS eddyPsiX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/FFIELDS.h |
153 |
NO PROCEDURE |
_RS eddyPsiY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/FFIELDS.h |
157 |
NO PROCEDURE |
_RL tauxEddy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/FFIELDS.h |
158 |
NO PROCEDURE |
_RL tauyEddy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/FFIELDS.h |
159 |
NO PROCEDURE |
_RL uEulerMean(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/FFIELDS.h |
160 |
NO PROCEDURE |
_RL vEulerMean(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ecco/ecco_cost_init_varia.F |
332 |
ECCO_COST_INIT_VARIA |
do k =1,Nr |
|
./pkg/ecco/ecco_cost_weights.F |
1535 |
ECCO_COST_WEIGHTS |
& Nr, wdiffkr2, 1, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1559 |
ECCO_COST_WEIGHTS |
& Nr, wkapgm2, 1, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1583 |
ECCO_COST_WEIGHTS |
& Nr, wkapredi2, 1, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1607 |
ECCO_COST_WEIGHTS |
& Nr, wedtaux2, 1, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1668 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( uvel0errfile, cost_iprec, cost_yftype, Nr, |
|
./pkg/ecco/ecco_cost_weights.F |
1670 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( vvel0errfile, cost_iprec, cost_yftype, Nr, |
|
./pkg/ecco/ecco_cost_weights.F |
175 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./pkg/ecco/ecco_cost_weights.F |
2031 |
ECCO_COST_WEIGHTS |
CALL ACTIVE_WRITE_GEN_RS( 'maskCtrlC', maskC, 'XY', Nr, |
|
./pkg/ecco/ecco_cost_weights.F |
2033 |
ECCO_COST_WEIGHTS |
CALL ACTIVE_WRITE_GEN_RS( 'maskCtrlW', maskW, 'XY', Nr, |
|
./pkg/ecco/ecco_cost_weights.F |
2035 |
ECCO_COST_WEIGHTS |
CALL ACTIVE_WRITE_GEN_RS( 'maskCtrlS', maskS, 'XY', Nr, |
|
./pkg/ecco/ecco_cost_weights.F |
220 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./pkg/ecco/ecco_cost_weights.F |
381 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( salt0errfile, cost_iprec, cost_yftype, Nr, |
|
./pkg/ecco/ecco_cost_weights.F |
424 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( temp0errfile, cost_iprec, cost_yftype, Nr, |
|
./pkg/ecco/ecco_cost_weights.F |
469 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( salterrfile, cost_iprec, cost_yftype, Nr, |
|
./pkg/ecco/ecco_cost_weights.F |
517 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( temperrfile, cost_iprec, cost_yftype, Nr, |
|
./pkg/ecco/ecco_phys.F |
160 |
ECCO_PHYS |
I .TRUE., .TRUE., .FALSE., Nr, mythid ) |
|
./pkg/ecco/ecco_phys.F |
170 |
ECCO_PHYS |
call ECCO_ZERO(trVol,Nr,zeroRL,myThid) |
|
./pkg/ecco/ecco_phys.F |
171 |
ECCO_PHYS |
call ECCO_ZERO(trHeat,Nr,zeroRL,myThid) |
|
./pkg/ecco/ecco_phys.F |
172 |
ECCO_PHYS |
call ECCO_ZERO(trSalt,Nr,zeroRL,myThid) |
|
./pkg/ecco/ecco_phys.F |
51 |
ECCO_PHYS |
_RL trVolW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ecco/ecco_phys.F |
52 |
ECCO_PHYS |
_RL trVolS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ecco/ecco_phys.F |
53 |
ECCO_PHYS |
_RL trHeatW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ecco/ecco_phys.F |
54 |
ECCO_PHYS |
_RL trHeatS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ecco/ecco_phys.F |
55 |
ECCO_PHYS |
_RL trSaltW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ecco/ecco_phys.F |
56 |
ECCO_PHYS |
_RL trSaltS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ecco/ecco_phys.F |
62 |
ECCO_PHYS |
_RL RHOInSituLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ecco/ecco_readparms.F |
634 |
ECCO_READPARMS |
& Nr,zeroRL,mythid) |
|
./pkg/ecco/ecco_readparms.F |
636 |
ECCO_READPARMS |
& Nr,zeroRL,mythid) |
|
./pkg/ecco/ecco_readparms.F |
638 |
ECCO_READPARMS |
& Nr,zeroRL,mythid) |
|
./pkg/ecco/ecco_readparms.F |
743 |
ECCO_READPARMS |
call MDSREADFIELD(tempfile,cost_iprec,'RL',Nr, |
|
./pkg/ecco/ecco_readparms.F |
757 |
ECCO_READPARMS |
call MDSREADFIELD(tempfile,cost_iprec,'RL',Nr, |
|
./pkg/ecco/ecco_readparms.F |
771 |
ECCO_READPARMS |
call MDSREADFIELD(tempfile,cost_iprec,'RL',Nr, |
|
./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 |
446 |
NO PROCEDURE |
_RS hFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
447 |
NO PROCEDURE |
_RS hFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
448 |
NO PROCEDURE |
_RS hFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
458 |
NO PROCEDURE |
_RS recip_hFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
459 |
NO PROCEDURE |
_RS recip_hFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/GRID.h |
460 |
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+1) |
|
./model/inc/GRID.h |
480 |
NO PROCEDURE |
_RS drF (Nr) |
|
./model/inc/GRID.h |
481 |
NO PROCEDURE |
_RS recip_drC (Nr+1) |
|
./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/exch2/W2_EXCH2_BUFFER.h |
19 |
NO PROCEDURE |
& = ( (sNx+2*OLx)*2*OLy+(sNy+2*OLy)*2*OLx)*Nr |
|
./pkg/exf/exf_bulkformulae.F |
291 |
EXF_BULKFORMULAE |
IF ( Nr.GE.2 .AND. sstExtrapol.GT.0. _d 0 ) THEN |
|
./pkg/exf/exf_filter_rl.F |
44 |
EXF_FILTER_RL |
IF ( usingPCoords ) ks = Nr |
|
./pkg/exf/exf_radiation.F |
72 |
EXF_RADIATION |
IF ( Nr.GE.2 .AND. sstExtrapol.GT.0. _d 0 ) THEN |
|
./model/inc/NH_VARS.h |
36 |
NO PROCEDURE |
_RL phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/NH_VARS.h |
38 |
NO PROCEDURE |
_RL gW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/NH_VARS.h |
40 |
NO PROCEDURE |
_RL gwNm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/NH_VARS.h |
42 |
NO PROCEDURE |
_RL gwNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/PARAMS.h |
846 |
NO PROCEDURE |
_RL delR(Nr) |
|
./model/inc/PARAMS.h |
847 |
NO PROCEDURE |
_RL delRc(Nr+1) |
|
./model/inc/PARAMS.h |
859 |
NO PROCEDURE |
_RL dTtracerLev(Nr) |
|
./model/inc/PARAMS.h |
877 |
NO PROCEDURE |
_RL viscArNr(Nr) |
|
./model/inc/PARAMS.h |
902 |
NO PROCEDURE |
_RL diffKrNrT(Nr) |
|
./model/inc/PARAMS.h |
903 |
NO PROCEDURE |
_RL diffKr4T(Nr) |
|
./model/inc/PARAMS.h |
906 |
NO PROCEDURE |
_RL diffKrNrS(Nr) |
|
./model/inc/PARAMS.h |
907 |
NO PROCEDURE |
_RL diffKr4S(Nr) |
|
./model/inc/PARAMS.h |
919 |
NO PROCEDURE |
_RL pCellMix_viscAr(Nr) |
|
./model/inc/PARAMS.h |
920 |
NO PROCEDURE |
_RL pCellMix_diffKr(Nr) |
|
./model/inc/PARAMS.h |
924 |
NO PROCEDURE |
_RL gravFacC(Nr), recip_gravFacC(Nr) |
|
./model/inc/PARAMS.h |
925 |
NO PROCEDURE |
_RL gravFacF(Nr+1), recip_gravFacF(Nr+1) |
|
./model/inc/PARAMS.h |
928 |
NO PROCEDURE |
_RL rho1Ref(Nr) |
|
./model/inc/PARAMS.h |
929 |
NO PROCEDURE |
_RL rhoFacC(Nr), recip_rhoFacC(Nr) |
|
./model/inc/PARAMS.h |
930 |
NO PROCEDURE |
_RL rhoFacF(Nr+1), recip_rhoFacF(Nr+1) |
|
./model/inc/PARAMS.h |
933 |
NO PROCEDURE |
_RL tRef(Nr) |
|
./model/inc/PARAMS.h |
934 |
NO PROCEDURE |
_RL sRef(Nr) |
|
./model/inc/PARAMS.h |
935 |
NO PROCEDURE |
_RL pRef4EOS(Nr) |
|
./model/inc/PARAMS.h |
936 |
NO PROCEDURE |
_RL phiRef(2*Nr+1) |
|
./model/inc/PARAMS.h |
937 |
NO PROCEDURE |
_RL dBdrRef(Nr) |
|
./model/inc/PARAMS.h |
938 |
NO PROCEDURE |
_RL rVel2wUnit(Nr+1), wUnit2rVel(Nr+1) |
|
./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 |
34 |
NO PROCEDURE |
_RL guphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
35 |
NO PROCEDURE |
_RL gvphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
36 |
NO PROCEDURE |
_RL gthphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/fizhi/fizhi_coms.h |
37 |
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 |
132 |
FIZHI_TENDENCY_APPLY_V |
IF ( klev.EQ.Nr .OR. rC(klev).LT.1000. ) THEN |
|
./pkg/fizhi/fizhi_tendency_apply.F |
214 |
FIZHI_TENDENCY_APPLY_T |
IF ( klev.EQ.Nr .OR. rC(klev).LT.1000. ) THEN |
|
./pkg/fizhi/fizhi_tendency_apply.F |
49 |
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 |
295 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
304 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
313 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
322 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gsphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
331 |
FIZHI_WRAPPER |
call ATOC(myThid,guphy,gvphy,maskC,idim1,idim2,jdim1,jdim2,Nr, |
|
./pkg/fizhi/fizhi_wrapper.F |
45 |
FIZHI_WRAPPER |
_RL pedyn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1,nSx,nSy) |
|
./pkg/fizhi/fizhi_wrapper.F |
80 |
FIZHI_WRAPPER |
do L = 1,Nr |
|
./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 |
472 |
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 |
483 |
STEP_FIZHI_CORR |
call DYN2PHYS(sdyntemp,pedyn,im1,im2,jm1,jm2,Nr,Nsx,Nsy,1,sNx, |
|
./pkg/fizhi/step_fizhi_corr.F |
48 |
STEP_FIZHI_CORR |
_RL thdyntemp(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
49 |
STEP_FIZHI_CORR |
_RL sdyntemp(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
81 |
STEP_FIZHI_CORR |
do L = 1,Nr |
|
./pkg/fizhi/step_fizhi_corr.F |
96 |
STEP_FIZHI_CORR |
do L = Lbotij+1,Nr+1 |
|
./pkg/flt/FLT_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER (fltBufDim = (9+4*Nr)) |
|
./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 |
213 |
FLT_MAP_IJLOCAL2XY |
DO k=1,Nr |
|
./pkg/flt/flt_mapping.F |
262 |
FLT_MAP_IJLOCAL2XY |
ELSEIF ( k.GT.Nr ) THEN |
|
./pkg/flt/flt_mapping.F |
263 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_K2R = rF(Nr+1) |
|
./pkg/flt/flt_runga2.F |
75 |
FLT_RUNGA2 |
kzhi = 0.5 _d 0 + DFLOAT(Nr) |
|
./pkg/flt/flt_runga4.F |
75 |
FLT_RUNGA4 |
kzhi = 0.5 _d 0 + DFLOAT(Nr) |
|
./pkg/flt/flt_traj.F |
123 |
FLT_TRAJ |
IF ( kp.LT.1 .OR. kp.GT.Nr ) THEN |
|
./pkg/flt/flt_traj.F |
135 |
FLT_TRAJ |
kp = MIN( MAX(kp,1), Nr) |
|
./pkg/flt/flt_up.F |
135 |
FLT_UP |
DO k=1,Nr |
|
./pkg/flt/flt_up.F |
141 |
FLT_UP |
tmp(9+k+1*Nr) = vv |
|
./pkg/flt/flt_up.F |
142 |
FLT_UP |
tmp(9+k+2*Nr) = tt |
|
./pkg/flt/flt_up.F |
143 |
FLT_UP |
tmp(9+k+3*Nr) = ss |
|
./pkg/flt/flt_up.F |
185 |
FLT_UP |
IF ( ii.EQ.0 ) ii = 9+4*Nr |
|
./pkg/flt/flt_up.F |
48 |
FLT_UP |
PARAMETER (imax=(9+4*Nr)) |
|
./pkg/flt/flt_up.F |
64 |
FLT_UP |
IF ( flt_selectProfOutp.GE.2 ) nFlds = nFlds + 1 + 4*Nr |
|
./pkg/frazil/FRAZIL.h |
7 |
NO PROCEDURE |
_RL FrazilForcingT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/frazil/frazil_calc_rhs.F |
111 |
FRAZIL_CALC_RHS |
& 0,Nr, 0, 1, 1, myThid ) |
|
./pkg/frazil/frazil_calc_rhs.F |
57 |
FRAZIL_CALC_RHS |
DO k=1,Nr |
|
./pkg/frazil/frazil_calc_rhs.F |
66 |
FRAZIL_CALC_RHS |
DO k = 2, Nr |
|
./pkg/frazil/frazil_init_varia.F |
37 |
FRAZIL_INIT_VARIA |
DO k=1,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 |
65 |
GCHEM_CALC_TENDENCY |
DO k = 1, Nr |
|
./pkg/gchem/gchem_forcing_sep.F |
84 |
GCHEM_FORCING_SEP |
& 0, Nr, 0, 1, 1, myThid ) |
|
./pkg/gchem/gchem_init_vari.F |
52 |
GCHEM_INIT_VARI |
DO k = 1, Nr |
|
./pkg/gchem/gchem_surfmean.F |
25 |
GCHEM_SURFMEAN |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gchem/gchem_surfmean.F |
39 |
GCHEM_SURFMEAN |
ks = 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 |
140 |
GAD_ADVECTION |
_RL rTran3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
141 |
GAD_ADVECTION |
_RL afr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
147 |
GAD_ADVECTION |
_RL localT3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
151 |
GAD_ADVECTION |
_RL locVol3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
271 |
GAD_ADVECTION |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_advection.F |
273 |
GAD_ADVECTION |
kkey = (igadkey-1)*Nr + k |
|
./pkg/generic_advdiff/gad_advection.F |
327 |
GAD_ADVECTION |
& + (igadkey-1)*maxpass*Nr |
|
./pkg/generic_advdiff/gad_advection.F |
75 |
GAD_ADVECTION |
_RL deltaTLev(Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
76 |
GAD_ADVECTION |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
77 |
GAD_ADVECTION |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
78 |
GAD_ADVECTION |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
79 |
GAD_ADVECTION |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_advection.F |
842 |
GAD_ADVECTION |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_advection.F |
871 |
GAD_ADVECTION |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_advection.F |
87 |
GAD_ADVECTION |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
898 |
GAD_ADVECTION |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_advection.F |
900 |
GAD_ADVECTION |
kkey = (igadkey-1)*Nr + (Nr-k+1) |
|
./pkg/generic_advdiff/gad_advection.F |
907 |
GAD_ADVECTION |
IF (k.EQ.Nr) kp1Msk=0. |
|
./pkg/generic_advdiff/gad_advection.F |
918 |
GAD_ADVECTION |
& (useAIM .AND. trIdentity.EQ.GAD_SALINITY .AND. k.EQ.Nr) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
36 |
GAD_BIHARM_R |
_RL diffKr4(Nr) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
37 |
GAD_BIHARM_R |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
61 |
GAD_BIHARM_R |
IF ( km.LT.1 .OR. kl.GT.Nr ) THEN |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
39 |
GAD_C2_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./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 |
44 |
GAD_C2_IMPL_R |
_RL deltaTarg(Nr) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
46 |
GAD_C2_IMPL_R |
_RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
47 |
GAD_C2_IMPL_R |
_RL a3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
48 |
GAD_C2_IMPL_R |
_RL b3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
49 |
GAD_C2_IMPL_R |
_RL c3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
60 |
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) |
|
./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 |
102 |
GAD_CALC_RHS |
_RL diffKr4(Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
103 |
GAD_CALC_RHS |
_RL TracerN(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
104 |
GAD_CALC_RHS |
_RL TracAB (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
105 |
GAD_CALC_RHS |
_RL deltaTLev(Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
119 |
GAD_CALC_RHS |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
492 |
GAD_CALC_RHS |
& (.NOT.useAIM .OR. trIdentity.NE.GAD_SALINITY .OR. k.LT.Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
745 |
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) |
|
./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 |
50 |
GAD_DST2U1_IMPL_R |
_RL deltaTarg(Nr) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
52 |
GAD_DST2U1_IMPL_R |
_RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
53 |
GAD_DST2U1_IMPL_R |
_RL a3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
54 |
GAD_DST2U1_IMPL_R |
_RL b3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
55 |
GAD_DST2U1_IMPL_R |
_RL c3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
76 |
GAD_DST2U1_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
46 |
GAD_DST3_ADV_R |
_RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
75 |
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 |
52 |
GAD_DST3FL_IMPL_R |
_RL deltaTarg(Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
54 |
GAD_DST3FL_IMPL_R |
_RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
55 |
GAD_DST3FL_IMPL_R |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
56 |
GAD_DST3FL_IMPL_R |
_RL a5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
57 |
GAD_DST3FL_IMPL_R |
_RL b5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
58 |
GAD_DST3FL_IMPL_R |
_RL c5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
59 |
GAD_DST3FL_IMPL_R |
_RL d5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
60 |
GAD_DST3FL_IMPL_R |
_RL e5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
84 |
GAD_DST3FL_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
87 |
GAD_DST3FL_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
91 |
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 |
47 |
GAD_FLUXLIMIT_IMPL_R |
_RL deltaTarg(Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
49 |
GAD_FLUXLIMIT_IMPL_R |
_RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
50 |
GAD_FLUXLIMIT_IMPL_R |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
51 |
GAD_FLUXLIMIT_IMPL_R |
_RL a3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
52 |
GAD_FLUXLIMIT_IMPL_R |
_RL b3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
53 |
GAD_FLUXLIMIT_IMPL_R |
_RL c3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
79 |
GAD_FLUXLIMIT_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
82 |
GAD_FLUXLIMIT_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
105 |
GAD_IMPLICIT_R |
IF (Nr.GT.1) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
108 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
125 |
GAD_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
137 |
GAD_IMPLICIT_R |
DO k=1,Nr-1 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
149 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
168 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
176 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
186 |
GAD_IMPLICIT_R |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
208 |
GAD_IMPLICIT_R |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.k.LT.Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
305 |
GAD_IMPLICIT_R |
DO k= Nr,1,-1 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
359 |
GAD_IMPLICIT_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
360 |
GAD_IMPLICIT_R |
kp2=MIN(Nr,k+2) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
45 |
GAD_IMPLICIT_R |
_RL deltaTLev(Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
46 |
GAD_IMPLICIT_R |
_RL kappaRX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
47 |
GAD_IMPLICIT_R |
_RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
48 |
GAD_IMPLICIT_R |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
49 |
GAD_IMPLICIT_R |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
50 |
GAD_IMPLICIT_R |
_RL gTracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
82 |
GAD_IMPLICIT_R |
_RL a5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
83 |
GAD_IMPLICIT_R |
_RL b5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
84 |
GAD_IMPLICIT_R |
_RL c5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
85 |
GAD_IMPLICIT_R |
_RL d5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
86 |
GAD_IMPLICIT_R |
_RL e5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
88 |
GAD_IMPLICIT_R |
_RL localTr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,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_osc_hat_r.F |
111 |
GAD_OSC_HAT_R |
_RL mask(1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
112 |
GAD_OSC_HAT_R |
_RL fbar(1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
114 |
GAD_OSC_HAT_R |
& 1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
121 |
GAD_OSC_HAT_R |
do ir = +1-3, Nr+3 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
22 |
GAD_OSC_LOC_R |
_RL mask(1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
23 |
GAD_OSC_LOC_R |
_RL fbar(1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
25 |
GAD_OSC_LOC_R |
& 1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
31 |
GAD_OSC_LOC_R |
& ir.lt.Nr+3) then |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
71 |
GAD_OSC_LOC_R |
if (ir.eq.Nr+3) then |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
17 |
GAD_OSC_MUL_R |
_RL mask(1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
19 |
GAD_OSC_MUL_R |
& 1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
101 |
GAD_PPM_ADV_R |
do ir = 2, Nr |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
109 |
GAD_PPM_ADV_R |
do ir = 1, Nr |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
120 |
GAD_PPM_ADV_R |
floc(Nr+1) = floc(Nr) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
121 |
GAD_PPM_ADV_R |
floc(Nr+2) = floc(Nr) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
122 |
GAD_PPM_ADV_R |
floc(Nr+3) = floc(Nr) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
151 |
GAD_PPM_ADV_R |
do ir = 2, Nr |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
33 |
GAD_PPM_ADV_R |
_RL delT(1:Nr) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
36 |
GAD_PPM_ADV_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
39 |
GAD_PPM_ADV_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
42 |
GAD_PPM_ADV_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
45 |
GAD_PPM_ADV_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
62 |
GAD_PPM_ADV_R |
_RL floc( 1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
63 |
GAD_PPM_ADV_R |
_RL mloc( 1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
64 |
GAD_PPM_ADV_R |
_RL fhat(1:3,1-0:Nr+0) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
65 |
GAD_PPM_ADV_R |
_RL edge( 1-0:Nr+1) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
66 |
GAD_PPM_ADV_R |
_RL ohat(1:2,1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
73 |
GAD_PPM_ADV_R |
mloc(Nr+1) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
74 |
GAD_PPM_ADV_R |
mloc(Nr+2) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
75 |
GAD_PPM_ADV_R |
mloc(Nr+3) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
32 |
GAD_PPM_FLX_R |
_RL delT(1:Nr) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
35 |
GAD_PPM_FLX_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
38 |
GAD_PPM_FLX_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
40 |
GAD_PPM_FLX_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
43 |
GAD_PPM_FLX_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
67 |
GAD_PPM_FLX_R |
do ir = +2, Nr |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
36 |
GAD_PPM_HAT_R |
_RL mask(1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
37 |
GAD_PPM_HAT_R |
_RL fbar(1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
38 |
GAD_PPM_HAT_R |
_RL edge(1-0:Nr+1) |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
40 |
GAD_PPM_HAT_R |
& 1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
42 |
GAD_PPM_HAT_R |
& 1-0:Nr+0) |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
66 |
GAD_PPM_HAT_R |
do ir = +1, Nr |
|
./model/inc/SIZE.h |
52 |
NO PROCEDURE |
INTEGER Nr |
|
./model/inc/SIZE.h |
64 |
NO PROCEDURE |
& Nr = 23) |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
22 |
GAD_PPM_P3E_R |
_RL mask(1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
23 |
GAD_PPM_P3E_R |
_RL fbar(1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
24 |
GAD_PPM_P3E_R |
_RL edge(1-0:Nr+1) |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
33 |
GAD_PPM_P3E_R |
do ir = +1, Nr+1 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
101 |
GAD_PQM_ADV_R |
do ir = +1, Nr |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
117 |
GAD_PQM_ADV_R |
floc(Nr+1) = floc(Nr) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
118 |
GAD_PQM_ADV_R |
floc(Nr+2) = floc(Nr) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
119 |
GAD_PQM_ADV_R |
floc(Nr+3) = floc(Nr) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
148 |
GAD_PQM_ADV_R |
do ir = 2, Nr |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
33 |
GAD_PQM_ADV_R |
_RL delT(1:Nr) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
36 |
GAD_PQM_ADV_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
39 |
GAD_PQM_ADV_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
42 |
GAD_PQM_ADV_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
45 |
GAD_PQM_ADV_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
62 |
GAD_PQM_ADV_R |
_RL floc( 1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
63 |
GAD_PQM_ADV_R |
_RL mloc( 1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
64 |
GAD_PQM_ADV_R |
_RL fhat(1:5,1-0:Nr+0) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
65 |
GAD_PQM_ADV_R |
_RL edge(1:2,1-0:Nr+1) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
66 |
GAD_PQM_ADV_R |
_RL ohat(1:2,1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
73 |
GAD_PQM_ADV_R |
mloc(Nr+1) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
74 |
GAD_PQM_ADV_R |
mloc(Nr+2) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
75 |
GAD_PQM_ADV_R |
mloc(Nr+3) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
32 |
GAD_PQM_FLX_R |
_RL delT(1:Nr) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
35 |
GAD_PQM_FLX_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
38 |
GAD_PQM_FLX_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
40 |
GAD_PQM_FLX_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
43 |
GAD_PQM_FLX_R |
& 1:Nr) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
67 |
GAD_PQM_FLX_R |
do ir = +2, Nr |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
39 |
GAD_PQM_HAT_R |
_RL mask(1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
40 |
GAD_PQM_HAT_R |
_RL fbar(1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
42 |
GAD_PQM_HAT_R |
& 1-0:Nr+1) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
44 |
GAD_PQM_HAT_R |
& 1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
46 |
GAD_PQM_HAT_R |
& 1-0:Nr+0) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
75 |
GAD_PQM_HAT_R |
do ir = +1, Nr |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
22 |
GAD_PQM_P5E_R |
_RL mask(1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
23 |
GAD_PQM_P5E_R |
_RL fbar(1-3:Nr+3) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
25 |
GAD_PQM_P5E_R |
& 1-0:Nr+1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
34 |
GAD_PQM_P5E_R |
do ir = +1, Nr+1 |
|
./pkg/generic_advdiff/gad_read_pickup.F |
101 |
GAD_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/generic_advdiff/gad_read_pickup.F |
152 |
GAD_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
69 |
GAD_SOM_ADV_R |
_RL sm_v (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
70 |
GAD_SOM_ADV_R |
_RL sm_o (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
71 |
GAD_SOM_ADV_R |
_RL sm_x (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
72 |
GAD_SOM_ADV_R |
_RL sm_y (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
73 |
GAD_SOM_ADV_R |
_RL sm_z (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
74 |
GAD_SOM_ADV_R |
_RL sm_xx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
75 |
GAD_SOM_ADV_R |
_RL sm_yy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
76 |
GAD_SOM_ADV_R |
_RL sm_zz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
77 |
GAD_SOM_ADV_R |
_RL sm_xy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
78 |
GAD_SOM_ADV_R |
_RL sm_xz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
79 |
GAD_SOM_ADV_R |
_RL sm_yz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_advect.F |
103 |
GAD_SOM_ADVECT |
_RL smVol (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_advect.F |
104 |
GAD_SOM_ADVECT |
_RL smTr0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_advect.F |
241 |
GAD_SOM_ADVECT |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_som_advect.F |
319 |
GAD_SOM_ADVECT |
I ipass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
366 |
GAD_SOM_ADVECT |
I iPass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
472 |
GAD_SOM_ADVECT |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_som_advect.F |
475 |
GAD_SOM_ADVECT |
kUp = 1+MOD(Nr-k,2) |
|
./pkg/generic_advdiff/gad_som_advect.F |
476 |
GAD_SOM_ADVECT |
kDown= 1+MOD(Nr-k+1,2) |
|
./pkg/generic_advdiff/gad_som_advect.F |
477 |
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 uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_advect.F |
56 |
GAD_SOM_ADVECT |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_som_advect.F |
57 |
GAD_SOM_ADVECT |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./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) |
|
./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) |
|
./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 |
|
./model/inc/SURFACE.h |
110 |
NO PROCEDURE |
_RS h0FacC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/SURFACE.h |
111 |
NO PROCEDURE |
_RS h0FacW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/SURFACE.h |
112 |
NO PROCEDURE |
_RS h0FacS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
53 |
GAD_U3C4_IMPL_R |
_RL deltaTarg(Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
55 |
GAD_U3C4_IMPL_R |
_RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
56 |
GAD_U3C4_IMPL_R |
_RL a5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
57 |
GAD_U3C4_IMPL_R |
_RL b5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
58 |
GAD_U3C4_IMPL_R |
_RL c5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
59 |
GAD_U3C4_IMPL_R |
_RL d5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
60 |
GAD_U3C4_IMPL_R |
_RL e5d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
86 |
GAD_U3C4_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
89 |
GAD_U3C4_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
93 |
GAD_U3C4_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
95 |
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 |
117 |
NO PROCEDURE |
_RL IDEMIX_E (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
118 |
NO PROCEDURE |
_RL IDEMIX_V0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
119 |
NO PROCEDURE |
_RL IDEMIX_tau_d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
86 |
NO PROCEDURE |
_RL GGL90TKE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
87 |
NO PROCEDURE |
_RL GGL90viscArU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
88 |
NO PROCEDURE |
_RL GGL90viscArV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
89 |
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 |
100 |
GGL90_CALC |
_RL KappaE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
102 |
GGL90_CALC |
_RL GGL90visctmp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
109 |
GGL90_CALC |
_RL hFacI(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
111 |
GGL90_CALC |
_RL recip_hFacI(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
113 |
GGL90_CALC |
_RL a3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
114 |
GGL90_CALC |
_RL b3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
115 |
GGL90_CALC |
_RL c3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
151 |
GGL90_CALC |
DO K=1,Nr |
|
./pkg/ggl90/ggl90_calc.F |
169 |
GGL90_CALC |
DO k = 1, Nr |
|
./pkg/ggl90/ggl90_calc.F |
212 |
GGL90_CALC |
DO k = 2, Nr |
|
./pkg/ggl90/ggl90_calc.F |
242 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
252 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
264 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
275 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
287 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
297 |
GGL90_CALC |
GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr), |
|
./pkg/ggl90/ggl90_calc.F |
298 |
GGL90_CALC |
& GGL90mixingLengthMin+drF(Nr)) |
|
./pkg/ggl90/ggl90_calc.F |
301 |
GGL90_CALC |
DO k=Nr-1,2,-1 |
|
./pkg/ggl90/ggl90_calc.F |
310 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
322 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
332 |
GGL90_CALC |
GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr), |
|
./pkg/ggl90/ggl90_calc.F |
333 |
GGL90_CALC |
& GGL90mixingLengthMin+drF(Nr)) |
|
./pkg/ggl90/ggl90_calc.F |
336 |
GGL90_CALC |
DO k=Nr-1,2,-1 |
|
./pkg/ggl90/ggl90_calc.F |
345 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
363 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
50 |
GGL90_CALC |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
556 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
576 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
593 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
615 |
GGL90_CALC |
DO k=1,Nr |
|
./pkg/ggl90/ggl90_calc.F |
629 |
GGL90_CALC |
kp1 = MIN(Nr,kSurf+1) |
|
./pkg/ggl90/ggl90_calc.F |
668 |
GGL90_CALC |
DO k=1,Nr |
|
./pkg/ggl90/ggl90_calc.F |
681 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
715 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
745 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
778 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
780 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
782 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
784 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
786 |
GGL90_CALC |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
788 |
GGL90_CALC |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
790 |
GGL90_CALC |
kp1 = MIN(Nr,kSurf+1) |
|
./pkg/ggl90/ggl90_calc.F |
85 |
GGL90_CALC |
_RL Nsquare(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
88 |
GGL90_CALC |
_RL SQRTTKE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
96 |
GGL90_CALC |
_RL TKEPrandtlNumber (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
97 |
GGL90_CALC |
_RL GGL90mixingLength(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
98 |
GGL90_CALC |
_RL rMixingLength (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
99 |
GGL90_CALC |
_RL mxLength_Dn (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_idemix.F |
112 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
126 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
138 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
161 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
178 |
GGL90_IDEMIX |
DO k=1,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
187 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
202 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
212 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
239 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
288 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
301 |
GGL90_IDEMIX |
DO k=2,Nr-1 |
|
./pkg/ggl90/ggl90_idemix.F |
313 |
GGL90_IDEMIX |
delta(i,j,Nr) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
326 |
GGL90_IDEMIX |
DO k=3,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
339 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
365 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
439 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
451 |
GGL90_IDEMIX |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
453 |
GGL90_IDEMIX |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
455 |
GGL90_IDEMIX |
& 0,Nr, 1, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
457 |
GGL90_IDEMIX |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
459 |
GGL90_IDEMIX |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
461 |
GGL90_IDEMIX |
& 0,Nr, 2, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_idemix.F |
49 |
GGL90_IDEMIX |
_RL hFacI(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
50 |
GGL90_IDEMIX |
_RL recip_hFacI(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
51 |
GGL90_IDEMIX |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
62 |
GGL90_IDEMIX |
_RL Nsquare(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
68 |
GGL90_IDEMIX |
_RL delta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
70 |
GGL90_IDEMIX |
_RL a3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
71 |
GGL90_IDEMIX |
_RL b3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
72 |
GGL90_IDEMIX |
_RL c3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
73 |
GGL90_IDEMIX |
_RL osborn_diff(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
74 |
GGL90_IDEMIX |
_RL c0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
75 |
GGL90_IDEMIX |
_RL forc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
87 |
GGL90_IDEMIX |
DO k = 1, Nr |
|
./pkg/ggl90/ggl90_init_varia.F |
147 |
GGL90_INIT_VARIA |
DO K=1,Nr |
|
./pkg/ggl90/ggl90_init_varia.F |
46 |
GGL90_INIT_VARIA |
DO K=1,Nr |
|
./pkg/ggl90/ggl90_init_varia.F |
76 |
GGL90_INIT_VARIA |
DO K=1,Nr |
|
./pkg/ggl90/ggl90_output.F |
114 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
115 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
116 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
117 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90TKEtave, Nr, 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 |
132 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
134 |
GGL90_OUTPUT |
& Nr, DDTT, 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 |
154 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
156 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
178 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
179 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
180 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
181 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90TKEtave, Nr, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_read_pickup.F |
57 |
GGL90_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
|
./pkg/ggl90/ggl90_read_pickup.F |
63 |
GGL90_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, IDEMIX_E, 2, myIter, myThid ) |
|
./pkg/ggl90/ggl90_write_pickup.F |
52 |
GGL90_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
|
./pkg/ggl90/ggl90_write_pickup.F |
56 |
GGL90_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, IDEMIX_E, 2, myIter, myThid ) |
|
./pkg/gmredi/GMREDI.h |
203 |
NO PROCEDURE |
_RS GM_isoFac1d(Nr) |
|
./pkg/gmredi/GMREDI.h |
204 |
NO PROCEDURE |
_RS GM_bolFac1d(Nr) |
|
./pkg/gmredi/GMREDI.h |
215 |
NO PROCEDURE |
_RL Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
216 |
NO PROCEDURE |
_RL Kwy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
217 |
NO PROCEDURE |
_RL Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
224 |
NO PROCEDURE |
_RL Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
225 |
NO PROCEDURE |
_RL Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
236 |
NO PROCEDURE |
_RL Kuz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
237 |
NO PROCEDURE |
_RL Kvz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
247 |
NO PROCEDURE |
_RL GM_PsiX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
248 |
NO PROCEDURE |
_RL GM_PsiY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
267 |
NO PROCEDURE |
_RL K3D(1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
268 |
NO PROCEDURE |
_RL modesC(1,1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
270 |
NO PROCEDURE |
& 1-Oly:sNy+Oly,1:Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
272 |
NO PROCEDURE |
& 1-Oly:sNy+Oly,1: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_eigs.F |
107 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
122 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
163 |
GMREDI_CALC_EIGS |
DO kk=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
164 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
172 |
GMREDI_CALC_EIGS |
DO k=2,Nr-1 |
|
./pkg/gmredi/gmredi_calc_eigs.F |
177 |
GMREDI_CALC_EIGS |
k=Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
181 |
GMREDI_CALC_EIGS |
CALL DGEEV('N','V',Nr,array,Nr,eigR,eigI,dummy,1, |
|
./pkg/gmredi/gmredi_calc_eigs.F |
182 |
GMREDI_CALC_EIGS |
& vecs,Nr,work,Nr*Nr,info) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
214 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
218 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
226 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
247 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
254 |
GMREDI_CALC_EIGS |
k=Nr+1 |
|
./pkg/gmredi/gmredi_calc_eigs.F |
264 |
GMREDI_CALC_EIGS |
k=Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
266 |
GMREDI_CALC_EIGS |
drNr = rC(Nr)-rF(Nr+1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
272 |
GMREDI_CALC_EIGS |
DO k=Nr-1,1,-1 |
|
./pkg/gmredi/gmredi_calc_eigs.F |
304 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
325 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
341 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
361 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
381 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
395 |
GMREDI_CALC_EIGS |
CALL DIAGNOSTICS_FILL(a3d, 'GM_A3D ',0,Nr,0,1,1,myThid) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
396 |
GMREDI_CALC_EIGS |
CALL DIAGNOSTICS_FILL(b3d, 'GM_B3D ',0,Nr,0,1,1,myThid) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
397 |
GMREDI_CALC_EIGS |
CALL DIAGNOSTICS_FILL(c3d, 'GM_C3D ',0,Nr,0,1,1,myThid) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
41 |
GMREDI_CALC_EIGS |
_RL mask(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
42 |
GMREDI_CALC_EIGS |
_RL hfac(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
43 |
GMREDI_CALC_EIGS |
_RL recip_hfac(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
45 |
GMREDI_CALC_EIGS |
_RL N2( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
47 |
GMREDI_CALC_EIGS |
_RL vec(nmodes,1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
69 |
GMREDI_CALC_EIGS |
_RL a3d( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
70 |
GMREDI_CALC_EIGS |
_RL b3d( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
71 |
GMREDI_CALC_EIGS |
_RL c3d( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
73 |
GMREDI_CALC_EIGS |
_RL eigR(Nr),eigI(Nr),vecs(Nr,Nr),dummy(1,Nr),work(Nr*Nr) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
74 |
GMREDI_CALC_EIGS |
_RL array(Nr,Nr) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
84 |
GMREDI_CALC_EIGS |
_RL BuoyFreq(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr+1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
85 |
GMREDI_CALC_EIGS |
_RL intN(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
135 |
GMREDI_CALC_PSI_B |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
50 |
GMREDI_CALC_PSI_B |
_RL sigmaX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
51 |
GMREDI_CALC_PSI_B |
_RL sigmaY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
52 |
GMREDI_CALC_PSI_B |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
94 |
GMREDI_CALC_PSI_B |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
105 |
GMREDI_CALC_PSI_BVP |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
138 |
GMREDI_CALC_PSI_BVP |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
175 |
GMREDI_CALC_PSI_BVP |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
185 |
GMREDI_CALC_PSI_BVP |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
210 |
GMREDI_CALC_PSI_BVP |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
41 |
GMREDI_CALC_PSI_BVP |
_RL sigmaX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
42 |
GMREDI_CALC_PSI_BVP |
_RL sigmaY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
43 |
GMREDI_CALC_PSI_BVP |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
69 |
GMREDI_CALC_PSI_BVP |
_RL GM_a3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
70 |
GMREDI_CALC_PSI_BVP |
_RL GM_b3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
71 |
GMREDI_CALC_PSI_BVP |
_RL GM_c3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
95 |
GMREDI_CALC_PSI_BVP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1073 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwx_T, Kwx, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1075 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwy_T, Kwy, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1077 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwz_T, Kwz, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1087 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_PsiXtave, GM_PsiX, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1089 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_PsiYtave, GM_PsiY, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1135 |
GMREDI_CALC_TENSOR_DUMMY |
_RL sigmaX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1136 |
GMREDI_CALC_TENSOR_DUMMY |
_RL sigmaY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1137 |
GMREDI_CALC_TENSOR_DUMMY |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1149 |
GMREDI_CALC_TENSOR_DUMMY |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
220 |
GMREDI_CALC_TENSOR |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
230 |
GMREDI_CALC_TENSOR |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
295 |
GMREDI_CALC_TENSOR |
DO k=Nr,2,-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
412 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
519 |
GMREDI_CALC_TENSOR |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
521 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
62 |
GMREDI_CALC_TENSOR |
_RL sigmaX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
63 |
GMREDI_CALC_TENSOR |
_RL sigmaY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
64 |
GMREDI_CALC_TENSOR |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
667 |
GMREDI_CALC_TENSOR |
DO k=Nr,1,-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
668 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
670 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
672 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
885 |
GMREDI_CALC_TENSOR |
DO k=Nr,1,-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
886 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
888 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
890 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_urms.F |
36 |
GMREDI_CALC_URMS |
_RL N2( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_urms.F |
37 |
GMREDI_CALC_URMS |
_RL urms(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_urms.F |
70 |
GMREDI_CALC_URMS |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
100 |
GMREDI_DIAGNOSTICS_FILL |
& 0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
105 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(K3D, 'GM_K3D ',0,Nr,0,1,1,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_diagnostics_impl.F |
51 |
GMREDI_DIAGNOSTICS_IMPL |
& Nr.GE.2 .AND. tempStepping ) THEN |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
57 |
GMREDI_DIAGNOSTICS_IMPL |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_init_fixed.F |
70 |
GMREDI_INIT_FIXED |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_init_fixed.F |
78 |
GMREDI_INIT_FIXED |
& GM_isoFac1d, Nr, 1, myThid ) |
|
./pkg/gmredi/gmredi_init_fixed.F |
82 |
GMREDI_INIT_FIXED |
& GM_bolFac1d, Nr, 1, myThid ) |
|
./pkg/gmredi/gmredi_init_varia.F |
45 |
GMREDI_INIT_VARIA |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_init_varia.F |
75 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwx_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
76 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwy_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
77 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwz_T,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
83 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_PsiXtave,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
84 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_PsiYtave,Nr, bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
95 |
GMREDI_INIT_VARIA |
I Nr, -1, myThid ) |
|
./pkg/gmredi/gmredi_init_varia.F |
99 |
GMREDI_INIT_VARIA |
I Nr, -1, myThid ) |
|
./pkg/gmredi/gmredi_k3d.F |
1036 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
1045 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
1057 |
GMREDI_K3D |
k=Nr |
|
./pkg/gmredi/gmredi_k3d.F |
1060 |
GMREDI_K3D |
psistar(i,j,Nr) = -hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1063 |
GMREDI_K3D |
DO k=Nr-1,1,-1 |
|
./pkg/gmredi/gmredi_k3d.F |
1075 |
GMREDI_K3D |
k=Nr |
|
./pkg/gmredi/gmredi_k3d.F |
1082 |
GMREDI_K3D |
DO k=Nr-1,1,-1 |
|
./pkg/gmredi/gmredi_k3d.F |
1099 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(K3D, 'GM_K3D ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
109 |
GMREDI_K3D |
_RL N2( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
1100 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(KPV, 'GM_KPV ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1101 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(urms, 'GM_URMS ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1106 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(supp, 'GM_SUPP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1107 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Xix, 'GM_Xix ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1108 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Xiy, 'GM_Xiy ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
110 |
GMREDI_K3D |
_RL N2W( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
1112 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(SlopeX, 'GM_Sx ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1113 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(SlopeY, 'GM_Sy ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1114 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(tfluxX, 'GM_TFLXX',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1115 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(tfluxY, 'GM_TFLXY',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1116 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(gradqx, 'GM_dqdx ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1117 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(gradqy, 'GM_dqdy ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1118 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Kdqdy, 'GM_Kdqdy',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1119 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(Kdqdx, 'GM_Kdqdx',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
111 |
GMREDI_K3D |
_RL N2S( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
1121 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(ustar, 'GM_USTAR',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1122 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(vstar, 'GM_VSTAR',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1123 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(umc, 'GM_UMC ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1124 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(ubar, 'GM_UBAR ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1125 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(modesC, 'GM_MODEC',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1126 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(M4loc, 'GM_M4 ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1127 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(N2loc, 'GM_N2 ',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1128 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(M4onN2, 'GM_M4_N2',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1129 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(slopeC, 'GM_SLOPE',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
112 |
GMREDI_K3D |
_RL N( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
1132 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(psistar,'GM_PSTAR',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1140 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
1151 |
GMREDI_K3D |
& CALL DIAGNOSTICS_FILL(K3D, 'GM_K3D_T',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
115 |
GMREDI_K3D |
_RL ubar( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
119 |
GMREDI_K3D |
_RL uFldX( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr ) |
|
./pkg/gmredi/gmredi_k3d.F |
120 |
GMREDI_K3D |
_RL vFldY( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr ) |
|
./pkg/gmredi/gmredi_k3d.F |
138 |
GMREDI_K3D |
_RL KPV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
139 |
GMREDI_K3D |
_RL Kdqdy(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
140 |
GMREDI_K3D |
_RL Kdqdx(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
141 |
GMREDI_K3D |
_RL SlopeX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
142 |
GMREDI_K3D |
_RL SlopeY(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
143 |
GMREDI_K3D |
_RL dSigmaDx(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
144 |
GMREDI_K3D |
_RL dSigmaDy(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
145 |
GMREDI_K3D |
_RL tfluxX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
146 |
GMREDI_K3D |
_RL tfluxY(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
193 |
GMREDI_K3D |
_RL gradqx(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
194 |
GMREDI_K3D |
_RL gradqy(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
198 |
GMREDI_K3D |
_RL umc( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
200 |
GMREDI_K3D |
_RL urms( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
201 |
GMREDI_K3D |
_RL supp( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
202 |
GMREDI_K3D |
_RL ustar(1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
203 |
GMREDI_K3D |
_RL vstar(1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
204 |
GMREDI_K3D |
_RL Xix( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
205 |
GMREDI_K3D |
_RL Xiy( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
208 |
GMREDI_K3D |
_RL psistar(1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
302 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
319 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
341 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
351 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
367 |
GMREDI_K3D |
DO k = 1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
37 |
GMREDI_K3D |
_RL sigmaX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
38 |
GMREDI_K3D |
_RL sigmaY(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
39 |
GMREDI_K3D |
_RL sigmaR(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
400 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
420 |
GMREDI_K3D |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
441 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
442 |
GMREDI_K3D |
kp1 = min(k+1,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
444 |
GMREDI_K3D |
IF ( k.EQ.Nr ) mskp1 = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
472 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
484 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
486 |
GMREDI_K3D |
kp1 = min(k+1,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
488 |
GMREDI_K3D |
IF ( k.EQ.Nr ) mskp1 = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
584 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
626 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
642 |
GMREDI_K3D |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
675 |
GMREDI_K3D |
k=Nr |
|
./pkg/gmredi/gmredi_k3d.F |
693 |
GMREDI_K3D |
DO k=Nr-1,1,-1 |
|
./pkg/gmredi/gmredi_k3d.F |
715 |
GMREDI_K3D |
DO k=Nr-1,1,-1 |
|
./pkg/gmredi/gmredi_k3d.F |
736 |
GMREDI_K3D |
IF(kk.EQ.Nr) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
755 |
GMREDI_K3D |
IF(kk.EQ.Nr) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
780 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
78 |
GMREDI_K3D |
_RL N2loc(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
791 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
806 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
80 |
GMREDI_K3D |
_RL slopeC(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
822 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
835 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
84 |
GMREDI_K3D |
_RL M4loc(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
85 |
GMREDI_K3D |
_RL M4onN2(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
868 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
882 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
889 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
919 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
933 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
940 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
970 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_output.F |
119 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
121 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
123 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
132 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
134 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
198 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwx_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
199 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwy_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
200 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwz_T, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
207 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_PsiXtave, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_output.F |
208 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_PsiYtave, Nr, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
141 |
GMREDI_READ_PICKUP |
& nm, fp, Nr, myIter, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
142 |
GMREDI_READ_PICKUP |
CALL EXCH_3D_RL(vec, Nr, myThid) |
|
./pkg/gmredi/gmredi_read_pickup.F |
145 |
GMREDI_READ_PICKUP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_read_pickup.F |
159 |
GMREDI_READ_PICKUP |
& nm, fp, Nr, myIter, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
160 |
GMREDI_READ_PICKUP |
CALL EXCH_3D_RL(vec, Nr, myThid) |
|
./pkg/gmredi/gmredi_read_pickup.F |
163 |
GMREDI_READ_PICKUP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_read_pickup.F |
178 |
GMREDI_READ_PICKUP |
& nm, fp, Nr, myIter, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
179 |
GMREDI_READ_PICKUP |
CALL EXCH_3D_RL(vec, Nr, myThid) |
|
./pkg/gmredi/gmredi_read_pickup.F |
182 |
GMREDI_READ_PICKUP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_read_pickup.F |
193 |
GMREDI_READ_PICKUP |
nm = nm*Nr |
|
./pkg/gmredi/gmredi_read_pickup.F |
52 |
GMREDI_READ_PICKUP |
_RL vec(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/gmredi_read_pickup.F |
73 |
GMREDI_READ_PICKUP |
I Nr, myIter, myThid ) |
|
./pkg/gmredi/gmredi_residual_flow.F |
100 |
GMREDI_RESIDUAL_FLOW |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_residual_flow.F |
102 |
GMREDI_RESIDUAL_FLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_residual_flow.F |
125 |
GMREDI_RESIDUAL_FLOW |
CALL DIAGNOSTICS_FILL(uEulerMean,'U_EulerM',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_residual_flow.F |
126 |
GMREDI_RESIDUAL_FLOW |
CALL DIAGNOSTICS_FILL(vEulerMean,'V_EulerM',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_residual_flow.F |
38 |
GMREDI_RESIDUAL_FLOW |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_residual_flow.F |
39 |
GMREDI_RESIDUAL_FLOW |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_residual_flow.F |
40 |
GMREDI_RESIDUAL_FLOW |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_residual_flow.F |
60 |
GMREDI_RESIDUAL_FLOW |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_residual_flow.F |
61 |
GMREDI_RESIDUAL_FLOW |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_residual_flow.F |
63 |
GMREDI_RESIDUAL_FLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_residual_flow.F |
99 |
GMREDI_RESIDUAL_FLOW |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_rtransport.F |
59 |
GMREDI_RTRANSPORT |
_RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_rtransport.F |
89 |
GMREDI_RTRANSPORT |
kkey = (igadkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_slope_psi.F |
87 |
GMREDI_SLOPE_PSI |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_write_pickup.F |
101 |
GMREDI_WRITE_PICKUP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_write_pickup.F |
111 |
GMREDI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/gmredi/gmredi_write_pickup.F |
121 |
GMREDI_WRITE_PICKUP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_write_pickup.F |
131 |
GMREDI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/gmredi/gmredi_write_pickup.F |
139 |
GMREDI_WRITE_PICKUP |
nm = -m*Nr |
|
./pkg/gmredi/gmredi_write_pickup.F |
164 |
GMREDI_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nm ) THEN |
|
./pkg/gmredi/gmredi_write_pickup.F |
165 |
GMREDI_WRITE_PICKUP |
m = Nr |
|
./pkg/gmredi/gmredi_write_pickup.F |
62 |
GMREDI_WRITE_PICKUP |
_RL vec(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/gmredi/gmredi_write_pickup.F |
82 |
GMREDI_WRITE_PICKUP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_write_pickup.F |
92 |
GMREDI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/gmredi/gmredi_xtransport.F |
105 |
GMREDI_XTRANSPORT |
kkey = (igadkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_xtransport.F |
151 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
188 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
190 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
216 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
218 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
64 |
GMREDI_XTRANSPORT |
_RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
104 |
GMREDI_YTRANSPORT |
kkey = (igadkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_ytransport.F |
150 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
187 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
189 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
214 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
216 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
63 |
GMREDI_YTRANSPORT |
_RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/submeso_calc_psi.F |
102 |
SUBMESO_CALC_PSI |
DO k=1,Nr |
|
./pkg/gmredi/submeso_calc_psi.F |
116 |
SUBMESO_CALC_PSI |
DO k=2,Nr |
|
./pkg/gmredi/submeso_calc_psi.F |
163 |
SUBMESO_CALC_PSI |
DO k=2,Nr |
|
./pkg/gmredi/submeso_calc_psi.F |
206 |
SUBMESO_CALC_PSI |
DO k=2,Nr |
|
./pkg/gmredi/submeso_calc_psi.F |
37 |
SUBMESO_CALC_PSI |
_RL sigmaX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/submeso_calc_psi.F |
38 |
SUBMESO_CALC_PSI |
_RL sigmaY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/gmredi/submeso_calc_psi.F |
39 |
SUBMESO_CALC_PSI |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/grdchk/grdchk_getadxx.F |
78 |
GRDCHK_GETADXX |
_RL loctmp3d (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/grdchk/grdchk_getxx.F |
84 |
GRDCHK_GETXX |
_RL loctmp3d (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/grdchk/grdchk_main.F |
131 |
GRDCHK_MAIN |
_RL tmpplot1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/grdchk/grdchk_main.F |
132 |
GRDCHK_MAIN |
_RL tmpplot2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/grdchk/grdchk_main.F |
133 |
GRDCHK_MAIN |
_RL tmpplot3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/grdchk/grdchk_main.F |
179 |
GRDCHK_MAIN |
DO k = 1, Nr |
|
./pkg/grdchk/grdchk_main.F |
288 |
GRDCHK_MAIN |
DO k=1,4*Nr+1 |
|
./pkg/grdchk/grdchk_setxx.F |
81 |
GRDCHK_SETXX |
_RL loctmp3d (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./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 |
109 |
MAKE_PHYS_GRID |
do L = 1,Nr |
|
./pkg/gridalt/make_phys_grid.F |
113 |
MAKE_PHYS_GRID |
numlevphys = Nr - nlevs + ntry + 1 |
|
./pkg/gridalt/make_phys_grid.F |
172 |
MAKE_PHYS_GRID |
do L = Lbotij+1,Nr |
|
./pkg/gridalt/make_phys_grid.F |
244 |
MAKE_PHYS_GRID |
nlperdyn(i,j,Nr,bi,bj) = numlevphys |
|
./pkg/gridalt/make_phys_grid.F |
47 |
MAKE_PHYS_GRID |
integer im1,im2,jm1,jm2,Nr,nSx,nSy,Nrphys |
|
./pkg/gridalt/make_phys_grid.F |
50 |
MAKE_PHYS_GRID |
_RS hfacC(im1:im2,jm1:jm2,Nr,nSx,nSy) |
|
./pkg/gridalt/make_phys_grid.F |
52 |
MAKE_PHYS_GRID |
_RS drF(Nr) |
|
./pkg/gridalt/make_phys_grid.F |
54 |
MAKE_PHYS_GRID |
integer nlperdyn(im1:im2,jm1:jm2,Nr,nSx,nSy) |
|
./pkg/gridalt/make_phys_grid.F |
6 |
MAKE_PHYS_GRID |
SUBROUTINE MAKE_PHYS_GRID(drF,hfacC,im1,im2,jm1,jm2,Nr, |
|
./pkg/gridalt/make_phys_grid.F |
75 |
MAKE_PHYS_GRID |
if( (Nr.eq.10) .or. (Nr.eq.20) ) then |
|
./pkg/gridalt/make_phys_grid.F |
81 |
MAKE_PHYS_GRID |
elseif((Nr.eq.40).or.(Nr.eq.46).or.(Nr.eq.70)) then |
|
./pkg/gridalt/make_phys_grid.F |
93 |
MAKE_PHYS_GRID |
if(Nr.eq.70)thindp=0.02 |
|
./pkg/gridalt/make_phys_grid.F |
95 |
MAKE_PHYS_GRID |
do L = 1,Nr |
|
./pkg/icefront/ICEFRONT.h |
71 |
NO PROCEDURE |
_RL icefront_TendT (1:sNx,1:sNy,Nr,nSx,nSy) |
|
./pkg/icefront/ICEFRONT.h |
72 |
NO PROCEDURE |
_RL icefront_TendS (1:sNx,1:sNy,Nr,nSx,nSy) |
|
./pkg/icefront/icefront_init_fixed.F |
98 |
ICEFRONT_INIT_FIXED |
DO K = 1 , Nr |
|
./pkg/icefront/icefront_init_varia.F |
36 |
ICEFRONT_INIT_VARIA |
DO K = 1, Nr |
|
./model/src/add_walls2masks.F |
113 |
ADD_WALLS2MASKS |
DO k=1,Nr |
|
./model/src/add_walls2masks.F |
120 |
ADD_WALLS2MASKS |
DO k=1,Nr |
|
./model/src/add_walls2masks.F |
86 |
ADD_WALLS2MASKS |
DO k=1,Nr |
|
./model/src/add_walls2masks.F |
93 |
ADD_WALLS2MASKS |
DO k=1,Nr |
|
./pkg/icefront/icefront_thermodynamics.F |
87 |
ICEFRONT_THERMODYNAMICS |
DO K = 1, Nr |
|
./pkg/kl10/KL10.h |
43 |
NO PROCEDURE |
_RL KLviscAr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kl10/KL10.h |
44 |
NO PROCEDURE |
_RL KLdiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kl10/KL10.h |
45 |
NO PROCEDURE |
_RL KLeps (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kl10/KL10_DIAGS.h |
29 |
NO PROCEDURE |
_RL kl_TimeAve(Nr,nSx,nSy) |
|
./pkg/kl10/KL10_DIAGS.h |
36 |
NO PROCEDURE |
_RL KLviscArtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kl10/KL10_DIAGS.h |
37 |
NO PROCEDURE |
_RL KLdiffKrtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kl10/KL10_DIAGS.h |
38 |
NO PROCEDURE |
_RL KLepstave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kl10/KL10_TAVE.h |
23 |
NO PROCEDURE |
_RL KLviscArtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kl10/KL10_TAVE.h |
24 |
NO PROCEDURE |
_RL KLdiffKrtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kl10/kl10_calc.F |
137 |
KL10_CALC |
DO K=1,Nr |
|
./pkg/kl10/kl10_calc.F |
138 |
KL10_CALC |
IF (K.LT.Nr) THEN |
|
./pkg/kl10/kl10_calc.F |
259 |
KL10_CALC |
KLeps(I-1,J-1,Nr,bi,bj) =ep |
|
./pkg/kl10/kl10_calc.F |
52 |
KL10_CALC |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/kl10/kl10_calc.F |
65 |
KL10_CALC |
_RL rhoS(1:Nr),RS(1:Nr) |
|
./pkg/kl10/kl10_calc.F |
96 |
KL10_CALC |
DO K=2,Nr |
|
./pkg/kl10/kl10_calc_diff.F |
52 |
KL10_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./pkg/kl10/kl10_calc_visc.F |
32 |
KL10_CALC_VISC |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/kl10/kl10_calc_visc.F |
33 |
KL10_CALC_VISC |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/apply_forcing.F |
102 |
APPLY_FORCING_U |
kSurface = Nr |
|
./model/src/apply_forcing.F |
292 |
APPLY_FORCING_V |
kSurface = Nr |
|
./model/src/apply_forcing.F |
480 |
APPLY_FORCING_T |
kSurface = Nr |
|
./model/src/apply_forcing.F |
563 |
APPLY_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./model/src/apply_forcing.F |
596 |
APPLY_FORCING_T |
IF ( k.LT.Nr ) THEN |
|
./model/src/apply_forcing.F |
683 |
APPLY_FORCING_T |
IF (k.EQ.Nr) THEN |
|
./model/src/apply_forcing.F |
846 |
APPLY_FORCING_S |
kSurface = Nr |
|
./pkg/kl10/kl10_init_varia.F |
39 |
KL10_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/kl10/kl10_output.F |
111 |
KL10_OUTPUT |
CALL TIMEAVE_RESET( KLviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
112 |
KL10_OUTPUT |
CALL TIMEAVE_RESET( KLdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
123 |
KL10_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
125 |
KL10_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
141 |
KL10_OUTPUT |
& KL_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
143 |
KL10_OUTPUT |
& KL_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
161 |
KL10_OUTPUT |
CALL TIMEAVE_RESET( KLviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
162 |
KL10_OUTPUT |
CALL TIMEAVE_RESET( KLdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/kl10/kl10_output.F |
176 |
KL10_OUTPUT |
CALL DIAGNOSTICS_FILL(KLviscAr,'KLviscAr',0,Nr,0,1,1,myThid) |
|
./pkg/kl10/kl10_output.F |
177 |
KL10_OUTPUT |
CALL DIAGNOSTICS_FILL(KLdiffKr,'KLdiffKr',0,Nr,0,1,1,myThid) |
|
./pkg/kl10/kl10_output.F |
178 |
KL10_OUTPUT |
CALL DIAGNOSTICS_FILL(KLeps, 'KLeps ',0,Nr,0,1,1,myThid) |
|
./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) |
|
./model/src/calc_3d_diffusivity.F |
116 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
129 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
145 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
173 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
178 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
185 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
201 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
210 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
219 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
228 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
237 |
CALC_3D_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
|
./model/src/calc_3d_diffusivity.F |
247 |
CALC_3D_DIFFUSIVITY |
DO k = 2,Nr |
|
./model/src/calc_3d_diffusivity.F |
267 |
CALC_3D_DIFFUSIVITY |
DO k = 2,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 |
84 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./pkg/kpp/kpp_calc.F |
188 |
KPP_CALC |
_RL temp1 ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_calc.F |
189 |
KPP_CALC |
_RL temp2 ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_calc.F |
196 |
KPP_CALC |
_RL shsq ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_calc.F |
197 |
KPP_CALC |
_RL dVsq ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_calc.F |
198 |
KPP_CALC |
_RL dbloc ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_calc.F |
199 |
KPP_CALC |
_RL Ritop ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_calc.F |
201 |
KPP_CALC |
_RL ghat ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_calc.F |
280 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
294 |
KPP_CALC |
DO k = 1, Nr-1 |
|
./pkg/kpp/kpp_calc.F |
309 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
329 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
418 |
KPP_CALC |
DO k=2,Nr |
|
./pkg/kpp/kpp_calc.F |
423 |
KPP_CALC |
DO k=1,Nr |
|
./pkg/kpp/kpp_calc.F |
454 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
572 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
594 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
606 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
731 |
KPP_CALC_DUMMY |
DO k = 1,Nr |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
57 |
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 |
30 |
KPP_CALC_VISC |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/kpp/kpp_calc_visc.F |
31 |
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 |
118 |
KPP_FORCING_SURF |
_RL SPforcS (1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_forcing_surf.F |
119 |
KPP_FORCING_SURF |
_RL SPforcT (1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_forcing_surf.F |
122 |
KPP_FORCING_SURF |
_RL dVsq ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_forcing_surf.F |
171 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
230 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
265 |
KPP_FORCING_SURF |
CALL DIAGNOSTICS_FILL(boplume,'KPPboplm',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_forcing_surf.F |
279 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
305 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
379 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
420 |
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. |
|
./model/src/calc_adv_flow.F |
53 |
CALC_ADV_FLOW |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/calc_adv_flow.F |
54 |
CALC_ADV_FLOW |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/calc_adv_flow.F |
55 |
CALC_ADV_FLOW |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/calc_adv_flow.F |
83 |
CALC_ADV_FLOW |
IF ( k.EQ.Nr ) THEN |
|
./pkg/kpp/kpp_init_varia.F |
69 |
KPP_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/kpp/kpp_output.F |
210 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
211 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
212 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
213 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
231 |
KPP_OUTPUT |
& KPPviscAztave, KPPviscAz, Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
233 |
KPP_OUTPUT |
& KPPdiffKzTtave,KPPdiffKzT,Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
235 |
KPP_OUTPUT |
& KPPdiffKzStave,KPPdiffKzS,Nr,DDTT,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
236 |
KPP_OUTPUT |
DO k=2,Nr |
|
./pkg/kpp/kpp_output.F |
276 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
278 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
280 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
282 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/kpp/kpp_output.F |
358 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
359 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
360 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
361 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
377 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPviscAz ,'KPPviscA',0,Nr,0,1,1,myThid) |
|
./pkg/kpp/kpp_output.F |
378 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPdiffKzS,'KPPdiffS',0,Nr,0,1,1,myThid) |
|
./pkg/kpp/kpp_output.F |
379 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPdiffKzT,'KPPdiffT',0,Nr,0,1,1,myThid) |
|
./pkg/kpp/kpp_output.F |
393 |
KPP_OUTPUT |
DO k=2,Nr |
|
./pkg/kpp/kpp_output.F |
405 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(tmpLoc,'KPPghatK',0,Nr,3,bi,bj,myThid) |
|
./pkg/kpp/kpp_output.F |
97 |
KPP_OUTPUT |
_RL tmpLoc(1:sNx,1:sNy,Nr) |
|
./pkg/kpp/kpp_routines.F |
1016 |
RI_IWMIX |
do ki = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
101 |
KPPMIX |
_RL shsq (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1025 |
RI_IWMIX |
do ki = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
102 |
KPPMIX |
_RL dvsq (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1063 |
RI_IWMIX |
do ki = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
1084 |
RI_IWMIX |
kp1 = MIN(ki+1,Nr) |
|
./pkg/kpp/kpp_routines.F |
114 |
KPPMIX |
_RL dbloc (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
115 |
KPPMIX |
_RL Ritop (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1173 |
Z121 |
v(i,Nrp1) = v(i,Nr) |
|
./pkg/kpp/kpp_routines.F |
1175 |
Z121 |
do k = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
1187 |
Z121 |
do k = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
118 |
KPPMIX |
_RL diffusKzS(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
119 |
KPPMIX |
_RL diffusKzT(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
131 |
KPPMIX |
_RL ghat (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1340 |
BLMIX |
_RL blmc (imt,Nr,mdiff) |
|
./pkg/kpp/kpp_routines.F |
1341 |
BLMIX |
_RL ghat (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1456 |
BLMIX |
do ki = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
1459 |
BLMIX |
kkppkey = (ikppkey-1)*Nr + ki |
|
./pkg/kpp/kpp_routines.F |
151 |
KPPMIX |
_RL blmc (imt,Nr,mdiff) |
|
./pkg/kpp/kpp_routines.F |
153 |
KPPMIX |
_RL Rib (imt,Nr ) |
|
./pkg/kpp/kpp_routines.F |
1593 |
ENHANCE |
_RL ghat (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1597 |
ENHANCE |
_RL blmc (imt,Nr,mdiff) |
|
./pkg/kpp/kpp_routines.F |
1609 |
ENHANCE |
if ((ki .ge. 1) .and. (ki .lt. Nr)) then |
|
./pkg/kpp/kpp_routines.F |
1675 |
STATEKPP |
_RL DBLOC ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_routines.F |
1676 |
STATEKPP |
_RL DBSFC ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_routines.F |
1703 |
STATEKPP |
kkppkey = (ikppkey-1)*Nr + 1 |
|
./pkg/kpp/kpp_routines.F |
1743 |
STATEKPP |
DO K = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
1745 |
STATEKPP |
kkppkey = (ikppkey-1)*Nr + k |
|
./pkg/kpp/kpp_routines.F |
1816 |
STATEKPP |
TTALPHA(I,J,Nrp1) = TTALPHA(I,J,Nr) |
|
./pkg/kpp/kpp_routines.F |
1817 |
STATEKPP |
SSBETA(I,J,Nrp1) = SSBETA(I,J,Nr) |
|
./pkg/kpp/kpp_routines.F |
1818 |
STATEKPP |
DBLOC(I,J,Nr) = 0. |
|
./pkg/kpp/kpp_routines.F |
1824 |
STATEKPP |
CALL DIAGNOSTICS_FILL(DBSFC ,'KPPdbsfc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1825 |
STATEKPP |
CALL DIAGNOSTICS_FILL(DBLOC ,'KPPdbloc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1881 |
KPP_DOUBLEDIFF |
_RL KappaRT( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_routines.F |
1882 |
KPP_DOUBLEDIFF |
_RL KappaRS( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr ) |
|
./pkg/kpp/kpp_routines.F |
1913 |
KPP_DOUBLEDIFF |
kkppkey = (ikppkey-1)*Nr + 1 |
|
./pkg/kpp/kpp_routines.F |
1922 |
KPP_DOUBLEDIFF |
DO K = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
266 |
KPPMIX |
do k = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
280 |
KPPMIX |
diffus(i,k,2) = max ( blmc(i,k,2), diffusKzS(i,Nr) ) |
|
./pkg/kpp/kpp_routines.F |
281 |
KPPMIX |
diffus(i,k,3) = max ( blmc(i,k,3), diffusKzT(i,Nr) ) |
|
./pkg/kpp/kpp_routines.F |
362 |
BLDEPTH |
_RL dvsq (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
363 |
BLDEPTH |
_RL dbloc (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
364 |
BLDEPTH |
_RL Ritop (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
393 |
BLDEPTH |
_RL Rib (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
420 |
BLDEPTH |
_RL KPPBFSFC(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
421 |
BLDEPTH |
_RL KPPRi(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
444 |
BLDEPTH |
do kl = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
452 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
455 |
BLDEPTH |
kkppkey = (ikppkey-1)*Nr + kl |
|
./pkg/kpp/kpp_routines.F |
581 |
BLDEPTH |
CALL DIAGNOSTICS_FILL(KPPBFSFC,'KPPbfsfc',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
582 |
BLDEPTH |
CALL DIAGNOSTICS_FILL(KPPRi ,'KPPRi ',0,Nr,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
596 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
712 |
BLDEPTH |
& + (stable(i)-1.) * zgrid(Nr) |
|
./pkg/kpp/kpp_routines.F |
739 |
BLDEPTH |
do kl = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
974 |
RI_IWMIX |
_RL shsq (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
975 |
RI_IWMIX |
_RL dbloc (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
976 |
RI_IWMIX |
_RL dblocSm (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
977 |
RI_IWMIX |
_RL diffusKzS(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
978 |
RI_IWMIX |
_RL diffusKzT(imt,Nr) |
|
./model/src/calc_div_ghat.F |
47 |
CALC_DIV_GHAT |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/calc_eddy_stress.F |
101 |
CALC_EDDY_STRESS |
& 0, Nr, 1, bi, bj, myThid ) |
|
./model/src/calc_eddy_stress.F |
53 |
CALC_EDDY_STRESS |
DO k=1,Nr |
|
./model/src/calc_eddy_stress.F |
99 |
CALC_EDDY_STRESS |
& 0, Nr, 1, bi, bj, myThid ) |
|
./pkg/layers/LAYERS.h |
123 |
NO PROCEDURE |
_RL layers_dfx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,2,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
124 |
NO PROCEDURE |
_RL layers_dfy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,2,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
125 |
NO PROCEDURE |
_RL layers_dfr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,2,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
126 |
NO PROCEDURE |
_RL layers_afx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,2,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
127 |
NO PROCEDURE |
_RL layers_afy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,2,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
128 |
NO PROCEDURE |
_RL layers_afr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,2,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
129 |
NO PROCEDURE |
_RL layers_tottend(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,2,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
133 |
NO PROCEDURE |
_RL layers_sw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,1,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
139 |
NO PROCEDURE |
_RL layers_alpha(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
140 |
NO PROCEDURE |
_RL layers_beta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
179 |
NO PROCEDURE |
_RL prho_tave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/layers/LAYERS_SIZE.h |
20 |
NO PROCEDURE |
PARAMETER( FineGridMax = Nr * FineGridFact ) |
|
./pkg/layers/layers_calc.F |
172 |
LAYERS_CALC |
DO k=1,Nr |
|
./pkg/layers/layers_calc.F |
179 |
LAYERS_CALC |
DO k = 1,Nr |
|
./pkg/layers/layers_calc.F |
256 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_prho.', suff, Nr, |
|
./pkg/layers/layers_calc.F |
262 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_Ttottend.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
265 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_sw.', suff, Nr, |
|
./pkg/layers/layers_calc.F |
270 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_dfx.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
272 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_dfy.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
274 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_dfr.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
276 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_afx.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
278 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_afy.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
280 |
LAYERS_CALC |
CALL WRITE_FLD_3D_RL( 'layers_afr.', suff, 2*Nr, |
|
./pkg/layers/layers_calc.F |
309 |
LAYERS_CALC |
& diagName, 0, Nr, 0, 1, 1, myThid ) |
|
./pkg/layers/layers_calc.F |
424 |
LAYERS_CALC |
& CALL TIMEAVE_CUMULATE( prho_tave, prho, Nr, |
|
./pkg/layers/layers_calc.F |
448 |
LAYERS_CALC |
DO k=1,Nr |
|
./pkg/layers/layers_calc.F |
78 |
LAYERS_CALC |
_RL prho(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/layers/layers_check.F |
101 |
LAYERS_CHECK |
IF ( layers_krho(iLa).LT.1 .OR. layers_krho(iLa).GT.Nr ) THEN |
|
./pkg/layers/layers_diagnostics_init.F |
71 |
LAYERS_DIAGNOSTICS_INIT |
IF ( kLoc.GE.1 .AND. kLoc.LE.Nr ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
169 |
LAYERS_FLUXCALC |
kcip1 = MIN(kci+1,Nr) |
|
./pkg/layers/layers_fluxcalc.F |
171 |
LAYERS_FLUXCALC |
IF (kci.GE.Nr) maskp1 = 0. |
|
./pkg/layers/layers_fluxcalc.F |
421 |
LAYERS_DIAPYCNAL |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr, nSx,nSy) |
|
./pkg/layers/layers_fluxcalc.F |
535 |
LAYERS_DIAPYCNAL |
DO kk=1,Nr |
|
./pkg/layers/layers_fluxcalc.F |
59 |
LAYERS_FLUXCALC |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr, nSx,nSy) |
|
./pkg/layers/layers_fluxcalc.F |
60 |
LAYERS_FLUXCALC |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr, nSx,nSy) |
|
./pkg/layers/layers_fluxcalc.F |
61 |
LAYERS_FLUXCALC |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr, nSx,nSy) |
|
./pkg/layers/layers_init_fixed.F |
100 |
LAYERS_INIT_FIXED |
ELSE IF ( (ZZc(kk) .GE. Zc(Nr)) .OR. (k .EQ. Nr) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
101 |
LAYERS_INIT_FIXED |
MapIndex(kk) = Nr - 1 |
|
./pkg/layers/layers_init_fixed.F |
105 |
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 |
67 |
LAYERS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/layers/layers_init_fixed.F |
77 |
LAYERS_INIT_FIXED |
DO k=2,Nr |
|
./pkg/layers/layers_init_fixed.F |
81 |
LAYERS_INIT_FIXED |
Zf(Nr+1) = Zf(Nr) + drF(Nr) |
|
./pkg/layers/layers_init_varia.F |
65 |
LAYERS_INIT_VARIA |
DO kg=1,Nr |
|
./pkg/layers/layers_init_varia.F |
81 |
LAYERS_INIT_VARIA |
DO kg=1,Nr |
|
./pkg/layers/layers_output.F |
114 |
LAYERS_OUTPUT |
& Nr, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
145 |
LAYERS_OUTPUT |
& CALL WRITE_FLD_3D_RL( 'layers_prho-tave.', suff, Nr, |
|
./pkg/layers/layers_output.F |
175 |
LAYERS_OUTPUT |
& CALL TIMEAVE_RESET(prho_tave,Nr,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
79 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(prho_tave,Nr,bi,bj,myThid) |
|
./pkg/layers/layers_save.F |
73 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_dfx,'U', |
|
./pkg/layers/layers_save.F |
76 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_dfy,'V', |
|
./pkg/layers/layers_save.F |
79 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_dfr,'M', |
|
./pkg/layers/layers_save.F |
82 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_afx,'U', |
|
./pkg/layers/layers_save.F |
85 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_afy,'V', |
|
./pkg/layers/layers_save.F |
88 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_afr,'M', |
|
./pkg/layers/layers_save.F |
91 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_tottend,'M', |
|
./model/src/calc_grad_phi_hyd.F |
48 |
CALC_GRAD_PHI_HYD |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/calc_grad_phi_hyd.F |
49 |
CALC_GRAD_PHI_HYD |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/layers/layers_thermodynamics.F |
147 |
LAYERS_CALC_RHS |
IF (k.EQ.Nr) THEN |
|
./pkg/layers/layers_thermodynamics.F |
95 |
LAYERS_CALC_RHS |
DO k=1,Nr |
|
./pkg/layers/layers_thermodynamics.F |
96 |
LAYERS_CALC_RHS |
kdown= MIN(k+1,Nr) |
|
./pkg/layers/layers_thermodynamics.F |
97 |
LAYERS_CALC_RHS |
IF (k.EQ.Nr) THEN |
|
./pkg/layers/layers_wsurf_tr.F |
44 |
LAYERS_WSURF_TR |
_RL thetaFld(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/layers/layers_wsurf_tr.F |
45 |
LAYERS_WSURF_TR |
_RL saltFld (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/layers/layers_wsurf_tr.F |
46 |
LAYERS_WSURF_TR |
_RL wVelFld (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/layers/layers_wsurf_tr.F |
65 |
LAYERS_WSURF_TR |
IF (ks.LE.Nr) THEN |
|
./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 |
129 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
143 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
154 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
167 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
181 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
204 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
244 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_uVel,'LS_Uvel (THERMODYNAMICS)',myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
245 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_vVel,'LS_Vvel (THERMODYNAMICS)',myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
246 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_wVel,'LS_Wvel (THERMODYNAMICS)',myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
247 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_theta,'LS_Theta (THERMODYNAMICS)', |
|
./pkg/longstep/longstep_thermodynamics.F |
249 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_salt,'LS_Salt (THERMODYNAMICS)',myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
83 |
LONGSTEP_THERMODYNAMICS |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/longstep/longstep_thermodynamics.F |
84 |
LONGSTEP_THERMODYNAMICS |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/longstep/longstep_thermodynamics.F |
85 |
LONGSTEP_THERMODYNAMICS |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/longstep/longstep_thermodynamics.F |
86 |
LONGSTEP_THERMODYNAMICS |
_RL kappaRk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/longstep/longstep_thermodynamics.F |
87 |
LONGSTEP_THERMODYNAMICS |
_RS recip_hFacNew(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/matrix/MATRIX.h |
15 |
NO PROCEDURE |
_RL MATRIX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/matrix/MATRIX.h |
17 |
NO PROCEDURE |
_RL PTRACERS_initial(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/matrix/matrix_init_varia.F |
38 |
MATRIX_INIT_VARIA |
DO k=1,Nr |
|
./pkg/matrix/matrix_store_tendency.F |
105 |
MATRIX_STORE_TENDENCY_IMP |
DO k=1,Nr |
|
./pkg/matrix/matrix_store_tendency.F |
41 |
MATRIX_STORE_TENDENCY_EXP |
_RL tracNew(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/matrix/matrix_store_tendency.F |
50 |
MATRIX_STORE_TENDENCY_EXP |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
105 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
142 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
46 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
83 |
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_BUFF_WH.h |
39 |
NO PROCEDURE |
PARAMETER (nWh=30*Nr) |
|
./model/src/calc_gw.F |
151 |
CALC_GW |
DO k=1,Nr |
|
./model/src/calc_gw.F |
182 |
CALC_GW |
DO k=1,Nr |
|
./model/src/calc_gw.F |
184 |
CALC_GW |
kp1 = MIN( k+1,Nr ) |
|
./model/src/calc_gw.F |
188 |
CALC_GW |
IF ( k.EQ.Nr ) mskP1 = 0. |
|
./model/src/calc_gw.F |
59 |
CALC_GW |
_RL kappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/calc_gw.F |
60 |
CALC_GW |
_RL kappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/calc_gw.F |
62 |
CALC_GW |
_RL str13(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/calc_gw.F |
63 |
CALC_GW |
_RL str23(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/calc_gw.F |
645 |
CALC_GW |
& k,Nr, 1, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
64 |
CALC_GW |
_RL str33(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/calc_gw.F |
65 |
CALC_GW |
_RL viscAh3d_00(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/calc_gw.F |
663 |
CALC_GW |
I bi, bj, k, Nr, |
|
./model/src/calc_gw.F |
669 |
CALC_GW |
I bi, bj, k, Nr, |
|
./model/src/calc_gw.F |
66 |
CALC_GW |
_RL viscAh3d_13(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/calc_gw.F |
67 |
CALC_GW |
_RL viscAh3d_23(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/calc_gw.F |
695 |
CALC_GW |
CALL DIAGNOSTICS_FILL(viscAh_W,'VISCAHW ',0,Nr,1,bi,bj,myThid) |
|
./model/src/calc_gw.F |
696 |
CALC_GW |
CALL DIAGNOSTICS_FILL(viscA4_W,'VISCA4W ',0,Nr,1,bi,bj,myThid) |
|
./pkg/mdsio/mdsio_gl.F |
1554 |
MDSWRITEFIELD_2D_GL |
dimList(1,3)=Nr |
|
./pkg/mdsio/mdsio_gl.F |
1556 |
MDSWRITEFIELD_2D_GL |
dimList(3,3)=Nr |
|
./pkg/mdsio/mdsio_gl.F |
266 |
MDSREADFIELD_3D_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl.F |
276 |
MDSREADFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
285 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
288 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
302 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
305 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
479 |
MDSWRITEFIELD_3D_GL |
_RL arr_gl(sNx,nSx,nPx,sNy,nSy,nPy,Nr) |
|
./pkg/mdsio/mdsio_gl.F |
495 |
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 |
691 |
MDSWRITEFIELD_3D_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl.F |
698 |
MDSWRITEFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
702 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
705 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
719 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
722 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./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.F |
765 |
MDSWRITEFIELD_3D_GL |
dimList(1,3)=Nr |
|
./pkg/mdsio/mdsio_gl.F |
767 |
MDSWRITEFIELD_3D_GL |
dimList(3,3)=Nr |
|
./pkg/mdsio/mdsio_gl.F |
769 |
MDSWRITEFIELD_3D_GL |
if (Nr .EQ. 1) nDims=2 |
|
./pkg/mdsio/mdsio_gl_slice.F |
177 |
MDSREADFIELD_XZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
180 |
MDSREADFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
303 |
MDSREADFIELD_YZ_GL |
_RL arr_gl(nSx,nPx,sNy,nSy,nPy,Nr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
315 |
MDSREADFIELD_YZ_GL |
_RL arr(1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
417 |
MDSREADFIELD_YZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
420 |
MDSREADFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
555 |
MDSWRITEFIELD_XZ_GL |
_RL arr_gl(sNx,nSx,nPx,nSy,nPy,Nr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
570 |
MDSWRITEFIELD_XZ_GL |
_RL arr(1-oLx:sNx+oLx,Nr,nSx,nSy) |
|
./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 |
637 |
MDSWRITEFIELD_XZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
643 |
MDSWRITEFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
708 |
MDSWRITEFIELD_XZ_GL |
dimList(1,3)=Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
710 |
MDSWRITEFIELD_XZ_GL |
dimList(3,3)=Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
712 |
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 |
796 |
MDSWRITEFIELD_YZ_GL |
_RL arr_gl(nSx,nPx,sNy,nSy,nPy,Nr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
811 |
MDSWRITEFIELD_YZ_GL |
_RL arr(1-oLy:sNy+oLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_gl_slice.F |
878 |
MDSWRITEFIELD_YZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
884 |
MDSWRITEFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
949 |
MDSWRITEFIELD_YZ_GL |
dimList(1,3)=Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
951 |
MDSWRITEFIELD_YZ_GL |
dimList(3,3)=Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
953 |
MDSWRITEFIELD_YZ_GL |
if (Nr .EQ. 1) nDims=2 |
|
./model/src/calc_ivdc.F |
36 |
CALC_IVDC |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/calc_oce_mxlayer.F |
108 |
CALC_OCE_MXLAYER |
DO k = 2,Nr |
|
./model/src/calc_oce_mxlayer.F |
154 |
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) |
|
./model/src/calc_phi_hyd.F |
159 |
CALC_PHI_HYD |
kkey = (ikey-1)*Nr + k |
|
./model/src/calc_phi_hyd.F |
269 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
321 |
CALC_PHI_HYD |
kkey = (ikey-1)*Nr + k |
|
./model/src/calc_phi_hyd.F |
399 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
473 |
CALC_PHI_HYD |
fullDepth = rF(1)-rF(Nr+1) |
|
./model/src/calc_phi_hyd.F |
518 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
584 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
69 |
CALC_PHI_HYD |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/calc_phi_hyd.F |
70 |
CALC_PHI_HYD |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mdsio/mdsio_writelocal.F |
395 |
MDS_WRITELOCAL |
dimList(1,3) = Nr |
|
./pkg/mdsio/mdsio_writelocal.F |
397 |
MDS_WRITELOCAL |
dimList(3,3) = Nr |
|
./pkg/mdsio/mdsio_writelocal.F |
426 |
MDS_WRITELOCAL |
dimList(1,3) = Nr |
|
./pkg/mdsio/mdsio_writelocal.F |
428 |
MDS_WRITELOCAL |
dimList(3,3) = Nr |
|
./model/src/calc_r_star.F |
105 |
CALC_R_STAR |
IF (kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
118 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
132 |
CALC_R_STAR |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
148 |
CALC_R_STAR |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
160 |
CALC_R_STAR |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
281 |
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 |
282 |
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 |
283 |
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 |
284 |
CALC_R_STAR |
IF (kSurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
286 |
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 |
287 |
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 |
288 |
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 |
289 |
CALC_R_STAR |
IF (kSurfW(ii, jj, bi,bj).GT.Nr) rStarFacW(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
291 |
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 |
292 |
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 |
293 |
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 |
294 |
CALC_R_STAR |
IF (kSurfS(ii, jj, bi,bj).GT.Nr) rStarFacS(ii, jj, bi,bj)= 1. |
|
./pkg/mnc/mnc_cw_cvars.F |
307 |
MNC_CW_WRITE_CVAR |
cv_count(1) = Nr |
|
./pkg/mnc/mnc_cw_cvars.F |
326 |
MNC_CW_WRITE_CVAR |
cv_count(1) = Nr + 1 |
|
./pkg/mnc/mnc_cw_cvars.F |
345 |
MNC_CW_WRITE_CVAR |
cv_count(1) = Nr |
|
./pkg/mnc/mnc_cw_cvars.F |
365 |
MNC_CW_WRITE_CVAR |
cv_count(1) = Nr |
|
./pkg/mnc/mnc_cw_cvars.F |
385 |
MNC_CW_WRITE_CVAR |
cv_count(1) = Nr - 1 |
|
./pkg/mnc/mnc_cw_cvars.F |
50 |
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 |
138 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nr', 1, Nr, myThid) |
|
./model/src/calc_surf_dr.F |
148 |
CALC_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/calc_surf_dr.F |
169 |
CALC_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/calc_surf_dr.F |
85 |
CALC_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./pkg/mom_common/MOM_VISC.h |
45 |
NO PROCEDURE |
_RL viscAhDfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/MOM_VISC.h |
46 |
NO PROCEDURE |
_RL viscAhZfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/MOM_VISC.h |
54 |
NO PROCEDURE |
_RL viscA4Dfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/MOM_VISC.h |
55 |
NO PROCEDURE |
_RL viscA4Zfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/MOM_VISC.h |
63 |
NO PROCEDURE |
_RL viscAh_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_common/MOM_VISC.h |
64 |
NO PROCEDURE |
_RL viscA4_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/calc_viscosity.F |
103 |
CALC_VISCOSITY |
IF ( useGGL90 .AND. k.LE.Nr ) THEN |
|
./model/src/calc_viscosity.F |
111 |
CALC_VISCOSITY |
IF ( k.EQ.Nr+1 .AND. |
|
./model/src/calc_viscosity.F |
129 |
CALC_VISCOSITY |
DO k = 2,Nr |
|
./model/src/calc_viscosity.F |
160 |
CALC_VISCOSITY |
DO k = 2,Nr |
|
./model/src/calc_viscosity.F |
40 |
CALC_VISCOSITY |
_RL kappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/calc_viscosity.F |
41 |
CALC_VISCOSITY |
_RL kappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/calc_viscosity.F |
56 |
CALC_VISCOSITY |
DO k = 1,Nr+1 |
|
./model/src/calc_viscosity.F |
57 |
CALC_VISCOSITY |
ki = MIN(k,Nr) |
|
./model/src/calc_viscosity.F |
67 |
CALC_VISCOSITY |
IF ( useKPP .AND. k.LE.Nr ) THEN |
|
./model/src/calc_viscosity.F |
76 |
CALC_VISCOSITY |
IF ( usePP81 .AND. k.LE.Nr ) THEN |
|
./model/src/calc_viscosity.F |
85 |
CALC_VISCOSITY |
IF ( useKL10 .AND. k.LE.Nr ) THEN |
|
./model/src/calc_viscosity.F |
94 |
CALC_VISCOSITY |
IF ( useMY82 .AND. k.LE.Nr ) THEN |
|
./pkg/mom_common/mom_calc_3d_strain.F |
201 |
MOM_CALC_3D_STRAIN |
k = Nr+1 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
216 |
MOM_CALC_3D_STRAIN |
& recip_drF(Nr)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
226 |
MOM_CALC_3D_STRAIN |
& recip_drF(Nr)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
41 |
MOM_CALC_3D_STRAIN |
_RL str11(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
42 |
MOM_CALC_3D_STRAIN |
_RL str22(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
43 |
MOM_CALC_3D_STRAIN |
_RL str33(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
44 |
MOM_CALC_3D_STRAIN |
_RL str12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
45 |
MOM_CALC_3D_STRAIN |
_RL str13(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
46 |
MOM_CALC_3D_STRAIN |
_RL str23(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
58 |
MOM_CALC_3D_STRAIN |
DO k=1,Nr |
|
./pkg/mom_common/mom_calc_3d_strain.F |
59 |
MOM_CALC_3D_STRAIN |
kp1 = MIN(k+1,Nr) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
61 |
MOM_CALC_3D_STRAIN |
IF ( k.EQ.Nr ) maskp1 = zeroRL |
|
./pkg/mom_common/mom_calc_hfacz.F |
97 |
MOM_CALC_HFACZ |
kkey = (ikey-1)*Nr + k |
|
./pkg/mom_common/mom_calc_smag_3d.F |
47 |
MOM_CALC_SMAG_3D |
_RL str11(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
48 |
MOM_CALC_SMAG_3D |
_RL str22(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
49 |
MOM_CALC_SMAG_3D |
_RL str33(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
50 |
MOM_CALC_SMAG_3D |
_RL str12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
51 |
MOM_CALC_SMAG_3D |
_RL str13(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
52 |
MOM_CALC_SMAG_3D |
_RL str23(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
65 |
MOM_CALC_SMAG_3D |
_RL viscAh3d_00(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
66 |
MOM_CALC_SMAG_3D |
_RL viscAh3d_12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
67 |
MOM_CALC_SMAG_3D |
_RL viscAh3d_13(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
68 |
MOM_CALC_SMAG_3D |
_RL viscAh3d_23(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
91 |
MOM_CALC_SMAG_3D |
IF ( kl.LE.Nr ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
158 |
MOM_CALC_VISC |
lockey_1 = (ikey-1)*Nr + k |
|
./pkg/mom_common/mom_calc_visc.F |
543 |
MOM_CALC_VISC |
IF ( k.LT.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/mom_common/mom_init_fixed.F |
144 |
MOM_INIT_FIXED |
CALL EXCH_3D_RL( viscAhDfld, Nr, myThid ) |
|
./pkg/mom_common/mom_init_fixed.F |
148 |
MOM_INIT_FIXED |
CALL EXCH_Z_3D_RL( viscAhZfld, Nr, myThid ) |
|
./pkg/mom_common/mom_init_fixed.F |
154 |
MOM_INIT_FIXED |
CALL EXCH_3D_RL( viscA4Dfld, Nr, myThid ) |
|
./pkg/mom_common/mom_init_fixed.F |
158 |
MOM_INIT_FIXED |
CALL EXCH_Z_3D_RL( viscA4Zfld, Nr, myThid ) |
|
./pkg/mom_common/mom_init_fixed.F |
46 |
MOM_INIT_FIXED |
DO k=1,Nr |
|
./pkg/mom_common/mom_init_fixed.F |
56 |
MOM_INIT_FIXED |
DO k=1,Nr |
|
./pkg/mom_common/mom_init_fixed.F |
67 |
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_botdrag_impl.F |
42 |
MOM_U_BOTDRAG_IMPL |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
43 |
MOM_U_BOTDRAG_IMPL |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
44 |
MOM_U_BOTDRAG_IMPL |
_RL kappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
50 |
MOM_U_BOTDRAG_IMPL |
_RL cDrag(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
67 |
MOM_U_BOTDRAG_IMPL |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
70 |
MOM_U_BOTDRAG_IMPL |
kBottom = Nr |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
71 |
MOM_U_BOTDRAG_IMPL |
kDown = MIN(k+1,Nr) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
47 |
MOM_U_BOTTOMDRAG |
_RL kappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
66 |
MOM_U_BOTTOMDRAG |
kBottom = Nr |
|
./pkg/mom_common/mom_u_bottomdrag.F |
67 |
MOM_U_BOTTOMDRAG |
kDown = MIN(k+1,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 |
105 |
MOM_U_IMPLICIT_R |
DO k=1,Nr-1 |
|
./pkg/mom_common/mom_u_implicit_r.F |
118 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
141 |
MOM_U_IMPLICIT_R |
IF ( momImplVertAdv .AND. Nr.GT.1 ) THEN |
|
./pkg/mom_common/mom_u_implicit_r.F |
144 |
MOM_U_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
218 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
255 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
264 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
286 |
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+1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
55 |
MOM_U_IMPLICIT_R |
_RL b5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_implicit_r.F |
56 |
MOM_U_IMPLICIT_R |
_RL c5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_implicit_r.F |
57 |
MOM_U_IMPLICIT_R |
_RL d5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_u_implicit_r.F |
74 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
87 |
MOM_U_IMPLICIT_R |
IF ( implicitViscosity .AND. Nr.GT.1 ) THEN |
|
./pkg/mom_common/mom_u_implicit_r.F |
92 |
MOM_U_IMPLICIT_R |
DO k=2,Nr |
|
./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_uv_smag_3d.F |
33 |
MOM_UV_SMAG_3D |
_RL str11(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
34 |
MOM_UV_SMAG_3D |
_RL str22(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
35 |
MOM_UV_SMAG_3D |
_RL str12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
36 |
MOM_UV_SMAG_3D |
_RL str13(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
37 |
MOM_UV_SMAG_3D |
_RL str23(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
39 |
MOM_UV_SMAG_3D |
_RL viscAh3d_00(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
40 |
MOM_UV_SMAG_3D |
_RL viscAh3d_12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
41 |
MOM_UV_SMAG_3D |
_RL viscAh3d_13(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
42 |
MOM_UV_SMAG_3D |
_RL viscAh3d_23(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
59 |
MOM_UV_SMAG_3D |
kp1 = MIN(Nr,k+1) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
63 |
MOM_UV_SMAG_3D |
IF ( k.GE.Nr ) maskP1 = 0. |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
42 |
MOM_V_BOTDRAG_IMPL |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
43 |
MOM_V_BOTDRAG_IMPL |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
44 |
MOM_V_BOTDRAG_IMPL |
_RL kappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
50 |
MOM_V_BOTDRAG_IMPL |
_RL cDrag(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
67 |
MOM_V_BOTDRAG_IMPL |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
70 |
MOM_V_BOTDRAG_IMPL |
kBottom = Nr |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
71 |
MOM_V_BOTDRAG_IMPL |
kDown = MIN(k+1,Nr) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
47 |
MOM_V_BOTTOMDRAG |
_RL kappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
66 |
MOM_V_BOTTOMDRAG |
kBottom = Nr |
|
./pkg/mom_common/mom_v_bottomdrag.F |
67 |
MOM_V_BOTTOMDRAG |
kDown = MIN(k+1,Nr) |
|
./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 |
105 |
MOM_V_IMPLICIT_R |
DO k=1,Nr-1 |
|
./pkg/mom_common/mom_v_implicit_r.F |
118 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
141 |
MOM_V_IMPLICIT_R |
IF ( momImplVertAdv .AND. Nr.GT.1 ) THEN |
|
./pkg/mom_common/mom_v_implicit_r.F |
144 |
MOM_V_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
218 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
255 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
264 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
286 |
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+1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
55 |
MOM_V_IMPLICIT_R |
_RL b5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_v_implicit_r.F |
56 |
MOM_V_IMPLICIT_R |
_RL c5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_v_implicit_r.F |
57 |
MOM_V_IMPLICIT_R |
_RL d5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_v_implicit_r.F |
74 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
87 |
MOM_V_IMPLICIT_R |
IF ( implicitViscosity .AND. Nr.GT.1 ) THEN |
|
./pkg/mom_common/mom_v_implicit_r.F |
92 |
MOM_V_IMPLICIT_R |
DO k=2,Nr |
|
./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_common/mom_w_smag_3d.F |
36 |
MOM_W_SMAG_3D |
_RL str13(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_w_smag_3d.F |
37 |
MOM_W_SMAG_3D |
_RL str23(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_w_smag_3d.F |
38 |
MOM_W_SMAG_3D |
_RL str33(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_w_smag_3d.F |
39 |
MOM_W_SMAG_3D |
_RL viscAh3d_00(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/mom_common/mom_w_smag_3d.F |
40 |
MOM_W_SMAG_3D |
_RL viscAh3d_13(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_common/mom_w_smag_3d.F |
41 |
MOM_W_SMAG_3D |
_RL viscAh3d_23(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./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 |
176 |
MOM_FLUXFORM |
_RL uBnd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
177 |
MOM_FLUXFORM |
_RL vBnd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
182 |
MOM_FLUXFORM |
max0 = Nr |
|
./pkg/mom_fluxform/mom_fluxform.F |
379 |
MOM_FLUXFORM |
IF ( momAdvection .AND. k.LT.Nr ) THEN |
|
./pkg/mom_fluxform/mom_fluxform.F |
88 |
MOM_FLUXFORM |
_RL kappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_fluxform/mom_fluxform.F |
89 |
MOM_FLUXFORM |
_RL kappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./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 |
|
./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 |
|
./pkg/mom_vecinv/mom_vecinv.F |
149 |
MOM_VECINV |
max0 = Nr |
|
./pkg/mom_vecinv/mom_vecinv.F |
743 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
745 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
75 |
MOM_VECINV |
_RL kappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/mom_vecinv/mom_vecinv.F |
76 |
MOM_VECINV |
_RL kappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/cg3d.F |
140 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
156 |
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 |
244 |
CG3D |
I 'cg3d_r_I', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
|
./model/src/cg3d.F |
284 |
CG3D |
DO k=2,Nr |
|
./model/src/cg3d.F |
297 |
CG3D |
DO k=Nr,Nr |
|
./model/src/cg3d.F |
308 |
CG3D |
DO k=Nr-1,1,-1 |
|
./model/src/cg3d.F |
341 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
364 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
383 |
CG3D |
IF ( Nr .GT. 1 ) THEN |
|
./model/src/cg3d.F |
425 |
CG3D |
DO k=2,Nr-1 |
|
./model/src/cg3d.F |
447 |
CG3D |
IF ( Nr .GT. 1 ) THEN |
|
./model/src/cg3d.F |
448 |
CG3D |
k=Nr |
|
./model/src/cg3d.F |
483 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
512 |
CG3D |
CALL EXCH_S3D_RL( cg3d_r, Nr, myThid ) |
|
./model/src/cg3d.F |
519 |
CG3D |
I 'cg3d_r_F', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
|
./model/src/cg3d.F |
525 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
69 |
CG3D |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/cg3d.F |
70 |
CG3D |
_RL cg3d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./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. |
|
./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. |
|
./model/src/cg3d_ex0.F |
133 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
144 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
175 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
194 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
196 |
CG3D_EX0 |
kp1 = MIN(k+1, Nr) |
|
./model/src/cg3d_ex0.F |
200 |
CG3D_EX0 |
IF ( k .EQ. Nr) maskP1 = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
234 |
CG3D_EX0 |
CALL EXCH_S3D_RL( cg3d_r, Nr, myThid ) |
|
./model/src/cg3d_ex0.F |
239 |
CG3D_EX0 |
I 'cg3d_r_I', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
|
./model/src/cg3d_ex0.F |
281 |
CG3D_EX0 |
DO k=2,Nr |
|
./model/src/cg3d_ex0.F |
294 |
CG3D_EX0 |
DO k=Nr,Nr |
|
./model/src/cg3d_ex0.F |
305 |
CG3D_EX0 |
DO k=Nr-1,1,-1 |
|
./model/src/cg3d_ex0.F |
329 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
348 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
367 |
CG3D_EX0 |
IF ( Nr .GT. 1 ) THEN |
|
./model/src/cg3d_ex0.F |
409 |
CG3D_EX0 |
DO k=2,Nr-1 |
|
./model/src/cg3d_ex0.F |
431 |
CG3D_EX0 |
IF ( Nr .GT. 1 ) THEN |
|
./model/src/cg3d_ex0.F |
432 |
CG3D_EX0 |
k=Nr |
|
./model/src/cg3d_ex0.F |
458 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
486 |
CG3D_EX0 |
I 1, 1, 1, 1, Nr, |
|
./model/src/cg3d_ex0.F |
502 |
CG3D_EX0 |
I 'cg3d_r_F', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
|
./model/src/cg3d_ex0.F |
509 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
61 |
CG3D_EX0 |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/cg3d_ex0.F |
62 |
CG3D_EX0 |
_RL cg3d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./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 |
189 |
MON_KE |
DO k=1,Nr |
|
./pkg/monitor/mon_ke.F |
228 |
MON_KE |
DO k=1,Nr |
|
./pkg/monitor/mon_ke.F |
70 |
MON_KE |
DO k=1,Nr |
|
./pkg/monitor/mon_ke.F |
71 |
MON_KE |
kp1 = MIN(k+1,Nr) |
|
./pkg/monitor/mon_ke.F |
73 |
MON_KE |
IF ( k.GE.Nr ) mskp1 = 0. |
|
./pkg/monitor/mon_solution.F |
45 |
MON_SOLUTION |
I Nr, theta, hFacC, maskInC, rA, drF, |
|
./pkg/monitor/mon_surfcor.F |
109 |
MON_SURFCOR |
IF (ks.LE.Nr) THEN |
|
./pkg/monitor/mon_surfcor.F |
111 |
MON_SURFCOR |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks) |
|
./pkg/monitor/mon_surfcor.F |
112 |
MON_SURFCOR |
& *hFacC(i,j,Nr,bi,bj)*_recip_hFacC(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
126 |
MON_SURFCOR |
DO k=2,Nr |
|
./pkg/monitor/mon_surfcor.F |
149 |
MON_SURFCOR |
DO k=1,Nr |
|
./pkg/monitor/mon_surfcor.F |
86 |
MON_SURFCOR |
IF (ks.LE.Nr) THEN |
|
./pkg/monitor/mon_vort3.F |
90 |
MON_VORT3 |
DO k=1,Nr |
|
./model/src/config_check.F |
166 |
CONFIG_CHECK |
IF ( dTtracerLev(1).NE.dTtracerLev(Nr) .AND. implicitDiffusion |
|
./pkg/monitor/monitor.F |
111 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, uVel, '_uvel', |
|
./pkg/monitor/monitor.F |
113 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, vVel, '_vvel', |
|
./pkg/monitor/monitor.F |
115 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, wVel, '_wvel', |
|
./pkg/monitor/monitor.F |
117 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, theta,'_theta', |
|
./pkg/monitor/monitor.F |
119 |
MONITOR |
CALL MON_WRITESTATS_RL( Nr, salt, '_salt', |
|
./pkg/monitor/monitor.F |
129 |
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 |
120 |
ADMONITOR |
CALL ADEXCH_UV_3D_RL( aduVel, advVel, .TRUE., Nr, myThid ) |
|
./pkg/monitor/monitor_ad.F |
121 |
ADMONITOR |
CALL ADEXCH_3D_RL( adwVel, Nr, myThid ) |
|
./pkg/monitor/monitor_ad.F |
122 |
ADMONITOR |
CALL ADEXCH_3D_RL( adTheta, Nr, myThid ) |
|
./pkg/monitor/monitor_ad.F |
123 |
ADMONITOR |
CALL ADEXCH_3D_RL( adSalt, Nr, myThid ) |
|
./pkg/monitor/monitor_ad.F |
129 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, aduVel, '_aduvel', |
|
./pkg/monitor/monitor_ad.F |
131 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, advVel, '_advvel', |
|
./pkg/monitor/monitor_ad.F |
133 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, adwVel, '_adwvel', |
|
./pkg/monitor/monitor_ad.F |
135 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, adTheta,'_adtheta', |
|
./pkg/monitor/monitor_ad.F |
137 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, adSalt, '_adsalt', |
|
./pkg/monitor/monitor_ad.F |
143 |
ADMONITOR |
IF ( usingPCoords ) k = Nr |
|
./pkg/monitor/monitor_ad.F |
156 |
ADMONITOR |
& var3Du, var3Dv, Nr, 34, myThid ) |
|
./pkg/monitor/monitor_ad.F |
157 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, var3Du, '_aduvel', |
|
./pkg/monitor/monitor_ad.F |
159 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, var3Dv, '_advvel', |
|
./pkg/monitor/monitor_ad.F |
162 |
ADMONITOR |
CALL COPY_ADVAR_OUTP( dumRS, adwVel, var3Du, Nr, 12, myThid ) |
|
./pkg/monitor/monitor_ad.F |
163 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, var3Du, '_adwvel', |
|
./pkg/monitor/monitor_ad.F |
165 |
ADMONITOR |
CALL COPY_ADVAR_OUTP( dumRS, adTheta,var3Du, Nr, 12, myThid ) |
|
./pkg/monitor/monitor_ad.F |
166 |
ADMONITOR |
CALL COPY_ADVAR_OUTP( dumRS, adSalt, var3Dv, Nr, 12, myThid ) |
|
./pkg/monitor/monitor_ad.F |
167 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, var3Du, '_adtheta', |
|
./pkg/monitor/monitor_ad.F |
169 |
ADMONITOR |
CALL MON_WRITESTATS_RL( Nr, var3Dv, '_adsalt', |
|
./pkg/monitor/monitor_ad.F |
175 |
ADMONITOR |
IF ( usingPCoords ) k = Nr |
|
./pkg/monitor/monitor_ad.F |
61 |
ADMONITOR |
_RL var3Du(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/monitor/monitor_ad.F |
62 |
ADMONITOR |
_RL var3Dv(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/monitor/monitor_g.F |
116 |
G_MONITOR |
CALL MON_WRITESTATS_RL( Nr, g_uVel, '_g_uvel', |
|
./pkg/monitor/monitor_g.F |
118 |
G_MONITOR |
CALL MON_WRITESTATS_RL( Nr, g_vVel, '_g_vvel', |
|
./pkg/monitor/monitor_g.F |
120 |
G_MONITOR |
CALL MON_WRITESTATS_RL( Nr, g_wVel, '_g_wvel', |
|
./pkg/monitor/monitor_g.F |
122 |
G_MONITOR |
CALL MON_WRITESTATS_RL( Nr, g_theta,'_g_theta', |
|
./pkg/monitor/monitor_g.F |
124 |
G_MONITOR |
CALL MON_WRITESTATS_RL( Nr, g_salt, '_g_salt', |
|
./pkg/monitor/monitor_g.F |
129 |
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) |
|
./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 |
138 |
MY82_CALC |
DO K = 2, Nr |
|
./pkg/my82/my82_calc.F |
158 |
MY82_CALC |
DO K = 1, Nr |
|
./pkg/my82/my82_calc.F |
48 |
MY82_CALC |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/my82/my82_calc.F |
69 |
MY82_CALC |
_RL SH(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/my82/my82_calc.F |
70 |
MY82_CALC |
_RL SM(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/my82/my82_calc.F |
71 |
MY82_CALC |
_RL tke(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/my82/my82_calc.F |
85 |
MY82_CALC |
DO K = 1, Nr |
|
./pkg/my82/my82_calc.F |
96 |
MY82_CALC |
DO K = 2, Nr |
|
./pkg/my82/my82_calc_diff.F |
50 |
MY82_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./model/src/config_summary.F |
115 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( tRef, Nr, INDEX_K, 'tRef =', |
|
./model/src/config_summary.F |
117 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( sRef, Nr, INDEX_K, 'sRef =', |
|
./model/src/config_summary.F |
191 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( viscArNr, Nr, INDEX_K, 'viscArNr =', |
|
./model/src/config_summary.F |
216 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( diffKrNrT, Nr, INDEX_K, 'diffKrNrT =', |
|
./model/src/config_summary.F |
220 |
CONFIG_SUMMARY |
& CALL WRITE_1D_RL( diffKr4T, Nr, INDEX_K, 'diffKr4T =', |
|
./model/src/config_summary.F |
223 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( diffKrNrS, Nr, INDEX_K, 'diffKrNrS =', |
|
./model/src/config_summary.F |
227 |
CONFIG_SUMMARY |
& CALL WRITE_1D_RL( diffKr4S, Nr, INDEX_K, 'diffKr4S =', |
|
./model/src/config_summary.F |
262 |
CONFIG_SUMMARY |
DO k = 1, Nr |
|
./model/src/config_summary.F |
311 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( rhoFacC, Nr, INDEX_K, 'rhoFacC = ', |
|
./model/src/config_summary.F |
313 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( rhoFacF, Nr+1, INDEX_K, 'rhoFacF = ', |
|
./model/src/config_summary.F |
321 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( gravFacC, Nr, INDEX_K, 'gravFacC = ', |
|
./model/src/config_summary.F |
323 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( gravFacF, Nr+1, INDEX_K, 'gravFacF = ', |
|
./model/src/config_summary.F |
676 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( dTtracerLev, Nr, INDEX_K, 'dTtracerLev =', |
|
./model/src/config_summary.F |
68 |
CONFIG_SUMMARY |
_RL bufRL(Nr+1) |
|
./model/src/config_summary.F |
818 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( pCellMix_viscAr, Nr, INDEX_K, |
|
./model/src/config_summary.F |
821 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( pCellMix_diffKr, Nr, INDEX_K, |
|
./model/src/config_summary.F |
852 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, drC,Nr+1,INDEX_K, 'drC = ', |
|
./model/src/config_summary.F |
854 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, drF, Nr, INDEX_K, 'drF = ', |
|
./model/src/config_summary.F |
857 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL,dAHybSigF,Nr,INDEX_K,'dAHybSigF =', |
|
./model/src/config_summary.F |
859 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL,dBHybSigF,Nr,INDEX_K,'dBHybSigF =', |
|
./model/src/config_summary.F |
886 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, rC, Nr, INDEX_K, 'rcoord =', |
|
./model/src/config_summary.F |
888 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, rF,Nr+1,INDEX_K, 'rF = ', |
|
./model/src/config_summary.F |
891 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS(bufRL,aHybSigmF,Nr+1,INDEX_K,'aHybSigmF =', |
|
./model/src/config_summary.F |
893 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS(bufRL,bHybSigmF,Nr+1,INDEX_K,'bHybSigmF =', |
|
./model/src/config_summary.F |
896 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( deepFacC, Nr, INDEX_K, 'deepFacC = ', |
|
./model/src/config_summary.F |
898 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( deepFacF, Nr+1, INDEX_K, 'deepFacF = ', |
|
./model/src/config_summary.F |
900 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL(rVel2wUnit,Nr+1, INDEX_K,'rVel2wUnit =', |
|
./model/src/config_summary.F |
902 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL(wUnit2rVel,Nr+1, INDEX_K,'wUnit2rVel =', |
|
./model/src/config_summary.F |
904 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( dBdrRef, Nr, INDEX_K, 'dBdrRef =', |
|
./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 |
140 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
141 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
153 |
MY82_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
155 |
MY82_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
173 |
MY82_OUTPUT |
& MY_timeAve, Nr, bi,bj,myThid) |
|
./pkg/my82/my82_output.F |
175 |
MY82_OUTPUT |
& MY_timeAve, Nr, bi,bj,myThid) |
|
./pkg/my82/my82_output.F |
219 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
220 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/my82/my82_output.F |
237 |
MY82_OUTPUT |
CALL DIAGNOSTICS_FILL(MYviscAr,'MYVISCAR',0,Nr,0,1,1,myThid) |
|
./pkg/my82/my82_output.F |
238 |
MY82_OUTPUT |
CALL DIAGNOSTICS_FILL(MYdiffKr,'MYDIFFKR',0,Nr,0,1,1,myThid) |
|
./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) |
|
./model/src/convective_adjustment.F |
115 |
CONVECTIVE_ADJUSTMENT |
kBottom = Nr |
|
./model/src/convective_adjustment.F |
120 |
CONVECTIVE_ADJUSTMENT |
kTop = Nr |
|
./model/src/convective_adjustment.F |
139 |
CONVECTIVE_ADJUSTMENT |
kkey = (ikey-1)*Nr + k |
|
./model/src/convective_adjustment.F |
213 |
CONVECTIVE_ADJUSTMENT |
I Nr, deltaTClock, bi, bj, myThid) |
|
./model/src/convective_adjustment.F |
220 |
CONVECTIVE_ADJUSTMENT |
I 0, Nr, 2, bi, bj, myThid ) |
|
./model/src/convective_adjustment.F |
65 |
CONVECTIVE_ADJUSTMENT |
_RL ConvectCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/convective_adjustment.F |
91 |
CONVECTIVE_ADJUSTMENT |
DO K=1,Nr |
|
./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_diagnostics_state.F |
50 |
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 ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
138 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
140 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
142 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
144 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
146 |
MYPACKAGE_READ_PICKUP |
nj = nj*Nr |
|
./pkg/mypackage/mypackage_read_pickup.F |
184 |
MYPACKAGE_READ_PICKUP |
CALL EXCH_3D_RL( myPa_StatScal1, Nr, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
185 |
MYPACKAGE_READ_PICKUP |
CALL EXCH_3D_RL( myPa_StatScal2, Nr, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
188 |
MYPACKAGE_READ_PICKUP |
& .TRUE., Nr, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
192 |
MYPACKAGE_READ_PICKUP |
& .TRUE., Nr, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
72 |
MYPACKAGE_READ_PICKUP |
I Nr, myIter, myThid ) |
|
./model/src/convective_adjustment_ini.F |
115 |
CONVECTIVE_ADJUSTMENT_INI |
kBottom = Nr |
|
./model/src/convective_adjustment_ini.F |
120 |
CONVECTIVE_ADJUSTMENT_INI |
kTop = Nr |
|
./model/src/convective_adjustment_ini.F |
139 |
CONVECTIVE_ADJUSTMENT_INI |
kkey = (ikey-1)*Nr + k |
|
./model/src/convective_adjustment_ini.F |
69 |
CONVECTIVE_ADJUSTMENT_INI |
_RL ConvectCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/convective_adjustment_ini.F |
91 |
CONVECTIVE_ADJUSTMENT_INI |
DO K=1,Nr |
|
./pkg/mypackage/mypackage_write_pickup.F |
131 |
MYPACKAGE_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/mypackage/mypackage_write_pickup.F |
132 |
MYPACKAGE_WRITE_PICKUP |
j = Nr |
|
./pkg/mypackage/mypackage_write_pickup.F |
79 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
84 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
89 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
93 |
MYPACKAGE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, |
|
./pkg/mypackage/mypackage_write_pickup.F |
99 |
MYPACKAGE_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/obcs/OBCS_FIELDS.h |
108 |
NO PROCEDURE |
_RL OBEu (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
109 |
NO PROCEDURE |
_RL OBEv (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
110 |
NO PROCEDURE |
_RL OBEt (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
111 |
NO PROCEDURE |
_RL OBEs (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
116 |
NO PROCEDURE |
_RL OBEu0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
117 |
NO PROCEDURE |
_RL OBEv0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
118 |
NO PROCEDURE |
_RL OBEt0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
119 |
NO PROCEDURE |
_RL OBEs0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
120 |
NO PROCEDURE |
_RL OBEu1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
121 |
NO PROCEDURE |
_RL OBEv1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
122 |
NO PROCEDURE |
_RL OBEt1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
123 |
NO PROCEDURE |
_RL OBEs1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
128 |
NO PROCEDURE |
_RL OBEuStevens (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
129 |
NO PROCEDURE |
_RL OBEtStevens (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
130 |
NO PROCEDURE |
_RL OBEsStevens (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
142 |
NO PROCEDURE |
_RL OBWu (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
143 |
NO PROCEDURE |
_RL OBWv (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
144 |
NO PROCEDURE |
_RL OBWt (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
145 |
NO PROCEDURE |
_RL OBWs (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
150 |
NO PROCEDURE |
_RL OBWu0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
151 |
NO PROCEDURE |
_RL OBWv0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
152 |
NO PROCEDURE |
_RL OBWt0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
153 |
NO PROCEDURE |
_RL OBWs0 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
154 |
NO PROCEDURE |
_RL OBWu1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
155 |
NO PROCEDURE |
_RL OBWv1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
156 |
NO PROCEDURE |
_RL OBWt1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
157 |
NO PROCEDURE |
_RL OBWs1 (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
162 |
NO PROCEDURE |
_RL OBWuStevens (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
163 |
NO PROCEDURE |
_RL OBWtStevens (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
164 |
NO PROCEDURE |
_RL OBWsStevens (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
176 |
NO PROCEDURE |
_RL OBNw (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
177 |
NO PROCEDURE |
_RL OBSw (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
178 |
NO PROCEDURE |
_RL OBEw (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
179 |
NO PROCEDURE |
_RL OBWw (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
184 |
NO PROCEDURE |
_RL OBNw0(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
185 |
NO PROCEDURE |
_RL OBSw0(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
186 |
NO PROCEDURE |
_RL OBEw0(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
187 |
NO PROCEDURE |
_RL OBWw0(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
188 |
NO PROCEDURE |
_RL OBNw1(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
189 |
NO PROCEDURE |
_RL OBSw1(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
190 |
NO PROCEDURE |
_RL OBEw1(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
191 |
NO PROCEDURE |
_RL OBWw1(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
40 |
NO PROCEDURE |
_RL OBNu (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
41 |
NO PROCEDURE |
_RL OBNv (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
42 |
NO PROCEDURE |
_RL OBNt (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
43 |
NO PROCEDURE |
_RL OBNs (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
48 |
NO PROCEDURE |
_RL OBNu0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
49 |
NO PROCEDURE |
_RL OBNv0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
50 |
NO PROCEDURE |
_RL OBNt0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
51 |
NO PROCEDURE |
_RL OBNs0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
52 |
NO PROCEDURE |
_RL OBNu1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
53 |
NO PROCEDURE |
_RL OBNv1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
54 |
NO PROCEDURE |
_RL OBNt1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
55 |
NO PROCEDURE |
_RL OBNs1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
60 |
NO PROCEDURE |
_RL OBNvStevens (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
61 |
NO PROCEDURE |
_RL OBNtStevens (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
62 |
NO PROCEDURE |
_RL OBNsStevens (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
74 |
NO PROCEDURE |
_RL OBSu (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
75 |
NO PROCEDURE |
_RL OBSv (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
76 |
NO PROCEDURE |
_RL OBSt (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
77 |
NO PROCEDURE |
_RL OBSs (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
82 |
NO PROCEDURE |
_RL OBSu0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
83 |
NO PROCEDURE |
_RL OBSv0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
84 |
NO PROCEDURE |
_RL OBSt0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
85 |
NO PROCEDURE |
_RL OBSs0 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
86 |
NO PROCEDURE |
_RL OBSu1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
87 |
NO PROCEDURE |
_RL OBSv1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
88 |
NO PROCEDURE |
_RL OBSt1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
89 |
NO PROCEDURE |
_RL OBSs1 (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
94 |
NO PROCEDURE |
_RL OBSvStevens (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
95 |
NO PROCEDURE |
_RL OBStStevens (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_FIELDS.h |
96 |
NO PROCEDURE |
_RL OBSsStevens (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_GRID.h |
58 |
NO PROCEDURE |
INTEGER OB_connectNumber(Nr) |
|
./pkg/obcs/OBCS_GRID.h |
59 |
NO PROCEDURE |
INTEGER OBN_connect(1:sNx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_GRID.h |
60 |
NO PROCEDURE |
INTEGER OBS_connect(1:sNx,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_GRID.h |
61 |
NO PROCEDURE |
INTEGER OBE_connect(1:sNy,Nr,nSx,nSy) |
|
./pkg/obcs/OBCS_GRID.h |
62 |
NO PROCEDURE |
INTEGER OBW_connect(1:sNy,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/convective_weights.F |
46 |
CONVECTIVE_WEIGHTS |
_RL convectCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/obcs/obcs_add_tides.F |
100 |
OBCS_ADD_TIDES |
DO k=1,Nr |
|
./pkg/obcs/obcs_add_tides.F |
118 |
OBCS_ADD_TIDES |
DO k=1,Nr |
|
./pkg/obcs/obcs_add_tides.F |
64 |
OBCS_ADD_TIDES |
DO k=1,Nr |
|
./pkg/obcs/obcs_add_tides.F |
82 |
OBCS_ADD_TIDES |
DO k=1,Nr |
|
./pkg/obcs/obcs_apply_eta.F |
56 |
OBCS_APPLY_ETA |
IF ( kSurfS(i,Jobc,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
66 |
OBCS_APPLY_ETA |
IF ( kSurfS(i,Jobc+1,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
78 |
OBCS_APPLY_ETA |
IF ( kSurfW(Iobc,j,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_eta.F |
88 |
OBCS_APPLY_ETA |
IF ( kSurfW(Iobc+1,j,bi,bj).LE.Nr ) |
|
./pkg/obcs/obcs_apply_ptracer.F |
59 |
OBCS_APPLY_PTRACER |
kHi = Nr |
|
./pkg/obcs/obcs_apply_ptracer.F |
60 |
OBCS_APPLY_PTRACER |
kMx = Nr |
|
./pkg/obcs/obcs_apply_r_star.F |
106 |
OBCS_APPLY_R_STAR |
IF (kSurfW(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
123 |
OBCS_APPLY_R_STAR |
IF (kSurfW(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
70 |
OBCS_APPLY_R_STAR |
IF (kSurfS(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_r_star.F |
87 |
OBCS_APPLY_R_STAR |
IF (kSurfS(i,j,bi,bj).LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
115 |
OBCS_APPLY_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
134 |
OBCS_APPLY_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
75 |
OBCS_APPLY_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_surf_dr.F |
94 |
OBCS_APPLY_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./pkg/obcs/obcs_apply_ts.F |
41 |
OBCS_APPLY_TS |
_RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_ts.F |
42 |
OBCS_APPLY_TS |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_ts.F |
66 |
OBCS_APPLY_TS |
kHi = Nr |
|
./model/src/convectively_mixtracer.F |
34 |
CONVECTIVELY_MIXTRACER |
_RL Tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_uv.F |
40 |
OBCS_APPLY_UV |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_uv.F |
41 |
OBCS_APPLY_UV |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_uv.F |
72 |
OBCS_APPLY_UV |
kHi = Nr |
|
./pkg/obcs/obcs_apply_w.F |
40 |
OBCS_APPLY_W |
_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_w.F |
57 |
OBCS_APPLY_W |
kHi = Nr |
|
./pkg/obcs/obcs_balance_flow.F |
144 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
193 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
242 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
323 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
343 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
363 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
383 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
95 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
101 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
116 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
151 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
166 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
200 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
234 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
283 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
315 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
347 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
379 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
46 |
OBCS_CALC |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
47 |
OBCS_CALC |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
48 |
OBCS_CALC |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
49 |
OBCS_CALC |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc.F |
50 |
OBCS_CALC |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
1053 |
OBCS_STEVENS_SAVE_TRACERS |
DO k = 1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
1069 |
OBCS_STEVENS_SAVE_TRACERS |
DO k = 1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
1085 |
OBCS_STEVENS_SAVE_TRACERS |
DO k = 1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
1101 |
OBCS_STEVENS_SAVE_TRACERS |
DO k = 1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
112 |
OBCS_CALC_STEVENS |
_RL cflMer (1-OLy:sNy+OLy,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
113 |
OBCS_CALC_STEVENS |
_RL gFacM (1-OLy:sNy+OLy,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
114 |
OBCS_CALC_STEVENS |
_RL uMerPri(Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
116 |
OBCS_CALC_STEVENS |
_RL cflZon (1-OLx:sNx+OLx,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
117 |
OBCS_CALC_STEVENS |
_RL gFacZ (1-OLx:sNx+OLx,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
118 |
OBCS_CALC_STEVENS |
_RL vZonPri(Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
180 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
183 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
193 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
204 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
212 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
235 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
307 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
310 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
320 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
331 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
339 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
362 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
418 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
421 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
431 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
442 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
450 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
473 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
530 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
533 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
543 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
554 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
562 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
585 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
638 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
706 |
OBCS_STEVENS_CALC_TRACER_EAST |
_RL cflMer (1-OLy:sNy+OLy,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
707 |
OBCS_STEVENS_CALC_TRACER_EAST |
_RL gFacM (1-OLy:sNy+OLy,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
709 |
OBCS_STEVENS_CALC_TRACER_EAST |
_RL OBEf (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
710 |
OBCS_STEVENS_CALC_TRACER_EAST |
_RL OBE_Stevens (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
711 |
OBCS_STEVENS_CALC_TRACER_EAST |
_RL tracer (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
712 |
OBCS_STEVENS_CALC_TRACER_EAST |
_RL uVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
725 |
OBCS_STEVENS_CALC_TRACER_EAST |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
787 |
OBCS_STEVENS_CALC_TRACER_WEST |
_RL cflMer (1-OLy:sNy+OLy,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
788 |
OBCS_STEVENS_CALC_TRACER_WEST |
_RL gFacM (1-OLy:sNy+OLy,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
790 |
OBCS_STEVENS_CALC_TRACER_WEST |
_RL OBWf (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
791 |
OBCS_STEVENS_CALC_TRACER_WEST |
_RL OBW_Stevens (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
792 |
OBCS_STEVENS_CALC_TRACER_WEST |
_RL tracer (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
793 |
OBCS_STEVENS_CALC_TRACER_WEST |
_RL uVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
807 |
OBCS_STEVENS_CALC_TRACER_WEST |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
869 |
OBCS_STEVENS_CALC_TRACER_NORTH |
_RL cflZon (1-OLx:sNx+OLx,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
870 |
OBCS_STEVENS_CALC_TRACER_NORTH |
_RL gFacZ (1-OLx:sNx+OLx,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
872 |
OBCS_STEVENS_CALC_TRACER_NORTH |
_RL OBNf (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
873 |
OBCS_STEVENS_CALC_TRACER_NORTH |
_RL OBN_Stevens (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
874 |
OBCS_STEVENS_CALC_TRACER_NORTH |
_RL tracer (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
875 |
OBCS_STEVENS_CALC_TRACER_NORTH |
_RL vVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
888 |
OBCS_STEVENS_CALC_TRACER_NORTH |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
951 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
_RL cflZon (1-OLx:sNx+OLx,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
952 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
_RL gFacZ (1-OLx:sNx+OLx,Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
954 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
_RL OBSf (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
955 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
_RL OBS_Stevens (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
956 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
_RL tracer (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
957 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
_RL vVel (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_calc_stevens.F |
970 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
DO K=1,Nr |
|
./pkg/obcs/obcs_check.F |
476 |
OBCS_CHECK |
& .AND.kSurfW(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_check.F |
500 |
OBCS_CHECK |
& .AND.kSurfW(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_check.F |
527 |
OBCS_CHECK |
& .AND.kSurfS(i,j,bi,bj).LE.Nr |
|
./pkg/obcs/obcs_check.F |
551 |
OBCS_CHECK |
& .AND.kSurfS(i,j,bi,bj).LE.Nr |
|
./model/src/correction_step.F |
64 |
CORRECTION_STEP |
DO k=1,Nr |
|
./pkg/obcs/obcs_exf_load.F |
221 |
OBCS_EXF_READ_XZ |
_RL OBu (1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
222 |
OBCS_EXF_READ_XZ |
_RL OBv (1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
223 |
OBCS_EXF_READ_XZ |
_RL OBt (1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
224 |
OBCS_EXF_READ_XZ |
_RL OBs (1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
225 |
OBCS_EXF_READ_XZ |
_RL OBu0 (1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
226 |
OBCS_EXF_READ_XZ |
_RL OBv0 (1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
227 |
OBCS_EXF_READ_XZ |
_RL OBt0 (1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
228 |
OBCS_EXF_READ_XZ |
_RL OBs0 (1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
229 |
OBCS_EXF_READ_XZ |
_RL OBu1 (1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
230 |
OBCS_EXF_READ_XZ |
_RL OBv1 (1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
231 |
OBCS_EXF_READ_XZ |
_RL OBt1 (1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
232 |
OBCS_EXF_READ_XZ |
_RL OBs1 (1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
264 |
OBCS_EXF_READ_XZ |
_RL OBptr (1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/obcs_exf_load.F |
265 |
OBCS_EXF_READ_XZ |
_RL OBptr0(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/obcs_exf_load.F |
266 |
OBCS_EXF_READ_XZ |
_RL OBptr1(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/obcs_exf_load.F |
329 |
OBCS_EXF_READ_XZ |
CALL EXF_SET_OBCS_XZ( OBu, OBu0, OBu1, OBufile, 'u', Nr, |
|
./pkg/obcs/obcs_exf_load.F |
333 |
OBCS_EXF_READ_XZ |
CALL EXF_SET_OBCS_XZ( OBv, OBv0, OBv1, OBvfile, 'v', Nr, |
|
./pkg/obcs/obcs_exf_load.F |
337 |
OBCS_EXF_READ_XZ |
CALL EXF_SET_OBCS_XZ( OBt, OBt0, OBt1, OBtfile, 's', Nr, |
|
./pkg/obcs/obcs_exf_load.F |
341 |
OBCS_EXF_READ_XZ |
CALL EXF_SET_OBCS_XZ( OBs, OBs0, OBs1, OBsfile, 's', Nr, |
|
./pkg/obcs/obcs_exf_load.F |
357 |
OBCS_EXF_READ_XZ |
I OBptrFile(iTracer), 's', Nr, |
|
./pkg/obcs/obcs_exf_load.F |
496 |
OBCS_EXF_READ_YZ |
_RL OBu (1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
497 |
OBCS_EXF_READ_YZ |
_RL OBv (1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
498 |
OBCS_EXF_READ_YZ |
_RL OBt (1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
499 |
OBCS_EXF_READ_YZ |
_RL OBs (1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
500 |
OBCS_EXF_READ_YZ |
_RL OBu0 (1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
501 |
OBCS_EXF_READ_YZ |
_RL OBv0 (1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
502 |
OBCS_EXF_READ_YZ |
_RL OBt0 (1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
503 |
OBCS_EXF_READ_YZ |
_RL OBs0 (1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
504 |
OBCS_EXF_READ_YZ |
_RL OBu1 (1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
505 |
OBCS_EXF_READ_YZ |
_RL OBv1 (1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
506 |
OBCS_EXF_READ_YZ |
_RL OBt1 (1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
507 |
OBCS_EXF_READ_YZ |
_RL OBs1 (1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_exf_load.F |
539 |
OBCS_EXF_READ_YZ |
_RL OBptr (1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/obcs_exf_load.F |
540 |
OBCS_EXF_READ_YZ |
_RL OBptr0(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/obcs_exf_load.F |
541 |
OBCS_EXF_READ_YZ |
_RL OBptr1(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num) |
|
./pkg/obcs/obcs_exf_load.F |
604 |
OBCS_EXF_READ_YZ |
CALL EXF_SET_OBCS_YZ( OBu, OBu0, OBu1, OBufile, 'u', Nr, |
|
./pkg/obcs/obcs_exf_load.F |
608 |
OBCS_EXF_READ_YZ |
CALL EXF_SET_OBCS_YZ( OBv, OBv0, OBv1, OBvfile, 'v', Nr, |
|
./pkg/obcs/obcs_exf_load.F |
612 |
OBCS_EXF_READ_YZ |
CALL EXF_SET_OBCS_YZ( OBt, OBt0, OBt1, OBtfile, 's', Nr, |
|
./pkg/obcs/obcs_exf_load.F |
616 |
OBCS_EXF_READ_YZ |
CALL EXF_SET_OBCS_YZ( OBs, OBs0, OBs1, OBsfile, 's', Nr, |
|
./pkg/obcs/obcs_exf_load.F |
632 |
OBCS_EXF_READ_YZ |
I OBptrFile(iTracer), 's', Nr, |
|
./pkg/obcs/obcs_fields_load.F |
157 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
158 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
161 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
162 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
165 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
166 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
169 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
170 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
174 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
175 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
188 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
189 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
192 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
193 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
196 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
197 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
200 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
201 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
205 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
206 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
219 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
220 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
223 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
224 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
227 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
228 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
231 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
232 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
236 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
237 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
250 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
251 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
254 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
255 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
258 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
259 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
262 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
263 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
267 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
268 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
286 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
288 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
295 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
297 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
304 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
306 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
313 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
315 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
365 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile,fp,Nr,OBEu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
368 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile,fp,Nr,OBEv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
371 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile,fp,Nr,OBEt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
374 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile,fp,Nr,OBEs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
378 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile,fp,Nr,OBEw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
391 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile,fp,Nr,OBWu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
394 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile,fp,Nr,OBWv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
397 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile,fp,Nr,OBWt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
400 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile,fp,Nr,OBWs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
404 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile,fp,Nr,OBWw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
417 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile,fp,Nr,OBNu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
420 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile,fp,Nr,OBNv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
423 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile,fp,Nr,OBNt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
426 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile,fp,Nr,OBNs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
430 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile,fp,Nr,OBNw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
443 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile,fp,Nr,OBSu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
446 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile,fp,Nr,OBSv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
449 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile,fp,Nr,OBSt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
452 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile,fp,Nr,OBSs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
456 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile,fp,Nr,OBSw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
473 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
480 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
487 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
494 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSptrFile(iTr), fp, Nr, |
|
./pkg/obcs/obcs_fields_load.F |
684 |
OBCS_TIME_INTERP_XZ |
_RL fld (1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_fields_load.F |
685 |
OBCS_TIME_INTERP_XZ |
_RL fld0(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_fields_load.F |
686 |
OBCS_TIME_INTERP_XZ |
_RL fld1(1-Olx:sNx+Olx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_fields_load.F |
697 |
OBCS_TIME_INTERP_XZ |
DO k = 1, Nr |
|
./pkg/obcs/obcs_fields_load.F |
735 |
OBCS_TIME_INTERP_YZ |
_RL fld (1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_fields_load.F |
736 |
OBCS_TIME_INTERP_YZ |
_RL fld0(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_fields_load.F |
737 |
OBCS_TIME_INTERP_YZ |
_RL fld1(1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_fields_load.F |
748 |
OBCS_TIME_INTERP_YZ |
DO k = 1, Nr |
|
./pkg/obcs/obcs_init_fixed.F |
108 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
182 |
OBCS_INIT_FIXED |
& .AND. kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
205 |
OBCS_INIT_FIXED |
& .AND. kSurfW(i+1,j,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
228 |
OBCS_INIT_FIXED |
& .AND. kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
251 |
OBCS_INIT_FIXED |
& .AND. kSurfS(i,j+1,bi,bj).LE.Nr ) THEN |
|
./pkg/obcs/obcs_init_fixed.F |
79 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
88 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
99 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Js(i,bi,bj) |
|
./pkg/obcs/obcs_init_variables.F |
160 |
OBCS_INIT_VARIABLES |
DO k=1,Nr |
|
./pkg/obcs/obcs_init_variables.F |
301 |
OBCS_INIT_VARIABLES |
DO k=1,Nr |
|
./pkg/obcs/obcs_init_variables.F |
65 |
OBCS_INIT_VARIABLES |
DO k=1,Nr |
|
./pkg/obcs/obcs_monitor.F |
110 |
OBCS_MONITOR |
I Nr, Nr, 1, uVel, hFacW, dyG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
116 |
OBCS_MONITOR |
I Nr, Nr, 2, vVel, hFacS, dxG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
132 |
OBCS_MONITOR |
I Nr, Nr, 0, theta, hFacW, dyG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
138 |
OBCS_MONITOR |
I Nr, Nr, 0, theta, hFacS, dxG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
154 |
OBCS_MONITOR |
I Nr, Nr, 0, salt, hFacW, dyG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
160 |
OBCS_MONITOR |
I Nr, Nr, 0, salt, hFacS, dxG, drF, maskInC, |
|
./pkg/obcs/obcs_output.F |
107 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
108 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
109 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
110 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
113 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
121 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
122 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
123 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
124 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
127 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
135 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
136 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
137 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
138 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
141 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
149 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWu,1,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
150 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWv,2,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
151 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWt,3,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
152 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWs,4,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
155 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWw,5,myIter,myThid) |
|
./pkg/obcs/obcs_output.F |
60 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNu, 'OBNu' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
61 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNv, 'OBNv' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
62 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNt, 'OBNt' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
63 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBNs, 'OBNs' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
67 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSu, 'OBSu' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
68 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSv, 'OBSv' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
69 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSt, 'OBSt' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
70 |
OBCS_OUTPUT |
CALL PLOT_FIELD_XZRL( OBSs, 'OBSs' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
74 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEu, 'OBEu' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
75 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEv, 'OBEv' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
76 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEt, 'OBEt' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
77 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBEs, 'OBEs' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
81 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWu, 'OBWu' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
82 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWv, 'OBWv' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
83 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWt, 'OBWt' , Nr, myIter, myThid ) |
|
./pkg/obcs/obcs_output.F |
84 |
OBCS_OUTPUT |
CALL PLOT_FIELD_YZRL( OBWs, 'OBWs' , Nr, myIter, myThid ) |
|
./model/src/cycle_ab_tracer.F |
38 |
CYCLE_AB_TRACER |
_RL tracNew(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/cycle_ab_tracer.F |
39 |
CYCLE_AB_TRACER |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/cycle_ab_tracer.F |
40 |
CYCLE_AB_TRACER |
_RL tracNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/cycle_ab_tracer.F |
49 |
CYCLE_AB_TRACER |
DO k=1,Nr |
|
./pkg/obcs/obcs_read_pickup.F |
100 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
101 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
102 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
103 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
104 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
105 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
106 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
107 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
108 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
109 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
110 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
111 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
112 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
113 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
114 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
115 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
116 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_US , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
117 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_VS , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
118 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_TS , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
119 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_SS , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
122 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
123 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
124 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
125 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
126 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_WS , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
127 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, OBSw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
137 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
138 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
139 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
140 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
141 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
142 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
143 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
144 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
145 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
146 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
147 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
148 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
149 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
150 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
151 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
152 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
153 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_UE , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
154 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_VE , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
155 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_TE , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
156 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_SE , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
159 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
160 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
161 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
162 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
163 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_WE , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
164 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, OBEw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
173 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
174 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
175 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
176 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
177 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
178 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
179 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
180 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
181 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
182 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
183 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
184 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
185 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
186 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
187 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
188 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
189 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_UW , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
190 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_VW , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
191 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_TW , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
192 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_SW , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
195 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
196 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
197 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
198 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
199 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_WW , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
200 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, OBWw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
228 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBNvStevens, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
229 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBNtStevens, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
230 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBNsStevens, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
237 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBSvStevens, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
238 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBStStevens, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
239 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBSsStevens, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
246 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBEuStevens, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
247 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBEtStevens, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
248 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBEsStevens, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
255 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBWuStevens, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
256 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBWtStevens, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
257 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBWsStevens, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
64 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
65 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
66 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
67 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
68 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
69 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
70 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
71 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
72 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
73 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
74 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
75 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
76 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
77 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
78 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
79 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
80 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_UN , 17,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
81 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_VN , 18,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
82 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_TN , 19,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
83 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_SN , 20,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
86 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
87 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
88 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
89 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
90 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_WN , 25,myIter,myThid) |
|
./pkg/obcs/obcs_read_pickup.F |
91 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, OBNw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_save_uv_n.F |
44 |
OBCS_SAVE_UV_N |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_save_uv_n.F |
45 |
OBCS_SAVE_UV_N |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_save_uv_n.F |
60 |
OBCS_SAVE_UV_N |
kHi = Nr |
|
./pkg/obcs/obcs_set_connect.F |
105 |
OBCS_SET_CONNECT |
CALL READ_REC_XZ_RS( OBSconnectFile, fp,Nr, tmpXZ, 1,0,myThid ) |
|
./pkg/obcs/obcs_set_connect.F |
110 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_set_connect.F |
122 |
OBCS_SET_CONNECT |
CALL READ_REC_YZ_RS( OBEconnectFile, fp,Nr, tmpYZ, 1,0,myThid ) |
|
./pkg/obcs/obcs_set_connect.F |
127 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_set_connect.F |
139 |
OBCS_SET_CONNECT |
CALL READ_REC_YZ_RS( OBWconnectFile, fp,Nr, tmpYZ, 1,0,myThid ) |
|
./pkg/obcs/obcs_set_connect.F |
144 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_set_connect.F |
159 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_set_connect.F |
174 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_set_connect.F |
49 |
OBCS_SET_CONNECT |
_RS tmpXZ(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_set_connect.F |
50 |
OBCS_SET_CONNECT |
_RS tmpYZ(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_set_connect.F |
68 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_set_connect.F |
88 |
OBCS_SET_CONNECT |
CALL READ_REC_XZ_RS( OBNconnectFile, fp,Nr, tmpXZ, 1,0,myThid ) |
|
./pkg/obcs/obcs_set_connect.F |
93 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_sponge.F |
463 |
OBCS_SPONGE_T |
kkey = (ikey-1)*Nr + k |
|
./pkg/obcs/obcs_sponge.F |
695 |
OBCS_SPONGE_S |
kkey = (ikey-1)*Nr + k |
|
./pkg/obcs/obcs_write_pickup.F |
101 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
102 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
103 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
104 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
105 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
106 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
107 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
108 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
109 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
110 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
111 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
112 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
113 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
114 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
115 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
116 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
117 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_US , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
118 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_VS , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
119 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_TS , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
120 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_SS , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
123 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
124 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
125 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
126 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
127 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_WS , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
128 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, OBSw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
138 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
139 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
140 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
141 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
142 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
143 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
144 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
145 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
146 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
147 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
148 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
149 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
150 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
151 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
152 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
153 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
154 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_UE , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
155 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_VE , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
156 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_TE , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
157 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_SE , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
160 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
161 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
162 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
163 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
164 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_WE , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
165 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, OBEw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
174 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
175 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
176 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
177 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
178 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
179 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
180 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
181 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
182 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
183 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
184 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
185 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
186 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
187 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
188 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
189 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
190 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_UW , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
191 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_VW , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
192 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_TW , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
193 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_SW , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
196 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
197 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
198 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
199 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
200 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_WW , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
201 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, OBWw , 26,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
212 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNvStevens, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
213 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNtStevens, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
214 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNsStevens, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
221 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSvStevens, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
222 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBStStevens, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
223 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSsStevens, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
230 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEuStevens, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
231 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEtStevens, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
232 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEsStevens, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
239 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWuStevens, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
240 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWtStevens, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
241 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWsStevens, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
65 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_1, 1,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
66 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_2, 2,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
67 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_3, 3,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
68 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_4, 4,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
69 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_1, 5,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
70 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_2, 6,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
71 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_3, 7,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
72 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_4, 8,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
73 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_1, 9,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
74 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_2,10,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
75 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_3,11,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
76 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_4,12,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
77 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_1,13,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
78 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_2,14,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
79 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_3,15,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
80 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_4,16,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
81 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_UN , 17,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
82 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_VN , 18,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
83 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_TN , 19,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
84 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_SN , 20,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
87 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_1,21,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
88 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_2,22,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
89 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_3,23,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
90 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_4,24,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
91 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_WN , 25,myIter,myThid) |
|
./pkg/obcs/obcs_write_pickup.F |
92 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, OBNw , 26,myIter,myThid) |
|
./pkg/obcs/orlanski_east.F |
106 |
ORLANSKI_EAST |
DO K=1,Nr |
|
./pkg/obcs/orlanski_east.F |
82 |
ORLANSKI_EAST |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_east.F |
83 |
ORLANSKI_EAST |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_east.F |
84 |
ORLANSKI_EAST |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_east.F |
85 |
ORLANSKI_EAST |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_east.F |
86 |
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 |
|
./model/src/cycle_tracer.F |
35 |
CYCLE_TRACER |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/cycle_tracer.F |
36 |
CYCLE_TRACER |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/cycle_tracer.F |
47 |
CYCLE_TRACER |
DO k=1,Nr |
|
./pkg/obcs/orlanski_north.F |
73 |
ORLANSKI_NORTH |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_north.F |
74 |
ORLANSKI_NORTH |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_north.F |
75 |
ORLANSKI_NORTH |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_north.F |
76 |
ORLANSKI_NORTH |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_north.F |
77 |
ORLANSKI_NORTH |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_north.F |
97 |
ORLANSKI_NORTH |
DO K=1,Nr |
|
./pkg/obcs/orlanski_south.F |
73 |
ORLANSKI_SOUTH |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_south.F |
74 |
ORLANSKI_SOUTH |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_south.F |
75 |
ORLANSKI_SOUTH |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_south.F |
76 |
ORLANSKI_SOUTH |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_south.F |
77 |
ORLANSKI_SOUTH |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_south.F |
97 |
ORLANSKI_SOUTH |
DO K=1,Nr |
|
./pkg/obcs/orlanski_west.F |
108 |
ORLANSKI_WEST |
DO K=1,Nr |
|
./pkg/obcs/orlanski_west.F |
84 |
ORLANSKI_WEST |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_west.F |
85 |
ORLANSKI_WEST |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_west.F |
86 |
ORLANSKI_WEST |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_west.F |
87 |
ORLANSKI_WEST |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/orlanski_west.F |
88 |
ORLANSKI_WEST |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/diags_oceanic_surf_flux.F |
56 |
DIAGS_OCEANIC_SURF_FLUX |
ks=Nr |
|
./pkg/offline/OFFLINE.h |
78 |
NO PROCEDURE |
_RS uvel0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
79 |
NO PROCEDURE |
_RS uvel1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
80 |
NO PROCEDURE |
_RS vvel0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
81 |
NO PROCEDURE |
_RS vvel1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
82 |
NO PROCEDURE |
_RS wvel0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
83 |
NO PROCEDURE |
_RS wvel1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
84 |
NO PROCEDURE |
_RS tave0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
85 |
NO PROCEDURE |
_RS tave1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
86 |
NO PROCEDURE |
_RS save0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
87 |
NO PROCEDURE |
_RS save1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
88 |
NO PROCEDURE |
_RS gmkx0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
89 |
NO PROCEDURE |
_RS gmkx1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
90 |
NO PROCEDURE |
_RS gmky0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
91 |
NO PROCEDURE |
_RS gmky1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
92 |
NO PROCEDURE |
_RS gmkz0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
93 |
NO PROCEDURE |
_RS gmkz1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
94 |
NO PROCEDURE |
_RS conv0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
95 |
NO PROCEDURE |
_RS conv1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
96 |
NO PROCEDURE |
_RS kdfs0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
97 |
NO PROCEDURE |
_RS kdfs1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
98 |
NO PROCEDURE |
_RS kght0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/offline/OFFLINE.h |
99 |
NO PROCEDURE |
_RS kght1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/diags_phi_rlow.F |
102 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = halfRL*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/diags_phi_rlow.F |
124 |
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/offline/offline_fields_load.F |
155 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, uvel0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
159 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, uvel1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
166 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, vvel0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
169 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, vvel1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
181 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, wvel0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
184 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, wvel1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
194 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, tave0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
197 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, tave1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
207 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, save0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
210 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, save1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
221 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkx0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
224 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkx1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
231 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmky0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
234 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmky1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
237 |
OFFLINE_FIELDS_LOAD |
CALL EXCH_UV_AGRID_3D_RS( gmkx0, gmky0, .FALSE., Nr, myThid ) |
|
./pkg/offline/offline_fields_load.F |
238 |
OFFLINE_FIELDS_LOAD |
CALL EXCH_UV_AGRID_3D_RS( gmkx1, gmky1, .FALSE., Nr, myThid ) |
|
./pkg/offline/offline_fields_load.F |
246 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkz0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
249 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkz1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
260 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, conv0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
263 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, conv1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
274 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kdfs0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
277 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kdfs1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
289 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kght0, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
292 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kght1, 1, myIter, myThid ) |
|
./pkg/offline/offline_fields_load.F |
366 |
OFFLINE_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/offline/offline_fields_load.F |
384 |
OFFLINE_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/offline/offline_get_diffus.F |
104 |
OFFLINE_GET_DIFFUS |
DO k=1,Nr |
|
./pkg/offline/offline_get_diffus.F |
120 |
OFFLINE_GET_DIFFUS |
DO k=1,Nr |
|
./pkg/offline/offline_get_diffus.F |
83 |
OFFLINE_GET_DIFFUS |
DO k=1,Nr |
|
./pkg/offline/offline_get_diffus.F |
93 |
OFFLINE_GET_DIFFUS |
DO k=1,Nr |
|
./pkg/offline/offline_init_varia.F |
34 |
OFFLINE_INIT_VARIA |
DO k=1,Nr |
|
./model/src/diags_rho.F |
132 |
DIAGS_RHO_G |
_RL rho3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/diags_rho.F |
133 |
DIAGS_RHO_G |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/diags_rho.F |
134 |
DIAGS_RHO_G |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/diags_rho.F |
135 |
DIAGS_RHO_G |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/diags_rho.F |
158 |
DIAGS_RHO_G |
& 0, Nr, 0, 1, 1, myThid ) |
|
./model/src/diags_rho.F |
161 |
DIAGS_RHO_G |
& 'RHOANOSQ', 0, Nr, 0, 1, 1, myThid ) |
|
./model/src/diags_rho.F |
166 |
DIAGS_RHO_G |
DO k=1,Nr |
|
./model/src/diags_rho.F |
183 |
DIAGS_RHO_G |
DO k=1,Nr |
|
./model/src/diags_rho.F |
200 |
DIAGS_RHO_G |
DO k=1,Nr |
|
./model/src/diags_rho.F |
50 |
DIAGS_RHO_L |
_RL rho3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/diags_rho.F |
52 |
DIAGS_RHO_L |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/openad/externalDummies.F |
259 |
ACTIVE_READ_XYZ |
_RL active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/do_atmospheric_phys.F |
106 |
DO_ATMOSPHERIC_PHYS |
DO k=1,Nr |
|
./model/src/do_atmospheric_phys.F |
82 |
DO_ATMOSPHERIC_PHYS |
DO k=1,Nr |
|
./pkg/openad/openad_dumpAdjoint.F |
96 |
OPENAD_DUMPADJOINT |
_RL foo5(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./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 |
107 |
OPPS_CALC |
_RL Paa(Nr,nTracer) |
|
./pkg/opps/opps_calc.F |
108 |
OPPS_CALC |
_RL wda(Nr), mda(Nr), pda(Nr,nTracer) |
|
./pkg/opps/opps_calc.F |
116 |
OPPS_CALC |
_RL Ad(Nr),Wd(Nr),Dd(Nr),Md(Nr) |
|
./pkg/opps/opps_calc.F |
117 |
OPPS_CALC |
_RL De(Nr) |
|
./pkg/opps/opps_calc.F |
118 |
OPPS_CALC |
_RL PlumeEntrainment(Nr) |
|
./pkg/opps/opps_calc.F |
119 |
OPPS_CALC |
_RL Pd(Nr,nTracer) |
|
./pkg/opps/opps_calc.F |
84 |
OPPS_CALC |
_RL tracerEnv(Nr,nTracer),wVel(Nr) |
|
./pkg/opps/opps_init.F |
39 |
OPPS_INIT |
do k = 1, Nr |
|
./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 |
|
./model/src/do_fields_blocking_exchanges.F |
86 |
DO_FIELDS_BLOCKING_EXCHANGES |
CALL EXCH_UV_DGRID_3D_RL( uVelD,vVelD, .TRUE., Nr, myThid ) |
|
./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 |
147 |
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 |
102 |
PP81_CALC |
& (usingPCoords .AND. K .EQ. Nr) ) THEN |
|
./pkg/pp81/pp81_calc.F |
50 |
PP81_CALC |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/pp81/pp81_calc.F |
70 |
PP81_CALC |
DO K = 2, Nr |
|
./pkg/pp81/pp81_calc_diff.F |
52 |
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/do_oceanic_phys.F |
1069 |
DO_OCEANIC_PHYS |
I Nr, deltaTClock, bi, bj, myThid) |
|
./model/src/do_oceanic_phys.F |
1178 |
DO_OCEANIC_PHYS |
& 0, Nr, 0, 1, 1, myThid ) |
|
./model/src/do_oceanic_phys.F |
209 |
DO_OCEANIC_PHYS |
_RL sigmaX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/do_oceanic_phys.F |
210 |
DO_OCEANIC_PHYS |
_RL sigmaY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/do_oceanic_phys.F |
211 |
DO_OCEANIC_PHYS |
_RL sigmaR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/do_oceanic_phys.F |
303 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
639 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
659 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
680 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
692 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
722 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
768 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
781 |
DO_OCEANIC_PHYS |
DO k=Nr,1,-1 |
|
./model/src/do_oceanic_phys.F |
791 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
803 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
832 |
DO_OCEANIC_PHYS |
DO k=Nr,1,-1 |
|
./model/src/do_oceanic_phys.F |
839 |
DO_OCEANIC_PHYS |
kkey = (itdkey-1)*Nr + k |
|
./model/src/do_oceanic_phys.F |
898 |
DO_OCEANIC_PHYS |
CALL ZERO_ADJ_LOC( Nr, sigmaX, myThid) |
|
./model/src/do_oceanic_phys.F |
899 |
DO_OCEANIC_PHYS |
CALL ZERO_ADJ_LOC( Nr, sigmaY, myThid) |
|
./model/src/do_oceanic_phys.F |
900 |
DO_OCEANIC_PHYS |
CALL ZERO_ADJ_LOC( Nr, sigmaR, myThid) |
|
./model/src/do_oceanic_phys.F |
968 |
DO_OCEANIC_PHYS |
CALL DIAGNOSTICS_FILL (sigmaR, 'DRHODR ', 0, Nr, |
|
./pkg/pp81/pp81_init_varia.F |
39 |
PP81_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/pp81/pp81_output.F |
108 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
109 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
120 |
PP81_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
122 |
PP81_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
138 |
PP81_OUTPUT |
& PP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
140 |
PP81_OUTPUT |
& PP_timeAve, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
158 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPviscArtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
159 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPdiffKrtave, Nr, bi, bj, myThid ) |
|
./pkg/pp81/pp81_output.F |
175 |
PP81_OUTPUT |
CALL DIAGNOSTICS_FILL(PPviscAr,'PPviscAr',0,Nr,0,1,1,myThid) |
|
./pkg/pp81/pp81_output.F |
176 |
PP81_OUTPUT |
CALL DIAGNOSTICS_FILL(PPdiffKr,'PPdiffKr',0,Nr,0,1,1,myThid) |
|
./model/src/do_stagger_fields_exchanges.F |
42 |
DO_STAGGER_FIELDS_EXCHANGES |
& CALL EXCH_UV_3D_RL( uVel, vVel, .TRUE., Nr, myThid ) |
|
./model/src/do_stagger_fields_exchanges.F |
45 |
DO_STAGGER_FIELDS_EXCHANGES |
& CALL EXCH_3D_RL( wVel, Nr, myThid ) |
|
./model/src/do_stagger_fields_exchanges.F |
52 |
DO_STAGGER_FIELDS_EXCHANGES |
CALL EXCH_SM_3D_RL( theta, .FALSE., Nr, myThid ) |
|
./model/src/do_stagger_fields_exchanges.F |
53 |
DO_STAGGER_FIELDS_EXCHANGES |
CALL EXCH_SM_3D_RL( salt , .FALSE., Nr, myThid ) |
|
./pkg/ptracers/PTRACERS_FIELDS.h |
20 |
NO PROCEDURE |
_RL pTracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/ptracers/PTRACERS_FIELDS.h |
22 |
NO PROCEDURE |
_RL gpTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/ptracers/PTRACERS_PARAMS.h |
29 |
NO PROCEDURE |
_RL PTRACERS_dTLev(Nr) |
|
./pkg/ptracers/PTRACERS_PARAMS.h |
35 |
NO PROCEDURE |
_RL PTRACERS_diffKrNr(Nr,PTRACERS_num) |
|
./pkg/ptracers/PTRACERS_PARAMS.h |
36 |
NO PROCEDURE |
_RL PTRACERS_ref(Nr,PTRACERS_num) |
|
./pkg/ptracers/PTRACERS_TAVE.h |
36 |
NO PROCEDURE |
_RL ptracertave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/ptracers/ptracers_apply_forcing.F |
65 |
PTRACERS_APPLY_FORCING |
kSurface = Nr |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
40 |
PTRACERS_CALC_WSURF_TR |
_RL wVelFld (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
67 |
PTRACERS_CALC_WSURF_TR |
IF (ks.LE.Nr) THEN |
|
./pkg/ptracers/ptracers_check.F |
132 |
PTRACERS_CHECK |
CALL WRITE_1D_RL( PTRACERS_diffKrNr(1,iTracer), Nr, INDEX_K, |
|
./pkg/ptracers/ptracers_check.F |
140 |
PTRACERS_CHECK |
CALL WRITE_1D_RL( PTRACERS_ref(1,iTracer), Nr, INDEX_K, |
|
./pkg/ptracers/ptracers_check.F |
182 |
PTRACERS_CHECK |
IF ( PTRACERS_dTLev(1).NE.PTRACERS_dTLev(Nr) |
|
./pkg/ptracers/ptracers_check.F |
69 |
PTRACERS_CHECK |
CALL WRITE_1D_RL( PTRACERS_dTLev, Nr, INDEX_K, |
|
./pkg/ptracers/ptracers_convect.F |
70 |
PTRACERS_CONVECT |
kkey = (iptrkey-1)*Nr + k |
|
./model/src/do_the_model_io.F |
114 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
116 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
|
./model/src/do_the_model_io.F |
118 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_debug.F |
44 |
PTRACERS_DEBUG |
CALL DEBUG_STATS_RL( Nr, pTracer(1-OLx,1-OLy,1,1,1,iTracer), |
|
./pkg/ptracers/ptracers_debug.F |
47 |
PTRACERS_DEBUG |
CALL DEBUG_STATS_RL( Nr, gpTrNm1(1-OLx,1-OLy,1,1,1,iTracer), |
|
./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 |
|
./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_exch.F |
51 |
PTRACERS_FIELDS_BLOCKING_EXCH |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_fields_blocking_exch.F |
55 |
PTRACERS_FIELDS_BLOCKING_EXCH |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
59 |
PTRACERS_FORCING_SURF |
ks = Nr |
|
./pkg/ptracers/ptracers_init_fixed.F |
137 |
PTRACERS_INIT_FIXED |
& sNx, sNy, Nr, OLx, OLy, |
|
./pkg/ptracers/ptracers_init_varia.F |
114 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_init_varia.F |
62 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_init_varia.F |
80 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_integrate.F |
110 |
PTRACERS_INTEGRATE |
_RL gTracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ptracers/ptracers_integrate.F |
115 |
PTRACERS_INTEGRATE |
_RL dummy(Nr) |
|
./pkg/ptracers/ptracers_integrate.F |
154 |
PTRACERS_INTEGRATE |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_integrate.F |
196 |
PTRACERS_INTEGRATE |
I bi, bj, 0, Nr, |
|
./pkg/ptracers/ptracers_integrate.F |
210 |
PTRACERS_INTEGRATE |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_integrate.F |
269 |
PTRACERS_INTEGRATE |
DO k=Nr,1,-1 |
|
./pkg/ptracers/ptracers_integrate.F |
271 |
PTRACERS_INTEGRATE |
kkey = (iptrkey-1)*Nr + k |
|
./pkg/ptracers/ptracers_integrate.F |
351 |
PTRACERS_INTEGRATE |
I bi, bj, k, Nr, |
|
./pkg/ptracers/ptracers_integrate.F |
53 |
PTRACERS_INTEGRATE |
_RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ptracers/ptracers_integrate.F |
54 |
PTRACERS_INTEGRATE |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ptracers/ptracers_integrate.F |
55 |
PTRACERS_INTEGRATE |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ptracers/ptracers_integrate.F |
56 |
PTRACERS_INTEGRATE |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ptracers/ptracers_integrate.F |
57 |
PTRACERS_INTEGRATE |
_RL KappaRk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ptracers/ptracers_monitor.F |
115 |
PTRACERS_MONITOR |
& Nr, pTracer(1-OLx,1-OLy,1,1,1,ip), suff, |
|
./pkg/ptracers/ptracers_monitor_ad.F |
112 |
ADPTRACERS_MONITOR |
& Nr, adptracer(1-OLx,1-OLy,1,1,1,ip), suff, |
|
./pkg/ptracers/ptracers_read_pickup.F |
122 |
PTRACERS_READ_PICKUP |
I Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
177 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
181 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
195 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
199 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
210 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
214 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
218 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
220 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
231 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
233 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
245 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
247 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
318 |
PTRACERS_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_read_pickup.F |
323 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
80 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
87 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
118 |
PTRACERS_READPARMS |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
151 |
PTRACERS_READPARMS |
DO k = 1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
216 |
PTRACERS_READPARMS |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_reset.F |
118 |
PTRACERS_RESET |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_reset.F |
72 |
PTRACERS_RESET |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_reset.F |
95 |
PTRACERS_RESET |
DO k=1,Nr |
|
./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 ) |
|
./model/src/dynamics.F |
153 |
DYNAMICS |
_RL kappaRU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/dynamics.F |
154 |
DYNAMICS |
_RL kappaRV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/dynamics.F |
168 |
DYNAMICS |
_RL str11(1-OLx:sNx+OLx,1-OLy:sNy+OLy, Nr ) |
|
./model/src/dynamics.F |
169 |
DYNAMICS |
_RL str22(1-OLx:sNx+OLx,1-OLy:sNy+OLy, Nr ) |
|
./model/src/dynamics.F |
170 |
DYNAMICS |
_RL str33(1-OLx:sNx+OLx,1-OLy:sNy+OLy, Nr ) |
|
./model/src/dynamics.F |
171 |
DYNAMICS |
_RL str12(1-OLx:sNx+OLx,1-OLy:sNy+OLy, Nr ) |
|
./model/src/dynamics.F |
172 |
DYNAMICS |
_RL str13(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/dynamics.F |
173 |
DYNAMICS |
_RL str23(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/dynamics.F |
174 |
DYNAMICS |
_RL viscAh3d_00(1-OLx:sNx+OLx,1-OLy:sNy+OLy, Nr ) |
|
./model/src/dynamics.F |
175 |
DYNAMICS |
_RL viscAh3d_12(1-OLx:sNx+OLx,1-OLy:sNy+OLy, Nr ) |
|
./model/src/dynamics.F |
176 |
DYNAMICS |
_RL viscAh3d_13(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/dynamics.F |
177 |
DYNAMICS |
_RL viscAh3d_23(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./model/src/dynamics.F |
301 |
DYNAMICS |
DO k=1,Nr |
|
./model/src/dynamics.F |
369 |
DYNAMICS |
DO k=1,Nr+1 |
|
./model/src/dynamics.F |
412 |
DYNAMICS |
I Nr, bi, bj, myThid ) |
|
./model/src/dynamics.F |
421 |
DYNAMICS |
DO k=1,Nr |
|
./model/src/dynamics.F |
428 |
DYNAMICS |
kp1 = MIN(k+1,Nr) |
|
./model/src/dynamics.F |
433 |
DYNAMICS |
kkey = (idynkey-1)*Nr + k |
|
./model/src/dynamics.F |
689 |
DYNAMICS |
CALL DIAGNOSTICS_FILL(totPhihyd,'PHIHYD ',0,Nr,0,1,1,myThid) |
|
./model/src/dynamics.F |
694 |
DYNAMICS |
& 'PHIHYDSQ',0,Nr,0,1,1,myThid) |
|
./model/src/dynamics.F |
705 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
706 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
707 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
708 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,theta,'Theta (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
709 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,salt,'Salt (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
710 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gU,'Gu (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
711 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gV,'Gv (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
713 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,guNm1,'GuNm1 (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
714 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gvNm1,'GvNm1 (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
715 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gtNm1,'GtNm1 (DYNAMICS)',myThid) |
|
./model/src/dynamics.F |
716 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gsNm1,'GsNm1 (DYNAMICS)',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 |
148 |
PTRACERS_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_write_pickup.F |
175 |
PTRACERS_WRITE_PICKUP |
& 0, 0, Nr, ' ', |
|
./pkg/ptracers/ptracers_write_pickup.F |
208 |
PTRACERS_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, |
|
./pkg/ptracers/ptracers_write_timeave.F |
73 |
PTRACERS_WRITE_TIMEAVE |
& ptracer_half, Nr, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_zonal_filt_apply.F |
50 |
PTRACERS_ZONAL_FILT_APPLY |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./pkg/rbcs/RBCS_FIELDS.h |
17 |
NO PROCEDURE |
_RS RBC_maskU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
18 |
NO PROCEDURE |
_RS RBC_maskV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
19 |
NO PROCEDURE |
_RL RBCuVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
20 |
NO PROCEDURE |
_RL RBCvVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
28 |
NO PROCEDURE |
_RS RBC_mask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,maskLEN) |
|
./pkg/rbcs/RBCS_FIELDS.h |
29 |
NO PROCEDURE |
_RL RBCtemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
30 |
NO PROCEDURE |
_RL RBCsalt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
38 |
NO PROCEDURE |
_RL RBC_ptracers(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/rbcs/RBCS_FIELDS.h |
51 |
NO PROCEDURE |
_RS rbcu0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
52 |
NO PROCEDURE |
_RS rbcu1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
53 |
NO PROCEDURE |
_RS rbcv0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
54 |
NO PROCEDURE |
_RS rbcv1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
59 |
NO PROCEDURE |
_RS rbct0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
60 |
NO PROCEDURE |
_RS rbct1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
61 |
NO PROCEDURE |
_RS rbcs0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
62 |
NO PROCEDURE |
_RS rbcs1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/rbcs/RBCS_FIELDS.h |
67 |
NO PROCEDURE |
_RS rbcptr0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/rbcs/RBCS_FIELDS.h |
69 |
NO PROCEDURE |
_RS rbcptr1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
|
./pkg/rbcs/rbcs_fields_load.F |
235 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_fields_load.F |
247 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_fields_load.F |
266 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
197 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
217 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
240 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
264 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
281 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
298 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_varia.F |
42 |
RBCS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_varia.F |
70 |
RBCS_INIT_VARIA |
DO k=1,Nr |
|
./model/src/external_forcing.F |
205 |
EXTERNAL_FORCING_V |
kSurface = Nr |
|
./model/src/external_forcing.F |
357 |
EXTERNAL_FORCING_T |
kSurface = Nr |
|
./model/src/external_forcing.F |
435 |
EXTERNAL_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./model/src/external_forcing.F |
468 |
EXTERNAL_FORCING_T |
IF ( kLev.LT.Nr ) THEN |
|
./model/src/external_forcing.F |
540 |
EXTERNAL_FORCING_T |
IF (kLev.EQ.Nr) THEN |
|
./model/src/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
kSurface = Nr |
|
./model/src/external_forcing.F |
680 |
EXTERNAL_FORCING_S |
kSurface = Nr |
|
./model/src/external_forcing_surf.F |
73 |
EXTERNAL_FORCING_SURF |
ks = Nr |
|
./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 |
|
./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 ) |
|
./model/src/find_hyd_press_1d.F |
102 |
FIND_HYD_PRESS_1D |
IF (k.EQ.Nr) dRlocP = drC(k+1) |
|
./model/src/find_hyd_press_1d.F |
111 |
FIND_HYD_PRESS_1D |
DO k=1,Nr |
|
./model/src/find_hyd_press_1d.F |
120 |
FIND_HYD_PRESS_1D |
DO k=1,Nr |
|
./model/src/find_hyd_press_1d.F |
125 |
FIND_HYD_PRESS_1D |
diffRMS = diffRMS/DFLOAT(Nr) |
|
./model/src/find_hyd_press_1d.F |
146 |
FIND_HYD_PRESS_1D |
DO k=1,Nr |
|
./model/src/find_hyd_press_1d.F |
167 |
FIND_HYD_PRESS_1D |
DO k=1,Nr |
|
./model/src/find_hyd_press_1d.F |
41 |
FIND_HYD_PRESS_1D |
_RL pCen(Nr), pInt(Nr+1) |
|
./model/src/find_hyd_press_1d.F |
42 |
FIND_HYD_PRESS_1D |
_RL rhoCen(Nr) |
|
./model/src/find_hyd_press_1d.F |
43 |
FIND_HYD_PRESS_1D |
_RL tCen(Nr), sCen(Nr) |
|
./model/src/find_hyd_press_1d.F |
61 |
FIND_HYD_PRESS_1D |
_RL rhoLoc(Nr) |
|
./model/src/find_hyd_press_1d.F |
91 |
FIND_HYD_PRESS_1D |
DO k=1,Nr |
|
./model/src/find_hyd_press_1d.F |
98 |
FIND_HYD_PRESS_1D |
DO k=1,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 |
50 |
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 |
50 |
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.h |
100 |
NO PROCEDURE |
_RL dSPvolSurf2kLev (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/salt_plume/SALT_PLUME.h |
101 |
NO PROCEDURE |
& ,dSPvolkLev2Above(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1,nSx,nSy) |
|
./pkg/salt_plume/SALT_PLUME.h |
102 |
NO PROCEDURE |
& ,SPforcingS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/salt_plume/SALT_PLUME.h |
103 |
NO PROCEDURE |
& ,SPforcingT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/salt_plume/SALT_PLUME.h |
104 |
NO PROCEDURE |
& ,SPplumek (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1,nSx,nSy) |
|
./pkg/salt_plume/salt_plume_apply.F |
149 |
SALT_PLUME_APPLY |
Nrp1=Nr+1 |
|
./pkg/salt_plume/salt_plume_apply.F |
150 |
SALT_PLUME_APPLY |
DO k=1,Nr |
|
./pkg/salt_plume/salt_plume_apply.F |
173 |
SALT_PLUME_APPLY |
DO k=1,Nr |
|
./pkg/salt_plume/salt_plume_apply.F |
182 |
SALT_PLUME_APPLY |
DO k=1,Nr |
|
./pkg/salt_plume/salt_plume_apply.F |
191 |
SALT_PLUME_APPLY |
DO k=Nr,1,-1 |
|
./pkg/salt_plume/salt_plume_apply.F |
235 |
SALT_PLUME_APPLY |
& CALL DIAGNOSTICS_FILL(plumetend, diagName, 0,Nr,2,bi,bj,myThid) |
|
./pkg/salt_plume/salt_plume_apply.F |
245 |
SALT_PLUME_APPLY |
DO k=Nr,1,-1 |
|
./pkg/salt_plume/salt_plume_apply.F |
54 |
SALT_PLUME_APPLY |
_RS recip_hFac_arg(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/salt_plume/salt_plume_apply.F |
55 |
SALT_PLUME_APPLY |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/salt_plume/salt_plume_apply.F |
77 |
SALT_PLUME_APPLY |
_RL plumetend(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/salt_plume/salt_plume_apply.F |
78 |
SALT_PLUME_APPLY |
_RL work(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
101 |
SALT_PLUME_CALC_DEPTH |
DO k = 2,Nr |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
103 |
SALT_PLUME_CALC_DEPTH |
kkey = (ikey-1)*Nr + k |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
148 |
SALT_PLUME_CALC_DEPTH |
DO k=2,Nr |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
150 |
SALT_PLUME_CALC_DEPTH |
kkey = (ikey-1)*Nr + k |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
47 |
SALT_PLUME_CALC_DEPTH |
_RL sigmaR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/salt_plume/salt_plume_diagnostics_fill.F |
48 |
SALT_PLUME_DIAGNOSTICS_FILL |
& dSPvolSurf2kLev, 'SPVsuf2k',0,Nr,0,1,1,myThid ) |
|
./pkg/salt_plume/salt_plume_diagnostics_fill.F |
50 |
SALT_PLUME_DIAGNOSTICS_FILL |
& dSPvolkLev2Above,'SPVk2m ',0,Nr,0,1,1,myThid ) |
|
./model/src/forcing_surf_relax.F |
67 |
FORCING_SURF_RELAX |
ks = Nr |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
50 |
SALT_PLUME_FORCING_SURF |
ks = Nr |
|
./pkg/salt_plume/salt_plume_init_varia.F |
33 |
SALT_PLUME_INIT_VARIA |
Nrp1=Nr+1 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
46 |
SALT_PLUME_INIT_VARIA |
DO k=1,Nr |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
72 |
SALT_PLUME_TENDENCY_APPLY_S |
IF ( k .LT. Nr ) THEN |
|
./pkg/salt_plume/salt_plume_volfrac.F |
155 |
SALT_PLUME_VOLFRAC |
DO k=Nr,1,-1 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
168 |
SALT_PLUME_VOLFRAC |
IF(Nlev.GE.1 .AND. Nlev.LE.Nr) THEN |
|
./pkg/salt_plume/salt_plume_volfrac.F |
181 |
SALT_PLUME_VOLFRAC |
& SPplumek,'PLUMEKB1',0,Nr,1,bi,bj,myThid ) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
73 |
SALT_PLUME_VOLFRAC |
Nrp1=Nr+1 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
74 |
SALT_PLUME_VOLFRAC |
DO k=1,Nr |
|
./pkg/sbo/sbo_calc.F |
111 |
SBO_CALC |
_RL UE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/sbo/sbo_calc.F |
112 |
SBO_CALC |
_RL VN(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/sbo/sbo_calc.F |
188 |
SBO_CALC |
I .TRUE., .TRUE., .FALSE., Nr, mythid ) |
|
./pkg/sbo/sbo_calc.F |
235 |
SBO_CALC |
DO k = 1, Nr |
|
./pkg/sbo/sbo_calc.F |
258 |
SBO_CALC |
DO k = 1, Nr |
|
./pkg/sbo/sbo_calc.F |
346 |
SBO_CALC |
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) |
|
./model/src/freeze_surface.F |
46 |
FREEZE_SURFACE |
k = Nr |
|
./pkg/seaice/seaice_advdiff.F |
90 |
SEAICE_ADVDIFF |
_RL DIAGarray (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/grad_sigma.F |
44 |
GRAD_SIGMA |
_RL sigmaX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/grad_sigma.F |
45 |
GRAD_SIGMA |
_RL sigmaY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/grad_sigma.F |
46 |
GRAD_SIGMA |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/seaice/seaice_check.F |
67 |
SEAICE_CHECK |
kSurface = Nr |
|
./model/src/impldiff.F |
103 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
109 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
133 |
IMPLDIFF |
DO k=2,Nr |
|
./model/src/impldiff.F |
151 |
IMPLDIFF |
DO k=1,Nr-1 |
|
./model/src/impldiff.F |
174 |
IMPLDIFF |
c(i,j,Nr) = 0. _d 0 |
|
./model/src/impldiff.F |
179 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
195 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
210 |
IMPLDIFF |
IF (Nr.GT.1) THEN |
|
./model/src/impldiff.F |
228 |
IMPLDIFF |
IF (Nr.GE.2) THEN |
|
./model/src/impldiff.F |
231 |
IMPLDIFF |
DO k=2,Nr |
|
./model/src/impldiff.F |
260 |
IMPLDIFF |
DO k=2,Nr |
|
./model/src/impldiff.F |
276 |
IMPLDIFF |
DO k=Nr-1,1,-1 |
|
./model/src/impldiff.F |
289 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
320 |
IMPLDIFF |
DO k= 1,Nr |
|
./model/src/impldiff.F |
57 |
IMPLDIFF |
_RL KappaRX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/impldiff.F |
58 |
IMPLDIFF |
_RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/impldiff.F |
59 |
IMPLDIFF |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/impldiff.F |
65 |
IMPLDIFF |
_RL deltaTX(Nr) |
|
./model/src/impldiff.F |
66 |
IMPLDIFF |
_RL locTr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/impldiff.F |
67 |
IMPLDIFF |
_RL a(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/impldiff.F |
68 |
IMPLDIFF |
_RL b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/impldiff.F |
69 |
IMPLDIFF |
_RL c(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/impldiff.F |
70 |
IMPLDIFF |
_RL bet(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/impldiff.F |
71 |
IMPLDIFF |
_RL gam(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/impldiff.F |
92 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
99 |
IMPLDIFF |
DO k=1,Nr |
|
./pkg/seaice/seaice_growth.F |
329 |
SEAICE_GROWTH |
kSurface = Nr |
|
./pkg/seaice/seaice_init_fixed.F |
55 |
SEAICE_INIT_FIXED |
kSurface = Nr |
|
./pkg/seaice/seaice_init_varia.F |
57 |
SEAICE_INIT_VARIA |
kSurface = Nr |
|
./model/src/ini_cg2d.F |
99 |
INI_CG2D |
DO k=1,Nr |
|
./pkg/seaice/seaice_mom_advection.F |
92 |
SEAICE_MOM_ADVECTION |
max0 = Nr |
|
./model/src/ini_cg3d.F |
108 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
142 |
INI_CG3D |
DO k=2,Nr |
|
./model/src/ini_cg3d.F |
190 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
198 |
INI_CG3D |
IF ( k .NE. Nr ) THEN |
|
./model/src/ini_cg3d.F |
228 |
INI_CG3D |
IF ( ks.LE.Nr ) THEN |
|
./model/src/ini_cg3d.F |
237 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
266 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
272 |
INI_CG3D |
IF ( k.NE.Nr ) THEN |
|
./model/src/ini_cg3d.F |
297 |
INI_CG3D |
DO k=2,Nr |
|
./model/src/ini_cg3d.F |
306 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
63 |
INI_CG3D |
DO k=1,Nr |
|
./pkg/seaice/seaice_solve4temp.F |
183 |
SEAICE_SOLVE4TEMP |
kSurface = Nr |
|
./pkg/seaice/seaice_tracer_phys.F |
51 |
SEAICE_TRACER_PHYS |
_RL DIAGarray (1:sNx,1:sNy,Nr) |
|
./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 |
126 |
SHAP_FILT_APPLY_TS |
CALL DIAGNOSTICS_FILL(Shap_tmpFld1,'SHAP_dT ',0,Nr, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
137 |
SHAP_FILT_APPLY_TS |
I nShapS, Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
142 |
SHAP_FILT_APPLY_TS |
I nShapS, exchInOut, Nr, myTime, myIter, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
146 |
SHAP_FILT_APPLY_TS |
I nShapS, Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
175 |
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 |
70 |
SHAP_FILT_APPLY_TS |
DO k=1, Nr |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
88 |
SHAP_FILT_APPLY_TS |
I nShapT, Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
93 |
SHAP_FILT_APPLY_TS |
I nShapT, exchInOut, Nr, myTime, myIter, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
97 |
SHAP_FILT_APPLY_TS |
I nShapT, Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
102 |
SHAP_FILT_APPLY_UV |
I Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
110 |
SHAP_FILT_APPLY_UV |
I Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
137 |
SHAP_FILT_APPLY_UV |
CALL DIAGNOSTICS_FILL( Shap_tmpFld1, 'SHAP_dU ', 0, Nr, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
139 |
SHAP_FILT_APPLY_UV |
CALL DIAGNOSTICS_FILL( Shap_tmpFld2, 'SHAP_dV ', 0, Nr, |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
148 |
SHAP_FILT_APPLY_UV |
DO k=1,Nr |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
42 |
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 |
43 |
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 |
81 |
SHAP_FILT_APPLY_UV |
DO k=1, Nr |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
94 |
SHAP_FILT_APPLY_UV |
I Nr, myTime, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
98 |
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 |
230 |
SHAP_FILT_TRACER_S2 |
IF (kSize.EQ.Nr) THEN |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
96 |
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) |
|
./pkg/shelfice/SHELFICE.h |
150 |
NO PROCEDURE |
_RS maskSHI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./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) |
|
./pkg/shelfice/shelfice_forcing.F |
166 |
SHELFICE_FORCING_S |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
167 |
SHELFICE_FORCING_S |
kp1 = MIN(kLev+1,Nr) |
|
./pkg/shelfice/shelfice_forcing.F |
74 |
SHELFICE_FORCING_T |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
75 |
SHELFICE_FORCING_T |
kp1 = MIN(kLev+1,Nr) |
|
./pkg/shelfice/shelfice_init_fixed.F |
102 |
SHELFICE_INIT_FIXED |
DO k=1,Nr |
|
./pkg/shelfice/shelfice_init_fixed.F |
74 |
SHELFICE_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LE.Nr .AND. |
|
./pkg/shelfice/shelfice_init_fixed.F |
95 |
SHELFICE_INIT_FIXED |
DO k=1,Nr |
|
./model/src/ini_dynvars.F |
104 |
INI_DYNVARS |
DO k=1,Nr |
|
./model/src/ini_dynvars.F |
50 |
INI_DYNVARS |
DO k=1,Nr |
|
./pkg/shelfice/shelfice_read_pickup.F |
132 |
SHELFICE_READ_PICKUP |
nj = nj*Nr |
|
./pkg/shelfice/shelfice_read_pickup.F |
68 |
SHELFICE_READ_PICKUP |
I Nr, nIter0, myThid ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
309 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. K .LT. Nr ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
310 |
SHELFICE_THERMODYNAMICS |
Kp1 = MIN(Nr,K+1) |
|
./pkg/shelfice/shelfice_u_drag.F |
43 |
SHELFICE_U_DRAG |
_RL kappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/shelfice/shelfice_u_drag.F |
64 |
SHELFICE_U_DRAG |
kTop = Nr |
|
./pkg/shelfice/shelfice_v_drag.F |
43 |
SHELFICE_V_DRAG |
_RL kappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1) |
|
./pkg/shelfice/shelfice_v_drag.F |
64 |
SHELFICE_V_DRAG |
kTop = Nr |
|
./pkg/shelfice/shelfice_write_pickup.F |
108 |
SHELFICE_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/shelfice/shelfice_write_pickup.F |
109 |
SHELFICE_WRITE_PICKUP |
j = Nr |
|
./pkg/shelfice/shelfice_write_pickup.F |
77 |
SHELFICE_WRITE_PICKUP |
nj = -j*Nr |
|
./model/src/ini_eos.F |
82 |
INI_EOS |
IF (k.NE.Nr) THEN |
|
./model/src/ini_eos.F |
91 |
INI_EOS |
READ(37,*) (eosRefT(k),eosRefS(k),eosSig0(k),k=1,Nr) |
|
./model/src/ini_eos.F |
92 |
INI_EOS |
DO k=1,Nr |
|
./pkg/smooth/SMOOTH.h |
22 |
NO PROCEDURE |
& smooth_recip_hFacC(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
23 |
NO PROCEDURE |
& smooth_hFacW(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
24 |
NO PROCEDURE |
& smooth_hFacS(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/SMOOTH.h |
33 |
NO PROCEDURE |
& smooth3D_Lx(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
34 |
NO PROCEDURE |
& smooth3D_Ly(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
35 |
NO PROCEDURE |
& smooth3D_Lz(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
36 |
NO PROCEDURE |
& smooth3Dnorm (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/SMOOTH.h |
48 |
NO PROCEDURE |
& smooth3D_kappaR (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
49 |
NO PROCEDURE |
& smooth3D_Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
50 |
NO PROCEDURE |
& smooth3D_Kwy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
51 |
NO PROCEDURE |
& smooth3D_Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
52 |
NO PROCEDURE |
& smooth3D_Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
53 |
NO PROCEDURE |
& smooth3D_Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
54 |
NO PROCEDURE |
& smooth3D_Kuz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
55 |
NO PROCEDURE |
& smooth3D_Kvz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
56 |
NO PROCEDURE |
& smooth3D_Kuy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy), |
|
./pkg/smooth/SMOOTH.h |
57 |
NO PROCEDURE |
& smooth3D_Kvx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/smooth/smooth3d.F |
42 |
SMOOTH3D |
& Nr,smooth3D_Kwx,1, 1, myThid ) |
|
./pkg/smooth/smooth3d.F |
44 |
SMOOTH3D |
& Nr,smooth3D_Kwy,2, 1, myThid ) |
|
./pkg/smooth/smooth3d.F |
46 |
SMOOTH3D |
& Nr,smooth3D_Kwz,3, 1, myThid ) |
|
./pkg/smooth/smooth3d.F |
48 |
SMOOTH3D |
& Nr,smooth3D_Kux,4, 1, myThid ) |
|
./pkg/smooth/smooth3d.F |
50 |
SMOOTH3D |
& Nr,smooth3D_Kvy,5, 1, myThid ) |
|
./pkg/smooth/smooth3d.F |
52 |
SMOOTH3D |
& Nr,smooth3D_Kuz,6, 1, myThid ) |
|
./pkg/smooth/smooth3d.F |
54 |
SMOOTH3D |
& Nr,smooth3D_Kvz,7, 1, myThid ) |
|
./pkg/smooth/smooth3d.F |
56 |
SMOOTH3D |
& Nr,smooth3D_Kuy,8, 1, myThid ) |
|
./pkg/smooth/smooth3d.F |
58 |
SMOOTH3D |
& Nr,smooth3D_Kvx,9, 1, myThid ) |
|
./pkg/smooth/smooth3d.F |
60 |
SMOOTH3D |
& Nr,smooth3D_kappaR,10, 1, myThid ) |
|
./model/src/ini_ffields.F |
94 |
INI_FFIELDS |
DO k=1,Nr |
|
./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 |
119 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
138 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
140 |
SMOOTH_DIFF3D |
I bi, bj, k, Nr, |
|
./pkg/smooth/smooth_diff3d.F |
146 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
31 |
SMOOTH_DIFF3D |
_RL fld_in(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_diff3d.F |
32 |
SMOOTH_DIFF3D |
_RL fld_tmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_diff3d.F |
33 |
SMOOTH_DIFF3D |
_RL gT_in(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_diff3d.F |
34 |
SMOOTH_DIFF3D |
_RL gTm1_in(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_diff3d.F |
57 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
117 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
125 |
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 |
193 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
215 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
239 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
257 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
278 |
SMOOTH_FILTERVAR3D |
& Nr, smooth3Dnorm, 1, 1, myThid ) |
|
./pkg/smooth/smooth_filtervar3d.F |
33 |
SMOOTH_FILTERVAR3D |
_RL smoothTmpFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_filtervar3d.F |
34 |
SMOOTH_FILTERVAR3D |
_RL smoothTmpMean(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_filtervar3d.F |
35 |
SMOOTH_FILTERVAR3D |
_RL smoothTmpVar(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_filtervar3d.F |
53 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kwx, |
|
./pkg/smooth/smooth_filtervar3d.F |
55 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kwy, |
|
./pkg/smooth/smooth_filtervar3d.F |
57 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kwz, |
|
./pkg/smooth/smooth_filtervar3d.F |
59 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kux, |
|
./pkg/smooth/smooth_filtervar3d.F |
61 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kvy, |
|
./pkg/smooth/smooth_filtervar3d.F |
63 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kuz, |
|
./pkg/smooth/smooth_filtervar3d.F |
65 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kvz, |
|
./pkg/smooth/smooth_filtervar3d.F |
67 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kuy, |
|
./pkg/smooth/smooth_filtervar3d.F |
69 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_Kvx, |
|
./pkg/smooth/smooth_filtervar3d.F |
71 |
SMOOTH_FILTERVAR3D |
CALL READ_REC_3D_RL( fnamegeneric,smoothprec, Nr,smooth3D_kappaR, |
|
./pkg/smooth/smooth_filtervar3d.F |
87 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
103 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
113 |
SMOOTH_IMPLDIFF |
IF (Nr.GT.1) THEN |
|
./pkg/smooth/smooth_impldiff.F |
126 |
SMOOTH_IMPLDIFF |
IF (Nr.GE.2) THEN |
|
./pkg/smooth/smooth_impldiff.F |
129 |
SMOOTH_IMPLDIFF |
DO k=2,Nr |
|
./pkg/smooth/smooth_impldiff.F |
149 |
SMOOTH_IMPLDIFF |
DO k=2,Nr |
|
./pkg/smooth/smooth_impldiff.F |
161 |
SMOOTH_IMPLDIFF |
DO k=Nr-1,1,-1 |
|
./pkg/smooth/smooth_impldiff.F |
170 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
29 |
SMOOTH_IMPLDIFF |
_RL KappaRX(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
30 |
SMOOTH_IMPLDIFF |
_RS recip_hFac(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_impldiff.F |
31 |
SMOOTH_IMPLDIFF |
_RL gXnm1(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_impldiff.F |
38 |
SMOOTH_IMPLDIFF |
_RL gYnm1(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_impldiff.F |
39 |
SMOOTH_IMPLDIFF |
_RL a(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
40 |
SMOOTH_IMPLDIFF |
_RL b(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
41 |
SMOOTH_IMPLDIFF |
_RL c(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
42 |
SMOOTH_IMPLDIFF |
_RL bet(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
43 |
SMOOTH_IMPLDIFF |
_RL gam(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
49 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
63 |
SMOOTH_IMPLDIFF |
DO k=2,Nr |
|
./pkg/smooth/smooth_impldiff.F |
76 |
SMOOTH_IMPLDIFF |
DO k=1,Nr-1 |
|
./pkg/smooth/smooth_impldiff.F |
89 |
SMOOTH_IMPLDIFF |
c(i,j,Nr) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
94 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
109 |
SMOOTH_INIT3D |
& Nr, smooth3D_Lx,1,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
111 |
SMOOTH_INIT3D |
& Nr, smooth3D_Ly,2,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
117 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
131 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
171 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kwx,1,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
173 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kwy,2,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
175 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kwz,3,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
177 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kux,4,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
179 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kvy,5,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
181 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kuz,6,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
183 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kvz,7,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
185 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kuy,8,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
187 |
SMOOTH_INIT3D |
& Nr,smooth3D_Kvx,9,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
189 |
SMOOTH_INIT3D |
& Nr,smooth3D_kappaR,10,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
51 |
SMOOTH_INIT3D |
& Nr, smooth3D_Lz,1,1,mythid) |
|
./pkg/smooth/smooth_init3d.F |
56 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
69 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
84 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init_fixed.F |
35 |
SMOOTH_INIT_FIXED |
DO k=1,Nr |
|
./pkg/smooth/smooth_rhs.F |
130 |
SMOOTH_RHS |
& +0.5*recip_drC(MIN(k+1,Nr))* |
|
./pkg/smooth/smooth_rhs.F |
131 |
SMOOTH_RHS |
& ( maskC(i-1,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
132 |
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 |
133 |
SMOOTH_RHS |
& +maskC( i ,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
134 |
SMOOTH_RHS |
& (fld_in( i ,j,k,bi,bj)-fld_in( i ,j,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
198 |
SMOOTH_RHS |
& +0.5*recip_drC(MIN(k+1,Nr))* |
|
./pkg/smooth/smooth_rhs.F |
199 |
SMOOTH_RHS |
& ( maskC(i,j-1,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
200 |
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 |
201 |
SMOOTH_RHS |
& +maskC(i, j ,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
202 |
SMOOTH_RHS |
& (fld_in(i, j ,k,bi,bj)-fld_in(i, j ,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
335 |
SMOOTH_RHS |
DO k=1,Nr |
|
./pkg/smooth/smooth_rhs.F |
48 |
SMOOTH_RHS |
_RL fld_in(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_rhs.F |
49 |
SMOOTH_RHS |
_RL gt_in(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_rhs.F |
74 |
SMOOTH_RHS |
DO k=1,Nr |
|
./pkg/smooth/smooth_rhs.F |
91 |
SMOOTH_RHS |
DO k=1,Nr |
|
./pkg/streamice/STREAMICE.h |
372 |
NO PROCEDURE |
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/streamice/STREAMICE.h |
496 |
NO PROCEDURE |
_RL B_glen (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/streamice/STREAMICE.h |
500 |
NO PROCEDURE |
_RL streamice_sigma_coord (Nr) |
|
./pkg/streamice/STREAMICE.h |
501 |
NO PROCEDURE |
_RL streamice_delsigma (Nr) |
|
./pkg/streamice/STREAMICE.h |
519 |
NO PROCEDURE |
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/streamice/STREAMICE.h |
520 |
NO PROCEDURE |
_RL streamice_vert_shear_uz (Nr) |
|
./pkg/streamice/STREAMICE.h |
521 |
NO PROCEDURE |
_RL streamice_vert_shear_vz (Nr) |
|
./pkg/streamice/STREAMICE.h |
659 |
NO PROCEDURE |
_RL visc_full_new_si (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/streamice/STREAMICE.h |
660 |
NO PROCEDURE |
_RL visc_full_dvals (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/ini_global_domain.F |
144 |
INI_GLOBAL_DOMAIN |
IF ( southWestCorner .AND. kSurfC( 1 , 1 ,bi,bj).LE.Nr ) |
|
./model/src/ini_global_domain.F |
146 |
INI_GLOBAL_DOMAIN |
IF ( southEastCorner .AND. kSurfC(sNx, 1 ,bi,bj).LE.Nr ) |
|
./model/src/ini_global_domain.F |
148 |
INI_GLOBAL_DOMAIN |
IF ( northWestCorner .AND. kSurfC( 1 ,sNy,bi,bj).LE.Nr ) |
|
./model/src/ini_global_domain.F |
150 |
INI_GLOBAL_DOMAIN |
IF ( northEastCorner .AND. kSurfC(sNx,sNy,bi,bj).LE.Nr ) |
|
./model/src/ini_linear_phisurf.F |
115 |
INI_LINEAR_PHISURF |
& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
154 |
INI_LINEAR_PHISURF |
& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
170 |
INI_LINEAR_PHISURF |
& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/streamice/streamice_init_fixed.F |
100 |
STREAMICE_INIT_FIXED |
streamice_sigma_coord (m) = 1./Nr * (m-0.5) |
|
./pkg/streamice/streamice_init_fixed.F |
101 |
STREAMICE_INIT_FIXED |
streamice_delsigma (m) = 1./Nr |
|
./pkg/streamice/streamice_init_fixed.F |
263 |
STREAMICE_INIT_FIXED |
DO k=1,Nr |
|
./pkg/streamice/streamice_init_fixed.F |
538 |
STREAMICE_INIT_FIXED |
& 'XY', Nr, 1, .FALSE., 0, myThid, dummyRS ) |
|
./pkg/streamice/streamice_init_fixed.F |
99 |
STREAMICE_INIT_FIXED |
do m=1,Nr |
|
./pkg/streamice/streamice_init_varia.F |
111 |
STREAMICE_INIT_VARIA |
do k=1,Nr |
|
./pkg/streamice/streamice_init_varia.F |
266 |
STREAMICE_INIT_VARIA |
Do k=1,Nr |
|
./pkg/streamice/streamice_init_varia.F |
353 |
STREAMICE_INIT_VARIA |
DO r=1,Nr |
|
./pkg/streamice/streamice_init_varia.F |
551 |
STREAMICE_INIT_VARIA |
CALL EXCH_3D_RL(B_glen, Nr,myThid ) |
|
./pkg/streamice/streamice_init_varia.F |
601 |
STREAMICE_INIT_VARIA |
& 'XY', Nr, 1, .FALSE., 0, myThid, dummyRS ) |
|
./pkg/streamice/streamice_init_varia.F |
72 |
STREAMICE_INIT_VARIA |
do k=1,Nr |
|
./pkg/streamice/streamice_read_pickup.F |
130 |
STREAMICE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
132 |
STREAMICE_READ_PICKUP |
nj = nj*Nr |
|
./pkg/streamice/streamice_read_pickup.F |
186 |
STREAMICE_READ_PICKUP |
CALL EXCH_3D_RL( visc_streamice_full, Nr, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
64 |
STREAMICE_READ_PICKUP |
I Nr, nIter0, myThid ) |
|
./model/src/ini_masks_etc.F |
109 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
137 |
INI_MASKS_ETC |
DO k=1,Nr |
|
./model/src/ini_masks_etc.F |
152 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
183 |
INI_MASKS_ETC |
kSurfC(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
187 |
INI_MASKS_ETC |
DO k=1,Nr |
|
./model/src/ini_masks_etc.F |
196 |
INI_MASKS_ETC |
DO k=Nr,1,-1 |
|
./model/src/ini_masks_etc.F |
207 |
INI_MASKS_ETC |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) maskInC(i,j,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
256 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
280 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
369 |
INI_MASKS_ETC |
DO k=1,Nr |
|
./model/src/ini_masks_etc.F |
437 |
INI_MASKS_ETC |
kSurfW(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
438 |
INI_MASKS_ETC |
kSurfS(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
439 |
INI_MASKS_ETC |
DO k=Nr,1,-1 |
|
./model/src/ini_masks_etc.F |
444 |
INI_MASKS_ETC |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) maskInW(i,j,bi,bj)= 1. |
|
./model/src/ini_masks_etc.F |
446 |
INI_MASKS_ETC |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) maskInS(i,j,bi,bj)= 1. |
|
./model/src/ini_masks_etc.F |
469 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacC, 'hFacC' , Nr, 0, myThid ) |
|
./model/src/ini_masks_etc.F |
470 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacW, 'hFacW' , Nr, 0, myThid ) |
|
./model/src/ini_masks_etc.F |
471 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacS, 'hFacS' , Nr, 0, myThid ) |
|
./model/src/ini_masks_etc.F |
477 |
INI_MASKS_ETC |
DO k=1,Nr |
|
./model/src/ini_masks_etc.F |
508 |
INI_MASKS_ETC |
DO k=1,Nr |
|
./pkg/streamice/streamice_vel_phistage.F |
148 |
STREAMICE_VEL_PHISTAGE |
DO m=Nr,1,-1 |
|
./model/src/ini_mixing.F |
54 |
INI_MIXING |
DO k=1,Nr |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
110 |
STREAMICE_VISC_BETA_HYBRID |
omega_temp (Nr+1) = 0.0 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
111 |
STREAMICE_VISC_BETA_HYBRID |
u_shear(Nr+1) = 0.0 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
112 |
STREAMICE_VISC_BETA_HYBRID |
v_shear(Nr+1) = 0.0 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
114 |
STREAMICE_VISC_BETA_HYBRID |
DO m=Nr,1,-1 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
126 |
STREAMICE_VISC_BETA_HYBRID |
& + Nr*(i-1) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
127 |
STREAMICE_VISC_BETA_HYBRID |
& + Nr*sNx*(j-1) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
128 |
STREAMICE_VISC_BETA_HYBRID |
& + Nr*sNx*sNy*act1 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
129 |
STREAMICE_VISC_BETA_HYBRID |
& + Nr*sNx*sNy*max1*act2 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
130 |
STREAMICE_VISC_BETA_HYBRID |
& + Nr*sNx*sNy*max1*max2*act3 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
131 |
STREAMICE_VISC_BETA_HYBRID |
& + Nr*sNx*sNy*max1*max2*max3*act4 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
197 |
STREAMICE_VISC_BETA_HYBRID |
DO m=Nr,1,-1 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
46 |
STREAMICE_VISC_BETA_HYBRID |
_RL omega_temp (Nr+1), u_shear(Nr+1), v_shear(Nr+1) |
|
./pkg/streamice/streamice_write_pickup.F |
163 |
STREAMICE_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/streamice/streamice_write_pickup.F |
164 |
STREAMICE_WRITE_PICKUP |
j = Nr |
|
./pkg/streamice/streamice_write_pickup.F |
77 |
STREAMICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, visc_streamice_full, |
|
./pkg/streamice/streamice_write_pickup.F |
83 |
STREAMICE_WRITE_PICKUP |
nj = -j*Nr |
|
./model/src/ini_model_io.F |
213 |
INI_MODEL_IO |
& Nr,myThid ) |
|
./model/src/ini_nh_fields.F |
105 |
INI_NH_FIELDS |
DO k=1,Nr |
|
./model/src/ini_nh_fields.F |
90 |
INI_NH_FIELDS |
IF ( ks.LE.Nr ) THEN |
|
./model/src/ini_nh_vars.F |
51 |
INI_NH_VARS |
DO k=1,Nr |
|
./model/src/ini_nlfs_vars.F |
114 |
INI_NLFS_VARS |
DO k=1,Nr |
|
./model/src/ini_nlfs_vars.F |
141 |
INI_NLFS_VARS |
IF (ks.LE.Nr) THEN |
|
./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/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 |
230 |
INI_P_GROUND |
IF ( Po_surf.LT.rC(1) .AND. Po_surf.GT.rC(Nr) ) THEN |
|
./model/src/ini_p_ground.F |
232 |
INI_P_GROUND |
DO k=1,Nr |
|
./model/src/ini_p_ground.F |
238 |
INI_P_GROUND |
IF (k.LT.Nr) rMidKp1 = (rC(k)+rC(k+1))*0.5 _d 0 |
|
./model/src/ini_p_ground.F |
274 |
INI_P_GROUND |
IF (ks.LE.Nr) THEN |
|
./model/src/ini_p_ground.F |
277 |
INI_P_GROUND |
DO k=2,Nr |
|
./model/src/ini_p_ground.F |
314 |
INI_P_GROUND |
IF ( Po_surf.LT.rC(1) .AND. Po_surf.GT.rC(Nr) ) THEN |
|
./model/src/ini_p_ground.F |
316 |
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 |
|
./pkg/timeave/timeave_statv_write.F |
100 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VStave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
101 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(WStave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
103 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(TTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
104 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UUtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
105 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VVtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
106 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UVtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
110 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(hUtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
111 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(hVtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
117 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(TdiffRtave,timeAve_full,Nr, |
|
./pkg/timeave/timeave_statv_write.F |
120 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(uZetatave,timeAve_full,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
121 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(vZetatave,timeAve_full,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
123 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(phiHydtave,timeAve_full,Nr, |
|
./pkg/timeave/timeave_statv_write.F |
127 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(ConvectCountTave,timeAve_full,Nr, |
|
./pkg/timeave/timeave_statv_write.F |
89 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(thetatave,timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
90 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(salttave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
91 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(uVeltave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
92 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(vVeltave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
93 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(wVeltave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
96 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
97 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
98 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(WTtave, timeAve_half,Nr,bi,bj,myThid) |
|
./pkg/timeave/timeave_statv_write.F |
99 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UStave, timeAve_half,Nr,bi,bj,myThid) |
|
./model/src/ini_parms.F |
104 |
INI_PARMS |
_RL delZ(Nr) |
|
./model/src/ini_parms.F |
1051 |
INI_PARMS |
DO k =1,Nr |
|
./model/src/ini_parms.F |
105 |
INI_PARMS |
_RL delP(Nr) |
|
./model/src/ini_parms.F |
1065 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
1291 |
INI_PARMS |
DO k=1,Nr+1 |
|
./model/src/ini_parms.F |
1312 |
INI_PARMS |
DO k = 1, Nr |
|
./model/src/ini_parms.F |
491 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
494 |
INI_PARMS |
IF ( vertSetCount.GT.0 .AND. vertSetCount.LT.Nr ) THEN |
|
./model/src/ini_parms.F |
496 |
INI_PARMS |
& vertSetCount, ' /', Nr, ') of viscArNr is not allowed' |
|
./model/src/ini_parms.F |
509 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
525 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
528 |
INI_PARMS |
IF ( vertSetCount.GT.0 .AND. vertSetCount.LT.Nr ) THEN |
|
./model/src/ini_parms.F |
530 |
INI_PARMS |
& vertSetCount, ' /', Nr, ') of diffKrNrT is not allowed' |
|
./model/src/ini_parms.F |
534 |
INI_PARMS |
specifiedDiffKrT = vertSetCount.EQ.Nr |
|
./model/src/ini_parms.F |
546 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
557 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
560 |
INI_PARMS |
IF ( vertSetCount.GT.0 .AND. vertSetCount.LT.Nr ) THEN |
|
./model/src/ini_parms.F |
562 |
INI_PARMS |
& vertSetCount, ' /', Nr, ') of diffKrNrS is not allowed' |
|
./model/src/ini_parms.F |
566 |
INI_PARMS |
IF ( vertSetCount.EQ.Nr ) THEN |
|
./model/src/ini_parms.F |
576 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
583 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
69 |
INI_PARMS |
_RL delRDefault(Nr) |
|
./model/src/ini_parms.F |
904 |
INI_PARMS |
DO k=1,Nr |
|
./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_pressure.F |
107 |
INI_PRESSURE |
DO k = 1, Nr |
|
./model/src/ini_pressure.F |
71 |
INI_PRESSURE |
DO k = 1,Nr |
|
./verification/1D_ocean_ice_column/code/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 30, numperlist = 50, numLevels=2*Nr ) |
|
./verification/1D_ocean_ice_column/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numdiags = 20*Nr ) |
|
./verification/1D_ocean_ice_column/code/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/1D_ocean_ice_column/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/1D_ocean_ice_column/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 23) |
|
./verification/1D_ocean_ice_column/code_ad/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 30, numperlist = 50, numLevels=2*Nr ) |
|
./verification/1D_ocean_ice_column/code_ad/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numdiags = 20*Nr ) |
|
./verification/1D_ocean_ice_column/code_ad/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/1D_ocean_ice_column/code_ad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/1D_ocean_ice_column/code_ad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 23) |
|
./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 = 50*Nr ) |
|
./verification/MLAdjust/code/SIZE.h |
44 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/MLAdjust/code/SIZE.h |
56 |
NO PROCEDURE |
& Nr = 40) |
|
./model/src/ini_salt.F |
133 |
INI_SALT |
& Nr, 1, myThid ) |
|
./model/src/ini_salt.F |
58 |
INI_SALT |
DO k=1,Nr |
|
./model/src/ini_salt.F |
90 |
INI_SALT |
DO k=1,Nr |
|
./verification/OpenAD/code_ad/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/OpenAD/code_ad/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/OpenAD/code_ad_singlelayer/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/OpenAD/code_ad_singlelayer/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 1) |
|
./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/OpenAD/code_oad/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/OpenAD/code_oad/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./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/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/adjustment.cs-32x32x1/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 20*Nr ) |
|
./verification/adjustment.cs-32x32x1/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*Nr ) |
|
./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 = 20*Nr ) |
|
./verification/advect_cs/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*Nr ) |
|
./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 |
|
./model/src/ini_theta.F |
137 |
INI_THETA |
DO k=1,Nr |
|
./model/src/ini_theta.F |
154 |
INI_THETA |
& Nr, 1, myThid ) |
|
./model/src/ini_theta.F |
59 |
INI_THETA |
DO k=1,Nr |
|
./model/src/ini_theta.F |
91 |
INI_THETA |
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 |
132 |
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 |
89 |
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/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/advect_xz/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 10*Nr ) |
|
./verification/advect_xz/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*Nr ) |
|
./verification/advect_xz/code/SIZE.h |
44 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/advect_xz/code/SIZE.h |
56 |
NO PROCEDURE |
& Nr = 20) |
|
./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) |
|
./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/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_vertical_grid.F |
103 |
INI_VERTICAL_GRID |
drF(Nr) = delRc(Nr+1) + drF(Nr) |
|
./model/src/ini_vertical_grid.F |
108 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
112 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
127 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
130 |
INI_VERTICAL_GRID |
drC(Nr+1) = 0.5 _d 0 *delR(Nr) |
|
./model/src/ini_vertical_grid.F |
144 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
148 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
160 |
INI_VERTICAL_GRID |
rF(Nr+1) = top_Pres |
|
./model/src/ini_vertical_grid.F |
162 |
INI_VERTICAL_GRID |
rF(Nr+1) = seaLev_Z |
|
./model/src/ini_vertical_grid.F |
164 |
INI_VERTICAL_GRID |
DO k=Nr,1,-1 |
|
./model/src/ini_vertical_grid.F |
167 |
INI_VERTICAL_GRID |
rC(Nr) = rF(Nr+1) - rkSign*drC(Nr+1) |
|
./model/src/ini_vertical_grid.F |
168 |
INI_VERTICAL_GRID |
DO k=Nr,2,-1 |
|
./model/src/ini_vertical_grid.F |
176 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
198 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
201 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
207 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
213 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
220 |
INI_VERTICAL_GRID |
rFullDepth = rF(1) - rF(Nr+1) |
|
./model/src/ini_vertical_grid.F |
226 |
INI_VERTICAL_GRID |
IF ( usingPCoords ) rSigBndRS = rF(Nr+1) |
|
./model/src/ini_vertical_grid.F |
250 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
264 |
INI_VERTICAL_GRID |
& *( tmpRS -rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
268 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
282 |
INI_VERTICAL_GRID |
& *( tmpRS -rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
288 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
299 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( rF(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
304 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
315 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
331 |
INI_VERTICAL_GRID |
bHybSigmF(Nr+1) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
332 |
INI_VERTICAL_GRID |
aHybSigmF(Nr+1) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
333 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
340 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
347 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
351 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
357 |
INI_VERTICAL_GRID |
dAHybSigC(Nr+1) = ( aHybSigmF(Nr+1) - aHybSigmC(Nr) )*rkSign |
|
./model/src/ini_vertical_grid.F |
358 |
INI_VERTICAL_GRID |
dBHybSigC(Nr+1) = ( bHybSigmF(Nr+1) - bHybSigmC(Nr) )*rkSign |
|
./model/src/ini_vertical_grid.F |
364 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
365 |
INI_VERTICAL_GRID |
tmpError = ( rC(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
380 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
381 |
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 |
|
./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 |
55 |
COST_TEST |
DO K=1,Nr |
|
./verification/cfc_example/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=3*Nr ) |
|
./verification/cfc_example/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 20*Nr ) |
|
./verification/cfc_example/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*Nr ) |
|
./verification/cfc_example/code/LAYERS_SIZE.h |
20 |
NO PROCEDURE |
PARAMETER( FineGridMax = Nr * FineGridFact ) |
|
./verification/cfc_example/code/MDSIO_BUFF_3D.h |
23 |
NO PROCEDURE |
PARAMETER ( size3dBuf = Nr+NrPhys ) |
|
./verification/cfc_example/code/MDSIO_BUFF_3D.h |
27 |
NO PROCEDURE |
PARAMETER ( size3dBuf = 3*Nr ) |
|
./verification/cfc_example/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/cfc_example/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/cheapAML_box/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/cheapAML_box/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 10*Nr ) |
|
./verification/cheapAML_box/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/cheapAML_box/code/SIZE.h |
44 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/cheapAML_box/code/SIZE.h |
56 |
NO PROCEDURE |
& Nr = 1) |
|
./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/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/cpl_aim+ocn/code_ocn/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 40*Nr ) |
|
./verification/cpl_aim+ocn/code_ocn/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./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) |
|
./model/src/integr_continuity.F |
103 |
INTEGR_CONTINUITY |
DO k=1,Nr |
|
./model/src/integr_continuity.F |
255 |
INTEGR_CONTINUITY |
DO k=Nr,1,-1 |
|
./model/src/integr_continuity.F |
265 |
INTEGR_CONTINUITY |
IF ( k.EQ.Nr .AND. myIter.NE.0 .AND. usingPCoords |
|
./model/src/integr_continuity.F |
43 |
INTEGR_CONTINUITY |
_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/integr_continuity.F |
44 |
INTEGR_CONTINUITY |
_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./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) |
|
./model/src/integrate_for_w.F |
101 |
INTEGRATE_FOR_W |
ELSEIF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
126 |
INTEGRATE_FOR_W |
IF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
152 |
INTEGRATE_FOR_W |
IF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
177 |
INTEGRATE_FOR_W |
IF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
37 |
INTEGRATE_FOR_W |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/integrate_for_w.F |
38 |
INTEGRATE_FOR_W |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/integrate_for_w.F |
40 |
INTEGRATE_FOR_W |
_RL mFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/integrate_for_w.F |
49 |
INTEGRATE_FOR_W |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./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) |
|
./verification/dome/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/dome/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 10*Nr ) |
|
./verification/dome/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*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 |
102 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/dome/code/obcs_calc.F |
134 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/dome/code/obcs_calc.F |
153 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/dome/code/obcs_calc.F |
214 |
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) |
|
./model/src/load_fields_driver.F |
113 |
LOAD_FIELDS_DRIVER |
DO k=1,Nr |
|
./model/src/load_fields_driver.F |
97 |
LOAD_FIELDS_DRIVER |
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) |
|
./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 ) |
|
./model/src/load_grid_spacing.F |
103 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RS( hybSigmFile,' ',aHybSigmF,Nr+1, 1,myThid ) |
|
./model/src/load_grid_spacing.F |
104 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RS( hybSigmFile,' ',bHybSigmF,Nr+1, 2,myThid ) |
|
./model/src/load_grid_spacing.F |
84 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RL( delRFile, ' ', delR, Nr, 1, myThid ) |
|
./model/src/load_grid_spacing.F |
93 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RL( delRcFile, ' ', delRc, Nr+1, 1, myThid ) |
|
./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 |
|
./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 ) |
|
./model/src/load_ref_files.F |
102 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( sRefFile, ' ', sRef, Nr, 1, myThid ) |
|
./model/src/load_ref_files.F |
113 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( rhoRefFile, ' ', rho1Ref, Nr, 1, myThid ) |
|
./model/src/load_ref_files.F |
126 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( gravityFile, ' ', gravFacC, Nr, 1, myThid ) |
|
./model/src/load_ref_files.F |
138 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
141 |
LOAD_REF_FILES |
DO k=2,Nr |
|
./model/src/load_ref_files.F |
147 |
LOAD_REF_FILES |
gravFacF(Nr+1) = ( gravFacC(Nr)*(rF(Nr+1)-rF(Nr)) |
|
./model/src/load_ref_files.F |
148 |
LOAD_REF_FILES |
& + gravFacF(Nr)*(rC(Nr)-rF(Nr+1)) |
|
./model/src/load_ref_files.F |
149 |
LOAD_REF_FILES |
& ) / (rC(Nr)-rF(Nr)) |
|
./model/src/load_ref_files.F |
151 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
154 |
LOAD_REF_FILES |
DO k=1,Nr+1 |
|
./model/src/load_ref_files.F |
160 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
164 |
LOAD_REF_FILES |
DO k=1,Nr+1 |
|
./model/src/load_ref_files.F |
53 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
59 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
71 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( tRefFile, ' ', tRef, Nr, 1, myThid ) |
|
./model/src/load_ref_files.F |
84 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
90 |
LOAD_REF_FILES |
DO k=1,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 |
|
./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) |
|
./model/src/momentum_correction_step.F |
131 |
MOMENTUM_CORRECTION_STEP |
& CALL EXCH_UV_3D_RL( uVel, vVel, .TRUE., Nr, myThid ) |
|
./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 |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global_ocean.90x40x15/code_ad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/global_ocean.90x40x15/code_oad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global_ocean.90x40x15/code_oad/SIZE.h |
57 |
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 ) |
|
./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 |
37 |
COST_TEST |
_RL thetaLev(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/global_ocean_ebm/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global_ocean_ebm/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./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 = 6*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/global_with_exf/code_ad/DIAGNOSTICS_SIZE.h |
23 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/global_with_exf/code_ad/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numdiags = 6*Nr ) |
|
./verification/global_with_exf/code_ad/DIAGNOSTICS_SIZE.h |
26 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/global_with_exf/code_ad/SIZE.h |
38 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/global_with_exf/code_ad/SIZE.h |
50 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/halfpipe_streamice/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/halfpipe_streamice/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 6*Nr ) |
|
./verification/halfpipe_streamice/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 5*Nr ) |
|
./verification/halfpipe_streamice/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/halfpipe_streamice/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/halfpipe_streamice/code_ad/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/halfpipe_streamice/code_ad/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 6*Nr ) |
|
./verification/halfpipe_streamice/code_ad/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 5*Nr ) |
|
./verification/halfpipe_streamice/code_ad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/halfpipe_streamice/code_ad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
153 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./verification/halfpipe_streamice/code_oad/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/halfpipe_streamice/code_oad/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 6*Nr ) |
|
./verification/halfpipe_streamice/code_oad/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 5*Nr ) |
|
./verification/halfpipe_streamice/code_oad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/halfpipe_streamice/code_oad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 1) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
153 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./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/apply_forcing.F |
161 |
APPLY_FORCING_V |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
255 |
APPLY_FORCING_T |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
68 |
APPLY_FORCING_U |
rFullDepth = rF(1)-rF(Nr+1) |
|
./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 |
|
./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/apply_forcing.F |
161 |
APPLY_FORCING_V |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
255 |
APPLY_FORCING_T |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
68 |
APPLY_FORCING_U |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
134 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./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.1x64x5/code_oad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/hs94.1x64x5/code_oad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 5) |
|
./verification/hs94.1x64x5/code_oad/adcommon.h |
74 |
NO PROCEDURE |
_RL addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/hs94.1x64x5/code_oad/adcommon.h |
79 |
NO PROCEDURE |
_RL adkapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
161 |
APPLY_FORCING_V |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
255 |
APPLY_FORCING_T |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
68 |
APPLY_FORCING_U |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
134 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
129 |
INI_THETA |
& Nr, 1, myThid ) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
65 |
INI_THETA |
DO K=1,Nr |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
86 |
INI_THETA |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
|
./verification/hs94.1x64x5/code_oad/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/apply_forcing.F |
161 |
APPLY_FORCING_V |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
255 |
APPLY_FORCING_T |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
68 |
APPLY_FORCING_U |
rFullDepth = rF(1)-rF(Nr+1) |
|
./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 |
|
./model/src/post_cg3d.F |
117 |
POST_CG3D |
DO k=1,Nr |
|
./model/src/post_cg3d.F |
92 |
POST_CG3D |
IF ( ks.LE.Nr ) THEN |
|
./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 |
113 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
134 |
OBCS_CALC |
& + Uinflow*sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
148 |
OBCS_CALC |
& *sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
166 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
186 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
33 |
OBCS_CALC |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
34 |
OBCS_CALC |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
35 |
OBCS_CALC |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
36 |
OBCS_CALC |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
37 |
OBCS_CALC |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/internal_wave/code/obcs_calc.F |
46 |
OBCS_CALC |
_RL vertStructWst(Nr) |
|
./verification/internal_wave/code/obcs_calc.F |
63 |
OBCS_CALC |
do K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
64 |
OBCS_CALC |
vertStructWst(K)=cos(mz*PI* (rC(K)/rF(Nr+1)) ) |
|
./verification/internal_wave/code/obcs_calc.F |
67 |
OBCS_CALC |
tmpsum=tmpsum/rF(Nr+1) |
|
./verification/internal_wave/code/obcs_calc.F |
68 |
OBCS_CALC |
do K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
93 |
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/pre_cg3d.F |
143 |
PRE_CG3D |
IF ( ks.LE.Nr ) THEN |
|
./model/src/pre_cg3d.F |
158 |
PRE_CG3D |
IF ( ks.LE.Nr ) THEN |
|
./model/src/pre_cg3d.F |
192 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
194 |
PRE_CG3D |
IF (k.GE.Nr) wFacKp = 0. |
|
./model/src/pre_cg3d.F |
207 |
PRE_CG3D |
DO k=2,Nr |
|
./model/src/pre_cg3d.F |
208 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
213 |
PRE_CG3D |
IF (k.GE.Nr) wFacKp = 0. |
|
./model/src/pre_cg3d.F |
239 |
PRE_CG3D |
DO k=1,Nr |
|
./model/src/pre_cg3d.F |
48 |
PRE_CG3D |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/pre_cg3d.F |
97 |
PRE_CG3D |
IF ( usingPCoords ) ks = 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 = 20*Nr ) |
|
./verification/isomip/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/isomip/code/SIZE.h |
44 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/isomip/code/SIZE.h |
56 |
NO PROCEDURE |
& Nr = 30) |
|
./verification/isomip/code_ad/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/isomip/code_ad/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 2*Nr+2 ) |
|
./verification/isomip/code_ad/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 10*Nr ) |
|
./verification/isomip/code_ad/SIZE.h |
44 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/isomip/code_ad/SIZE.h |
56 |
NO PROCEDURE |
& Nr = 30) |
|
./verification/isomip/code_oad/SIZE.h |
44 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/isomip/code_oad/SIZE.h |
56 |
NO PROCEDURE |
& Nr = 30) |
|
./model/src/read_pickup.F |
110 |
READ_PICKUP |
I Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
168 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
169 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gU, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
170 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 3, myIter,myThid ) |
|
./model/src/read_pickup.F |
171 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 4, myIter,myThid ) |
|
./model/src/read_pickup.F |
172 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gV, 5, myIter,myThid ) |
|
./model/src/read_pickup.F |
173 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 6, myIter,myThid ) |
|
./model/src/read_pickup.F |
174 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 7, myIter,myThid ) |
|
./model/src/read_pickup.F |
176 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 9, myIter,myThid ) |
|
./model/src/read_pickup.F |
177 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 10, myIter,myThid ) |
|
./model/src/read_pickup.F |
179 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1,12, myIter,myThid ) |
|
./model/src/read_pickup.F |
182 |
READ_PICKUP |
& 12*Nr+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
186 |
READ_PICKUP |
& 12*Nr+2, myIter,myThid ) |
|
./model/src/read_pickup.F |
194 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
195 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm(1-OLx,1-OLy,1,1,1,1), |
|
./model/src/read_pickup.F |
197 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm(1-OLx,1-OLy,1,1,1,2), |
|
./model/src/read_pickup.F |
200 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
201 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm(1-OLx,1-OLy,1,1,1,1), |
|
./model/src/read_pickup.F |
203 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm(1-OLx,1-OLy,1,1,1,2), |
|
./model/src/read_pickup.F |
206 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta,nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
207 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm(1-OLx,1-OLy,1,1,1,1), |
|
./model/src/read_pickup.F |
209 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm(1-OLx,1-OLy,1,1,1,2), |
|
./model/src/read_pickup.F |
212 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, nj+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
213 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm(1-OLx,1-OLy,1,1,1,1), |
|
./model/src/read_pickup.F |
215 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm(1-OLx,1-OLy,1,1,1,2), |
|
./model/src/read_pickup.F |
219 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
220 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
221 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 3, myIter,myThid ) |
|
./model/src/read_pickup.F |
222 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 4, myIter,myThid ) |
|
./model/src/read_pickup.F |
223 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 5, myIter,myThid ) |
|
./model/src/read_pickup.F |
224 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 6, myIter,myThid ) |
|
./model/src/read_pickup.F |
225 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 7, myIter,myThid ) |
|
./model/src/read_pickup.F |
226 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1, 8, myIter,myThid ) |
|
./model/src/read_pickup.F |
229 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,1, etaN, nj*Nr+1, myIter,myThid ) |
|
./model/src/read_pickup.F |
232 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,dEtaHdt,nj*Nr+2,myIter,myThid ) |
|
./model/src/read_pickup.F |
235 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1, etaH, nj*Nr+3, myIter,myThid ) |
|
./model/src/read_pickup.F |
242 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, totPhiHyd,1,myIter,myThid ) |
|
./model/src/read_pickup.F |
247 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phi_nh, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
249 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm(1-OLx,1-OLy,1,1,1,1), |
|
./model/src/read_pickup.F |
251 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm(1-OLx,1-OLy,1,1,1,2), |
|
./model/src/read_pickup.F |
254 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm1, 2, myIter,myThid ) |
|
./model/src/read_pickup.F |
263 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
265 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
269 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
271 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
275 |
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 |
286 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
290 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
295 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
299 |
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 |
310 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
315 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
319 |
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 |
330 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
335 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
339 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
347 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
351 |
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 |
362 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
367 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
370 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
375 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
378 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
383 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
391 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
396 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
403 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
410 |
READ_PICKUP |
& nj, fp, Nr, 1, Nr, myIter, myThid ) |
|
./model/src/read_pickup.F |
415 |
READ_PICKUP |
nj = nj*Nr |
|
./model/src/read_pickup.F |
510 |
READ_PICKUP |
CALL EXCH_UV_3D_RL( uVel, vVel, .TRUE., Nr, myThid ) |
|
./model/src/read_pickup.F |
513 |
READ_PICKUP |
CALL EXCH_UV_3D_RL( uEulerMean, vEulerMean, .TRUE., Nr, myThid ) |
|
./model/src/read_pickup.F |
516 |
READ_PICKUP |
CALL EXCH_3D_RL( theta, Nr, myThid ) |
|
./model/src/read_pickup.F |
517 |
READ_PICKUP |
CALL EXCH_3D_RL( salt, Nr, myThid ) |
|
./model/src/read_pickup.F |
520 |
READ_PICKUP |
& gvNm(1-OLx,1-OLy,1,1,1,1),.TRUE.,Nr,myThid ) |
|
./model/src/read_pickup.F |
522 |
READ_PICKUP |
& gvNm(1-OLx,1-OLy,1,1,1,2),.TRUE.,Nr,myThid ) |
|
./model/src/read_pickup.F |
523 |
READ_PICKUP |
CALL EXCH_3D_RL( gtNm(1-OLx,1-OLy,1,1,1,1), Nr, myThid ) |
|
./model/src/read_pickup.F |
524 |
READ_PICKUP |
CALL EXCH_3D_RL( gtNm(1-OLx,1-OLy,1,1,1,2), Nr, myThid ) |
|
./model/src/read_pickup.F |
525 |
READ_PICKUP |
CALL EXCH_3D_RL( gsNm(1-OLx,1-OLy,1,1,1,1), Nr, myThid ) |
|
./model/src/read_pickup.F |
526 |
READ_PICKUP |
CALL EXCH_3D_RL( gsNm(1-OLx,1-OLy,1,1,1,2), Nr, myThid ) |
|
./model/src/read_pickup.F |
528 |
READ_PICKUP |
CALL EXCH_UV_3D_RL( guNm1, gvNm1, .TRUE., Nr, myThid ) |
|
./model/src/read_pickup.F |
529 |
READ_PICKUP |
CALL EXCH_3D_RL( gtNm1, Nr, myThid ) |
|
./model/src/read_pickup.F |
530 |
READ_PICKUP |
CALL EXCH_3D_RL( gsNm1, Nr, myThid ) |
|
./model/src/read_pickup.F |
539 |
READ_PICKUP |
& CALL EXCH_3D_RL( totPhiHyd, Nr, myThid ) |
|
./model/src/read_pickup.F |
543 |
READ_PICKUP |
CALL EXCH_3D_RL( phi_nh, Nr, myThid ) |
|
./model/src/read_pickup.F |
547 |
READ_PICKUP |
CALL EXCH_3D_RL( gwNm(1-OLx,1-OLy,1,1,1,1), Nr, myThid ) |
|
./model/src/read_pickup.F |
548 |
READ_PICKUP |
CALL EXCH_3D_RL( gwNm(1-OLx,1-OLy,1,1,1,2), Nr, myThid ) |
|
./model/src/read_pickup.F |
550 |
READ_PICKUP |
CALL EXCH_3D_RL( gwNm1, Nr, myThid ) |
|
./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/matrix_example/code/SIZE.h |
44 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/matrix_example/code/SIZE.h |
56 |
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) |
|
./verification/obcs_ctrl/code_ad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/obcs_ctrl/code_ad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 8) |
|
./verification/offline_exf_seaice/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/offline_exf_seaice/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 20*Nr ) |
|
./verification/offline_exf_seaice/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*Nr ) |
|
./verification/offline_exf_seaice/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/offline_exf_seaice/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 1 ) |
|
./verification/offline_exf_seaice/code_ad/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/offline_exf_seaice/code_ad/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 20*Nr ) |
|
./verification/offline_exf_seaice/code_ad/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*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 = 1 ) |
|
./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/apply_forcing.F |
262 |
APPLY_FORCING_V |
kSurface = Nr |
|
./verification/rotating_tank/code/apply_forcing.F |
487 |
APPLY_FORCING_T |
kSurface = Nr |
|
./verification/rotating_tank/code/apply_forcing.F |
566 |
APPLY_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
599 |
APPLY_FORCING_T |
IF ( k.LT.Nr ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
671 |
APPLY_FORCING_T |
IF (k.EQ.Nr) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
908 |
APPLY_FORCING_S |
kSurface = Nr |
|
./verification/rotating_tank/code/apply_forcing.F |
93 |
APPLY_FORCING_U |
kSurface = Nr |
|
./verification/seaice_itd/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 20*Nr ) |
|
./verification/seaice_itd/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/seaice_itd/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 1 ) |
|
./model/src/salt_integrate.F |
132 |
SALT_INTEGRATE |
_RL gS_loc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/salt_integrate.F |
191 |
SALT_INTEGRATE |
I bi, bj, 0, Nr, |
|
./model/src/salt_integrate.F |
197 |
SALT_INTEGRATE |
I bi, bj, 0, Nr, |
|
./model/src/salt_integrate.F |
205 |
SALT_INTEGRATE |
DO k=1,Nr |
|
./model/src/salt_integrate.F |
219 |
SALT_INTEGRATE |
DO k=1,Nr |
|
./model/src/salt_integrate.F |
290 |
SALT_INTEGRATE |
DO k=Nr,1,-1 |
|
./model/src/salt_integrate.F |
292 |
SALT_INTEGRATE |
kkey = (itdkey-1)*Nr + k |
|
./model/src/salt_integrate.F |
384 |
SALT_INTEGRATE |
I bi, bj, k, Nr, |
|
./model/src/salt_integrate.F |
390 |
SALT_INTEGRATE |
I bi, bj, k, Nr, |
|
./model/src/salt_integrate.F |
81 |
SALT_INTEGRATE |
_RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/salt_integrate.F |
82 |
SALT_INTEGRATE |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/salt_integrate.F |
83 |
SALT_INTEGRATE |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/salt_integrate.F |
84 |
SALT_INTEGRATE |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/salt_integrate.F |
85 |
SALT_INTEGRATE |
_RL KappaRk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,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/so_box_biogeo/code/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/so_box_biogeo/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 20*Nr ) |
|
./verification/so_box_biogeo/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 50*Nr ) |
|
./verification/so_box_biogeo/code/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/so_box_biogeo/code/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./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 |
159 |
EXTERNAL_FORCING_V |
kSurface = Nr |
|
./verification/tidal_basin_2d/code/external_forcing.F |
240 |
EXTERNAL_FORCING_T |
kSurface = Nr |
|
./verification/tidal_basin_2d/code/external_forcing.F |
269 |
EXTERNAL_FORCING_T |
IF (klev.EQ.Nr) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
339 |
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) |
|
./model/src/set_defaults.F |
149 |
SET_DEFAULTS |
DO k=1,Nr |
|
./model/src/set_defaults.F |
168 |
SET_DEFAULTS |
DO k=1,Nr |
|
./model/src/set_defaults.F |
298 |
SET_DEFAULTS |
DO k=1,Nr |
|
./model/src/set_defaults.F |
36 |
SET_DEFAULTS |
_RL delRDefault(Nr) |
|
./model/src/set_defaults.F |
52 |
SET_DEFAULTS |
DO k=1,Nr |
|
./model/src/set_defaults.F |
55 |
SET_DEFAULTS |
DO k=1,Nr+1 |
|
./model/src/set_defaults.F |
65 |
SET_DEFAULTS |
DO k=1,Nr |
|
./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) |
|
./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 |
|
./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/DIAGNOSTICS_SIZE.h |
24 |
NO PROCEDURE |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
|
./verification/tutorial_global_oce_biogeo/code/DIAGNOSTICS_SIZE.h |
25 |
NO PROCEDURE |
PARAMETER( numDiags = 20*Nr ) |
|
./verification/tutorial_global_oce_biogeo/code/DIAGNOSTICS_SIZE.h |
27 |
NO PROCEDURE |
PARAMETER( diagSt_size = 50*Nr ) |
|
./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) |
|
./model/src/set_parms.F |
202 |
SET_PARMS |
DO k=1,Nr |
|
./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) |
|
./model/src/set_ref_state.F |
103 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
112 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
117 |
SET_REF_STATE |
k = Nr |
|
./model/src/set_ref_state.F |
119 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
125 |
SET_REF_STATE |
phiRef(2*Nr+1) = seaLev_Z*gravity |
|
./model/src/set_ref_state.F |
126 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
127 |
SET_REF_STATE |
phiRef(2*k) = phiRef(2*Nr+1) |
|
./model/src/set_ref_state.F |
128 |
SET_REF_STATE |
& - recip_rhoConst*( rC(k) - rF(Nr+1) ) |
|
./model/src/set_ref_state.F |
129 |
SET_REF_STATE |
phiRef(2*k-1) = phiRef(2*Nr+1) |
|
./model/src/set_ref_state.F |
130 |
SET_REF_STATE |
& - recip_rhoConst*( rF(k) - rF(Nr+1) ) |
|
./model/src/set_ref_state.F |
169 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
180 |
SET_REF_STATE |
maxIterNb = 10*Nr |
|
./model/src/set_ref_state.F |
190 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
213 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
222 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
227 |
SET_REF_STATE |
IF ( k.LE.Nr ) CALL FIND_RHO_SCALAR( |
|
./model/src/set_ref_state.F |
230 |
SET_REF_STATE |
IF ( k.GE.2 .AND. k.LE.Nr ) THEN |
|
./model/src/set_ref_state.F |
252 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
267 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
270 |
SET_REF_STATE |
ELSEIF ( k.GT.Nr ) THEN |
|
./model/src/set_ref_state.F |
289 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
294 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
301 |
SET_REF_STATE |
DO k=1,2*Nr |
|
./model/src/set_ref_state.F |
315 |
SET_REF_STATE |
DO k=1,Nr-1 |
|
./model/src/set_ref_state.F |
322 |
SET_REF_STATE |
k = Nr |
|
./model/src/set_ref_state.F |
342 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
346 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
352 |
SET_REF_STATE |
rhoFacF(Nr+1) = ( rhoFacC(Nr)*(rF(Nr+1)-rF(Nr)) |
|
./model/src/set_ref_state.F |
353 |
SET_REF_STATE |
& + rhoFacF(Nr)*(rC(Nr)-rF(Nr+1)) |
|
./model/src/set_ref_state.F |
354 |
SET_REF_STATE |
& ) / (rC(Nr)-rF(Nr)) |
|
./model/src/set_ref_state.F |
356 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
359 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
369 |
SET_REF_STATE |
CALL WRITE_GLVEC_RL( 'GravFacC',' ',gravFacC, Nr, -1, myThid ) |
|
./model/src/set_ref_state.F |
370 |
SET_REF_STATE |
CALL WRITE_GLVEC_RL( 'GravFacF',' ',gravFacF,Nr+1,-1, myThid ) |
|
./model/src/set_ref_state.F |
374 |
SET_REF_STATE |
CALL WRITE_GLVEC_RL( 'PRef4EOS',' ',pRef4EOS, Nr, -1, myThid ) |
|
./model/src/set_ref_state.F |
386 |
SET_REF_STATE |
DO k=1,2*Nr+1 |
|
./model/src/set_ref_state.F |
394 |
SET_REF_STATE |
CALL WRITE_GLVEC_RL( 'RhoRef', ' ', rhoRef, Nr, -1, myThid ) |
|
./model/src/set_ref_state.F |
398 |
SET_REF_STATE |
CALL WRITE_GLVEC_RL( 'RhoFacC',' ',rhoFacC, Nr , -1, myThid ) |
|
./model/src/set_ref_state.F |
399 |
SET_REF_STATE |
CALL WRITE_GLVEC_RL( 'RhoFacF',' ',rhoFacF, Nr+1, -1, myThid ) |
|
./model/src/set_ref_state.F |
42 |
SET_REF_STATE |
_RL rHalf(2*Nr+1), pRefLocF(Nr+1) |
|
./model/src/set_ref_state.F |
43 |
SET_REF_STATE |
_RL rhoRef(Nr), tLoc(Nr) |
|
./model/src/set_ref_state.F |
54 |
SET_REF_STATE |
DO k=1,2*Nr |
|
./model/src/set_ref_state.F |
59 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
66 |
SET_REF_STATE |
rHalf(2*Nr+1) = rF(Nr+1) |
|
./model/src/set_ref_state.F |
68 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
74 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
78 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
89 |
SET_REF_STATE |
DO k=1,Nr |
|
./verification/tutorial_global_oce_biogeo/code_oad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_global_oce_biogeo/code_oad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
142 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
160 |
CTRL_MAP_INI_GENARR |
& Nr, myThid ) |
|
./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) |
|
./model/src/solve_for_pressure.F |
177 |
SOLVE_FOR_PRESSURE |
DO k=Nr,1,-1 |
|
./model/src/solve_for_pressure.F |
194 |
SOLVE_FOR_PRESSURE |
IF ( ks.LE.Nr ) THEN |
|
./model/src/solve_for_pressure.F |
398 |
SOLVE_FOR_PRESSURE |
CALL DEBUG_STATS_RL(Nr,cg3d_b,'cg3d_b (SOLVE_FOR_PRESSURE)', |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
61 |
PTRACERS_APPLY_FORCING |
kSurface = Nr |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
59 |
PTRACERS_FORCING_SURF |
ks = Nr |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
119 |
NO PROCEDURE |
_RL addMass(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
123 |
NO PROCEDURE |
_RS frictionHeating(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
157 |
NO PROCEDURE |
_RS eddyPsiX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
158 |
NO PROCEDURE |
_RS eddyPsiY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
162 |
NO PROCEDURE |
_RL tauxEddy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
163 |
NO PROCEDURE |
_RL tauyEddy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
164 |
NO PROCEDURE |
_RL uEulerMean(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_ad/FFIELDS.h |
165 |
NO PROCEDURE |
_RL vEulerMean(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) |
|
./model/src/solve_pentadiagonal.F |
150 |
SOLVE_PENTADIAGONAL |
DO k=2,Nr |
|
./model/src/solve_pentadiagonal.F |
170 |
SOLVE_PENTADIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_pentadiagonal.F |
171 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.Nr) THEN |
|
./model/src/solve_pentadiagonal.F |
177 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.Nr-1) THEN |
|
./model/src/solve_pentadiagonal.F |
204 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
216 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
224 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
273 |
SOLVE_PENTADIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_pentadiagonal.F |
274 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.Nr) THEN |
|
./model/src/solve_pentadiagonal.F |
276 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.Nr-1) THEN |
|
./model/src/solve_pentadiagonal.F |
287 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
298 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
311 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
372 |
SOLVE_PENTADIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_pentadiagonal.F |
377 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.Nr) THEN |
|
./model/src/solve_pentadiagonal.F |
379 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.Nr-1) THEN |
|
./model/src/solve_pentadiagonal.F |
58 |
SOLVE_PENTADIAGONAL |
_RL a5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_pentadiagonal.F |
59 |
SOLVE_PENTADIAGONAL |
_RL b5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_pentadiagonal.F |
60 |
SOLVE_PENTADIAGONAL |
_RL c5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_pentadiagonal.F |
61 |
SOLVE_PENTADIAGONAL |
_RL d5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_pentadiagonal.F |
62 |
SOLVE_PENTADIAGONAL |
_RL e5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_pentadiagonal.F |
63 |
SOLVE_PENTADIAGONAL |
_RL y5d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_pentadiagonal.F |
72 |
SOLVE_PENTADIAGONAL |
_RL y5d_m1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_pentadiagonal.F |
74 |
SOLVE_PENTADIAGONAL |
_RL c5d_prime(Nr) |
|
./model/src/solve_pentadiagonal.F |
75 |
SOLVE_PENTADIAGONAL |
_RL d5d_prime(Nr) |
|
./model/src/solve_pentadiagonal.F |
76 |
SOLVE_PENTADIAGONAL |
_RL e5d_prime(Nr) |
|
./model/src/solve_pentadiagonal.F |
77 |
SOLVE_PENTADIAGONAL |
_RL y5d_prime(Nr) |
|
./model/src/solve_pentadiagonal.F |
78 |
SOLVE_PENTADIAGONAL |
_RL y5d_update(Nr) |
|
./model/src/solve_pentadiagonal.F |
80 |
SOLVE_PENTADIAGONAL |
_RL c5d_prime(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_pentadiagonal.F |
81 |
SOLVE_PENTADIAGONAL |
_RL d5d_prime(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_pentadiagonal.F |
82 |
SOLVE_PENTADIAGONAL |
_RL e5d_prime(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_pentadiagonal.F |
83 |
SOLVE_PENTADIAGONAL |
_RL y5d_prime(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_pentadiagonal.F |
93 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
36 |
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 |
108 |
COST_WEIGHTS |
DO k = 1, Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
45 |
COST_WEIGHTS |
_RL wti(Nr) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
46 |
COST_WEIGHTS |
REAL*8 tmpwti(Nr) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
61 |
COST_WEIGHTS |
DO k = 1,Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
71 |
COST_WEIGHTS |
DO k = 1,Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
85 |
COST_WEIGHTS |
length_of_rec = MDS_RECLEN( precFloat64, Nr, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
91 |
COST_WEIGHTS |
CALL MDS_BYTESWAPR8( Nr, tmpwti ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
96 |
COST_WEIGHTS |
DO k=1,Nr |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
76 |
EXTERNAL_FORCING_SURF |
ks = Nr |
|
./model/src/solve_tridiagonal.F |
100 |
SOLVE_TRIDIAGONAL |
DO k=2,Nr |
|
./model/src/solve_tridiagonal.F |
123 |
SOLVE_TRIDIAGONAL |
DO k=2,Nr |
|
./model/src/solve_tridiagonal.F |
134 |
SOLVE_TRIDIAGONAL |
DO k=Nr-1,1,-1 |
|
./model/src/solve_tridiagonal.F |
149 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
162 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
169 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
195 |
SOLVE_TRIDIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_tridiagonal.F |
196 |
SOLVE_TRIDIAGONAL |
IF ( k.EQ.Nr ) THEN |
|
./model/src/solve_tridiagonal.F |
204 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
214 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
226 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
264 |
SOLVE_TRIDIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_tridiagonal.F |
269 |
SOLVE_TRIDIAGONAL |
IF ( k.EQ.Nr ) THEN |
|
./model/src/solve_tridiagonal.F |
56 |
SOLVE_TRIDIAGONAL |
_RL a3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_tridiagonal.F |
57 |
SOLVE_TRIDIAGONAL |
_RL b3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_tridiagonal.F |
58 |
SOLVE_TRIDIAGONAL |
_RL c3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_tridiagonal.F |
59 |
SOLVE_TRIDIAGONAL |
_RL y3d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_tridiagonal.F |
69 |
SOLVE_TRIDIAGONAL |
_RL y3d_m1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_tridiagonal.F |
71 |
SOLVE_TRIDIAGONAL |
_RL c3d_m1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_tridiagonal.F |
72 |
SOLVE_TRIDIAGONAL |
_RL c3d_prime(Nr) |
|
./model/src/solve_tridiagonal.F |
73 |
SOLVE_TRIDIAGONAL |
_RL y3d_prime(Nr) |
|
./model/src/solve_tridiagonal.F |
74 |
SOLVE_TRIDIAGONAL |
_RL y3d_update(Nr) |
|
./model/src/solve_tridiagonal.F |
76 |
SOLVE_TRIDIAGONAL |
_RL c3d_prime(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/solve_tridiagonal.F |
77 |
SOLVE_TRIDIAGONAL |
_RL y3d_prime(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
119 |
NO PROCEDURE |
_RL addMass(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
123 |
NO PROCEDURE |
_RS frictionHeating(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
157 |
NO PROCEDURE |
_RS eddyPsiX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
158 |
NO PROCEDURE |
_RS eddyPsiY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
162 |
NO PROCEDURE |
_RL tauxEddy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
163 |
NO PROCEDURE |
_RL tauyEddy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
164 |
NO PROCEDURE |
_RL uEulerMean(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/FFIELDS.h |
165 |
NO PROCEDURE |
_RL vEulerMean(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_global_oce_optim/code_oad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 15) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
36 |
COST_TEMP |
_RL thetalev(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
108 |
COST_WEIGHTS |
DO k = 1, Nr |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
45 |
COST_WEIGHTS |
_RL wti(Nr) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
46 |
COST_WEIGHTS |
REAL*8 tmpwti(Nr) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
61 |
COST_WEIGHTS |
DO k = 1,Nr |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
71 |
COST_WEIGHTS |
DO k = 1,Nr |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
85 |
COST_WEIGHTS |
length_of_rec = MDS_RECLEN( precFloat64, Nr, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
91 |
COST_WEIGHTS |
CALL MDS_BYTESWAPR8( Nr, tmpwti ) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
96 |
COST_WEIGHTS |
DO k=1,Nr |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
76 |
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_held_suarez_cs/code/apply_forcing.F |
161 |
APPLY_FORCING_V |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
255 |
APPLY_FORCING_T |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
68 |
APPLY_FORCING_U |
rFullDepth = rF(1)-rF(Nr+1) |
|
./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 |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_tracer_adjsens/code_ad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 20) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
139 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
157 |
CTRL_MAP_INI_GENARR |
& Nr, myThid ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
58 |
PTRACERS_FORCING_SURF |
ks = Nr |
|
./verification/tutorial_tracer_adjsens/code_oad/SIZE.h |
45 |
NO PROCEDURE |
INTEGER Nr |
|
./verification/tutorial_tracer_adjsens/code_oad/SIZE.h |
57 |
NO PROCEDURE |
& Nr = 20) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
142 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
154 |
CTRL_MAP_INI_GENARR |
& Nr, myThid ) |
|
./model/src/taueddy_init_varia.F |
43 |
TAUEDDY_INIT_VARIA |
DO k=1,Nr |
|
./verification/tutorial_tracer_adjsens/code_oad/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/taueddy_tendency_apply.F |
154 |
TAUEDDY_TENDENCY_APPLY_V |
kp1 = MIN(k+1,Nr) |
|
./model/src/taueddy_tendency_apply.F |
157 |
TAUEDDY_TENDENCY_APPLY_V |
IF (k.EQ.Nr) maskp1 = 0. |
|
./model/src/taueddy_tendency_apply.F |
73 |
TAUEDDY_TENDENCY_APPLY_U |
kp1 = MIN(k+1,Nr) |
|
./model/src/taueddy_tendency_apply.F |
76 |
TAUEDDY_TENDENCY_APPLY_U |
IF (k.EQ.Nr) maskp1 = 0. |
|
./model/src/temp_integrate.F |
136 |
TEMP_INTEGRATE |
_RL gT_loc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/temp_integrate.F |
199 |
TEMP_INTEGRATE |
I bi, bj, 0, Nr, |
|
./model/src/temp_integrate.F |
205 |
TEMP_INTEGRATE |
I bi, bj, 0, Nr, |
|
./model/src/temp_integrate.F |
213 |
TEMP_INTEGRATE |
DO k=1,Nr |
|
./model/src/temp_integrate.F |
227 |
TEMP_INTEGRATE |
DO k=1,Nr |
|
./model/src/temp_integrate.F |
298 |
TEMP_INTEGRATE |
DO k=Nr,1,-1 |
|
./model/src/temp_integrate.F |
300 |
TEMP_INTEGRATE |
kkey = (itdkey-1)*Nr + k |
|
./model/src/temp_integrate.F |
392 |
TEMP_INTEGRATE |
I bi, bj, k, Nr, |
|
./model/src/temp_integrate.F |
398 |
TEMP_INTEGRATE |
I bi, bj, k, Nr, |
|
./model/src/temp_integrate.F |
522 |
TEMP_INTEGRATE |
I Nr, 3, deltaTClock, bi, bj, myThid ) |
|
./model/src/temp_integrate.F |
84 |
TEMP_INTEGRATE |
_RS recip_hFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/temp_integrate.F |
85 |
TEMP_INTEGRATE |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/temp_integrate.F |
86 |
TEMP_INTEGRATE |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/temp_integrate.F |
87 |
TEMP_INTEGRATE |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/temp_integrate.F |
88 |
TEMP_INTEGRATE |
_RL KappaRk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/thermodynamics.F |
189 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
204 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
215 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
228 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
242 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
255 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
274 |
THERMODYNAMICS |
CALL MON_CALC_ADVCFL_TILE( Nr, bi, bj, |
|
./model/src/thermodynamics.F |
365 |
THERMODYNAMICS |
& 0, Nr, 1, bi, bj, myThid ) |
|
./model/src/thermodynamics.F |
370 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
393 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
394 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
395 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
396 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,theta,'Theta (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
397 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,salt,'Salt (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
399 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,gtNm1,'GtNm1 (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
400 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,gsNm1,'GsNm1 (THERMODYNAMICS)',myThid) |
|
./model/src/thermodynamics.F |
95 |
THERMODYNAMICS |
_RL uFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/thermodynamics.F |
96 |
THERMODYNAMICS |
_RL vFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/thermodynamics.F |
97 |
THERMODYNAMICS |
_RL wFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/thermodynamics.F |
98 |
THERMODYNAMICS |
_RL kappaRk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/thermodynamics.F |
99 |
THERMODYNAMICS |
_RS recip_hFacNew(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/timestep.F |
166 |
TIMESTEP |
I bi, bj, k, Nr, |
|
./model/src/timestep.F |
171 |
TIMESTEP |
I bi, bj, k, Nr, |
|
./model/src/timestep.F |
177 |
TIMESTEP |
I bi, bj, k, Nr, |
|
./model/src/timestep.F |
183 |
TIMESTEP |
I bi, bj, k, Nr, |
|
./model/src/timestep_tracer.F |
40 |
TIMESTEP_TRACER |
_RL deltaTLev(Nr) |
|
./model/src/timestep_tracer.F |
41 |
TIMESTEP_TRACER |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/timestep_tracer.F |
42 |
TIMESTEP_TRACER |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./model/src/timestep_tracer.F |
54 |
TIMESTEP_TRACER |
DO k=1,Nr |
|
./model/src/timestep_wvel.F |
114 |
TIMESTEP_WVEL |
DO k=1,Nr |
|
./model/src/timestep_wvel.F |
63 |
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 |
101 |
UPDATE_CG2D |
DO k=1,Nr |
|
./model/src/update_cg2d.F |
83 |
UPDATE_CG2D |
DO k=1,Nr |
|
./model/src/update_masks_etc.F |
144 |
UPDATE_MASKS_ETC |
DO K=Nr,1,-1 |
|
./model/src/update_masks_etc.F |
212 |
UPDATE_MASKS_ETC |
DO K=1, Nr |
|
./model/src/update_masks_etc.F |
278 |
UPDATE_MASKS_ETC |
& Nr, 1, myThid ) |
|
./model/src/update_masks_etc.F |
280 |
UPDATE_MASKS_ETC |
& Nr, 1, myThid ) |
|
./model/src/update_masks_etc.F |
282 |
UPDATE_MASKS_ETC |
& Nr, 1, myThid ) |
|
./model/src/update_masks_etc.F |
294 |
UPDATE_MASKS_ETC |
DO K=1,Nr |
|
./model/src/update_masks_etc.F |
340 |
UPDATE_MASKS_ETC |
DO k=1,Nr |
|
./model/src/update_masks_etc.F |
84 |
UPDATE_MASKS_ETC |
DO K=1, Nr |
|
./model/src/update_r_star.F |
53 |
UPDATE_R_STAR |
DO k=1,Nr |
|
./model/src/update_r_star.F |
87 |
UPDATE_R_STAR |
DO k=1,Nr |
|
./model/src/update_sigma.F |
106 |
UPDATE_SIGMA |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
114 |
UPDATE_SIGMA |
DO k=1,Nr |
|
./model/src/update_sigma.F |
132 |
UPDATE_SIGMA |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
140 |
UPDATE_SIGMA |
DO k=1,Nr |
|
./model/src/update_sigma.F |
158 |
UPDATE_SIGMA |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_sigma.F |
166 |
UPDATE_SIGMA |
DO k=1,Nr |
|
./model/src/update_sigma.F |
65 |
UPDATE_SIGMA |
rFullDepth = rF(1)-rF(Nr+1) |
|
./model/src/update_surf_dr.F |
107 |
UPDATE_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/update_surf_dr.F |
116 |
UPDATE_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/update_surf_dr.F |
125 |
UPDATE_SURF_DR |
DO k=1,Nr |
|
./model/src/update_surf_dr.F |
58 |
UPDATE_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/update_surf_dr.F |
71 |
UPDATE_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/update_surf_dr.F |
80 |
UPDATE_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/update_surf_dr.F |
94 |
UPDATE_SURF_DR |
IF (ks.LE.Nr) THEN |
|
./model/src/write_grid.F |
127 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'RC', ' ', rC, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
128 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'RF', ' ', rF, 1+Nr,-1, myThid ) |
|
./model/src/write_grid.F |
129 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'DRC',' ', drC,1+Nr,-1, myThid ) |
|
./model/src/write_grid.F |
130 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'DRF',' ', drF, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
132 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'AHybSigF',' ',aHybSigmF,1+Nr,-1,myThid ) |
|
./model/src/write_grid.F |
133 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'BHybSigF',' ',bHybSigmF,1+Nr,-1,myThid ) |
|
./model/src/write_grid.F |
134 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'AHybSigC',' ',aHybSigmC, Nr, -1,myThid ) |
|
./model/src/write_grid.F |
135 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'BHybSigC',' ',bHybSigmC, Nr, -1,myThid ) |
|
./model/src/write_grid.F |
136 |
WRITE_GRID |
CALL WRITE_GLVEC_RS('DAHybSigF',' ',dAHybSigF, Nr, -1,myThid ) |
|
./model/src/write_grid.F |
137 |
WRITE_GRID |
CALL WRITE_GLVEC_RS('DBHybSigF',' ',dBHybSigF, Nr, -1,myThid ) |
|
./model/src/write_grid.F |
138 |
WRITE_GRID |
CALL WRITE_GLVEC_RS('DAHybSigC',' ',dAHybSigC,1+Nr,-1,myThid ) |
|
./model/src/write_grid.F |
139 |
WRITE_GRID |
CALL WRITE_GLVEC_RS('DBHybSigC',' ',dBHybSigC,1+Nr,-1,myThid ) |
|
./model/src/write_grid.F |
148 |
WRITE_GRID |
DO k=1,Nr+1 |
|
./model/src/write_grid.F |
151 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'PHrefF',' ',tmpVar,1+Nr,-1, myThid ) |
|
./model/src/write_grid.F |
152 |
WRITE_GRID |
DO k=1,Nr |
|
./model/src/write_grid.F |
155 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'PHrefC',' ',tmpVar, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
51 |
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 |
121 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, uEulerMean, |
|
./model/src/write_pickup.F |
125 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, vEulerMean, |
|
./model/src/write_pickup.F |
132 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, theta, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
135 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, salt, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
145 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm(1-OLx,1-OLy,1,1,1,m1), |
|
./model/src/write_pickup.F |
151 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm(1-OLx,1-OLy,1,1,1,m2), |
|
./model/src/write_pickup.F |
158 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm(1-OLx,1-OLy,1,1,1,m1), |
|
./model/src/write_pickup.F |
164 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm(1-OLx,1-OLy,1,1,1,m2), |
|
./model/src/write_pickup.F |
173 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm(1-OLx,1-OLy,1,1,1,m1), |
|
./model/src/write_pickup.F |
182 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm(1-OLx,1-OLy,1,1,1,m2), |
|
./model/src/write_pickup.F |
194 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm(1-OLx,1-OLy,1,1,1,m1), |
|
./model/src/write_pickup.F |
203 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm(1-OLx,1-OLy,1,1,1,m2), |
|
./model/src/write_pickup.F |
216 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm(1-OLx,1-OLy,1,1,1,m1), |
|
./model/src/write_pickup.F |
222 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm(1-OLx,1-OLy,1,1,1,m2), |
|
./model/src/write_pickup.F |
231 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
234 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
239 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
247 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
256 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
265 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr,totPhiHyd,-j,myIter, myThid ) |
|
./model/src/write_pickup.F |
271 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, phi_nh, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
279 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, addMass,-j, myIter, myThid ) |
|
./model/src/write_pickup.F |
287 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RS( fn, fp, Nr, frictionHeating, |
|
./model/src/write_pickup.F |
296 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
302 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
310 |
WRITE_PICKUP |
nj = -( n3D*(Nr-1) + j ) |
|
./model/src/write_pickup.F |
318 |
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)) |
|
./pkg/aim_v23/AIM2DYN.h |
23 |
NO PROCEDURE |
_RL aim_dTdt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/aim_v23/AIM2DYN.h |
24 |
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 |
104 |
AIM_AIM2DYN |
DO k=1,Nr |
|
./pkg/aim_v23/aim_aim2dyn.F |
140 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
142 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
101 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_LSC.', suff, Nr, TT_LSC, |
|
./pkg/aim_v23/aim_diagnostics.F |
103 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dQ_CNV.', suff, Nr, QT_CNV, |
|
./pkg/aim_v23/aim_diagnostics.F |
105 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dQ_PBL.', suff, Nr, QT_PBL, |
|
./pkg/aim_v23/aim_diagnostics.F |
107 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dQ_LSC.', suff, Nr, QT_LSC, |
|
./pkg/aim_v23/aim_diagnostics.F |
112 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_clskySW.', suff, Nr, TT_SWclr, |
|
./pkg/aim_v23/aim_diagnostics.F |
114 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_clskyLW.', suff, Nr, TT_LWclr, |
|
./pkg/aim_v23/aim_diagnostics.F |
174 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_RelHum.', suff, Nr, RH, |
|
./pkg/aim_v23/aim_diagnostics.F |
364 |
AIM_DIAGNOSTICS |
DO k=1,Nr |
|
./pkg/aim_v23/aim_diagnostics.F |
387 |
AIM_DIAGNOSTICS |
& 'RADSW ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
389 |
AIM_DIAGNOSTICS |
& 'RADLW ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
391 |
AIM_DIAGNOSTICS |
& 'DTCONV ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
393 |
AIM_DIAGNOSTICS |
& 'TURBT ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
395 |
AIM_DIAGNOSTICS |
& 'DTLS ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
397 |
AIM_DIAGNOSTICS |
& 'DQCONV ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
399 |
AIM_DIAGNOSTICS |
& 'TURBQ ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
401 |
AIM_DIAGNOSTICS |
& 'DQLS ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
403 |
AIM_DIAGNOSTICS |
& 'RELHUM ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
451 |
AIM_DIAGNOSTICS |
& 'SWCLR ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
453 |
AIM_DIAGNOSTICS |
& 'LWCLR ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_diagnostics.F |
93 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_RSW.', suff, Nr, TT_RSW, |
|
./pkg/aim_v23/aim_diagnostics.F |
95 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_RLW.', suff, Nr, TT_RLW, |
|
./pkg/aim_v23/aim_diagnostics.F |
97 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_CNV.', suff, Nr, TT_CNV, |
|
./pkg/aim_v23/aim_diagnostics.F |
99 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aim_dT_PBL.', suff, Nr, TT_PBL, |
|
./pkg/aim_v23/aim_do_physics.F |
101 |
AIM_DO_PHYSICS |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k) |
|
./pkg/aim_v23/aim_do_physics.F |
102 |
AIM_DO_PHYSICS |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
103 |
AIM_DO_PHYSICS |
salt(i,j,Nr,bi,bj) = 0. |
|
./pkg/aim_v23/aim_do_physics.F |
99 |
AIM_DO_PHYSICS |
IF (k.LE.Nr) |
|
./eesupp/src/eewrite_eeenv.F |
107 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' Nr =', Nr, |
|
./pkg/aim_v23/aim_dyn2aim.F |
110 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
121 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
140 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
162 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
203 |
AIM_DYN2AIM |
IF (k.LE.Nr) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
217 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
88 |
AIM_DYN2AIM |
kGrd(I2) = (Nr+1) - kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
97 |
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 |
166 |
AIM_TENDENCY_APPLY_U |
IF ( aim_taveFreq.NE.0 .AND. k.EQ.Nr ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
187 |
AIM_TENDENCY_APPLY_U |
IF ( k.EQ.Nr ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
280 |
AIM_TENDENCY_APPLY_V |
IF ( k.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
354 |
AIM_TENDENCY_APPLY_V |
IF ( aim_taveFreq.NE.0 .AND. k.EQ.Nr ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
375 |
AIM_TENDENCY_APPLY_V |
IF ( k.EQ.Nr ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
92 |
AIM_TENDENCY_APPLY_U |
IF ( k.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 |
115 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimRHtave,aim_timeAve,Nr,bi,bj,myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
226 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
80 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid) |
|
./pkg/aim_v23/phy_radiat.F |
494 |
RADSW |
& 'CLDCLW ',-1, Nr, 3,bi,bj, myThid ) |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
170 |
ATM_CPL_READ_PICKUP |
nj = nj*Nr |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
77 |
ATM_CPL_READ_PICKUP |
I Nr, myIter, myThid ) |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
163 |
CPL_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
164 |
CPL_WRITE_PICKUP |
j = Nr |
|
./pkg/atm_phys/ATM_PHYS_PARAMS.h |
22 |
NO PROCEDURE |
_RL atmPhys_dampUVfac(Nr) |
|
./pkg/atm_phys/ATM_PHYS_VARS.h |
18 |
NO PROCEDURE |
_RL atmPhys_dT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/atm_phys/ATM_PHYS_VARS.h |
19 |
NO PROCEDURE |
_RL atmPhys_dQ(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/atm_phys/ATM_PHYS_VARS.h |
20 |
NO PROCEDURE |
_RL atmPhys_dU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/atm_phys/ATM_PHYS_VARS.h |
21 |
NO PROCEDURE |
_RL atmPhys_dV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/atm_phys/atm_phys_check.F |
58 |
ATM_PHYS_CHECK |
CALL WRITE_1D_RL( atmPhys_dampUVfac, Nr, INDEX_K, |
|
./pkg/atm_phys/atm_phys_diagnostics_init.F |
130 |
ATM_PHYS_DIAGNOSTICS_INIT |
CALL DIAGNOSTICS_SETKLEV( diagName, Nr+1, myThid ) |
|
./pkg/atm_phys/atm_phys_diagnostics_init.F |
137 |
ATM_PHYS_DIAGNOSTICS_INIT |
CALL DIAGNOSTICS_SETKLEV( diagName, Nr+1, myThid ) |
|
./pkg/atm_phys/atm_phys_diagnostics_init.F |
144 |
ATM_PHYS_DIAGNOSTICS_INIT |
CALL DIAGNOSTICS_SETKLEV( diagName, Nr+1, myThid ) |
|
./pkg/atm_phys/atm_phys_diagnostics_init.F |
151 |
ATM_PHYS_DIAGNOSTICS_INIT |
CALL DIAGNOSTICS_SETKLEV( diagName, Nr+1, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
124 |
ATM_PHYS_DRIVER |
_RL diff_t(sNx,sNy,Nr), diff_m(sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
125 |
ATM_PHYS_DRIVER |
_RL diff_dt_tg (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
126 |
ATM_PHYS_DRIVER |
_RL diff_dt_qg (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
127 |
ATM_PHYS_DRIVER |
_RL diss_heat (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
132 |
ATM_PHYS_DRIVER |
_RL e_global(sNx,sNy,Nr-1) |
|
./pkg/atm_phys/atm_phys_driver.F |
133 |
ATM_PHYS_DRIVER |
_RL f_t_global(sNx,sNy,Nr-1), f_q_global(sNx,sNy,Nr-1) |
|
./pkg/atm_phys/atm_phys_driver.F |
246 |
ATM_PHYS_DRIVER |
& -1,Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
248 |
ATM_PHYS_DRIVER |
& -1,Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
250 |
ATM_PHYS_DRIVER |
& -1,Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
284 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
312 |
ATM_PHYS_DRIVER |
I t3d(:,:,Nr), q3d(:,:,Nr), u3d(:,:,Nr), v3d(:,:,Nr), |
|
./pkg/atm_phys/atm_phys_driver.F |
313 |
ATM_PHYS_DRIVER |
I pFull3d(:,:,Nr), zFull3d(:,:,Nr), pHalf3d(:,:,Nr+1), |
|
./pkg/atm_phys/atm_phys_driver.F |
398 |
ATM_PHYS_DRIVER |
DO k=1,Nr+1 |
|
./pkg/atm_phys/atm_phys_driver.F |
402 |
ATM_PHYS_DRIVER |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_driver.F |
403 |
ATM_PHYS_DRIVER |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_driver.F |
445 |
ATM_PHYS_DRIVER |
& 0, Nr, 1, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
447 |
ATM_PHYS_DRIVER |
& 0, Nr, 1, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
453 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
455 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
457 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
459 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
461 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
463 |
ATM_PHYS_DRIVER |
& -1, Nr+1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
465 |
ATM_PHYS_DRIVER |
& -1, Nr+1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
467 |
ATM_PHYS_DRIVER |
& -1, Nr+1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
469 |
ATM_PHYS_DRIVER |
& -1, Nr+1, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
476 |
ATM_PHYS_DRIVER |
CALL DIAGNOSTICS_FILL( sw_down_3d(:,:,Nr+1),'AtPhDSSR', |
|
./pkg/atm_phys/atm_phys_driver.F |
493 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
495 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
497 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
499 |
ATM_PHYS_DRIVER |
& -1, Nr, 3, bi, bj, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
508 |
ATM_PHYS_DRIVER |
& .TRUE., Nr, myThid ) |
|
./pkg/atm_phys/atm_phys_driver.F |
60 |
ATM_PHYS_DRIVER |
_RL pHalf3d (sNx,sNy,Nr+1) |
|
./pkg/atm_phys/atm_phys_driver.F |
61 |
ATM_PHYS_DRIVER |
_RL pFull3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
62 |
ATM_PHYS_DRIVER |
_RL zHalf3d (sNx,sNy,Nr+1) |
|
./pkg/atm_phys/atm_phys_driver.F |
63 |
ATM_PHYS_DRIVER |
_RL zFull3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
64 |
ATM_PHYS_DRIVER |
_RL t3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
65 |
ATM_PHYS_DRIVER |
_RL q3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
66 |
ATM_PHYS_DRIVER |
_RL u3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
67 |
ATM_PHYS_DRIVER |
_RL v3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
68 |
ATM_PHYS_DRIVER |
_RL tdt3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
69 |
ATM_PHYS_DRIVER |
_RL qdt3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
70 |
ATM_PHYS_DRIVER |
_RL udt3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
71 |
ATM_PHYS_DRIVER |
_RL vdt3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
78 |
ATM_PHYS_DRIVER |
_RL dtrans_3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
79 |
ATM_PHYS_DRIVER |
_RL dtrans_win(sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
80 |
ATM_PHYS_DRIVER |
_RL b_3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
81 |
ATM_PHYS_DRIVER |
_RL b_win (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
82 |
ATM_PHYS_DRIVER |
_RL lw_down_3d(sNx,sNy,Nr+1) |
|
./pkg/atm_phys/atm_phys_driver.F |
83 |
ATM_PHYS_DRIVER |
_RL sw_down_3d(sNx,sNy,Nr+1) |
|
./pkg/atm_phys/atm_phys_driver.F |
84 |
ATM_PHYS_DRIVER |
_RL sw_net_3d (sNx,sNy,Nr+1) |
|
./pkg/atm_phys/atm_phys_driver.F |
85 |
ATM_PHYS_DRIVER |
_RL lw_net_3d (sNx,sNy,Nr+1) |
|
./pkg/atm_phys/atm_phys_driver.F |
87 |
ATM_PHYS_DRIVER |
_RL rad_dt_tg (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
91 |
ATM_PHYS_DRIVER |
_RL t3d_tmp (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
92 |
ATM_PHYS_DRIVER |
_RL q3d_tmp (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
93 |
ATM_PHYS_DRIVER |
_RL cond_dt_tg (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
94 |
ATM_PHYS_DRIVER |
_RL cond_dt_qg (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
97 |
ATM_PHYS_DRIVER |
_RL q_ref (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_driver.F |
98 |
ATM_PHYS_DRIVER |
_RL t_ref (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
103 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
104 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
107 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
108 |
ATM_PHYS_DYN2PHYS |
ki = Nr-k+2 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
114 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
115 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
144 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
145 |
ATM_PHYS_DYN2PHYS |
ki = Nr-k+2 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
148 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
149 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
150 |
ATM_PHYS_DYN2PHYS |
kp = MIN(kc+1,Nr) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
53 |
ATM_PHYS_DYN2PHYS |
_RL pHalf3d (sNx,sNy,Nr+1) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
54 |
ATM_PHYS_DYN2PHYS |
_RL pFull3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
55 |
ATM_PHYS_DYN2PHYS |
_RL zHalf3d (sNx,sNy,Nr+1) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
56 |
ATM_PHYS_DYN2PHYS |
_RL zFull3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
57 |
ATM_PHYS_DYN2PHYS |
_RL t3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
58 |
ATM_PHYS_DYN2PHYS |
_RL q3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
59 |
ATM_PHYS_DYN2PHYS |
_RL u3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
60 |
ATM_PHYS_DYN2PHYS |
_RL v3d (sNx,sNy,Nr) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
75 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
76 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
77 |
ATM_PHYS_DYN2PHYS |
pFull3d(:,:,k) = rF(Nr+1) + ( rC(kc) - rF(Nr+1) ) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
80 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
81 |
ATM_PHYS_DYN2PHYS |
ki = Nr-k+2 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
82 |
ATM_PHYS_DYN2PHYS |
pHalf3d(:,:,k) = rF(Nr+1) + ( rF(ki) - rF(Nr+1) ) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
86 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
87 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
88 |
ATM_PHYS_DYN2PHYS |
pFull3d(:,:,k) = rF(Nr+1) + ( rC(kc) - rF(Nr+1) ) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
91 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
92 |
ATM_PHYS_DYN2PHYS |
ki = Nr-k+2 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
93 |
ATM_PHYS_DYN2PHYS |
pHalf3d(:,:,k) = rF(Nr+1) + ( rF(ki) - rF(Nr+1) ) |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
104 |
ATM_PHYS_INIT_FIXED |
CALL MIXED_LAYER_INIT ( 1, sNx, 1, sNy, Nr, axes, |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
107 |
ATM_PHYS_INIT_FIXED |
CALL GCM_VERT_DIFF_INIT ( sNx, sNy, Nr, |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
117 |
ATM_PHYS_INIT_FIXED |
CALL RADIATION_INIT( 1, sNx, 1, sNy, Nr, nSx,nSy, axes, |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
122 |
ATM_PHYS_INIT_FIXED |
CALL VERT_TURB_DRIVER_INIT( sNx,sNy,Nr,axes, |
|
./pkg/atm_phys/atm_phys_init_varia.F |
41 |
ATM_PHYS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
140 |
ATM_PHYS_READ_PICKUP |
nj = nj*Nr |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
75 |
ATM_PHYS_READ_PICKUP |
I Nr, myIter, myThid ) |
|
./pkg/atm_phys/atm_phys_readparms.F |
62 |
ATM_PHYS_READPARMS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_readparms.F |
94 |
ATM_PHYS_READPARMS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_readparms.F |
98 |
ATM_PHYS_READPARMS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
104 |
ATM_PHYS_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
105 |
ATM_PHYS_WRITE_PICKUP |
j = Nr |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
80 |
ATM_PHYS_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/autodiff/AUTODIFF.h |
41 |
NO PROCEDURE |
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,NDV3D) |
|
./pkg/autodiff/AUTODIFF.h |
47 |
NO PROCEDURE |
_RL StoreOBCSN(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB) |
|
./pkg/autodiff/AUTODIFF.h |
48 |
NO PROCEDURE |
_RL StoreOBCSS(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB) |
|
./pkg/autodiff/AUTODIFF.h |
49 |
NO PROCEDURE |
_RL StoreOBCSE(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB) |
|
./pkg/autodiff/AUTODIFF.h |
50 |
NO PROCEDURE |
_RL StoreOBCSW(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB) |
|
./pkg/autodiff/active_file.F |
139 |
ACTIVE_READ_XYZ |
_RL active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file.F |
152 |
ACTIVE_READ_XYZ |
myNr = Nr |
|
./pkg/autodiff/active_file.F |
219 |
ACTIVE_READ_XZ |
myNr = Nr |
|
./pkg/autodiff/active_file.F |
285 |
ACTIVE_READ_YZ |
myNr = Nr |
|
./pkg/autodiff/active_file.F |
394 |
ACTIVE_WRITE_XYZ |
_RL active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file.F |
406 |
ACTIVE_WRITE_XYZ |
myNr = Nr |
|
./pkg/autodiff/active_file.F |
467 |
ACTIVE_WRITE_XZ |
myNr = Nr |
|
./pkg/autodiff/active_file.F |
528 |
ACTIVE_WRITE_YZ |
myNr = Nr |
|
./pkg/autodiff/active_file_ad.F |
175 |
ADACTIVE_READ_XYZ |
_RL adactive_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_ad.F |
198 |
ADACTIVE_READ_XYZ |
myNr = Nr |
|
./pkg/autodiff/active_file_ad.F |
264 |
ADACTIVE_READ_XZ |
_RL adactive_var(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_ad.F |
287 |
ADACTIVE_READ_XZ |
myNr = Nr |
|
./pkg/autodiff/active_file_ad.F |
353 |
ADACTIVE_READ_YZ |
_RL adactive_var(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_ad.F |
376 |
ADACTIVE_READ_YZ |
myNr = Nr |
|
./pkg/autodiff/active_file_ad.F |
517 |
ADACTIVE_WRITE_XYZ |
_RL adactive_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_ad.F |
539 |
ADACTIVE_WRITE_XYZ |
myNr = Nr |
|
./pkg/autodiff/active_file_ad.F |
598 |
ADACTIVE_WRITE_XZ |
_RL adactive_var(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_ad.F |
620 |
ADACTIVE_WRITE_XZ |
myNr = Nr |
|
./pkg/autodiff/active_file_ad.F |
680 |
ADACTIVE_WRITE_YZ |
_RL adactive_var(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_ad.F |
702 |
ADACTIVE_WRITE_YZ |
myNr = Nr |
|
./pkg/autodiff/active_file_control.F |
138 |
ACTIVE_READ_3D_RL |
I 'RL', Nr, 1, myNr, |
|
./pkg/autodiff/active_file_control.F |
151 |
ACTIVE_READ_3D_RL |
I 'RL', Nr, 1, myNr, |
|
./pkg/autodiff/active_file_control.F |
173 |
ACTIVE_READ_3D_RL |
I 'RL', Nr, 1, myNr, |
|
./pkg/autodiff/active_file_control.F |
280 |
ACTIVE_READ_3D_RS |
_RS active_data_t(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_control.F |
320 |
ACTIVE_READ_3D_RS |
I 'RS', Nr, 1, myNr, |
|
./pkg/autodiff/active_file_control.F |
333 |
ACTIVE_READ_3D_RS |
I 'RS', Nr, 1, myNr, |
|
./pkg/autodiff/active_file_control.F |
355 |
ACTIVE_READ_3D_RS |
I 'RS', Nr, 1, myNr, |
|
./pkg/autodiff/active_file_control.F |
448 |
ACTIVE_WRITE_3D_RL |
_RL active_data_t(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_control.F |
468 |
ACTIVE_WRITE_3D_RL |
I 'RL', Nr, 1, myNr, |
|
./pkg/autodiff/active_file_control.F |
488 |
ACTIVE_WRITE_3D_RL |
I 'RL', Nr, 1, myNr, |
|
./pkg/autodiff/active_file_control.F |
566 |
ACTIVE_WRITE_3D_RS |
_RS active_data_t(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_control.F |
587 |
ACTIVE_WRITE_3D_RS |
I 'RS', Nr, 1, myNr, |
|
./pkg/autodiff/active_file_control.F |
607 |
ACTIVE_WRITE_3D_RS |
I 'RS', Nr, 1, myNr, |
|
./pkg/autodiff/active_file_control.F |
99 |
ACTIVE_READ_3D_RL |
_RL active_data_t(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_g.F |
161 |
G_ACTIVE_READ_XYZ |
_RL active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_g.F |
162 |
G_ACTIVE_READ_XYZ |
_RL g_active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_g.F |
186 |
G_ACTIVE_READ_XYZ |
myNr = Nr |
|
./pkg/autodiff/active_file_g.F |
273 |
G_ACTIVE_READ_XZ |
myNr = Nr |
|
./pkg/autodiff/active_file_g.F |
360 |
G_ACTIVE_READ_YZ |
myNr = Nr |
|
./pkg/autodiff/active_file_g.F |
498 |
G_ACTIVE_WRITE_XYZ |
_RL active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_g.F |
499 |
G_ACTIVE_WRITE_XYZ |
_RL g_active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_g.F |
523 |
G_ACTIVE_WRITE_XYZ |
myNr = Nr |
|
./pkg/autodiff/active_file_g.F |
605 |
G_ACTIVE_WRITE_XZ |
myNr = Nr |
|
./pkg/autodiff/active_file_g.F |
687 |
G_ACTIVE_WRITE_YZ |
myNr = Nr |
|
./pkg/autodiff/active_file_loc.F |
135 |
ACTIVE_READ_XYZ_LOC |
_RL active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_loc.F |
148 |
ACTIVE_READ_XYZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc.F |
213 |
ACTIVE_READ_XZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc.F |
277 |
ACTIVE_READ_YZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc.F |
382 |
ACTIVE_WRITE_XYZ_LOC |
_RL active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_loc.F |
394 |
ACTIVE_WRITE_XYZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc.F |
453 |
ACTIVE_WRITE_XZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc.F |
512 |
ACTIVE_WRITE_YZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc_ad.F |
175 |
ADACTIVE_READ_XYZ_LOC |
_RL adactive_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_loc_ad.F |
198 |
ADACTIVE_READ_XYZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc_ad.F |
264 |
ADACTIVE_READ_XZ_LOC |
_RL adactive_var(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_loc_ad.F |
287 |
ADACTIVE_READ_XZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc_ad.F |
353 |
ADACTIVE_READ_YZ_LOC |
_RL adactive_var(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_loc_ad.F |
376 |
ADACTIVE_READ_YZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc_ad.F |
517 |
ADACTIVE_WRITE_XYZ_LOC |
_RL adactive_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_loc_ad.F |
539 |
ADACTIVE_WRITE_XYZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc_ad.F |
598 |
ADACTIVE_WRITE_XZ_LOC |
_RL adactive_var(1-OLx:sNx+OLx,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_loc_ad.F |
620 |
ADACTIVE_WRITE_XZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc_ad.F |
680 |
ADACTIVE_WRITE_YZ_LOC |
_RL adactive_var(1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_loc_ad.F |
702 |
ADACTIVE_WRITE_YZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc_g.F |
157 |
G_ACTIVE_READ_XYZ_LOC |
_RL active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_loc_g.F |
158 |
G_ACTIVE_READ_XYZ_LOC |
_RL g_active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_loc_g.F |
182 |
G_ACTIVE_READ_XYZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc_g.F |
267 |
G_ACTIVE_READ_XZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc_g.F |
352 |
G_ACTIVE_READ_YZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc_g.F |
486 |
G_ACTIVE_WRITE_XYZ_LOC |
_RL active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_loc_g.F |
487 |
G_ACTIVE_WRITE_XYZ_LOC |
_RL g_active_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/active_file_loc_g.F |
511 |
G_ACTIVE_WRITE_XYZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc_g.F |
591 |
G_ACTIVE_WRITE_XZ_LOC |
myNr = Nr |
|
./pkg/autodiff/active_file_loc_g.F |
671 |
G_ACTIVE_WRITE_YZ_LOC |
myNr = Nr |
|
./eesupp/src/ini_procs.F |
385 |
INI_PROCS |
elCount = Nr |
|
./eesupp/src/ini_procs.F |
481 |
INI_PROCS |
elCount = Nr |
|
./pkg/autodiff/adcommon.h |
101 |
NO PROCEDURE |
_RL addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/adcommon.h |
106 |
NO PROCEDURE |
_RL adkapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/adcommon.h |
111 |
NO PROCEDURE |
_RL adkapredi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/adcommon.h |
119 |
NO PROCEDURE |
_RS adEddyPsiX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/adcommon.h |
120 |
NO PROCEDURE |
_RS adEddyPsiY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/addummy_in_dynamics.F |
121 |
ADDUMMY_IN_DYNAMICS |
CALL COPY_ADVAR_OUTP( dumRS,adrhoinsitu,var3Du,Nr,12,myThid ) |
|
./pkg/autodiff/addummy_in_dynamics.F |
69 |
ADDUMMY_IN_DYNAMICS |
_RL var3Du(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/addummy_in_dynamics.F |
91 |
ADDUMMY_IN_DYNAMICS |
CALL ADEXCH_3D_RL( adrhoinsitu, Nr, myThid ) |
|
./pkg/autodiff/addummy_in_dynamics.F |
92 |
ADDUMMY_IN_DYNAMICS |
CALL ADEXCH_3D_RL( adtotphihyd, Nr, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
147 |
ADDUMMY_IN_STEPPING |
CALL ADEXCH_3D_RL( adTheta,Nr, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
148 |
ADDUMMY_IN_STEPPING |
CALL ADEXCH_3D_RL( adSalt, Nr, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
149 |
ADDUMMY_IN_STEPPING |
CALL ADEXCH_3D_RL( adwVel, Nr, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
150 |
ADDUMMY_IN_STEPPING |
CALL ADEXCH_UV_3D_RL( aduVel,advVel, .TRUE., Nr, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
159 |
ADDUMMY_IN_STEPPING |
CALL ADEXCH_3D_RL( adDiffKr, Nr, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
162 |
ADDUMMY_IN_STEPPING |
CALL ADEXCH_3D_RL( adKapGM, Nr, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
165 |
ADDUMMY_IN_STEPPING |
CALL ADEXCH_3D_RL( adKapRedi, Nr, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
325 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, adTheta,var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
330 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, adSalt, var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
336 |
ADDUMMY_IN_STEPPING |
& var3Du, var3Dv, Nr, 34, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
345 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, adwVel, var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
386 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS,adGGL90TKE,var3Du,Nr, 12,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
393 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, adDiffKr,var3Du, Nr, 12,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
400 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, adKapGM, var3Du, Nr, 12,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
407 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS,adKapRedi,var3Du, Nr, 12,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
415 |
ADDUMMY_IN_STEPPING |
& var3Du, var3Dv, Nr, 33, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
623 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, thetad,var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
628 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, saltd, var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
634 |
ADDUMMY_IN_STEPPING |
& var3Du, var3Dv, Nr, 34, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
643 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, wVeld, var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
691 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, DiffKrd,var3Du, Nr, 12,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
698 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, KapGMd, var3Du, Nr, 12,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
705 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS,KapRedid,var3Du, Nr, 12,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
713 |
ADDUMMY_IN_STEPPING |
& var3Du, var3Dv, Nr, 33, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
767 |
ADDUMMY_IN_STEPPING |
& var3Du, var3Dv, Nr, 34, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
770 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, adTheta,var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
772 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, adSalt,var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
776 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, adwVel, var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
803 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, adDiffKr,var3Du, Nr, 12,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
808 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, adKapGM, var3Du, Nr, 12,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
813 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS,adKapRedi,var3Du, Nr, 12,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
86 |
ADDUMMY_IN_STEPPING |
_RL var3Du(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/addummy_in_stepping.F |
87 |
ADDUMMY_IN_STEPPING |
_RL var3Dv(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/addummy_in_stepping.F |
88 |
ADDUMMY_IN_STEPPING |
_RL foo3D (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/autodiff_init_varia.F |
54 |
AUTODIFF_INIT_VARIA |
DO k=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
133 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
317 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
352 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
387 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
422 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
143 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
387 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
431 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
475 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
519 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/g_common.h |
118 |
NO PROCEDURE |
_RL g_diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/g_common.h |
123 |
NO PROCEDURE |
_RL g_kapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/autodiff/g_common.h |
128 |
NO PROCEDURE |
_RL g_kapredi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./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/bbl/bbl_calc_rho.F |
102 |
BBL_CALC_RHO |
I Nr, bi, bj, myThid ) |
|
./pkg/bbl/bbl_calc_rho.F |
53 |
BBL_CALC_RHO |
_RL tFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bbl/bbl_calc_rho.F |
54 |
BBL_CALC_RHO |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bbl/bbl_calc_rho.F |
55 |
BBL_CALC_RHO |
_RL rhoLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bbl/bbl_calc_rho.F |
96 |
BBL_CALC_RHO |
IF ( k .EQ. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rho.F |
98 |
BBL_CALC_RHO |
I 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, Nr, |
|
./pkg/bbl/bbl_calc_rhs.F |
141 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
149 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
243 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
251 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
346 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
354 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
448 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
456 |
BBL_CALC_RHS |
IF ( kl .GT. Nr ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
93 |
BBL_CALC_RHS |
IF ( kBot .EQ. Nr ) THEN |
|
./pkg/bbl/bbl_read_pickup.F |
71 |
BBL_READ_PICKUP |
I Nr, myIter, myThid ) |
|
./pkg/bling/BLING_VARS.h |
16 |
NO PROCEDURE |
_RL pH(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bling/BLING_VARS.h |
271 |
NO PROCEDURE |
_RL omegaC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bling/BLING_VARS.h |
272 |
NO PROCEDURE |
_RL omegaAr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bling/BLING_VARS.h |
273 |
NO PROCEDURE |
_RL irr_mem(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bling/BLING_VARS.h |
274 |
NO PROCEDURE |
_RL phyto_lg(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bling/BLING_VARS.h |
275 |
NO PROCEDURE |
_RL phyto_sm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bling/BLING_VARS.h |
276 |
NO PROCEDURE |
_RL phyto_diaz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bling/BLING_VARS.h |
277 |
NO PROCEDURE |
_RL chl(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bling/BLING_VARS.h |
278 |
NO PROCEDURE |
_RL poc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bling/bling_airseaflux.F |
57 |
BLING_AIRSEAFLUX |
_RL PTR_DIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_airseaflux.F |
58 |
BLING_AIRSEAFLUX |
_RL PTR_ALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_airseaflux.F |
59 |
BLING_AIRSEAFLUX |
_RL PTR_NO3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_airseaflux.F |
60 |
BLING_AIRSEAFLUX |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_airseaflux.F |
61 |
BLING_AIRSEAFLUX |
_RL PTR_O2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_carbonate_init.F |
112 |
BLING_CARBONATE_INIT |
DO k=1,Nr |
|
./pkg/bling/bling_carbonate_init.F |
166 |
BLING_CARBONATE_INIT |
DO k=1,Nr |
|
./pkg/bling/bling_carbonate_sys.F |
38 |
BLING_CARBONATE_SYS |
_RL PTR_DIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_carbonate_sys.F |
39 |
BLING_CARBONATE_SYS |
_RL PTR_ALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_carbonate_sys.F |
40 |
BLING_CARBONATE_SYS |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_carbonate_sys.F |
88 |
BLING_CARBONATE_SYS |
DO k=1,Nr |
|
./pkg/bling/bling_dvm.F |
137 |
BLING_DVM |
DO k=1,Nr |
|
./pkg/bling/bling_dvm.F |
200 |
BLING_DVM |
DO k=1,Nr-2 |
|
./pkg/bling/bling_dvm.F |
230 |
BLING_DVM |
DO k=1,Nr |
|
./pkg/bling/bling_dvm.F |
52 |
BLING_DVM |
_RL N_dvm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_dvm.F |
53 |
BLING_DVM |
_RL P_dvm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_dvm.F |
54 |
BLING_DVM |
_RL Fe_dvm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_dvm.F |
55 |
BLING_DVM |
_RL PTR_O2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_dvm.F |
62 |
BLING_DVM |
_RL N_remindvm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_dvm.F |
63 |
BLING_DVM |
_RL P_remindvm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_dvm.F |
64 |
BLING_DVM |
_RL Fe_remindvm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_dvm.F |
86 |
BLING_DVM |
_RL dvm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_dvm.F |
93 |
BLING_DVM |
DO k=1,Nr |
|
./pkg/bling/bling_init_varia.F |
139 |
BLING_INIT_VARIA |
DO k=1,Nr |
|
./pkg/bling/bling_init_varia.F |
42 |
BLING_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/bling/bling_light.F |
170 |
BLING_LIGHT |
DO k=1,Nr |
|
./pkg/bling/bling_light.F |
203 |
BLING_LIGHT |
DO k=1,Nr |
|
./pkg/bling/bling_light.F |
227 |
BLING_LIGHT |
CALL DIAGNOSTICS_FILL(irr_inst,'BLGIRRIS',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_light.F |
64 |
BLING_LIGHT |
_RL irr_inst (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_light.F |
65 |
BLING_LIGHT |
_RL irr_eff (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_light.F |
87 |
BLING_LIGHT |
DO k=1,Nr |
|
./pkg/bling/bling_main.F |
104 |
BLING_MAIN |
_RL irr_eff(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
113 |
BLING_MAIN |
DO k=1,Nr |
|
./pkg/bling/bling_main.F |
198 |
BLING_MAIN |
DO k=1,Nr |
|
./pkg/bling/bling_main.F |
248 |
BLING_MAIN |
DO k=1,Nr |
|
./pkg/bling/bling_main.F |
266 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(bio_DIC ,'BLGBIOC ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
267 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(bio_ALK ,'BLGBIOAL',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
268 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(bio_O2 ,'BLGBIOO2',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
269 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(bio_NO3 ,'BLGBION ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
270 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(bio_PO4 ,'BLGBIOP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
271 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(bio_Fe ,'BLGBIOFE',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
273 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(pH ,'BLGPH3D ',0,Nr,1,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
274 |
BLING_MAIN |
CALL DIAGNOSTICS_FILL(OmegaAr ,'BLGOMAR ',0,Nr,1,bi,bj,myThid) |
|
./pkg/bling/bling_main.F |
64 |
BLING_MAIN |
_RL PTR_DIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
65 |
BLING_MAIN |
_RL PTR_ALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
66 |
BLING_MAIN |
_RL PTR_NO3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
67 |
BLING_MAIN |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
68 |
BLING_MAIN |
_RL PTR_FE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
69 |
BLING_MAIN |
_RL PTR_O2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
70 |
BLING_MAIN |
_RL PTR_DON(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
71 |
BLING_MAIN |
_RL PTR_DOP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
73 |
BLING_MAIN |
_RL PTR_PHY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
84 |
BLING_MAIN |
_RL G_DIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
85 |
BLING_MAIN |
_RL G_ALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
86 |
BLING_MAIN |
_RL G_NO3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
87 |
BLING_MAIN |
_RL G_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
88 |
BLING_MAIN |
_RL G_FE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
89 |
BLING_MAIN |
_RL G_O2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
90 |
BLING_MAIN |
_RL G_DON(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
91 |
BLING_MAIN |
_RL G_DOP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
92 |
BLING_MAIN |
_RL G_CaCO3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
93 |
BLING_MAIN |
_RL NCP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
94 |
BLING_MAIN |
_RL bio_DIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
95 |
BLING_MAIN |
_RL bio_ALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
96 |
BLING_MAIN |
_RL bio_O2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
97 |
BLING_MAIN |
_RL bio_NO3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
98 |
BLING_MAIN |
_RL bio_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_main.F |
99 |
BLING_MAIN |
_RL bio_Fe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_min_val.F |
25 |
BLING_MIN_VAL |
_RL PTR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_min_val.F |
32 |
BLING_MIN_VAL |
DO k=1,Nr |
|
./pkg/bling/bling_mixedlayer.F |
52 |
BLING_MIXEDLAYER |
_RL delta_dens(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_mixedlayer.F |
72 |
BLING_MIXEDLAYER |
DO k=1,Nr |
|
./pkg/bling/bling_mixedlayer.F |
84 |
BLING_MIXEDLAYER |
DO k = 2,Nr |
|
./pkg/bling/bling_production.F |
147 |
BLING_PROD |
_RL Phy_lg_local(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
148 |
BLING_PROD |
_RL Phy_sm_local(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
149 |
BLING_PROD |
_RL Phy_diaz_local(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
150 |
BLING_PROD |
_RL NO3_lim(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
151 |
BLING_PROD |
_RL PO4_lim(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
152 |
BLING_PROD |
_RL Fe_lim(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
153 |
BLING_PROD |
_RL Fe_lim_diaz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
154 |
BLING_PROD |
_RL light_lim(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
155 |
BLING_PROD |
_RL expkT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
159 |
BLING_PROD |
_RL theta_Fe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
160 |
BLING_PROD |
_RL thFe_inv(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
161 |
BLING_PROD |
_RL irrk(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
162 |
BLING_PROD |
_RL irr_inst(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
163 |
BLING_PROD |
_RL irr_eff(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
165 |
BLING_PROD |
_RL mu(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
166 |
BLING_PROD |
_RL mu_diaz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
167 |
BLING_PROD |
_RL PtoN(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
168 |
BLING_PROD |
_RL FetoN(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
169 |
BLING_PROD |
_RL N_uptake(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
170 |
BLING_PROD |
_RL N_fix(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
171 |
BLING_PROD |
_RL N_den_pelag(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
172 |
BLING_PROD |
_RL N_den_benthic(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
173 |
BLING_PROD |
_RL P_uptake(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
174 |
BLING_PROD |
_RL Fe_uptake(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
175 |
BLING_PROD |
_RL CaCO3_uptake(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
176 |
BLING_PROD |
_RL CaCO3_diss(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
177 |
BLING_PROD |
_RL DON_prod(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
178 |
BLING_PROD |
_RL DOP_prod(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
179 |
BLING_PROD |
_RL DON_remin(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
180 |
BLING_PROD |
_RL DOP_remin(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
181 |
BLING_PROD |
_RL O2_prod(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
183 |
BLING_PROD |
_RL N_spm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
184 |
BLING_PROD |
_RL P_spm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
185 |
BLING_PROD |
_RL Fe_spm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
186 |
BLING_PROD |
_RL N_dvm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
187 |
BLING_PROD |
_RL P_dvm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
188 |
BLING_PROD |
_RL Fe_dvm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
189 |
BLING_PROD |
_RL N_recycle(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
190 |
BLING_PROD |
_RL P_recycle(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
191 |
BLING_PROD |
_RL Fe_recycle(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
192 |
BLING_PROD |
_RL N_reminp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
193 |
BLING_PROD |
_RL P_reminp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
194 |
BLING_PROD |
_RL Fe_reminsum(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
195 |
BLING_PROD |
_RL N_remindvm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
196 |
BLING_PROD |
_RL P_remindvm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
197 |
BLING_PROD |
_RL Fe_remindvm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
198 |
BLING_PROD |
_RL POC_flux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
199 |
BLING_PROD |
_RL NPP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
200 |
BLING_PROD |
_RL NCP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
215 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
276 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
324 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
341 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
370 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
385 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
525 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
557 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
591 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
68 |
BLING_PROD |
_RL PTR_NO3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
69 |
BLING_PROD |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
704 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
70 |
BLING_PROD |
_RL PTR_FE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
71 |
BLING_PROD |
_RL PTR_O2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
72 |
BLING_PROD |
_RL PTR_DON(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
73 |
BLING_PROD |
_RL PTR_DOP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
75 |
BLING_PROD |
_RL PTR_PHY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
80 |
BLING_PROD |
_RL G_NO3 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
81 |
BLING_PROD |
_RL G_PO4 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
82 |
BLING_PROD |
_RL G_FE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
83 |
BLING_PROD |
_RL G_O2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
84 |
BLING_PROD |
_RL G_DON (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
851 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Phy_sm_local,'BLGPSM ',0,Nr,1,bi,bj, |
|
./pkg/bling/bling_production.F |
853 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Phy_lg_local,'BLGPLG ',0,Nr,1,bi,bj, |
|
./pkg/bling/bling_production.F |
855 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Phy_diaz_local,'BLGPDIA ',0,Nr,1,bi,bj, |
|
./pkg/bling/bling_production.F |
857 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(chl, 'BLGCHL ',0,Nr,1,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
858 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(irr_mem,'BLGIMEM ',0,Nr,1,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
85 |
BLING_PROD |
_RL G_DOP (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
860 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(irrk, 'BLGIRRK ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
861 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(irr_eff, 'BLGIEFF ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
862 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(poc, 'BLGPOC ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
863 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(theta_Fe,'BLGCHL2C',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
864 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(thFe_inv,'BLGC2CHL',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
865 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Fe_lim, 'BLGFELIM',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
866 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(NO3_lim, 'BLGNLIM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
867 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(PO4_lim, 'BLGPLIM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
868 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(light_lim,'BLGLLIM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
869 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(POC_flux,'BLGPOCF ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
86 |
BLING_PROD |
_RL G_CACO3 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_production.F |
870 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(NPP, 'BLGNPP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
871 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(NCP, 'BLGNCP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
872 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Fe_dvm, 'BLGFEDVM',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
873 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Fe_spm, 'BLGFESPM',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
874 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Fe_recycle, 'BLGFEREC',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_production.F |
876 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Fe_remindvm, 'BLGFERD ',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_production.F |
878 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(Fe_uptake,'BLGFEUP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
879 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_den_benthic,'BLGNDENB',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_production.F |
881 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_den_pelag, 'BLGNDENP',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_production.F |
883 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_dvm, 'BLGNDVM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
884 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_fix, 'BLGNFIX ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
885 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(DON_prod, 'BLGDONP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
886 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(DON_remin,'BLGDONR ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
887 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_spm, 'BLGNSPM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
888 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_recycle,'BLGNREC ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
889 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_remindvm,'BLGNRD ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
890 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_reminp, 'BLGNREM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
891 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(N_uptake, 'BLGNUP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
892 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(P_dvm, 'BLGPDVM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
893 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(DOP_prod, 'BLGDOPP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
894 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(P_spm, 'BLGPSPM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
895 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(P_recycle,'BLGPREC ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
896 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(P_remindvm,'BLGPRD ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
897 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(P_reminp, 'BLGPREM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
898 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(P_uptake, 'BLGPUP ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
899 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(mu, 'BLGMU ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
900 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(mu_diaz, 'BLGMUDIA',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_production.F |
901 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(CaCO3_diss, 'BLGCCdis',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_production.F |
903 |
BLING_PROD |
CALL DIAGNOSTICS_FILL(CaCO3_uptake,'BLGCCpro',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_read_pickup.F |
71 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, pH, 1, myIter, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
74 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, irr_mem, 2, myIter, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
75 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, chl, 3, myIter, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
76 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phyto_sm, 4, myIter, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
77 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phyto_lg, 5, myIter, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
78 |
BLING_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phyto_diaz, 6, myIter, myThid ) |
|
./pkg/bling/bling_remineralization.F |
102 |
BLING_REMIN |
_RL Fe_ads_inorg(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
103 |
BLING_REMIN |
_RL Fe_ads_org(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
105 |
BLING_REMIN |
_RL Fe_reminp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
112 |
BLING_REMIN |
DO k=1,Nr |
|
./pkg/bling/bling_remineralization.F |
149 |
BLING_REMIN |
DO k=1,Nr |
|
./pkg/bling/bling_remineralization.F |
156 |
BLING_REMIN |
IF (k.LT.Nr) THEN |
|
./pkg/bling/bling_remineralization.F |
382 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(Fe_ads_org, 'BLGFEADO',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_remineralization.F |
384 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(Fe_ads_inorg, 'BLGFEADI',0,Nr,2,bi,bj, |
|
./pkg/bling/bling_remineralization.F |
386 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(Fe_sed, 'BLGFESED',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_remineralization.F |
387 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(Fe_reminp,'BLGFEREM',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_remineralization.F |
388 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(N_reminp, 'BLGNREM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_remineralization.F |
389 |
BLING_REMIN |
CALL DIAGNOSTICS_FILL(P_reminp, 'BLGPREM ',0,Nr,2,bi,bj,myThid) |
|
./pkg/bling/bling_remineralization.F |
56 |
BLING_REMIN |
_RL PTR_NO3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
57 |
BLING_REMIN |
_RL PTR_FE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
58 |
BLING_REMIN |
_RL PTR_O2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
59 |
BLING_REMIN |
_RL irr_inst(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
60 |
BLING_REMIN |
_RL N_spm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
61 |
BLING_REMIN |
_RL P_spm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
62 |
BLING_REMIN |
_RL Fe_spm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
63 |
BLING_REMIN |
_RL CaCO3_uptake(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
71 |
BLING_REMIN |
_RL N_reminp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
72 |
BLING_REMIN |
_RL N_den_benthic(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
73 |
BLING_REMIN |
_RL P_reminp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
74 |
BLING_REMIN |
_RL Fe_reminsum(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
75 |
BLING_REMIN |
_RL CaCO3_diss(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_remineralization.F |
96 |
BLING_REMIN |
_RL Fe_sed(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/bling/bling_write_pickup.F |
109 |
BLING_WRITE_PICKUP |
& 0, 0, Nr, ' ', |
|
./pkg/bling/bling_write_pickup.F |
63 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, pH, -j, myIter, myThid ) |
|
./pkg/bling/bling_write_pickup.F |
67 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, irr_mem, |
|
./pkg/bling/bling_write_pickup.F |
72 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, chl, -j, myIter, myThid ) |
|
./pkg/bling/bling_write_pickup.F |
76 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, phyto_sm, -j, myIter, |
|
./pkg/bling/bling_write_pickup.F |
81 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, phyto_lg, -j, myIter, |
|
./pkg/bling/bling_write_pickup.F |
86 |
BLING_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, phyto_diaz, -j, myIter, |
|
./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 |
71 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
72 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, vVelD, 2, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
73 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, uNM1, 3, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
74 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, vNM1, 4, myIter, myThid ) |
|
./pkg/cd_code/cd_code_read_pickup.F |
76 |
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 |
78 |
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 |
83 |
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 |
49 |
CFC11_FORCING |
_RL pTr_CFC11(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/cfc/cfc11_forcing.F |
50 |
CFC11_FORCING |
_RL gCFC11(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/cfc/cfc11_surfforcing.F |
42 |
CFC11_SURFFORCING |
_RL pTr_CFC11 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/cfc/cfc12_forcing.F |
50 |
CFC12_FORCING |
_RL pTr_CFC12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/cfc/cfc12_forcing.F |
51 |
CFC12_FORCING |
_RL gCFC12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/cfc/cfc12_surfforcing.F |
42 |
CFC12_SURFFORCING |
_RL pTr_CFC12 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
133 |
CHEAPAML_READ_PICKUP |
nj = nj*Nr |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
74 |
CHEAPAML_READ_PICKUP |
I Nr, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
133 |
CHEAPAML_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
134 |
CHEAPAML_WRITE_PICKUP |
j = Nr |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
79 |
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 |
157 |
NO PROCEDURE |
_RL cMeanTheta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cost/cost.h |
158 |
NO PROCEDURE |
_RL cMeanUVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cost/cost.h |
159 |
NO PROCEDURE |
_RL cMeanVVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cost/cost.h |
160 |
NO PROCEDURE |
_RL cMeanThetaUVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cost/cost.h |
161 |
NO PROCEDURE |
_RL cMeanThetaVVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/cost/cost.h |
89 |
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 |
76 |
COST_DEPENDENT_INIT |
do k=1,4*Nr |
|
./pkg/cost/cost_dependent_init.F |
79 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
75 |
COST_INIT_VARIA |
do k=1,Nr |
|
./pkg/cost/cost_init_varia.F |
91 |
COST_INIT_VARIA |
do k=1,4*Nr |
|
./pkg/cost/cost_init_varia.F |
94 |
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/CTRL_FIELDS.h |
25 |
NO PROCEDURE |
_RL kapGM (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ctrl/CTRL_FIELDS.h |
30 |
NO PROCEDURE |
_RL kapRedi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ctrl/CTRL_OBCS.h |
118 |
NO PROCEDURE |
_RL xx_obcsn0 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/CTRL_OBCS.h |
119 |
NO PROCEDURE |
_RL xx_obcsn1 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/CTRL_OBCS.h |
130 |
NO PROCEDURE |
_RL xx_obcss0 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/CTRL_OBCS.h |
131 |
NO PROCEDURE |
_RL xx_obcss1 (1-Olx:sNx+Olx,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/CTRL_OBCS.h |
142 |
NO PROCEDURE |
_RL xx_obcsw0 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/CTRL_OBCS.h |
143 |
NO PROCEDURE |
_RL xx_obcsw1 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/CTRL_OBCS.h |
154 |
NO PROCEDURE |
_RL xx_obcse0 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/CTRL_OBCS.h |
155 |
NO PROCEDURE |
_RL xx_obcse1 (1-Oly:sNy+Oly,Nr,nSx,nSy,nobcs) |
|
./pkg/ctrl/adctrl_bound.F |
126 |
ADCTRL_BOUND_2D |
_RS maskFld3d (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/adctrl_bound.F |
34 |
ADCTRL_BOUND_3D |
_RL fieldCur (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/adctrl_bound.F |
35 |
ADCTRL_BOUND_3D |
_RL adjFieldCur(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/adctrl_bound.F |
36 |
ADCTRL_BOUND_3D |
_RS maskFld3d (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/adctrl_bound.F |
66 |
ADCTRL_BOUND_3D |
DO k = 1,Nr |
|
./pkg/ctrl/ctrl.h |
232 |
NO PROCEDURE |
parameter ( maxm = Nx*Ny*(4*Nr+1), maxn=Nx*Ny*(4*Nr+1) ) |
|
./pkg/ctrl/ctrl.h |
43 |
NO PROCEDURE |
parameter( admtlmrec = Nx*Ny*(4*Nr+1) ) |
|
./pkg/ctrl/ctrl_bound.F |
35 |
CTRL_BOUND_3D |
_RL fieldCur (1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_bound.F |
36 |
CTRL_BOUND_3D |
_RS maskFld3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_bound.F |
49 |
CTRL_BOUND_3D |
DO k = 1,Nr |
|
./pkg/ctrl/ctrl_bound.F |
96 |
CTRL_BOUND_2D |
_RS maskFld3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_getobcse.F |
137 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
145 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
157 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
206 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
214 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
226 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
142 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
150 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
162 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
211 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
219 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
231 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
138 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
146 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
158 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
207 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
215 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
227 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
137 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
145 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
157 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
206 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
214 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
226 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_init.F |
112 |
CTRL_INIT |
do k=1,Nr |
|
./pkg/ctrl/ctrl_init.F |
411 |
CTRL_INIT |
do j = 1,Nr |
|
./pkg/ctrl/ctrl_init.F |
412 |
CTRL_INIT |
read(dUnit,rec=j) ((modesv(k,i,j), k=1,Nr), i=1,Nr) |
|
./pkg/ctrl/ctrl_init.F |
68 |
CTRL_INIT |
_RL loctmp3d (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ctrl/ctrl_init_wet.F |
274 |
CTRL_INIT_WET |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_init_wet.F |
603 |
CTRL_INIT_WET |
CALL ACTIVE_WRITE_GEN_RS( 'maskCtrlC', maskC, 'XY', Nr, |
|
./pkg/ctrl/ctrl_init_wet.F |
605 |
CTRL_INIT_WET |
CALL ACTIVE_WRITE_GEN_RS( 'maskCtrlW', maskW, 'XY', Nr, |
|
./pkg/ctrl/ctrl_init_wet.F |
607 |
CTRL_INIT_WET |
CALL ACTIVE_WRITE_GEN_RS( 'maskCtrlS', maskS, 'XY', Nr, |
|
./pkg/ctrl/ctrl_init_wet.F |
617 |
CTRL_INIT_WET |
CALL ACTIVE_WRITE_GEN_RS( 'maskCtrlI', maskSHI, 'XY', Nr, |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
436 |
CTRL_MAP_GENARR3D |
call ECCO_ZERO(localmask,Nr,zeroRL,myThid) |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
103 |
CTRL_SET_GLOBFLD_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype) |
|
./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 |
112 |
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 |
114 |
CTRL_SET_GLOBFLD_YZ |
& Nr, globfldyz, |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
174 |
CTRL_SET_PACK_XY |
& Nr, globmsk, 1, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
176 |
CTRL_SET_PACK_XY |
nrec_nl=int(ncvarrecs(ivartype)/Nr) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
180 |
CTRL_SET_PACK_XY |
& Nr, globfld3d, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
181 |
CTRL_SET_PACK_XY |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
270 |
CTRL_SET_PACK_XY |
do irec = nrec_nl*Nr+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
385 |
CTRL_SET_PACK_XY |
_RL msk3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
530 |
CTRL_SET_PACK_XY |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
101 |
CTRL_SET_PACK_XYZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
102 |
CTRL_SET_PACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
164 |
CTRL_SET_PACK_XYZ |
& Nr, weightfld3d, 1, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
186 |
CTRL_SET_PACK_XYZ |
& Nr, globmsk, 1, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
191 |
CTRL_SET_PACK_XYZ |
& Nr, globfld3d, irec, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
298 |
CTRL_SET_PACK_XYZ |
_RL msk3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
302 |
CTRL_SET_PACK_XYZ |
_RL fld3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
306 |
CTRL_SET_PACK_XYZ |
_RL fld3dDim(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
307 |
CTRL_SET_PACK_XYZ |
_RL fld3dNodim(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
310 |
CTRL_SET_PACK_XYZ |
_RL wei3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
368 |
CTRL_SET_PACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
373 |
CTRL_SET_PACK_XYZ |
DO k=1,Nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
421 |
CTRL_SET_PACK_XYZ |
& Nr, fld3dNodim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
423 |
CTRL_SET_PACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
442 |
CTRL_SET_PACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
449 |
CTRL_SET_PACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
167 |
CTRL_SET_PACK_XZ |
& Nr, globmskxz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
174 |
CTRL_SET_PACK_XZ |
& Nr, weightfldxz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
167 |
CTRL_SET_PACK_YZ |
& Nr, globmskyz(1,1,1,1,1,1,iobcs), iobcs,mythid) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
174 |
CTRL_SET_PACK_YZ |
& Nr, weightfldyz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
175 |
CTRL_SET_UNPACK_XY |
& Nr, globmsk, 1, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
177 |
CTRL_SET_UNPACK_XY |
nrec_nl=int(ncvarrecs(ivartype)/Nr) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
179 |
CTRL_SET_UNPACK_XY |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
288 |
CTRL_SET_UNPACK_XY |
do irec = nrec_nl*Nr+1,ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
419 |
CTRL_SET_UNPACK_XY |
_RL msk3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
507 |
CTRL_SET_UNPACK_XY |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
101 |
CTRL_SET_UNPACK_XYZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
102 |
CTRL_SET_UNPACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
173 |
CTRL_SET_UNPACK_XYZ |
& Nr, weightfld3d, 1, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
195 |
CTRL_SET_UNPACK_XYZ |
& Nr, globmsk, 1, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
209 |
CTRL_SET_UNPACK_XYZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
301 |
CTRL_SET_UNPACK_XYZ |
& Nr, globfld3d, |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
327 |
CTRL_SET_UNPACK_XYZ |
_RL msk3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
331 |
CTRL_SET_UNPACK_XYZ |
_RL fld3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
335 |
CTRL_SET_UNPACK_XYZ |
_RL fld3dDim(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
336 |
CTRL_SET_UNPACK_XYZ |
_RL fld3dNodim(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
339 |
CTRL_SET_UNPACK_XYZ |
_RL wei3d(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
417 |
CTRL_SET_UNPACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
464 |
CTRL_SET_UNPACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .TRUE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
471 |
CTRL_SET_UNPACK_XYZ |
DO k=1,Nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
523 |
CTRL_SET_UNPACK_XYZ |
& Nr, fld3dNodim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
525 |
CTRL_SET_UNPACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
530 |
CTRL_SET_UNPACK_XYZ |
& Nr, fld3dDim, irec, 0, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
172 |
CTRL_SET_UNPACK_XZ |
& Nr, globmskxz(1,1,1,1,1,1,iobcs), iobcs,mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
179 |
CTRL_SET_UNPACK_XZ |
& Nr, weightfldxz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
204 |
CTRL_SET_UNPACK_XZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
272 |
CTRL_SET_UNPACK_XZ |
& Nr, globfld3d, irec, |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
291 |
CTRL_SET_UNPACK_XZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
353 |
CTRL_SET_UNPACK_XZ |
& Nr, globfldxz, irec, |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
172 |
CTRL_SET_UNPACK_YZ |
& Nr, globmskyz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
179 |
CTRL_SET_UNPACK_YZ |
& Nr, weightfldyz(1,1,1,1,1,1,iobcs), iobcs, mythid) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
204 |
CTRL_SET_UNPACK_YZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
272 |
CTRL_SET_UNPACK_YZ |
& Nr, globfld3d, irec, |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
291 |
CTRL_SET_UNPACK_YZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
347 |
CTRL_SET_UNPACK_YZ |
& Nr, globfldyz, irec, |
|
./pkg/ctrl/ctrl_smooth.F |
20 |
CTRL_SMOOTH |
_RS mask( 1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy ) |
|
./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 |
149 |
DIAGNOSTICS_CHECK |
margin = rkSign*(rF(Nr+1)-rF(1))*0.1 _d 0 |
|
./pkg/diagnostics/diagnostics_check.F |
151 |
DIAGNOSTICS_CHECK |
IF ( levs(k,ld)-MAX(rF(1),rF(Nr+1)).GT.margin |
|
./pkg/diagnostics/diagnostics_check.F |
152 |
DIAGNOSTICS_CHECK |
& .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin |
|
./pkg/diagnostics/diagnostics_check.F |
161 |
DIAGNOSTICS_CHECK |
& ' not in the domain:',rF(1),' :',rF(Nr+1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
100 |
DIAGNOSTICS_FILL_STATE |
& 'UVELSQ ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
102 |
DIAGNOSTICS_FILL_STATE |
& 'VVELSQ ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
104 |
DIAGNOSTICS_FILL_STATE |
& 'WVELSQ ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
113 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
132 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UV_VEL_C',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
138 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
149 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UV_VEL_Z',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
155 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
169 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WU_VEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
175 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
189 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WV_VEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
197 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
207 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UVELTH ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
213 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
223 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VVELTH ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
229 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
240 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WVELTH ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
246 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
256 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UVELSLT ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
262 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
272 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VVELSLT ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
278 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
289 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WVELSLT ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
295 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
305 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UVELPHI ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
311 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
321 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VVELPHI ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
332 |
DIAGNOSTICS_FILL_STATE |
DO k = Nr,1,-1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
346 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'RCENTER ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
355 |
DIAGNOSTICS_FILL_STATE |
& 'TOTUTEND',0,Nr,0,1,1,myThid ) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
357 |
DIAGNOSTICS_FILL_STATE |
& 'TOTVTEND',0,Nr,0,1,1,myThid ) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
362 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
372 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTTTEND',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
375 |
DIAGNOSTICS_FILL_STATE |
CALL LAYERS_FILL(tmpMk,1,'TOT',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
383 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
393 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTSTEND',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
396 |
DIAGNOSTICS_FILL_STATE |
CALL LAYERS_FILL(tmpMk,2,'TOT',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
409 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(theta,'THETA ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
410 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(salt, 'SALT ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
419 |
DIAGNOSTICS_FILL_STATE |
DO k = 1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
430 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk, 'RELHUM ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
435 |
DIAGNOSTICS_FILL_STATE |
& 'THETASQ ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
437 |
DIAGNOSTICS_FILL_STATE |
& 'SALTSQ ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
450 |
DIAGNOSTICS_FILL_STATE |
& 'gTinAB ',0,Nr,0,1,1,myThid ) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
453 |
DIAGNOSTICS_FILL_STATE |
& 'gSinAB ',0,Nr,0,1,1,myThid ) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
456 |
DIAGNOSTICS_FILL_STATE |
& CALL DIAGNOSTICS_FILL( gtNm1,'gTinAB ',0,Nr,0,1,1,myThid ) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
458 |
DIAGNOSTICS_FILL_STATE |
& CALL DIAGNOSTICS_FILL( gsNm1,'gSinAB ',0,Nr,0,1,1,myThid ) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
493 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
502 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL( tmpMk,'SALTanom',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
504 |
DIAGNOSTICS_FILL_STATE |
& 'SALTSQan',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
50 |
DIAGNOSTICS_FILL_STATE |
_RL tmpMk(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
512 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
522 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UVELMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
528 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
538 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VVELMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
541 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(wVel, 'WVELMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
546 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
557 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UTHMASS ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
563 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
574 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VTHMASS ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
580 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
591 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WTHMASS ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
597 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
608 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'USLTMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
614 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
625 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VSLTMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
631 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
642 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WSLTMASS',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
657 |
DIAGNOSTICS_FILL_STATE |
& 'TOTUTEND',0,Nr,-1,bi,bj,myThid ) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
659 |
DIAGNOSTICS_FILL_STATE |
& 'TOTVTEND',0,Nr,-1,bi,bj,myThid ) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
666 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
674 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTTTEND',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
677 |
DIAGNOSTICS_FILL_STATE |
CALL LAYERS_FILL(tmpMk,1,'TOT',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
687 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
695 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTSTEND',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
698 |
DIAGNOSTICS_FILL_STATE |
CALL LAYERS_FILL(tmpMk,2,'TOT',0,Nr,-1,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
91 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL( phi_nh,'PHI_NH ',0,Nr,0,1,1,myThid ) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
95 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(uVel, 'UVEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
96 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(vVel, 'VVEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
97 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(wVel, 'WVEL ',0,Nr,0,1,1,myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
82 |
DIAGNOSTICS_SET_LEVELS |
nlevs = MAX(Nr,Nrphys) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
95 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = Nr |
|
./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/diagnostics/diagstats_local.F |
124 |
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/dic/DIC_VARS.h |
141 |
NO PROCEDURE |
_RL BIOave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
142 |
NO PROCEDURE |
_RL CARave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
148 |
NO PROCEDURE |
_RL OmegaCave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
149 |
NO PROCEDURE |
_RL pfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
150 |
NO PROCEDURE |
_RL epfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
151 |
NO PROCEDURE |
_RL cfluxave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
163 |
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/dic_atmos.F |
111 |
DIC_ATMOS |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_diags.F |
144 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(BIOave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
145 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(CARave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
151 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(OmegaCave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
152 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(pfluxave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
153 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(epfluxave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
154 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(cfluxave,Nr,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_diags.F |
50 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_NORMALIZE(BIOave, DIC_timeAve, Nr , |
|
./pkg/dic/dic_biotic_diags.F |
52 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_NORMALIZE(CARave, DIC_timeAve, Nr , |
|
./pkg/dic/dic_biotic_diags.F |
64 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_NORMALIZE(OmegaCave, DIC_timeAve, Nr , |
|
./pkg/dic/dic_biotic_diags.F |
66 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_NORMALIZE(pfluxave,DIC_timeAve, Nr , |
|
./pkg/dic/dic_biotic_diags.F |
68 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_NORMALIZE(epfluxave,DIC_timeAve, Nr , |
|
./pkg/dic/dic_biotic_diags.F |
70 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_NORMALIZE(cfluxave,DIC_timeAve, Nr , |
|
./pkg/dic/dic_biotic_forcing.F |
100 |
DIC_BIOTIC_FORCING |
_RL GFE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
101 |
DIC_BIOTIC_FORCING |
_RL freefe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
126 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
226 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
272 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
329 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
348 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
387 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
429 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(BIOac ,'DICBIOA ',0,Nr,2,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
430 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(CAR ,'DICCARB ',0,Nr,2,bi,bj,myThid) |
|
./pkg/dic/dic_biotic_forcing.F |
47 |
DIC_BIOTIC_FORCING |
_RL PTR_DIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
48 |
DIC_BIOTIC_FORCING |
_RL PTR_ALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
49 |
DIC_BIOTIC_FORCING |
_RL PTR_PO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
50 |
DIC_BIOTIC_FORCING |
_RL PTR_DOP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
52 |
DIC_BIOTIC_FORCING |
_RL PTR_O2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
55 |
DIC_BIOTIC_FORCING |
_RL PTR_FE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
82 |
DIC_BIOTIC_FORCING |
_RL GDIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
83 |
DIC_BIOTIC_FORCING |
_RL GALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
84 |
DIC_BIOTIC_FORCING |
_RL GPO4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
85 |
DIC_BIOTIC_FORCING |
_RL GDOP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
89 |
DIC_BIOTIC_FORCING |
_RL CAR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
90 |
DIC_BIOTIC_FORCING |
_RL BIOac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
91 |
DIC_BIOTIC_FORCING |
_RL RDOP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
92 |
DIC_BIOTIC_FORCING |
_RL pflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
93 |
DIC_BIOTIC_FORCING |
_RL exportflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
94 |
DIC_BIOTIC_FORCING |
_RL CAR_S(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
95 |
DIC_BIOTIC_FORCING |
_RL cflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/dic_biotic_forcing.F |
97 |
DIC_BIOTIC_FORCING |
_RL GO2(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_ini_atmos.F |
108 |
DIC_INI_ATMOS |
DO k=1,Nr |
|
./pkg/dic/dic_init_fixed.F |
80 |
DIC_INIT_FIXED |
nlev=Nr |
|
./pkg/dic/dic_init_fixed.F |
83 |
DIC_INIT_FIXED |
DO WHILE ( k .LT. Nr .AND. rC(k) .GE. -zcrit ) |
|
./pkg/dic/dic_init_varia.F |
64 |
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_write_pickup.F |
110 |
DIC_WRITE_PICKUP |
IF ( nWrFlds*Nr .EQ. nj ) THEN |
|
./pkg/dic/dic_write_pickup.F |
111 |
DIC_WRITE_PICKUP |
j = Nr |
|
./pkg/dic/dic_write_pickup.F |
85 |
DIC_WRITE_PICKUP |
nj = -j*Nr |
|
./pkg/dic/fe_chem.F |
39 |
FE_CHEM |
_RL fe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/fe_chem.F |
40 |
FE_CHEM |
_RL freefe(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/dic/fe_chem.F |
59 |
FE_CHEM |
DO k=1,Nr |
|
./pkg/dic/fe_chem.F |
70 |
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/down_slope/dwnslp_apply.F |
125 |
DWNSLP_APPLY |
& 0, Nr, -2, bi, bj, myThid ) |
|
./pkg/down_slope/dwnslp_apply.F |
192 |
DWNSLP_APPLY |
& CALL DIAGNOSTICS_FILL( gTracer, diagName, 0,Nr,2,bi,bj,myThid ) |
|
./pkg/down_slope/dwnslp_apply.F |
54 |
DWNSLP_APPLY |
_RL tracer ( xySize, Nr ) |
|
./pkg/down_slope/dwnslp_apply.F |
55 |
DWNSLP_APPLY |
_RL gTracer ( xySize, Nr ) |
|
./pkg/down_slope/dwnslp_apply.F |
56 |
DWNSLP_APPLY |
_RS recip_hFac ( xySize, Nr ) |
|
./pkg/down_slope/dwnslp_apply.F |
58 |
DWNSLP_APPLY |
_RS recip_drF(Nr) |
|
./pkg/down_slope/dwnslp_apply.F |
59 |
DWNSLP_APPLY |
_RL deltaTLev(Nr) |
|
./pkg/down_slope/dwnslp_apply.F |
75 |
DWNSLP_APPLY |
_RL gTrLoc(0:Nr) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
42 |
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 |
108 |
DWNSLP_INIT_FIXED |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
139 |
DWNSLP_INIT_FIXED |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
167 |
DWNSLP_INIT_FIXED |
IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
80 |
DWNSLP_INIT_FIXED |
IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN |
|
./model/inc/DYNVARS.h |
115 |
NO PROCEDURE |
_RL totPhiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
116 |
NO PROCEDURE |
_RL rhoInSitu(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
118 |
NO PROCEDURE |
_RL IVDConvCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
129 |
NO PROCEDURE |
_RL dU_psFacX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
130 |
NO PROCEDURE |
_RL dV_psFacY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
49 |
NO PROCEDURE |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
50 |
NO PROCEDURE |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
51 |
NO PROCEDURE |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
52 |
NO PROCEDURE |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
53 |
NO PROCEDURE |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
54 |
NO PROCEDURE |
_RL gU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
55 |
NO PROCEDURE |
_RL gV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
57 |
NO PROCEDURE |
_RL guNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/DYNVARS.h |
58 |
NO PROCEDURE |
_RL gvNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/DYNVARS.h |
59 |
NO PROCEDURE |
_RL gtNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/DYNVARS.h |
60 |
NO PROCEDURE |
_RL gsNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) |
|
./model/inc/DYNVARS.h |
62 |
NO PROCEDURE |
_RL guNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
63 |
NO PROCEDURE |
_RL gvNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
64 |
NO PROCEDURE |
_RL gtNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
65 |
NO PROCEDURE |
_RL gsNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
71 |
NO PROCEDURE |
_RL gT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
72 |
NO PROCEDURE |
_RL gS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
84 |
NO PROCEDURE |
_RL diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
189 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localmask,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
190 |
COST_GENCOST_SEAICEV4 |
call ECCO_CPRSRL(maskC,Nr,localmask,Nr,myThid) |
|
./pkg/ecco/cost_gencost_transp.F |
208 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(mybar,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_transp.F |
212 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(localtmp,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_transp.F |
226 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(myobs,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_transp.F |
41 |
COST_GENCOST_TRANSP |
parameter (nnzbar = Nr, nnzobs = Nr) |
|
./pkg/ecco/cost_generic.F |
107 |
COST_GENERIC |
call ECCO_ZERO(localdifmean1,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
108 |
COST_GENERIC |
call ECCO_ZERO(localdifmean2,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
134 |
COST_GENERIC |
call ECCO_ZERO(localdifmean1,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
229 |
COST_GENLOOP |
_RL localdifmeanIn (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
230 |
COST_GENLOOP |
_RL localdifmeanOut (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
245 |
COST_GENLOOP |
_RL localmask (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
247 |
COST_GENLOOP |
_RL localbar (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
248 |
COST_GENLOOP |
_RL localweight(1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
249 |
COST_GENLOOP |
_RL localtmp (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
250 |
COST_GENLOOP |
_RL localobs (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
251 |
COST_GENLOOP |
_RL localdif (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
252 |
COST_GENLOOP |
_RL difmask (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
254 |
COST_GENLOOP |
_RL localdifmsk (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
255 |
COST_GENLOOP |
_RL localdifsum (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
256 |
COST_GENLOOP |
_RL localdifnum (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
272 |
COST_GENLOOP |
call ECCO_ZERO(localbar,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
273 |
COST_GENLOOP |
call ECCO_ZERO(localweight,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
274 |
COST_GENLOOP |
call ECCO_ZERO(localtmp,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
275 |
COST_GENLOOP |
call ECCO_ZERO(localmask,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
277 |
COST_GENLOOP |
call ECCO_ZERO(localobs,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
278 |
COST_GENLOOP |
call ECCO_ZERO(localdif,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
279 |
COST_GENLOOP |
call ECCO_ZERO(difmask,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
281 |
COST_GENLOOP |
call ECCO_ZERO(localdifmsk,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
282 |
COST_GENLOOP |
call ECCO_ZERO(localdifsum,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
283 |
COST_GENLOOP |
call ECCO_ZERO(localdifnum,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
404 |
COST_GENLOOP |
call ECCO_ZERO(localdifmeanOut,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
88 |
COST_GENERIC |
_RL localdifmean1 (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_generic.F |
89 |
COST_GENERIC |
_RL localdifmean2 (1-olx:snx+olx,1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_hyd.F |
126 |
COST_HYD |
nnzbar = Nr |
|
./pkg/ecco/cost_hyd.F |
127 |
COST_HYD |
nnzobs = Nr |
|
./pkg/ecco/cost_hyd.F |
148 |
COST_HYD |
nnzbar = Nr |
|
./pkg/ecco/cost_hyd.F |
149 |
COST_HYD |
nnzobs = Nr |
|
./pkg/ecco/cost_hyd.F |
170 |
COST_HYD |
nnzbar = Nr |
|
./pkg/ecco/cost_hyd.F |
171 |
COST_HYD |
nnzobs = Nr |
|
./pkg/ecco/cost_hyd.F |
240 |
COST_HYD |
nnzbar = Nr |
|
./pkg/ecco/cost_hyd.F |
241 |
COST_HYD |
nnzobs = Nr |
|
./pkg/ecco/cost_hyd.F |
262 |
COST_HYD |
nnzbar = Nr |
|
./pkg/ecco/cost_hyd.F |
263 |
COST_HYD |
nnzobs = Nr |
|
./pkg/ecco/cost_hyd.F |
306 |
COST_HYD |
nnzbar = Nr |
|
./pkg/ecco/cost_hyd.F |
307 |
COST_HYD |
nnzobs = Nr |
|
./pkg/ecco/cost_hyd.F |
328 |
COST_HYD |
nnzbar = Nr |
|
./pkg/ecco/cost_hyd.F |
329 |
COST_HYD |
nnzobs = Nr |
|
./model/inc/EOS.h |
33 |
NO PROCEDURE |
_RL eosC(9,Nr+1),eosSig0(Nr+1),eosRefT(Nr+1),eosRefS(Nr+1) |
|
./pkg/ecco/cost_obcs_ageos.F |
271 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
339 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
407 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
474 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
84 |
COST_OBCS_AGEOS |
_RL xzgrdrho(1-olx:snx+olx,Nr,nsx,nsy) |
|
./pkg/ecco/cost_obcs_ageos.F |
85 |
COST_OBCS_AGEOS |
_RL yzgrdrho(1-oly:sny+oly,Nr,nsx,nsy) |
|
./pkg/ecco/cost_obcse.F |
178 |
COST_OBCSE |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsn.F |
176 |
COST_OBCSN |
do k = 1, Nr |
|
./pkg/ecco/cost_obcss.F |
178 |
COST_OBCSS |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
215 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
257 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
300 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
343 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsw.F |
176 |
COST_OBCSW |
do k = 1, Nr |
|
./pkg/ecco/ecco.h |
155 |
NO PROCEDURE |
_RL trVol(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ecco/ecco.h |
156 |
NO PROCEDURE |
_RL trHeat(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ecco/ecco.h |
157 |
NO PROCEDURE |
_RL trSalt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ecco/ecco.h |
158 |
NO PROCEDURE |
_RL eccoVol_0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |