| File |
Line number |
Procedure |
Code |
|
./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 |
294 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
303 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
312 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
321 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gsphy) |
|
./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/generic_advdiff/gad_som_adv_r.F |
228 |
GAD_SOM_ADV_R |
IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN |
|
./pkg/gridalt/gridalt_initialise.F |
48 |
GRIDALT_INITIALISE |
. 1,sNx,1,sNy,bi,bj,Nrphys,ksurfC,dpphys0,nlph,nlperdyn) |
|
./pkg/monitor/mon_surfcor.F |
104 |
MON_SURFCOR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
83 |
MON_SURFCOR |
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) |
|
./model/src/calc_wsurf_tr.F |
70 |
CALC_WSURF_TR |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/cg3d.F |
192 |
CG3D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/cg3d.F |
382 |
CG3D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/external_forcing.F |
333 |
EXTERNAL_FORCING_T |
IF (kLev .EQ. ksurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing.F |
517 |
EXTERNAL_FORCING_S |
IF (kLev .EQ. ksurfC(i,j,bi,bj)) THEN |
|
./pkg/thsice/thsice_main.F |
130 |
THSICE_MAIN |
IF ( ksurfC(i,j,bi,bj).EQ.1 ) THEN |
|
./model/src/ini_cg2d.F |
216 |
INI_CG2D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
250 |
INI_CG3D |
ks = ksurfC(i,j,bi,bj) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
111 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
114 |
INI_LINEAR_PHISURF |
I tRef(ksurfC(I,J,bi,bj)), |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
115 |
INI_LINEAR_PHISURF |
I sRef(ksurfC(I,J,bi,bj)), |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
140 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
143 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = dPIdp*tRef(ksurfC(I,J,bi,bj)) |
|
./model/src/ini_linear_phisurf.F |
173 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
174 |
INI_LINEAR_PHISURF |
k = ksurfC(I,J,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
201 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
204 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = dPIdp*tRef(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/ini_nh_fields.F |
84 |
INI_NH_FIELDS |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
148 |
INTEGR_CONTINUITY |
ks = ksurfC(I,J,bi,bj) |
|
./model/src/integr_continuity.F |
164 |
INTEGR_CONTINUITY |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
212 |
INTEGR_CONTINUITY |
ks = ksurfC(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
135 |
EXTERNAL_FORCING_SURF |
IF (ks.EQ.ksurfC(i,j,bi,bj)) THEN |
|
./model/src/post_cg3d.F |
73 |
POST_CG3D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
113 |
PRE_CG3D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
128 |
PRE_CG3D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
153 |
PRE_CG3D |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
190 |
SOLVE_FOR_PRESSURE |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
212 |
SOLVE_FOR_PRESSURE |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
222 |
SOLVE_FOR_PRESSURE |
ks = ksurfC(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
125 |
UPDATE_CG2D |
ks = ksurfC(I,J,bi,bj) |
|
./model/src/update_surf_dr.F |
89 |
UPDATE_SURF_DR |
ks = ksurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
142 |
AIM_AIM2DYN |
IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_do_physics.F |
92 |
AIM_DO_PHYSICS |
k = ksurfC(i,j,bi,bj) |
|
./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) |