| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
519 |
NO PROCEDURE |
& kSurfC, kSurfW, kSurfS, |
|
./model/inc/GRID.h |
521 |
NO PROCEDURE |
INTEGER kSurfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/fizhi/fizhi_init_vars.F |
109 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
116 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
163 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
174 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
183 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,2,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
192 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
186 |
FIZHI_WRAPPER |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
193 |
FIZHI_WRAPPER |
Lbotij = kSurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
295 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
304 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
313 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
322 |
FIZHI_WRAPPER |
& nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gsphy) |
|
./pkg/frazil/frazil_calc_rhs.F |
92 |
FRAZIL_CALC_RHS |
kTop = kSurfC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
401 |
GAD_IMPLICIT_R |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
258 |
GAD_SOM_ADV_R |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./model/src/apply_forcing.F |
638 |
APPLY_FORCING_T |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
650 |
APPLY_FORCING_T |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/apply_forcing.F |
919 |
APPLY_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
931 |
APPLY_FORCING_S |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_3d_diffusivity.F |
252 |
CALC_3D_DIFFUSIVITY |
IF ( k.GT.kSurfC(i,j,bi,bj) .AND. |
|
./model/src/calc_3d_diffusivity.F |
279 |
CALC_3D_DIFFUSIVITY |
& k.GT.kSurfC(i,j,bi,bj) ) THEN |
|
./model/src/calc_3d_diffusivity.F |
325 |
CALC_3D_DIFFUSIVITY |
IF ( km.EQ.kSurfC(i,j,bi,bj) .AND. |
|
./pkg/longstep/longstep_thermodynamics.F |
170 |
LONGSTEP_THERMODYNAMICS |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./model/src/calc_phi_hyd.F |
188 |
CALC_PHI_HYD |
IF ( k.LT.kSurfC(i,j,bi,bj) ) alphaRho(i,j) = 0. _d 0 |
|
./model/src/calc_phi_hyd.F |
242 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
288 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
373 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
412 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
551 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
595 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_r_star.F |
105 |
CALC_R_STAR |
IF (kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/calc_r_star.F |
281 |
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 |
282 |
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 |
283 |
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 |
284 |
CALC_R_STAR |
IF (kSurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1. |
|
./model/src/calc_surf_dr.F |
84 |
CALC_SURF_DR |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d.F |
192 |
CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d.F |
374 |
CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
185 |
CG3D_EX0 |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/cg3d_ex0.F |
358 |
CG3D_EX0 |
ks = kSurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
297 |
MON_KE |
ks = kSurfC(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
108 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Jn(i,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
79 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Iw(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
88 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Ie(j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
99 |
OBCS_INIT_FIXED |
& kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Js(i,bi,bj) |
|
./pkg/opps/opps_interface.F |
105 |
OPPS_INTERFACE |
IF ( kSurfC(I,J,bi,bj) .LE. Nr ) THEN |
|
./model/src/do_oceanic_phys.F |
1113 |
DO_OCEANIC_PHYS |
I bi, bj, kSurfC, rhoInSitu, |
|
./pkg/ptracers/ptracers_apply_forcing.F |
108 |
PTRACERS_APPLY_FORCING |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./pkg/ptracers/ptracers_apply_forcing.F |
96 |
PTRACERS_APPLY_FORCING |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./pkg/ptracers/ptracers_integrate.F |
395 |
PTRACERS_INTEGRATE |
I GAD_TR, bi, bj, kSurfC, |
|
./model/src/external_forcing.F |
510 |
EXTERNAL_FORCING_T |
IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
522 |
EXTERNAL_FORCING_T |
IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing.F |
748 |
EXTERNAL_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
760 |
EXTERNAL_FORCING_S |
IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/forcing_surf_relax.F |
150 |
FORCING_SURF_RELAX |
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_cg3d.F |
227 |
INI_CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
74 |
SHELFICE_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LE.Nr .AND. |
|
./pkg/shelfice/shelfice_init_fixed.F |
76 |
SHELFICE_INIT_FIXED |
kTopC(i,j,bi,bj) = kSurfC(i,j,bi,bj) |
|
./model/src/ini_global_domain.F |
144 |
INI_GLOBAL_DOMAIN |
IF ( southWestCorner .AND. kSurfC( 1 , 1 ,bi,bj).LE.Nr ) |
|
./model/src/ini_global_domain.F |
146 |
INI_GLOBAL_DOMAIN |
IF ( southEastCorner .AND. kSurfC(sNx, 1 ,bi,bj).LE.Nr ) |
|
./model/src/ini_global_domain.F |
148 |
INI_GLOBAL_DOMAIN |
IF ( northWestCorner .AND. kSurfC( 1 ,sNy,bi,bj).LE.Nr ) |
|
./model/src/ini_global_domain.F |
150 |
INI_GLOBAL_DOMAIN |
IF ( northEastCorner .AND. kSurfC(sNx,sNy,bi,bj).LE.Nr ) |
|
./model/src/ini_linear_phisurf.F |
115 |
INI_LINEAR_PHISURF |
& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
119 |
INI_LINEAR_PHISURF |
I tRef(kSurfC(i,j,bi,bj)), |
|
./model/src/ini_linear_phisurf.F |
120 |
INI_LINEAR_PHISURF |
I sRef(kSurfC(i,j,bi,bj)), |
|
./model/src/ini_linear_phisurf.F |
124 |
INI_LINEAR_PHISURF |
k = kSurfC(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
154 |
INI_LINEAR_PHISURF |
& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
170 |
INI_LINEAR_PHISURF |
& .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
173 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = dPIdp*tRef(kSurfC(i,j,bi,bj)) |
|
./model/src/ini_masks_etc.F |
183 |
INI_MASKS_ETC |
kSurfC(i,j,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
199 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) kSurfC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
207 |
INI_MASKS_ETC |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) maskInC(i,j,bi,bj) = 1. |
|
./model/src/ini_nh_fields.F |
89 |
INI_NH_FIELDS |
ks = kSurfC(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
75 |
THSICE_GET_OCEAN |
IF ( kSurfC(i,j,bi,bj).EQ.1 ) THEN |
|
./model/src/ini_nlfs_vars.F |
140 |
INI_NLFS_VARS |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
273 |
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/integr_continuity.F |
161 |
INTEGR_CONTINUITY |
ks = kSurfC(I,J,bi,bj) |
|
./model/src/integr_continuity.F |
177 |
INTEGR_CONTINUITY |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
241 |
INTEGR_CONTINUITY |
ks = kSurfC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
143 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
154 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
163 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
173 |
FIZHI_INIT_VARS |
& 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
89 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
96 |
FIZHI_INIT_VARS |
Lbotij = kSurfC(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
91 |
POST_CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
142 |
PRE_CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
157 |
PRE_CG3D |
ks = kSurfC(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
641 |
APPLY_FORCING_T |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
653 |
APPLY_FORCING_T |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
976 |
APPLY_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
988 |
APPLY_FORCING_S |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/salt_integrate.F |
450 |
SALT_INTEGRATE |
I GAD_SALINITY, bi, bj, kSurfC, |
|
./model/src/solve_for_pressure.F |
193 |
SOLVE_FOR_PRESSURE |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
215 |
SOLVE_FOR_PRESSURE |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
225 |
SOLVE_FOR_PRESSURE |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/temp_integrate.F |
458 |
TEMP_INTEGRATE |
I GAD_TEMPERATURE, bi, bj, kSurfC, |
|
./model/src/thermodynamics.F |
231 |
THERMODYNAMICS |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./model/src/update_cg2d.F |
137 |
UPDATE_CG2D |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/update_sigma.F |
106 |
UPDATE_SIGMA |
IF ( kSurfC(i,j,bi,bj).LE.Nr ) THEN |
|
./model/src/update_surf_dr.F |
57 |
UPDATE_SURF_DR |
ks = kSurfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
93 |
UPDATE_SURF_DR |
ks = kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
163 |
AIM_AIM2DYN |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_do_physics.F |
98 |
AIM_DO_PHYSICS |
k = kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
126 |
AIM_DYN2AIM |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
202 |
AIM_DYN2AIM |
k = kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
88 |
AIM_DYN2AIM |
kGrd(I2) = (Nr+1) - kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
96 |
AIM_DYN2AIM |
k = kSurfC(i,j,bi,bj) |
|
./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 |
110 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
119 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i,j-1,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
219 |
DWNSLP_INIT_FIXED |
kdeep = kSurfC(ideep, jdeep, bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
220 |
DWNSLP_INIT_FIXED |
kshelf = kSurfC(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
316 |
DWNSLP_INIT_FIXED |
kshelf = kSurfC(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
317 |
DWNSLP_INIT_FIXED |
dkMx = kshelf - kSurfC(ideep,jdeep,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
82 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i-1,j,bi,bj) ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
91 |
DWNSLP_INIT_FIXED |
IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i-1,j,bi,bj) ) THEN |