| File |
Line number |
Procedure |
Code |
|
./pkg/pp81/pp81_ri_number.F |
110 |
PP81_RI_NUMBER |
tempu= .5*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
113 |
PP81_RI_NUMBER |
tempv= .5*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
64 |
PP81_RI_NUMBER |
INTEGER I,J,Km1 |
|
./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, |
|
./model/src/ini_masks_etc.F |
377 |
INI_MASKS_ETC |
Km1=max(K-1,1) |
|
./model/src/ini_masks_etc.F |
378 |
INI_MASKS_ETC |
hFacUpper=drF(Km1)/(drF(Km1)+drF(K)) |
|
./model/src/ini_masks_etc.F |
379 |
INI_MASKS_ETC |
IF (Km1.EQ.K) hFacUpper=0. |
|
./model/src/ini_masks_etc.F |
380 |
INI_MASKS_ETC |
hFacLower=drF(K)/(drF(Km1)+drF(K)) |
|
./model/src/ini_masks_etc.F |
53 |
INI_MASKS_ETC |
INTEGER Km1 |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
362 |
INI_MASKS_ETC |
Km1=max(K-1,1) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
363 |
INI_MASKS_ETC |
hFacUpper=drF(Km1)/(drF(Km1)+drF(K)) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
364 |
INI_MASKS_ETC |
IF (Km1.EQ.K) hFacUpper=0. |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
365 |
INI_MASKS_ETC |
hFacLower=drF(K)/(drF(Km1)+drF(K)) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
54 |
INI_MASKS_ETC |
INTEGER Km1 |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
353 |
INI_MASKS_ETC |
Km1=max(K-1,1) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
354 |
INI_MASKS_ETC |
hFacUpper=drF(Km1)/(drF(Km1)+drF(K)) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
355 |
INI_MASKS_ETC |
IF (Km1.EQ.K) hFacUpper=0. |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
356 |
INI_MASKS_ETC |
hFacLower=drF(K)/(drF(Km1)+drF(K)) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
50 |
INI_MASKS_ETC |
INTEGER Km1 |
|
./model/src/update_masks_etc.F |
375 |
UPDATE_MASKS_ETC |
Km1=max(K-1,1) |
|
./model/src/update_masks_etc.F |
377 |
UPDATE_MASKS_ETC |
IF (Km1.EQ.K) THEN |
|
./model/src/update_masks_etc.F |
380 |
UPDATE_MASKS_ETC |
hFacUpper=drF(Km1)/(drF(Km1)+drF(K)) |
|
./model/src/update_masks_etc.F |
382 |
UPDATE_MASKS_ETC |
hFacLower=drF(K)/(drF(Km1)+drF(K)) |
|
./model/src/update_masks_etc.F |
57 |
UPDATE_MASKS_ETC |
INTEGER Km1 |
|
./model/src/cg3d.F |
148 |
CG3D |
Km1 = MAX(K-1, 1 ) |
|
./model/src/cg3d.F |
162 |
CG3D |
& +aV3d(I ,J ,K ,bi,bj)*cg3d_x(I ,J ,Km1,bi,bj)*maskM1 |
|
./model/src/cg3d.F |
89 |
CG3D |
INTEGER Km1, Kp1 |
|
./pkg/ggl90/ggl90_init.F |
25 |
GGL90_INIT |
INTEGER I, J, K, Km1 |
|
./pkg/ggl90/ggl90_init.F |
39 |
GGL90_INIT |
Km1 = MAX(K-1,1) |
|
./pkg/ggl90/ggl90_init.F |
47 |
GGL90_INIT |
recip_hFacI(I,J,K,bi,bj) = .5*hFacC(I,J,Km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
148 |
GGL90_CALC |
Km1 = K-1 |
|
./pkg/ggl90/ggl90_calc.F |
151 |
GGL90_CALC |
I bi, bj, iMin, iMax, jMin, jMax, Km1, K, |
|
./pkg/ggl90/ggl90_calc.F |
169 |
GGL90_CALC |
tempu= .5*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
172 |
GGL90_CALC |
tempv= .5*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
77 |
GGL90_CALC |
INTEGER I, J, K, Kp1, Km1, kSurf, kBottom |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
31 |
MOM_VI_U_VERTSHEAR |
INTEGER I,J,Kp1,Km1 |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
52 |
MOM_VI_U_VERTSHEAR |
Km1=max(K-1,1) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
69 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
70 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*rA(i-1,j,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
83 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
84 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
96 |
MOM_VI_U_VERTSHEAR |
uZm=(uFld(I,J,K,bi,bj)-mask_Km1*uFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
31 |
MOM_VI_V_VERTSHEAR |
INTEGER I,J,Kp1,Km1 |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
52 |
MOM_VI_V_VERTSHEAR |
Km1=max(K-1,1) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
69 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
70 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*rA(i,j-1,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
83 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
84 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
96 |
MOM_VI_V_VERTSHEAR |
vZm=(vFld(I,J,K,bi,bj)-mask_Km1*vFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/my82/my82_ri_number.F |
110 |
MY82_RI_NUMBER |
tempu= .5*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/my82/my82_ri_number.F |
113 |
MY82_RI_NUMBER |
tempv= .5*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/my82/my82_ri_number.F |
66 |
MY82_RI_NUMBER |
INTEGER I,J,Km1 |
|
./pkg/my82/my82_ri_number.F |
79 |
MY82_RI_NUMBER |
Km1 = MAX(1,K-1) |
|
./pkg/my82/my82_ri_number.F |
96 |
MY82_RI_NUMBER |
I bi, bj, iMin, iMax, jMin, jMax, Km1, K, |