| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
147 |
GAD_SOM_ADV_R |
recip_dT = zeroRL |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
148 |
GAD_SOM_ADV_R |
IF ( deltaTloc.GT.zeroRL ) recip_dT = 1.0 _d 0 / deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
160 |
GAD_SOM_ADV_R |
fp_v (i,j,kUp) = MAX( zeroRL, wLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
192 |
GAD_SOM_ADV_R |
fn_v (i,j,kUp) = MAX( zeroRL, -wLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
199 |
GAD_SOM_ADV_R |
fn_z (i,j,kUp) = zeroRL |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
200 |
GAD_SOM_ADV_R |
fn_zz(i,j,kUp) = zeroRL |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
203 |
GAD_SOM_ADV_R |
fn_xz(i,j,kUp) = zeroRL |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
204 |
GAD_SOM_ADV_R |
fn_yz(i,j,kUp) = zeroRL |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
219 |
GAD_SOM_ADV_R |
fn_v (i,j,kUp) = MAX( zeroRL, -wLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
260 |
GAD_SOM_ADV_R |
fn_v (i,j,kUp) = MAX( zeroRL, -wLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
124 |
GAD_SOM_ADV_X |
IF ( deltaTloc.GT.zeroRL ) recip_dT = 1.0 _d 0 / deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
160 |
GAD_SOM_ADV_X |
IF ( sm_o(i,j).GT.zeroRL ) slpmax = sm_o(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
179 |
GAD_SOM_ADV_X |
fp_v (i,j) = MAX( zeroRL, uLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
198 |
GAD_SOM_ADV_X |
fn_v (i,j) = MAX( zeroRL, -uLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
124 |
GAD_SOM_ADV_Y |
IF ( deltaTloc.GT.zeroRL ) recip_dT = 1.0 _d 0 / deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
179 |
GAD_SOM_ADV_Y |
fp_v (i,j) = MAX( zeroRL, vLoc ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
199 |
GAD_SOM_ADV_Y |
fn_v (i,j) = MAX( zeroRL, -vLoc ) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
111 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
127 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
142 |
GMREDI_CALC_EIGS |
c3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
146 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
147 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
148 |
GMREDI_CALC_EIGS |
c3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
152 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
153 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
154 |
GMREDI_CALC_EIGS |
c3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
165 |
GMREDI_CALC_EIGS |
array(k,kk) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
200 |
GMREDI_CALC_EIGS |
eigval(m) = -HUGE(zeroRL) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
213 |
GMREDI_CALC_EIGS |
IF(vecs(1,idx).LT.zeroRL) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
225 |
GMREDI_CALC_EIGS |
val(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
228 |
GMREDI_CALC_EIGS |
vec(m,i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
239 |
GMREDI_CALC_EIGS |
IF (kLow(i,j).GT.2 .AND. val(i,j).NE.zeroRL) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
242 |
GMREDI_CALC_EIGS |
Rmid(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
259 |
GMREDI_CALC_EIGS |
BuoyFreq(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
323 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
358 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
98 |
GMREDI_CALC_EIGS |
small = TINY(zeroRL) |
|
./pkg/gmredi/gmredi_calc_urms.F |
52 |
GMREDI_CALC_URMS |
bbc(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_urms.F |
65 |
GMREDI_CALC_URMS |
const(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_urms.F |
77 |
GMREDI_CALC_URMS |
urms(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_calc_urms.F |
86 |
GMREDI_CALC_URMS |
if (kLowC(i,j,bi,bj).EQ.0) urms(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
217 |
GMREDI_K3D |
small = TINY(zeroRL) |
|
./pkg/gmredi/gmredi_k3d.F |
311 |
GMREDI_K3D |
eady(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
312 |
GMREDI_K3D |
BVint(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
313 |
GMREDI_K3D |
Ubaro(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
314 |
GMREDI_K3D |
deltaH(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
320 |
GMREDI_K3D |
slopeC(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
328 |
GMREDI_K3D |
dfdy(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
329 |
GMREDI_K3D |
dfdy(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
330 |
GMREDI_K3D |
Rurms(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
331 |
GMREDI_K3D |
RRhines(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
332 |
GMREDI_K3D |
Rmix(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
342 |
GMREDI_K3D |
M4loc(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
343 |
GMREDI_K3D |
M4onN2(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
344 |
GMREDI_K3D |
urms(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
345 |
GMREDI_K3D |
SlopeX(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
346 |
GMREDI_K3D |
SlopeY(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
347 |
GMREDI_K3D |
dSigmaDx(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
348 |
GMREDI_K3D |
dSigmaDy(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
349 |
GMREDI_K3D |
gradqx(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
350 |
GMREDI_K3D |
gradqy(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
382 |
GMREDI_K3D |
N2(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
383 |
GMREDI_K3D |
N(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
521 |
GMREDI_K3D |
IF (deltaH(i,j).EQ.zeroRL) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
575 |
GMREDI_K3D |
IF (deltaH(i,j).EQ.zeroRL) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
627 |
GMREDI_K3D |
SlopeX(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
628 |
GMREDI_K3D |
SlopeY(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
637 |
GMREDI_K3D |
SlopeX(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
638 |
GMREDI_K3D |
SlopeY(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
735 |
GMREDI_K3D |
tfluxX(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
754 |
GMREDI_K3D |
tfluxY(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
855 |
GMREDI_K3D |
XimX(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
876 |
GMREDI_K3D |
Xix(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
906 |
GMREDI_K3D |
XimY(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
927 |
GMREDI_K3D |
Xiy(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
949 |
GMREDI_K3D |
uInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
950 |
GMREDI_K3D |
vInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
951 |
GMREDI_K3D |
KdqdyInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
952 |
GMREDI_K3D |
KdqdxInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
953 |
GMREDI_K3D |
uKdqdyInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
954 |
GMREDI_K3D |
vKdqdxInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
955 |
GMREDI_K3D |
uXiyInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
956 |
GMREDI_K3D |
vXixInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_readparms.F |
157 |
GMREDI_READPARMS |
GM_K3D_minCori = zeroRL |
|
./pkg/kpp/kpp_output.F |
251 |
KPP_OUTPUT |
CALL CAL_TIME2DUMP( zeroRL, KPP_taveFreq, deltaTClock, |
|
./model/src/apply_forcing.F |
549 |
APPLY_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./model/src/calc_gw.F |
147 |
CALC_GW |
biharmonicVisc = viscA4W.NE.zeroRL |
|
./pkg/mom_common/mom_calc_3d_strain.F |
61 |
MOM_CALC_3D_STRAIN |
IF ( k.EQ.Nr ) maskp1 = zeroRL |
|
./model/src/calc_phi_hyd.F |
288 |
CALC_PHI_HYD |
phiHydC(i,j) =( MAX(zeroRL,ddRloc)*rec_dRm*dRlocM |
|
./model/src/calc_phi_hyd.F |
289 |
CALC_PHI_HYD |
& +MIN(zeroRL,ddRloc)*rec_dRp*dRlocP |
|
./model/src/calc_phi_hyd.F |
412 |
CALC_PHI_HYD |
phiHydC(i,j) =( MAX(zeroRL,ddRloc)*rec_dRm*dRlocM |
|
./model/src/calc_phi_hyd.F |
413 |
CALC_PHI_HYD |
& +MIN(zeroRL,ddRloc)*rec_dRp*dRlocP |
|
./model/src/calc_phi_hyd.F |
595 |
CALC_PHI_HYD |
phiHydC(i,j) =( MAX(zeroRL,ddRloc)*rec_dRm*ddPIm |
|
./model/src/calc_phi_hyd.F |
596 |
CALC_PHI_HYD |
& +MIN(zeroRL,ddRloc)*rec_dRp*ddPIp |
|
./model/src/diags_phi_rlow.F |
109 |
DIAGS_PHI_RLOW |
& +( MIN(zeroRL,ddRloc)*ratioRm |
|
./model/src/diags_phi_rlow.F |
110 |
DIAGS_PHI_RLOW |
& +MAX(zeroRL,ddRloc)*ratioRp |
|
./model/src/diags_phi_rlow.F |
148 |
DIAGS_PHI_RLOW |
& + MAX( dPhiRef, zeroRL )*( facP - 1. _d 0 ) |
|
./model/src/do_write_pickup.F |
70 |
DO_WRITE_PICKUP |
CALL CAL_TIME2DUMP( zeroRL, pChkPtFreq, deltaTClock, |
|
./model/src/do_write_pickup.F |
73 |
DO_WRITE_PICKUP |
CALL CAL_TIME2DUMP( zeroRL, chkPtFreq, deltaTClock, |
|
./model/src/external_forcing.F |
436 |
EXTERNAL_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./pkg/sbo/sbo_calc.F |
456 |
SBO_CALC |
IF ( mass.NE.zeroRL ) THEN |
|
./pkg/sbo/sbo_calc.F |
462 |
SBO_CALC |
IF ( mass_fw.NE.zeroRL ) THEN |
|
./model/src/forcing_surf_relax.F |
185 |
FORCING_SURF_RELAX |
IF ( globalArea.GT.zeroRL ) globAver = globAver / globalArea |
|
./model/src/forcing_surf_relax.F |
221 |
FORCING_SURF_RELAX |
IF ( globalArea.GT.zeroRL ) globAver = globAver / globalArea |
|
./pkg/seaice/seaice_check.F |
650 |
SEAICE_CHECK |
IF ( SEAICE_tauAreaObsRelax.GT.zeroRL ) THEN |
|
./pkg/seaice/seaice_jfnk.F |
331 |
SEAICE_JFNK |
I zeroRL, SEAICE_monFreq, deltaTClock, |
|
./pkg/seaice/seaice_reg_ridge.F |
126 |
SEAICE_REG_RIDGE |
IF ( SEAICE_tauAreaObsRelax .GT. zeroRL ) THEN |
|
./pkg/shelfice/shelfice_output.F |
134 |
SHELFICE_OUTPUT |
CALL CAL_TIME2DUMP( zeroRL, SHELFICE_taveFreq, deltaTClock, |
|
./pkg/shelfice/shelfice_thermodynamics.F |
241 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = MAX(salt(I,J,K,bi,bj), zeroRL) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
267 |
SHELFICE_THERMODYNAMICS |
& + MAX(salt(I,J,Kp1,bi,bj), zeroRL) * drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
289 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),zeroRL) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
291 |
SHELFICE_THERMODYNAMICS |
CALL SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),zeroRL,tLoc(I,J)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
320 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffT(i,j,bi,bj) = MAX( zeroRL, |
|
./pkg/shelfice/shelfice_thermodynamics.F |
322 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffS(i,j,bi,bj) = MAX( zeroRL, |
|
./pkg/thsice/thsice_balance_frw.F |
125 |
THSICE_BALANCE_FRW |
tmpVar = tmpFac*MAX( prcAtm(i,j,bi,bj), zeroRL ) |
|
./pkg/thsice/thsice_balance_frw.F |
69 |
THSICE_BALANCE_FRW |
& + MAX( prcAtm(i,j,bi,bj), zeroRL ) |
|
./pkg/thsice/thsice_get_precip.F |
138 |
THSICE_GET_PRECIP |
& .AND. Tair(i,j,bi,bj).LT.zeroRL ) THEN |
|
./pkg/thsice/thsice_main.F |
251 |
THSICE_MAIN |
& .OR. stressReduction.GT.zeroRL ) THEN |
|
./pkg/timeave/timeave_statv_write.F |
65 |
TIMEAVE_STATV_WRITE |
CALL CAL_TIME2DUMP( zeroRL, taveFreq, deltaTClock, |
|
./pkg/timeave/timeave_statvars.F |
103 |
TIMEAVE_STATVARS |
CALL CAL_TIME2DUMP( zeroRL, taveFreq, deltaTClock, |
|
./model/src/ini_parms.F |
578 |
INI_PARMS |
IF ( ivdc_kappa.NE.zeroRL .AND. .NOT.implicitDiffusion ) THEN |
|
./model/src/ini_pressure.F |
94 |
INI_PRESSURE |
IF ( rmspp.GT.zeroRL ) THEN |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
103 |
CTRL_MAP_GENTIM2D |
I zeroRL, zeroRL, |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
103 |
CTRL_MAP_GENTIM2D |
I zeroRL, zeroRL, |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/rotating_tank/code/apply_forcing.F |
566 |
APPLY_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./model/src/set_parms.F |
100 |
SET_PARMS |
& viscAhGrid .NE.zeroRL .OR. viscA4Grid .NE.zeroRL |
|
./model/src/set_parms.F |
101 |
SET_PARMS |
& .OR. viscC2smag .NE.zeroRL .OR. viscC4smag .NE.zeroRL |
|
./model/src/set_parms.F |
102 |
SET_PARMS |
& .OR. viscC2leith.NE.zeroRL .OR. viscC2leithD.NE.zeroRL |
|
./model/src/set_parms.F |
103 |
SET_PARMS |
& .OR. viscC4leith.NE.zeroRL .OR. viscC4leithD.NE.zeroRL |
|
./model/src/set_parms.F |
107 |
SET_PARMS |
useHarmonicVisc = viscAh .NE.zeroRL |
|
./model/src/set_parms.F |
108 |
SET_PARMS |
& .OR. viscAhD .NE.zeroRL .OR. viscAhZ .NE.zeroRL |
|
./model/src/set_parms.F |
109 |
SET_PARMS |
& .OR. viscAhGrid .NE.zeroRL .OR. viscC2smag .NE.zeroRL |
|
./model/src/set_parms.F |
110 |
SET_PARMS |
& .OR. viscC2leith.NE.zeroRL .OR. viscC2leithD.NE.zeroRL |
|
./model/src/set_parms.F |
113 |
SET_PARMS |
useBiharmonicVisc = viscA4.NE.zeroRL |
|
./model/src/set_parms.F |
114 |
SET_PARMS |
& .OR. viscA4D .NE.zeroRL .OR. viscA4Z .NE.zeroRL |
|
./model/src/set_parms.F |
115 |
SET_PARMS |
& .OR. viscA4Grid .NE.zeroRL .OR. viscC4smag .NE.zeroRL |
|
./model/src/set_parms.F |
116 |
SET_PARMS |
& .OR. viscC4leith.NE.zeroRL .OR. viscC4leithD.NE.zeroRL |
|
./pkg/aim_v23/aim_dyn2aim.F |
176 |
AIM_DYN2AIM |
QA(I2,Katm) = MAX( salt(i,j,k,bi,bj), zeroRL ) |
|
./pkg/atm2d/atm2d_write_pickup.F |
64 |
ATM2D_WRITE_PICKUP |
CALL CAL_TIME2DUMP( zeroRL, pChkPtFreq, deltaTClock, |
|
./pkg/atm2d/atm2d_write_pickup.F |
67 |
ATM2D_WRITE_PICKUP |
CALL CAL_TIME2DUMP( zeroRL, chkPtFreq, deltaTClock, |
|
./pkg/atm_compon_interf/cpl_readparms.F |
136 |
CPL_READPARMS |
IF ( tmpLoc.GT.1. _d -12 .OR. cpl_atmSendFrq.EQ.zeroRL ) THEN |
|
./pkg/atm_phys/atm_phys_check.F |
55 |
ATM_PHYS_CHECK |
IF ( atmPhys_tauDampUV.LE.zeroRL ) THEN |
|
./pkg/atm_phys/atm_phys_readparms.F |
86 |
ATM_PHYS_READPARMS |
IF ( atmPhys_tauDampUV.LE.zeroRL ) THEN |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
156 |
ATM_PHYS_TENDENCY_APPLY_V |
IF ( atmPhys_dampUVfac(k).GT.zeroRL ) THEN |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
70 |
ATM_PHYS_TENDENCY_APPLY_U |
IF ( atmPhys_dampUVfac(k).GT.zeroRL ) THEN |
|
./pkg/cfc/cfc11_forcing.F |
145 |
CFC11_FORCING |
weight = MAX( zeroRL, MIN( oneRL, weight ) ) |
|
./pkg/cfc/cfc11_forcing.F |
88 |
CFC11_FORCING |
I zeroRL, atmCFC_recSepTime, |
|
./pkg/cfc/cfc12_forcing.F |
146 |
CFC12_FORCING |
weight = MAX( zeroRL, MIN( oneRL, weight ) ) |
|
./pkg/cfc/cfc12_forcing.F |
89 |
CFC12_FORCING |
I zeroRL, atmCFC_recSepTime, |
|
./pkg/cfc/cfc_check.F |
117 |
CFC_CHECK |
IF ( CFC_forcingCycle.LE.zeroRL .AND. |
|
./pkg/cfc/cfc_fields_load.F |
177 |
CFC_FIELDS_LOAD |
ELSEIF ( CFC_forcingCycle.GT.zeroRL |
|
./pkg/cfc/cfc_fields_load.F |
180 |
CFC_FIELDS_LOAD |
IF ( CFC_forcingCycle.GT.zeroRL |
|
./pkg/cfc/cfc_fields_load.F |
205 |
CFC_FIELDS_LOAD |
IF ( CFC_forcingCycle.GT.zeroRL |
|
./pkg/cfc/cfc_fields_load.F |
237 |
CFC_FIELDS_LOAD |
ELSEIF ( CFC_forcingCycle.GT.zeroRL |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
101 |
CTRL_MAP_GENTIM2D |
I zeroRL, zeroRL, |
|
./eesupp/inc/EEPARAMS.h |
80 |
NO PROCEDURE |
_RL zeroRL, oneRL, twoRL, halfRL |
|
./eesupp/inc/EEPARAMS.h |
81 |
NO PROCEDURE |
PARAMETER ( zeroRL = 0.0 _d 0 , oneRL = 1.0 _d 0 ) |