| File |
Line number |
Procedure |
Code |
|
./model/inc/SURFACE.h |
36 |
NO PROCEDURE |
COMMON /SURF_INDEX/ ksurfC, ksurfW, ksurfS |
|
./model/inc/SURFACE.h |
37 |
NO PROCEDURE |
INTEGER ksurfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/aim_v23/aim_dyn2aim.F |
123 |
AIM_DYN2AIM |
IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
189 |
AIM_DYN2AIM |
K = ksurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
85 |
AIM_DYN2AIM |
kGrd(I2) = (Nr+1) - ksurfC(I,J,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
93 |
AIM_DYN2AIM |
K = ksurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
71 |
AIM_DO_PHYSICS |
k = ksurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
130 |
AIM_AIM2DYN |
IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN |
|
./model/src/ini_cg3d.F |
234 |
INI_CG3D |
ks = ksurfC(I,J,bi,bj) |
|
./model/src/ini_surf_dr.F |
65 |
INI_SURF_DR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
143 |
FIZHI_INIT_VARS |
. 1,sNx,1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
154 |
FIZHI_INIT_VARS |
. 1,sNx,1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
163 |
FIZHI_INIT_VARS |
. 1,sNx,1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,2,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
173 |
FIZHI_INIT_VARS |
. 1,sNx,1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
89 |
FIZHI_INIT_VARS |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
96 |
FIZHI_INIT_VARS |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
147 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,udyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
156 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,vdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
165 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,thdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
174 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,sdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
217 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
227 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
236 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
245 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
373 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
384 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
437 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
483 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
88 |
STEP_FIZHI_CORR |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
95 |
STEP_FIZHI_CORR |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
187 |
FIZHI_WRAPPER |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
194 |
FIZHI_WRAPPER |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
296 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
305 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
314 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
323 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gsphy) |
|
./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/ini_masks_etc.F |
164 |
INI_MASKS_ETC |
ksurfC(I,J,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
171 |
INI_MASKS_ETC |
ksurfC(I,J,bi,bj) = k |
|
./model/src/ini_linear_phisurf.F |
108 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
109 |
INI_LINEAR_PHISURF |
k = ksurfC(I,J,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
137 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
140 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = dPIdp*tRef(ksurfC(I,J,bi,bj)) |
|
./model/src/freesurf_rescale_g.F |
55 |
FREESURF_RESCALE_G |
IF (k.EQ.ksurfC(i,j,bi,bj)) THEN |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
138 |
INI_MASKS_ETC |
ksurfC(I,J,bi,bj) = Nr+1 |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
145 |
INI_MASKS_ETC |
ksurfC(I,J,bi,bj) = k |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
133 |
INI_MASKS_ETC |
ksurfC(I,J,bi,bj) = Nr+1 |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
140 |
INI_MASKS_ETC |
ksurfC(I,J,bi,bj) = k |
|
./model/src/update_surf_dr.F |
54 |
UPDATE_SURF_DR |
I bi, bj, ksurfC, ksurfW, ksurfS, |
|
./model/src/update_surf_dr.F |
62 |
UPDATE_SURF_DR |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
281 |
CALC_PHI_HYD |
IF (k.EQ.ksurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
320 |
CALC_PHI_HYD |
IF (k.EQ.ksurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
403 |
CALC_PHI_HYD |
IF (k.EQ.ksurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
447 |
CALC_PHI_HYD |
IF (k.EQ.ksurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing_surf.F |
120 |
EXTERNAL_FORCING_SURF |
IF (ks.EQ.ksurfC(i,j,bi,bj)) THEN |
|
./model/src/update_r_star.F |
53 |
UPDATE_R_STAR |
I bi, bj, ksurfC, ksurfW, ksurfS, |
|
./model/src/solve_for_pressure.F |
192 |
SOLVE_FOR_PRESSURE |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
206 |
SOLVE_FOR_PRESSURE |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
389 |
SOLVE_FOR_PRESSURE |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
517 |
SOLVE_FOR_PRESSURE |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
231 |
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 |
232 |
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 |
233 |
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 |
234 |
CALC_R_STAR |
IF (ksurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1. |
|
./model/src/ini_p_ground.F |
272 |
INI_P_GROUND |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
142 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i-1,j,bi,bj)) hhm = rSurftmp(i-1,j) |
|
./model/src/calc_surf_dr.F |
144 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j,bi,bj)) hhp = rSurftmp(i,j) |
|
./model/src/calc_surf_dr.F |
158 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j-1,bi,bj)) hhm = rSurftmp(i,j-1) |
|
./model/src/calc_surf_dr.F |
160 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j,bi,bj)) hhp = rSurftmp(i,j) |
|
./model/src/calc_surf_dr.F |
74 |
CALC_SURF_DR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/gridalt/gridalt_initialise.F |
48 |
GRIDALT_INITIALISE |
. 1,sNx,1,sNy,bi,bj,Nrphys,ksurfC,dpphys0,nlph,nlperdyn) |
|
./pkg/monitor/mon_surfcor.F |
102 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
81 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
23 |
OBCS_APPLY_R_STAR |
INTEGER ksurfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_apply_r_star.F |
7 |
OBCS_APPLY_R_STAR |
I bi, bj, ksurfC, ksurfW, ksurfS, |
|
./pkg/obcs/obcs_apply_surf_dr.F |
23 |
OBCS_APPLY_SURF_DR |
INTEGER ksurfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/obcs/obcs_apply_surf_dr.F |
7 |
OBCS_APPLY_SURF_DR |
I bi, bj, ksurfC, ksurfW, ksurfS, |
|
./pkg/thsice/thsice_main.F |
114 |
THSICE_MAIN |
IF ( ksurfC(i,j,bi,bj).EQ.1 ) THEN |