| File |
Line number |
Procedure |
Code |
|
./model/src/diags_phi_rlow.F |
62 |
DIAGS_PHI_RLOW |
_RL zero, one, half |
|
./model/src/diags_phi_rlow.F |
64 |
DIAGS_PHI_RLOW |
PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 ) |
|
./model/src/diags_phi_rlow.F |
89 |
DIAGS_PHI_RLOW |
ratioRm = one |
|
./model/src/diags_phi_rlow.F |
90 |
DIAGS_PHI_RLOW |
ratioRp = one |
|
./pkg/admtlm/admtlm_dsvd.F |
194 |
ADMTLM_DSVD |
& one, zero |
|
./pkg/admtlm/admtlm_dsvd.F |
195 |
ADMTLM_DSVD |
parameter (one = 1.0D+0, zero = 0.0D+0) |
|
./pkg/admtlm/admtlm_dsvd.F |
606 |
ADMTLM_DSVD |
temp = one / dnrm2( m, u(l,j), 1 ) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
46 |
MOM_U_CORIOLIS |
_RL one |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
47 |
MOM_U_CORIOLIS |
PARAMETER(one=1.d0) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
83 |
MOM_U_CORIOLIS |
& *4.d0/max(one, maskS( i , j ,k,bi,bj)+maskS( i ,j+1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
46 |
MOM_V_CORIOLIS |
_RL one |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
47 |
MOM_V_CORIOLIS |
PARAMETER(one=1.d0) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
81 |
MOM_V_CORIOLIS |
& *4.d0/max(one, maskW( i , j ,k,bi,bj)+maskW(i+1, j ,k,bi,bj) |