| File |
Line number |
Procedure |
Code |
|
./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/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, |
|
./model/src/calc_phi_hyd.F |
268 |
CALC_PHI_HYD |
IF (k.EQ.ksurfC(i,j,bi,bj)) THEN |
|
./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 |
390 |
CALC_PHI_HYD |
IF (k.EQ.ksurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
434 |
CALC_PHI_HYD |
IF (k.EQ.ksurfC(i,j,bi,bj)) THEN |
|
./pkg/aim/aim_do_atmos_physics.F |
132 |
AIM_DO_PHYSICS |
k = ksurfC(i,j,bi,bj) |
|
./pkg/aim/aim_do_atmos_physics.F |
186 |
AIM_DO_PHYSICS |
K = ksurfC(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
131 |
CALC_SURF_DR |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
199 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i-1,j,bi,bj)) hhm = rSurftmp(i-1,j) |
|
./model/src/calc_surf_dr.F |
201 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j,bi,bj)) hhp = rSurftmp(i,j) |
|
./model/src/calc_surf_dr.F |
215 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j-1,bi,bj)) hhm = rSurftmp(i,j-1) |
|
./model/src/calc_surf_dr.F |
217 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j,bi,bj)) hhp = rSurftmp(i,j) |
|
./model/src/calc_surf_dr.F |
88 |
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/thsice/thsice_main.F |
99 |
THSICE_MAIN |
IF ( ksurfC(i,j,bi,bj).EQ.1 ) THEN |
|
./model/src/ini_linear_phisurf.F |
109 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
110 |
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/update_r_star.F |
53 |
UPDATE_R_STAR |
I bi, bj, ksurfC, ksurfW, ksurfS, |
|
./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 |
|
./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 |
|
./model/src/external_forcing_surf.F |
116 |
EXTERNAL_FORCING_SURF |
IF (ks.EQ.ksurfC(i,j,bi,bj)) THEN |
|
./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/freesurf_rescale_g.F |
53 |
FREESURF_RESCALE_G |
IF (k.EQ.ksurfC(i,j,bi,bj)) THEN |
|
./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 |
75 |
AIM_DO_PHYSICS |
k = ksurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
105 |
AIM_AIM2DYN |
IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN |
|
./pkg/diagnostics/diagnostics_fill_state.F |
308 |
DIAGNOSTICS_FILL_STATE |
if(ksurfC(i,j,bi,bj).ne.0.) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
309 |
DIAGNOSTICS_FILL_STATE |
. tmpMk1(i,j,ksurfC(i,j,bi,bj),bi,bj) = |
|
./pkg/diagnostics/diagnostics_fill_state.F |
315 |
DIAGNOSTICS_FILL_STATE |
do K = ksurfC(i,j,bi,bj)+1,Nr+1 |
|
./pkg/fizhi/step_fizhi_corr.F |
135 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,udyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
144 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,vdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
153 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,thdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
162 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,sdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
205 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
215 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
224 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
233 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
78 |
STEP_FIZHI_CORR |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
85 |
STEP_FIZHI_CORR |
Lbotij = 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,0,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/fizhi_wrapper.F |
170 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
179 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
188 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
197 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gsphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
89 |
FIZHI_WRAPPER |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
96 |
FIZHI_WRAPPER |
Lbotij = ksurfC(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
323 |
INI_P_GROUND |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
131 |
INI_MASKS_ETC |
ksurfC(I,J,bi,bj) = Nr+1 |
|
./model/src/ini_masks_etc.F |
138 |
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) |
|
./pkg/monitor/mon_surfcor.F |
78 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
99 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |