| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
1750 |
KPP_DOUBLEDIFF |
INTEGER Km1 |
|
./pkg/kpp/kpp_routines.F |
1766 |
KPP_DOUBLEDIFF |
Km1 = MAX(K-1,1) |
|
./pkg/kpp/kpp_routines.F |
1769 |
KPP_DOUBLEDIFF |
alphaDT(I,J) = ( theta(I,J,Km1,bi,bj)-theta(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1770 |
KPP_DOUBLEDIFF |
& * 0.5 _d 0 * ABS( TTALPHA(I,J,Km1) + TTALPHA(I,J,K) ) |
|
./pkg/kpp/kpp_routines.F |
1771 |
KPP_DOUBLEDIFF |
betaDS(I,J) = ( salt(I,J,Km1,bi,bj)-salt(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1772 |
KPP_DOUBLEDIFF |
& * 0.5 _d 0 * ( SSBETA(I,J,Km1) + SSBETA(I,J,K) ) |
|
./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 |
104 |
MY82_RI_NUMBER |
tempu= .5 _d 0*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/my82/my82_ri_number.F |
107 |
MY82_RI_NUMBER |
tempv= .5 _d 0*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/my82/my82_ri_number.F |
60 |
MY82_RI_NUMBER |
INTEGER I,J,Km1 |
|
./pkg/my82/my82_ri_number.F |
73 |
MY82_RI_NUMBER |
Km1 = MAX(1,K-1) |
|
./pkg/my82/my82_ri_number.F |
91 |
MY82_RI_NUMBER |
I theta(1-OLx,1-OLy,Km1,bi,bj), salt(1-OLx,1-OLy,Km1,bi,bj), |
|
./pkg/my82/my82_ri_number.F |
93 |
MY82_RI_NUMBER |
I Km1, bi, bj, myThid ) |
|
./pkg/pp81/pp81_ri_number.F |
108 |
PP81_RI_NUMBER |
tempu= .5*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
111 |
PP81_RI_NUMBER |
tempv= .5*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
62 |
PP81_RI_NUMBER |
INTEGER I,J,Km1 |
|
./pkg/pp81/pp81_ri_number.F |
77 |
PP81_RI_NUMBER |
Km1 = MAX(1,K-1) |
|
./pkg/pp81/pp81_ri_number.F |
95 |
PP81_RI_NUMBER |
I theta(1-OLx,1-OLy,Km1,bi,bj), salt(1-OLx,1-OLy,Km1,bi,bj), |
|
./pkg/pp81/pp81_ri_number.F |
97 |
PP81_RI_NUMBER |
I Km1, bi, bj, myThid ) |
|
./pkg/shelfice/shelfice_forcing.F |
147 |
SHELFICE_FORCING_S |
INTEGER Kp1, Km1 |
|
./pkg/shelfice/shelfice_forcing.F |
55 |
SHELFICE_FORCING_T |
INTEGER Kp1, Km1 |