| File |
Line number |
Procedure |
Code |
|
./model/src/calc_phi_hyd.F |
174 |
CALC_PHI_HYD |
IF ( k.LT.kSurfC(i,j,bi,bj) ) alphaRho(i,j) = 0. _d 0 |
|
./model/src/calc_phi_hyd.F |
307 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
346 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
429 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
473 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_r_star.F |
229 |
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 |
230 |
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 |
231 |
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 |
232 |
CALC_R_STAR |
IF (kSurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
85 |
CALC_R_STAR |
IF (kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./pkg/opps/opps_interface.F |
105 |
OPPS_INTERFACE |
IF ( kSurfC(I,J,bi,bj) .LE. Nr ) THEN |
|
./pkg/ptracers/ptracers_dwnslp_apply.F |
56 |
PTRACERS_DWNSLP_APPLY |
I GAD_TR1+iTr-1, bi, bj, kSurfC, |
|
./model/src/do_oceanic_phys.F |
767 |
DO_OCEANIC_PHYS |
I bi, bj, kSurfC, rhoInSitu, |
|
./model/src/ini_masks_etc.F |
175 |
INI_MASKS_ETC |
kSurfC(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
182 |
INI_MASKS_ETC |
kSurfC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
194 |
INI_MASKS_ETC |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) maskInC(i,j,bi,bj)= 1. |
|
./model/src/thermodynamics.F |
717 |
THERMODYNAMICS |
I GAD_TEMPERATURE, bi, bj, kSurfC, |
|
./model/src/thermodynamics.F |
736 |
THERMODYNAMICS |
I GAD_SALINITY, bi, bj, kSurfC, |
|
./pkg/down_slope/dwnslp_calc_rho.F |
71 |
DWNSLP_CALC_RHO |
kl = MIN( MAX(k,kSurfC(i,j,bi,bj)), MAX(kLowC(i,j,bi,bj),1) ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
109 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
118 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
218 |
DWNSLP_INIT_FIXED |
kdeep = kSurfC(ideep, jdeep, bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
219 |
DWNSLP_INIT_FIXED |
kshelf = kSurfC(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
315 |
DWNSLP_INIT_FIXED |
kshelf = kSurfC(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
316 |
DWNSLP_INIT_FIXED |
dkMx = kshelf - kSurfC(ideep,jdeep,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
81 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
90 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i-1,j,bi,bj) ) THEN |
|
./model/inc/GRID.h |
498 |
NO PROCEDURE |
& kSurfC, kSurfW, kSurfS, |
|
./model/inc/GRID.h |
500 |
NO PROCEDURE |
INTEGER kSurfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |