| File |
Line number |
Procedure |
Code |
|
./model/src/calc_phi_hyd.F |
196 |
CALC_PHI_HYD |
dRlocM=half*drC(k) |
|
./model/src/calc_phi_hyd.F |
201 |
CALC_PHI_HYD |
dRlocP=half*drC(k+1) |
|
./model/src/calc_phi_hyd.F |
292 |
CALC_PHI_HYD |
dRlocM=half*drC(k) |
|
./model/src/calc_phi_hyd.F |
297 |
CALC_PHI_HYD |
dRlocP=half*drC(k+1) |
|
./model/src/ini_vertical_grid.F |
104 |
INI_VERTICAL_GRID |
recip_drC(K) = 1. _d 0/drC(K) |
|
./model/src/ini_vertical_grid.F |
57 |
INI_VERTICAL_GRID |
drC(1) = delRc(1) |
|
./model/src/ini_vertical_grid.F |
60 |
INI_VERTICAL_GRID |
drC(K) = delRc(K) |
|
./model/src/ini_vertical_grid.F |
63 |
INI_VERTICAL_GRID |
rC(K) = rC(K-1) + rkSign*drC(K) |
|
./model/src/ini_vertical_grid.F |
91 |
INI_VERTICAL_GRID |
drC(1) = delR(1) * 0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
94 |
INI_VERTICAL_GRID |
drC(K) = 0.5 _d 0 *(delR(K-1)+delR(K)) |
|
./model/src/ini_vertical_grid.F |
95 |
INI_VERTICAL_GRID |
rC(K) = rC(K-1) + rkSign*drC(K) |
|
./model/src/ini_cg3d.F |
104 |
INI_CG3D |
& drC(K) |
|
./model/src/config_summary.F |
480 |
CONFIG_SUMMARY |
CALL WRITE_1D_R8( drC,Nr, INDEX_K,'drC = ', |
|
./model/src/write_grid.F |
181 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'drC',drC,myThid) |
|
./model/inc/GRID.h |
391 |
NO PROCEDURE |
& drC,drF,recip_drC,recip_drF,rC,rF, |
|
./model/inc/GRID.h |
445 |
NO PROCEDURE |
_RS drC (1:Nr) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
135 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drC',drC,myThid) |
|
./pkg/kpp/kpp_calc.F |
437 |
KPP_CALC |
& dbloc(i,j,k) / drC(k+1) .GT. dB_dz ) |
|
./pkg/kpp/kpp_calc.F |
446 |
KPP_CALC |
dBdz2 = dbloc(i,j,1) / drC(2) |
|
./pkg/kpp/kpp_calc.F |
449 |
KPP_CALC |
dBdz1 = dbloc(i,j,k-1) / drC(k ) |
|
./pkg/kpp/kpp_calc.F |
450 |
KPP_CALC |
dBdz2 = dbloc(i,j,k ) / drC(k+1) |
|
./pkg/diagnostics/diagstats_local.F |
109 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'L') drLoc = drC(k) |
|
./pkg/diagnostics/diagstats_local.F |
110 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'U') drLoc = drC(MIN(k+1,Nr)) |
|
./model/src/diags_phi_rlow.F |
91 |
DIAGS_PHI_RLOW |
IF (k.GT.1 ) ratioRm = half*drC(k)/(rF(k)-rC(k)) |
|
./model/src/diags_phi_rlow.F |
92 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = half*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/ini_p_ground.F |
198 |
INI_P_GROUND |
IF (k.GT.1 ) ratioRm(k) = 0.5 _d 0*drC(k)/(rF(k)-rC(k)) |
|
./model/src/ini_p_ground.F |
199 |
INI_P_GROUND |
IF (k.LT.Nr) ratioRp(k) = 0.5 _d 0*drC(k+1)/(rC(k)-rF(k+1)) |
|
./pkg/monitor/monitor.F |
116 |
MONITOR |
& maskC,maskC,rA ,drC,myThid) |