File |
Line number |
Procedure |
Code |
./pkg/gmredi/submeso_calc_psi.F |
171 |
SUBMESO_CALC_PSI |
mu_z = ( z2H + 1. _d 0 )*( z2H + 1. _d 0 ) |
./pkg/gmredi/submeso_calc_psi.F |
172 |
SUBMESO_CALC_PSI |
mu_z = ( 1. _d 0 - mu_z )*(1. _d 0 + mu_z*five_ov21 ) |
./pkg/gmredi/submeso_calc_psi.F |
173 |
SUBMESO_CALC_PSI |
mu_z = MAX( 0. _d 0, mu_z ) |
./pkg/gmredi/submeso_calc_psi.F |
175 |
SUBMESO_CALC_PSI |
& + mu_z*PsiLoc(i,j) |
./pkg/gmredi/submeso_calc_psi.F |
214 |
SUBMESO_CALC_PSI |
mu_z = ( z2H + 1. _d 0 )*( z2H + 1. _d 0 ) |
./pkg/gmredi/submeso_calc_psi.F |
215 |
SUBMESO_CALC_PSI |
mu_z = ( 1. _d 0 - mu_z )*(1. _d 0 + mu_z*five_ov21 ) |
./pkg/gmredi/submeso_calc_psi.F |
216 |
SUBMESO_CALC_PSI |
mu_z = MAX( 0. _d 0, mu_z ) |
./pkg/gmredi/submeso_calc_psi.F |
218 |
SUBMESO_CALC_PSI |
& + mu_z*PsiLoc(i,j) |
./pkg/gmredi/submeso_calc_psi.F |
62 |
SUBMESO_CALC_PSI |
_RL z2H, mu_z |