| File |
Line number |
Procedure |
Code |
|
./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 |
114 |
INI_P_GROUND |
ddPI=atm_Cp*( ((rF(K)/atm_Po)**atm_kappa) |
|
./model/src/ini_p_ground.F |
126 |
INI_P_GROUND |
& -((rF(K+1)/atm_Po)**atm_kappa) ) |
|
./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)) |
|
./model/src/ini_p_ground.F |
287 |
INI_P_GROUND |
rMidKp1 = rF(k+1) |
|
./model/src/ini_p_ground.F |
365 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rF(k+1) ) THEN |
|
./model/src/ini_p_ground.F |
89 |
INI_P_GROUND |
rHalf(2*K-1) = rF(K) |
|
./model/src/ini_p_ground.F |
92 |
INI_P_GROUND |
rHalf(2*Nr+1) = rF(Nr+1) |
|
./model/src/ini_masks_etc.F |
106 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(I,J,bi,bj))*recip_drF(K) |
|
./model/src/ini_masks_etc.F |
66 |
INI_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/ini_masks_etc.F |
86 |
INI_MASKS_ETC |
R_low(I,J,bi,bj) = rF(1) |
|
./model/src/calc_diffusivity.F |
60 |
CALC_DIFFUSIVITY |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0) |
|
./model/src/external_forcing.F |
291 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./model/src/external_forcing.F |
292 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
202 |
GMREDI_CALC_TENSOR |
I ldd97_LrhoC,rF(k),k, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
243 |
GMREDI_CALC_TENSOR |
deltaH=abs(GM_Visbeck_depth)-abs(rF(k)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
114 |
GMREDI_CALC_PSI_B |
I ldd97_LrhoW, ldd97_LrhoS, rF(k), k, |