| 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 |
267 |
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 |
268 |
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 |
269 |
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 |
270 |
CALC_R_STAR |
IF (kSurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
94 |
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 |
757 |
DO_OCEANIC_PHYS |
I bi, bj, kSurfC, rhoInSitu, |
|
./model/src/external_forcing_surf.F |
152 |
EXTERNAL_FORCING_SURF |
IF (ks.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/freesurf_rescale_g.F |
67 |
FREESURF_RESCALE_G |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/ini_masks_etc.F |
178 |
INI_MASKS_ETC |
kSurfC(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
185 |
INI_MASKS_ETC |
kSurfC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
197 |
INI_MASKS_ETC |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) maskInC(i,j,bi,bj)= 1. |
|
./model/src/ini_nlfs_vars.F |
104 |
INI_NLFS_VARS |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
272 |
INI_P_GROUND |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
86 |
INI_SIGMA_HFAC |
kSurfC (i,j,bi,bj) = 1 |
|
./model/src/ini_sigma_hfac.F |
91 |
INI_SIGMA_HFAC |
kSurfC (i,j,bi,bj) = Nr+1 |
|
./model/src/thermodynamics.F |
743 |
THERMODYNAMICS |
I GAD_TEMPERATURE, bi, bj, kSurfC, |
|
./model/src/thermodynamics.F |
762 |
THERMODYNAMICS |
I GAD_SALINITY, bi, bj, kSurfC, |
|
./model/src/update_sigma.F |
103 |
UPDATE_SIGMA |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./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 |
517 |
NO PROCEDURE |
& kSurfC, kSurfW, kSurfS, |
|
./model/inc/GRID.h |
519 |
NO PROCEDURE |
INTEGER kSurfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |