| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_statvars.F |
107 |
PTRACERS_STATVARS |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_statvars.F |
54 |
PTRACERS_STATVARS |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_statvars.F |
77 |
PTRACERS_STATVARS |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_integrate.F |
174 |
PTRACERS_INTEGRATE |
I bi,bj,K, |
|
./pkg/ptracers/ptracers_integrate.F |
195 |
PTRACERS_INTEGRATE |
I bi,bj,K, |
|
./pkg/ptracers/ptracers_integrate.F |
202 |
PTRACERS_INTEGRATE |
I bi,bj,K, |
|
./pkg/ptracers/ptracers_implicit.F |
123 |
PTRACERS_IMPLICIT |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_implicit.F |
125 |
PTRACERS_IMPLICIT |
I bi, bj, K, iTracer, |
|
./pkg/ptracers/ptracers_implicit.F |
126 |
PTRACERS_IMPLICIT |
U gPtr(1-Olx,1-Oly,K,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_implicit.F |
54 |
PTRACERS_IMPLICIT |
INTEGER K |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
100 |
PTRACERS_DIAGNOSTICS_FILL |
dummy(i,j,K,bi,bj) = wVel(i,j,K,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
101 |
PTRACERS_DIAGNOSTICS_FILL |
& 0.5 _d 0*(ptracer(i,j,K,bi,bj,N) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
35 |
PTRACERS_DIAGNOSTICS_FILL |
INTEGER i,j,K,N,bi,bj |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
56 |
PTRACERS_DIAGNOSTICS_FILL |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
59 |
PTRACERS_DIAGNOSTICS_FILL |
dummy(i,j,K,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
60 |
PTRACERS_DIAGNOSTICS_FILL |
& uVel(i,j,K,bi,bj)*hFacW(i,j,K,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
61 |
PTRACERS_DIAGNOSTICS_FILL |
& 0.5 _d 0*(ptracer(i,j,K,bi,bj,N) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
62 |
PTRACERS_DIAGNOSTICS_FILL |
& + ptracer(i-1,j,K,bi,bj,N)) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
76 |
PTRACERS_DIAGNOSTICS_FILL |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
79 |
PTRACERS_DIAGNOSTICS_FILL |
dummy(i,j,K,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
80 |
PTRACERS_DIAGNOSTICS_FILL |
& vVel(i,j,K,bi,bj)*hFacS(i,j,K,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
81 |
PTRACERS_DIAGNOSTICS_FILL |
& 0.5 _d 0*(ptracer(i,j,K,bi,bj,N) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
82 |
PTRACERS_DIAGNOSTICS_FILL |
& + ptracer(i,j-1,K,bi,bj,N)) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
96 |
PTRACERS_DIAGNOSTICS_FILL |
DO K=1,Nr |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
97 |
PTRACERS_DIAGNOSTICS_FILL |
km1 = MAX(K-1,1) |
|
./pkg/shelfice/shelfice_init.F |
31 |
SHELFICE_INIT_FIXED |
INTEGER I, J, K, bi, bj |
|
./pkg/shelfice/shelfice_init.F |
44 |
SHELFICE_INIT_FIXED |
DO K = Nr, 1, -1 |
|
./pkg/shelfice/shelfice_init.F |
45 |
SHELFICE_INIT_FIXED |
IF ( hFacC(I,J,K,bi,bj) .NE. 0. _d 0 ) |
|
./pkg/shelfice/shelfice_init.F |
46 |
SHELFICE_INIT_FIXED |
& kTopC(I,J,bi,bj) = K |
|
./pkg/shelfice/shelfice_thermodynamics.F |
108 |
SHELFICE_THERMODYNAMICS |
& * salt(I,J,K,bi,bj) * convertEmP2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
132 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
134 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
136 |
SHELFICE_THERMODYNAMICS |
tLoc = theta(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
137 |
SHELFICE_THERMODYNAMICS |
sLoc = max(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
47 |
SHELFICE_THERMODYNAMICS |
INTEGER I,J,K |
|
./pkg/shelfice/shelfice_thermodynamics.F |
82 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
84 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
86 |
SHELFICE_THERMODYNAMICS |
tLoc = theta(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
87 |
SHELFICE_THERMODYNAMICS |
sLoc = max(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/pp81/pp81_do_diags.F |
66 |
PP81_DO_DIAGS |
INTEGER bi, bj, K |
|
./pkg/pp81/pp81_calc_visc.F |
30 |
PP81_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./pkg/pp81/pp81_calc_visc.F |
6 |
PP81_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,K, |
|
./pkg/pp81/pp81_calc.F |
101 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscMin,PPviscAr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc.F |
102 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPdiffMin,PPdiffKr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc.F |
110 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = PPviscAr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
111 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
112 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = PPdiffKr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
113 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
60 |
PP81_CALC |
INTEGER I, J, K |
|
./pkg/pp81/pp81_calc.F |
70 |
PP81_CALC |
DO K = 2, Nr |
|
./pkg/pp81/pp81_calc.F |
72 |
PP81_CALC |
I bi, bj, K, iMin, iMax, jMin, jMax, |
|
./pkg/pp81/pp81_calc.F |
85 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscAr) |
|
./pkg/pp81/pp81_calc.F |
86 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom, |
|
./pkg/pp81/pp81_calc.F |
97 |
PP81_CALC |
IF ( (buoyancyRelation .EQ. 'OCEANIC' .AND. K .EQ. 2) .OR. |
|
./pkg/pp81/pp81_calc.F |
98 |
PP81_CALC |
& (buoyancyRelation .EQ. 'OCEANICP' .AND. K .EQ. Nr) ) THEN |
|
./pkg/pp81/pp81_ri_number.F |
101 |
PP81_RI_NUMBER |
I bi, bj, iMin, iMax, jMin, jMax, K, K, |
|
./pkg/pp81/pp81_ri_number.F |
111 |
PP81_RI_NUMBER |
& - (uVel(I,J,K ,bi,bj)+uVel(I+1,J,K ,bi,bj)) ) |
|
./pkg/pp81/pp81_ri_number.F |
112 |
PP81_RI_NUMBER |
& *recip_drC(K) |
|
./pkg/pp81/pp81_ri_number.F |
114 |
PP81_RI_NUMBER |
& - (vVel(I,J,K ,bi,bj)+vVel(I,J+1,K ,bi,bj)) ) |
|
./pkg/pp81/pp81_ri_number.F |
115 |
PP81_RI_NUMBER |
& *recip_drC(K) |
|
./pkg/pp81/pp81_ri_number.F |
11 |
PP81_RI_NUMBER |
I bi, bj, K, iMin, iMax, jMin, jMax, |
|
./pkg/pp81/pp81_ri_number.F |
122 |
PP81_RI_NUMBER |
& (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K) |
|
./pkg/pp81/pp81_ri_number.F |
79 |
PP81_RI_NUMBER |
Km1 = MAX(1,K-1) |
|
./pkg/pp81/pp81_ri_number.F |
96 |
PP81_RI_NUMBER |
I bi, bj, iMin, iMax, jMin, jMax, Km1, K, |
|
./pkg/gmredi/gmredi_slope_psi.F |
11 |
GMREDI_SLOPE_PSI |
I LrhoW, LrhoS, depthZ, K, |
|
./pkg/gmredi/gmredi_slope_psi.F |
51 |
GMREDI_SLOPE_PSI |
INTEGER K,bi,bj,myThid |
|
./pkg/gmredi/gmredi_rtransport.F |
7 |
GMREDI_RTRANSPORT |
I iMin,iMax,jMin,jMax,bi,bj,K, |
|
./pkg/gmredi/gmredi_rtransport.F |
80 |
GMREDI_RTRANSPORT |
IF (useGMRedi .AND. K.GT.1) THEN |
|
./pkg/gmredi/gmredi_xtransport.F |
7 |
GMREDI_XTRANSPORT |
I iMin,iMax,jMin,jMax,bi,bj,K, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
269 |
GMREDI_CALC_TENSOR |
IF (K.eq.2) VisbeckK(i,j,bi,bj)=0. |
|
./pkg/gmredi/gmredi_slope_limit.F |
12 |
GMREDI_SLOPE_LIMIT |
I Lrho, depthZ, K, |
|
./pkg/gmredi/gmredi_slope_limit.F |
54 |
GMREDI_SLOPE_LIMIT |
INTEGER bi,bj,K,myThid |
|
./pkg/gmredi/gmredi_ytransport.F |
7 |
GMREDI_YTRANSPORT |
I iMin,iMax,jMin,jMax,bi,bj,K, |
|
./pkg/gmredi/gmredi_output.F |
46 |
GMREDI_OUTPUT |
INTEGER bi, bj, K |
|
./pkg/diagnostics/diagnostics_fill_state.F |
101 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,K,bi,bj)+uVel(i+1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
103 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,K,bi,bj)+vVel(i,j+1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
104 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = |
|
./pkg/diagnostics/diagnostics_fill_state.F |
120 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
123 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
124 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j-1,K,bi,bj)+uVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
125 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i-1,j,K,bi,bj)+vVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
137 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
141 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
142 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,km1,bi,bj)+uVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
143 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i-1,j,K,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
144 |
DIAGNOSTICS_FILL_STATE |
& +wVel( i ,j,K,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
157 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
161 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
162 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,km1,bi,bj)+vVel(i,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
163 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i,j-1,K,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
164 |
DIAGNOSTICS_FILL_STATE |
& +wVel(i, j ,K,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
179 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
182 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
183 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i-1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
195 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
198 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
199 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i,j-1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
211 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
215 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
216 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
228 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
231 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
232 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i-1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
244 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
247 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
248 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j-1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
260 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
264 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
265 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
277 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
280 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
281 |
DIAGNOSTICS_FILL_STATE |
& *(totPhiHyd(i,j,K,bi,bj)+totPhiHyd(i-1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
293 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
296 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
297 |
DIAGNOSTICS_FILL_STATE |
& *(totPhiHyd(i,j,K,bi,bj)+totPhiHyd(i,j-1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
336 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
339 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = -uVel(i,j,K,bi,bj)* |
|
./pkg/diagnostics/diagnostics_fill_state.F |
352 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
355 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = -vVel(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
368 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
371 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = -theta(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
384 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
387 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = -salt(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
415 |
DIAGNOSTICS_FILL_STATE |
do K = 1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
419 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = hfacC(i,j,K,bi,bj) * |
|
./pkg/diagnostics/diagnostics_fill_state.F |
466 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
469 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj)-35. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
485 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
488 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
489 |
DIAGNOSTICS_FILL_STATE |
& = uVel(i,j,K,bi,bj)*hFacW(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
501 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
504 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
505 |
DIAGNOSTICS_FILL_STATE |
& = vVel(i,j,K,bi,bj)*hFacS(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
50 |
DIAGNOSTICS_FILL_STATE |
INTEGER i,j,K,bi,bj |
|
./pkg/diagnostics/diagnostics_fill_state.F |
519 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
522 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
523 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i-1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
524 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
536 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
539 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
540 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i,j-1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
541 |
DIAGNOSTICS_FILL_STATE |
& * hFacS(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
553 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
557 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
558 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,K,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
570 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
573 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
574 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i-1,j,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
575 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
587 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
590 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
591 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j-1,K,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
592 |
DIAGNOSTICS_FILL_STATE |
& * hFacS(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
604 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
608 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
609 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,K,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
629 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
632 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
645 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
648 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
661 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
664 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = theta(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
677 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
680 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
97 |
DIAGNOSTICS_FILL_STATE |
DO K=1,Nr |
|
./pkg/aim_v23/aim_diagnostics.F |
323 |
AIM_DIAGNOSTICS |
DO K=1,Nr |
|
./pkg/aim_v23/aim_diagnostics.F |
43 |
AIM_DIAGNOSTICS |
INTEGER I,J,K, I2,Katm |
|
./pkg/aim_v23/phy_lscond.F |
101 |
LSCOND |
DQLSC(J,K) = DQLSC(J,K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_lscond.F |
102 |
LSCOND |
DTLSC(J,K) = DTLSC(J,K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_lscond.F |
109 |
LSCOND |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_lscond.F |
110 |
LSCOND |
PFACT = DSIG(K)*PRG |
|
./pkg/aim_v23/phy_lscond.F |
111 |
LSCOND |
PRECLS(J) = PRECLS(J)-PFACT*DQLSC(J,K) |
|
./pkg/aim_v23/phy_lscond.F |
53 |
LSCOND |
INTEGER J, K |
|
./pkg/aim_v23/phy_lscond.F |
80 |
LSCOND |
DO K=2,NLEV |
|
./pkg/aim_v23/phy_lscond.F |
81 |
LSCOND |
SIG2=SIG(K)*SIG(K) |
|
./pkg/aim_v23/phy_lscond.F |
87 |
LSCOND |
DQLSC(J,K) = MIN(0. _d 0,(RHREF*QSAT(J,K)-QA(J,K)))*RTLSC |
|
./pkg/aim_v23/phy_lscond.F |
92 |
LSCOND |
DQLSC(J,K) = MAX(-DQMAX, DQLSC(J,K) ) |
|
./pkg/aim_v23/phy_lscond.F |
93 |
LSCOND |
DTLSC(J,K) = -TFACT*DQLSC(J,K) |
|
./pkg/aim_v23/phy_lscond.F |
99 |
LSCOND |
DO K=2,NLEV |
|
./pkg/aim_v23/phy_radiat.F |
178 |
RADSW |
INTEGER K, J |
|
./pkg/aim_v23/phy_radiat.F |
211 |
RADSW |
DO K=1,NLEV |
|
./pkg/aim_v23/phy_radiat.F |
213 |
RADSW |
ALBTOP(J,K)=0. |
|
./pkg/aim_v23/phy_radiat.F |
223 |
RADSW |
DO K=NL1(J),2,-1 |
|
./pkg/aim_v23/phy_radiat.F |
224 |
RADSW |
QACL3=MIN(QACL2,QACL1+DQACL*(SIG(K)-SIG(2))) |
|
./pkg/aim_v23/phy_radiat.F |
225 |
RADSW |
IF (RH(J,K).GT.RHCL1.AND.QA(J,K).GT.QACL1) THEN |
|
./pkg/aim_v23/phy_radiat.F |
226 |
RADSW |
CLOUDC(J)=MAX(CLOUDC(J),RH(J,K)-RHCL1) |
|
./pkg/aim_v23/phy_radiat.F |
227 |
RADSW |
IF (QA(J,K).GT.QACL3) ICLTOP(J)=K |
|
./pkg/aim_v23/phy_radiat.F |
264 |
RADSW |
DO K=2,NL1(J) |
|
./pkg/aim_v23/phy_radiat.F |
267 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
|
./pkg/aim_v23/phy_radiat.F |
268 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
269 |
RADSW |
IF (K.EQ.ICLTOP(J)) THEN |
|
./pkg/aim_v23/phy_radiat.F |
270 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
271 |
RADSW |
& (ABS1+ABSWV1*QA(J,K)+2.*ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
272 |
RADSW |
ELSE IF (K.GT.ICLTOP(J)) THEN |
|
./pkg/aim_v23/phy_radiat.F |
273 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
274 |
RADSW |
& (ABS1+ABSWV1*QA(J,K)+ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
276 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
283 |
RADSW |
K = kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
284 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
|
./pkg/aim_v23/phy_radiat.F |
286 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
287 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
291 |
RADSW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
292 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
293 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*ABSWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
323 |
RADSW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
324 |
RADSW |
FREFL(J,K)=FLUX(J,1)*ALBTOP(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
325 |
RADSW |
FLUX (J,1)=FLUX(J,1)-FREFL(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
326 |
RADSW |
DFABS(J,K)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
327 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
328 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
333 |
RADSW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
334 |
RADSW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
335 |
RADSW |
FLUX (J,2)=TAU2(J,K,2)*FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
336 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
359 |
RADSW |
DO K=kGrd(J),1,-1 |
|
./pkg/aim_v23/phy_radiat.F |
360 |
RADSW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
361 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
362 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
363 |
RADSW |
FLUX (J,1)=FLUX(J,1)+FREFL(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
392 |
RADSW |
DO K=2,NLEV |
|
./pkg/aim_v23/phy_radiat.F |
395 |
RADSW |
DELTAP=DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
396 |
RADSW |
IF ( K.GE.ICLTOP(J).AND.K.NE.kGrd(J) ) THEN |
|
./pkg/aim_v23/phy_radiat.F |
397 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
399 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
401 |
RADSW |
TAU2(J,K,2)= |