| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
124 |
ECCO_PHYS |
sIceLoadFac=zeroRL |
|
./pkg/ecco/ecco_phys.F |
170 |
ECCO_PHYS |
call ECCO_ZERO(trVol,Nr,zeroRL,myThid) |
|
./pkg/ecco/ecco_phys.F |
171 |
ECCO_PHYS |
call ECCO_ZERO(trHeat,Nr,zeroRL,myThid) |
|
./pkg/ecco/ecco_phys.F |
172 |
ECCO_PHYS |
call ECCO_ZERO(trSalt,Nr,zeroRL,myThid) |
|
./pkg/ecco/ecco_phys.F |
233 |
ECCO_PHYS |
& 1,zeroRL,myThid) |
|
./pkg/ecco/ecco_readparms.F |
615 |
ECCO_READPARMS |
& 1,zeroRL,mythid) |
|
./pkg/ecco/ecco_readparms.F |
617 |
ECCO_READPARMS |
& 1,zeroRL,mythid) |
|
./pkg/ecco/ecco_readparms.F |
619 |
ECCO_READPARMS |
& 1,zeroRL,mythid) |
|
./pkg/ecco/ecco_readparms.F |
634 |
ECCO_READPARMS |
& Nr,zeroRL,mythid) |
|
./pkg/ecco/ecco_readparms.F |
636 |
ECCO_READPARMS |
& Nr,zeroRL,mythid) |
|
./pkg/ecco/ecco_readparms.F |
638 |
ECCO_READPARMS |
& Nr,zeroRL,mythid) |
|
./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 |
238 |
GMREDI_CALC_EIGS |
IF (kLow(i,j).GT.2 .AND. val(i,j).NE.zeroRL) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
241 |
GMREDI_CALC_EIGS |
Rmid(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
257 |
GMREDI_CALC_EIGS |
BuoyFreq(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
321 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
356 |
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 |
216 |
GMREDI_K3D |
small = TINY(zeroRL) |
|
./pkg/gmredi/gmredi_k3d.F |
296 |
GMREDI_K3D |
eady(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
297 |
GMREDI_K3D |
BVint(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
298 |
GMREDI_K3D |
Ubaro(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
299 |
GMREDI_K3D |
deltaH(i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
305 |
GMREDI_K3D |
slopeC(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
313 |
GMREDI_K3D |
Rurms(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
314 |
GMREDI_K3D |
RRhines(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
315 |
GMREDI_K3D |
Rmix(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
325 |
GMREDI_K3D |
M4loc(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
326 |
GMREDI_K3D |
M4onN2(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
327 |
GMREDI_K3D |
urms(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
328 |
GMREDI_K3D |
SlopeX(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
329 |
GMREDI_K3D |
SlopeY(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
330 |
GMREDI_K3D |
dSigmaDx(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
331 |
GMREDI_K3D |
dSigmaDy(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
332 |
GMREDI_K3D |
gradqx(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
333 |
GMREDI_K3D |
gradqy(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
370 |
GMREDI_K3D |
tmpU(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
371 |
GMREDI_K3D |
tmpV(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
375 |
GMREDI_K3D |
tmpU(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
376 |
GMREDI_K3D |
tmpV(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
432 |
GMREDI_K3D |
N2(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
433 |
GMREDI_K3D |
N(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
444 |
GMREDI_K3D |
IF ( k.EQ.Nr ) mskp1 = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
488 |
GMREDI_K3D |
IF ( k.EQ.Nr ) mskp1 = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
534 |
GMREDI_K3D |
IF (deltaH(i,j).EQ.zeroRL) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
588 |
GMREDI_K3D |
IF (deltaH(i,j).EQ.zeroRL) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
638 |
GMREDI_K3D |
SlopeX(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
639 |
GMREDI_K3D |
SlopeY(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
648 |
GMREDI_K3D |
SlopeX(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
649 |
GMREDI_K3D |
SlopeY(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
744 |
GMREDI_K3D |
tfluxX(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
763 |
GMREDI_K3D |
tfluxY(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
864 |
GMREDI_K3D |
XimX(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
885 |
GMREDI_K3D |
Xix(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
915 |
GMREDI_K3D |
XimY(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
936 |
GMREDI_K3D |
Xiy(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
957 |
GMREDI_K3D |
uInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
958 |
GMREDI_K3D |
vInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
959 |
GMREDI_K3D |
KdqdyInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
960 |
GMREDI_K3D |
KdqdxInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
961 |
GMREDI_K3D |
uKdqdyInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
962 |
GMREDI_K3D |
vKdqdxInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
963 |
GMREDI_K3D |
uXiyInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
964 |
GMREDI_K3D |
vXixInt(i,j)=zeroRL |
|
./pkg/gmredi/gmredi_readparms.F |
161 |
GMREDI_READPARMS |
GM_K3D_minCori = zeroRL |
|
./model/src/apply_forcing.F |
563 |
APPLY_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./pkg/kpp/kpp_output.F |
264 |
KPP_OUTPUT |
CALL CAL_TIME2DUMP( zeroRL, KPP_taveFreq, deltaTClock, |
|
./pkg/longstep/longstep_average_3d_fac.F |
56 |
LONGSTEP_AVERAGE_3D_FAC |
IF (factor.NE.zeroRL) factor = 1. _d 0 / factor |
|
./model/src/calc_gw.F |
147 |
CALC_GW |
biharmonicVisc = viscA4W.NE.zeroRL |
|
./model/src/calc_phi_hyd.F |
293 |
CALC_PHI_HYD |
phiHydC(i,j) =( MAX(zeroRL,ddRloc)*rec_dRm*dRlocM |
|
./model/src/calc_phi_hyd.F |
294 |
CALC_PHI_HYD |
& +MIN(zeroRL,ddRloc)*rec_dRp*dRlocP |
|
./model/src/calc_phi_hyd.F |
417 |
CALC_PHI_HYD |
phiHydC(i,j) =( MAX(zeroRL,ddRloc)*rec_dRm*dRlocM |
|
./model/src/calc_phi_hyd.F |
418 |
CALC_PHI_HYD |
& +MIN(zeroRL,ddRloc)*rec_dRp*dRlocP |
|
./model/src/calc_phi_hyd.F |
600 |
CALC_PHI_HYD |
phiHydC(i,j) =( MAX(zeroRL,ddRloc)*rec_dRm*ddPIm |
|
./model/src/calc_phi_hyd.F |
601 |
CALC_PHI_HYD |
& +MIN(zeroRL,ddRloc)*rec_dRp*ddPIp |
|
./pkg/mom_common/mom_calc_3d_strain.F |
61 |
MOM_CALC_3D_STRAIN |
IF ( k.EQ.Nr ) maskp1 = zeroRL |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
171 |
MOM_U_BOTDRAG_IMPL |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
185 |
MOM_U_BOTDRAG_IMPL |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
195 |
MOM_U_BOTDRAG_IMPL |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_bottomdrag.F |
157 |
MOM_U_BOTTOMDRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_bottomdrag.F |
171 |
MOM_U_BOTTOMDRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_bottomdrag.F |
181 |
MOM_U_BOTTOMDRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_implicit_r.F |
221 |
MOM_U_IMPLICIT_R |
IF ( c5d(i,j,k).NE.zeroRL ) THEN |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
171 |
MOM_V_BOTDRAG_IMPL |
IF ( vSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
185 |
MOM_V_BOTDRAG_IMPL |
IF ( vSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
195 |
MOM_V_BOTDRAG_IMPL |
IF ( vSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_v_bottomdrag.F |
157 |
MOM_V_BOTTOMDRAG |
IF ( vSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_v_bottomdrag.F |
171 |
MOM_V_BOTTOMDRAG |
IF ( vSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_v_bottomdrag.F |
181 |
MOM_V_BOTTOMDRAG |
IF ( vSq.GT.zeroRL ) THEN |
|
./pkg/mom_common/mom_v_implicit_r.F |
221 |
MOM_V_IMPLICIT_R |
IF ( c5d(i,j,k).NE.zeroRL ) THEN |
|
./pkg/monitor/mon_calc_advcfl.F |
113 |
MON_CALC_ADVCFL_TILE |
& + MAX( rTrans(i,j), zeroRL ) |
|
./pkg/monitor/mon_calc_advcfl.F |
114 |
MON_CALC_ADVCFL_TILE |
& - MIN( rTransKp1, zeroRL ) |
|
./pkg/monitor/mon_calc_advcfl.F |
90 |
MON_CALC_ADVCFL_TILE |
& + MAX( uTrans(i+1,j), zeroRL ) |
|
./pkg/monitor/mon_calc_advcfl.F |
91 |
MON_CALC_ADVCFL_TILE |
& - MIN( uTrans( i ,j), zeroRL ) |
|
./pkg/monitor/mon_calc_advcfl.F |
95 |
MON_CALC_ADVCFL_TILE |
& + MAX( vTrans(i,j+1), zeroRL ) |
|
./pkg/monitor/mon_calc_advcfl.F |
96 |
MON_CALC_ADVCFL_TILE |
& - MIN( vTrans(i, j ), zeroRL ) |
|
./pkg/monitor/mon_calc_stats_rl.F |
120 |
MON_CALC_STATS_RL |
IF ( theNbPt.GT.zeroRL ) THEN |
|
./pkg/monitor/mon_calc_stats_rs.F |
120 |
MON_CALC_STATS_RS |
IF ( theNbPt.GT.zeroRL ) THEN |
|
./pkg/obcs/obcs_set_connect.F |
251 |
OBCS_SET_CONNECT |
tmpRL = zeroRL |
|
./model/src/diags_phi_rlow.F |
111 |
DIAGS_PHI_RLOW |
& +( MIN(zeroRL,ddRloc)*ratioRm |
|
./model/src/diags_phi_rlow.F |
112 |
DIAGS_PHI_RLOW |
& +MAX(zeroRL,ddRloc)*ratioRp |
|
./model/src/diags_phi_rlow.F |
150 |
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 |
435 |
EXTERNAL_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./model/src/find_hyd_press_1d.F |
135 |
FIND_HYD_PRESS_1D |
& .AND. ( diffMax.NE.zeroRL ) |
|
./model/src/find_rho.F |
249 |
FIND_RHO_2D |
IF ( locPres(i,j).GT.zeroRL .AND. tFld(i,j).GT.zeroRL ) THEN |
|
./model/src/find_rho.F |
255 |
FIND_RHO_2D |
rhoLoc(i,j) = zeroRL |
|
./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/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 |
|
./pkg/seaice/seaice_check.F |
657 |
SEAICE_CHECK |
IF ( SEAICE_tauAreaObsRelax.GT.zeroRL ) THEN |
|
./pkg/seaice/seaice_jfnk.F |
374 |
SEAICE_JFNK |
I zeroRL, SEAICE_monFreq, deltaTClock, |
|
./pkg/seaice/seaice_krylov.F |
429 |
SEAICE_KRYLOV |
I zeroRL, SEAICE_monFreq, deltaTClock, |
|
./pkg/seaice/seaice_reg_ridge.F |
129 |
SEAICE_REG_RIDGE |
IF ( SEAICE_tauAreaObsRelax .GT. zeroRL ) THEN |
|
./pkg/shelfice/shelfice_output.F |
138 |
SHELFICE_OUTPUT |
CALL CAL_TIME2DUMP( zeroRL, SHELFICE_taveFreq, deltaTClock, |
|
./pkg/shelfice/shelfice_thermodynamics.F |
264 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = MAX(salt(I,J,K,bi,bj), zeroRL) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
322 |
SHELFICE_THERMODYNAMICS |
& + MAX(salt(I,J,Kp1,bi,bj), zeroRL) * drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
345 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),zeroRL) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
347 |
SHELFICE_THERMODYNAMICS |
CALL SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),zeroRL,tLoc(I,J)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
378 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffT(i,j,bi,bj) = MAX( zeroRL, |
|
./pkg/shelfice/shelfice_thermodynamics.F |
380 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffS(i,j,bi,bj) = MAX( zeroRL, |
|
./pkg/shelfice/shelfice_u_drag.F |
105 |
SHELFICE_U_DRAG |
IF ( SHELFICEDragLinear.NE.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
127 |
SHELFICE_U_DRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
148 |
SHELFICE_U_DRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
164 |
SHELFICE_U_DRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
175 |
SHELFICE_U_DRAG |
IF ( uSq.GT.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
187 |
SHELFICE_U_DRAG |
& ( no_slip_shelfice .OR. SHELFICEDragLinear.NE.zeroRL |
|
./pkg/shelfice/shelfice_v_drag.F |
105 |
SHELFICE_V_DRAG |
IF ( SHELFICEDragLinear.NE.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
127 |
SHELFICE_V_DRAG |
IF ( vSq.GT.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
148 |
SHELFICE_V_DRAG |
IF ( vSq.GT.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
164 |
SHELFICE_V_DRAG |
IF ( vSq.GT.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
175 |
SHELFICE_V_DRAG |
IF ( vSq.GT.zeroRL ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
187 |
SHELFICE_V_DRAG |
& ( no_slip_shelfice .OR. SHELFICEDragLinear.NE.zeroRL |
|
./model/src/ini_masks_etc.F |
116 |
INI_MASKS_ETC |
hFacCtmp = MIN( MAX( hFacCtmp, zeroRL ) , oneRL ) |
|
./model/src/ini_masks_etc.F |
159 |
INI_MASKS_ETC |
hFacCtmp = hFacC(i,j,k,bi,bj) - MAX( hFacCtmp, zeroRL ) |
|
./model/src/ini_masks_etc.F |
161 |
INI_MASKS_ETC |
hFacCtmp = MAX( hFacCtmp, zeroRL ) |
|
./model/src/ini_masks_etc.F |
236 |
INI_MASKS_ETC |
IF ( tmpVar1(i,j) .LE. zeroRL ) THEN |
|
./model/src/ini_masks_etc.F |
297 |
INI_MASKS_ETC |
hFacCtmp = hFac1tmp - MAX( hFac2tmp, zeroRL ) |
|
./model/src/ini_masks_etc.F |
321 |
INI_MASKS_ETC |
hFacCtmp = hFac1tmp - MAX( hFac2tmp, 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 |
260 |
THSICE_MAIN |
& .OR. stressReduction.GT.zeroRL ) THEN |
|
./pkg/timeave/timeave_statv_write.F |
65 |
TIMEAVE_STATV_WRITE |
CALL CAL_TIME2DUMP( zeroRL, taveFreq, deltaTClock, |
|
./model/src/ini_parms.F |
618 |
INI_PARMS |
IF ( ivdc_kappa.NE.zeroRL .AND. .NOT.implicitDiffusion ) THEN |
|
./pkg/timeave/timeave_statvars.F |
103 |
TIMEAVE_STATVARS |
CALL CAL_TIME2DUMP( zeroRL, taveFreq, deltaTClock, |
|
./model/src/ini_pressure.F |
94 |
INI_PRESSURE |
IF ( rmspp.GT.zeroRL ) THEN |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
141 |
CTRL_MAP_GENTIM2D |
I zeroRL, zeroRL, |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
141 |
CTRL_MAP_GENTIM2D |
I zeroRL, zeroRL, |
|
./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) ) |
|
./model/src/pre_cg3d.F |
76 |
PRE_CG3D |
IF ( oldFreeSurfTerm .OR. implicDiv2DFlow.EQ.zeroRL ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
566 |
APPLY_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./model/src/set_parms.F |
101 |
SET_PARMS |
& viscAhGrid .NE.zeroRL .OR. viscA4Grid .NE.zeroRL |
|
./model/src/set_parms.F |
102 |
SET_PARMS |
& .OR. viscC2smag .NE.zeroRL .OR. viscC4smag .NE.zeroRL |
|
./model/src/set_parms.F |
103 |
SET_PARMS |
& .OR. viscC2leith.NE.zeroRL .OR. viscC2leithD.NE.zeroRL |
|
./model/src/set_parms.F |
104 |
SET_PARMS |
& .OR. viscC4leith.NE.zeroRL .OR. viscC4leithD.NE.zeroRL |
|
./model/src/set_parms.F |
108 |
SET_PARMS |
useHarmonicVisc = viscAh .NE.zeroRL |
|
./model/src/set_parms.F |
109 |
SET_PARMS |
& .OR. viscAhD .NE.zeroRL .OR. viscAhZ .NE.zeroRL |
|
./model/src/set_parms.F |
110 |
SET_PARMS |
& .OR. viscAhGrid .NE.zeroRL .OR. viscC2smag .NE.zeroRL |
|
./model/src/set_parms.F |
111 |
SET_PARMS |
& .OR. viscC2leith.NE.zeroRL .OR. viscC2leithD.NE.zeroRL |
|
./model/src/set_parms.F |
114 |
SET_PARMS |
useBiharmonicVisc = viscA4.NE.zeroRL |
|
./model/src/set_parms.F |
115 |
SET_PARMS |
& .OR. viscA4D .NE.zeroRL .OR. viscA4Z .NE.zeroRL |
|
./model/src/set_parms.F |
116 |
SET_PARMS |
& .OR. viscA4Grid .NE.zeroRL .OR. viscC4smag .NE.zeroRL |
|
./model/src/set_parms.F |
117 |
SET_PARMS |
& .OR. viscC4leith.NE.zeroRL .OR. viscC4leithD.NE.zeroRL |
|
./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) ) |
|
./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 |
210 |
CPL_READPARMS |
IF ( tmpLoc.GT.1. _d -12 .OR. cpl_atmSendFrq.EQ.zeroRL ) THEN |
|
./pkg/atm_phys/atm_phys_check.F |
54 |
ATM_PHYS_CHECK |
IF ( atmPhys_tauDampUV.LE.zeroRL ) THEN |
|
./pkg/atm_phys/atm_phys_readparms.F |
93 |
ATM_PHYS_READPARMS |
IF ( atmPhys_tauDampUV.LE.zeroRL ) THEN |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
159 |
ATM_PHYS_TENDENCY_APPLY_V |
IF ( atmPhys_dampUVfac(k).GT.zeroRL ) THEN |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
71 |
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/cheapaml/cheapaml_init_fixed.F |
224 |
CHEAPAML_INIT_FIXED |
IF ( cheap_tauRelax .LE. zeroRL ) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
238 |
CHEAPAML_INIT_FIXED |
IF ( cheap_tauRelaxOce .GT. zeroRL |
|
./pkg/ctrl/ctrl_cost_driver.F |
108 |
CTRL_COST_DRIVER |
& zeroRL, wgenarr2d(1-Olx,1-Oly,1,1,iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
112 |
CTRL_COST_DRIVER |
& zeroRL, num_zero_mean, objf_zero_mean, |
|
./pkg/ctrl/ctrl_cost_driver.F |
113 |
CTRL_COST_DRIVER |
& objf_zero_smoo, zeroRL, zeroRL, |
|
./pkg/ctrl/ctrl_cost_driver.F |
85 |
CTRL_COST_DRIVER |
& zeroRL, num_gentim2dm(1,1,iarr), objf_gentim2dm(1,1,iarr), |
|
./pkg/ctrl/ctrl_cost_driver.F |
86 |
CTRL_COST_DRIVER |
& objf_gentim2dsmoo(1,1,iarr), zeroRL, zeroRL, |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
96 |
CTRL_MAP_GENTIM2D |
I zeroRL, zeroRL, |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
436 |
CTRL_MAP_GENARR3D |
call ECCO_ZERO(localmask,Nr,zeroRL,myThid) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
221 |
CTRL_MAP_INI_GENTIM2D |
call ECCO_ZERO(xx_gen,1,zeroRL,myThid) |
|
./pkg/ctrl/ctrl_pack.F |
205 |
CTRL_PACK |
fcloc = zeroRL |
|
./pkg/ctrl/ctrl_pack.F |
230 |
CTRL_PACK |
write(cunit) zeroRL |
|
./pkg/debug/debug_fld_stats_rl.F |
97 |
DEBUG_FLD_STATS_RL |
IF ( nbPnts.GT.zeroRL ) THEN |
|
./pkg/debug/debug_fld_stats_rs.F |
97 |
DEBUG_FLD_STATS_RS |
IF ( nbPnts.GT.zeroRL ) THEN |
|
./pkg/debug/debug_stats_rl.F |
35 |
DEBUG_STATS_RL |
I myNr, arr, zeroRL, |
|
./pkg/diagnostics/diagnostics_readparms.F |
168 |
DIAGNOSTICS_READPARMS |
IF ( cg2dpcOffDFac.GT.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 ) |
|
./pkg/ecco/cost_gencost_bpv4.F |
100 |
COST_GENCOST_BPV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,kgen),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
188 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localweight,1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
189 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localmask,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
207 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localweight,nnzsiv4,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
228 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(areabar,nnzbar,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
229 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(deconcbar,nnzbar,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
230 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(exconcbar,nnzbar,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
282 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localdif,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
283 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(difmask,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
299 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(difmask1,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
300 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localdif,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
301 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localtmp,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
321 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(difmask1,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
322 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localdif,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
323 |
COST_GENCOST_SEAICEV4 |
call ECCO_ZERO(localtmp,nnzsiv4,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
448 |
GET_EXCONC_DECONC |
call ECCO_ZERO(localfld,nnzobs,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
449 |
GET_EXCONC_DECONC |
call ECCO_ZERO(localfldmsk,nnzobs,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
450 |
GET_EXCONC_DECONC |
call ECCO_ZERO(localfldweight,nnzobs,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1250 |
COST_GENCOST_SSHV4 |
& zeroRL, zeroRL, |
|
./pkg/ecco/cost_gencost_sshv4.F |
1255 |
COST_GENCOST_SSHV4 |
& zeroRL, zeroRL, |
|
./pkg/ecco/cost_gencost_sshv4.F |
1260 |
COST_GENCOST_SSHV4 |
& zeroRL, zeroRL, |
|
./pkg/ecco/cost_gencost_sshv4.F |
208 |
COST_GENCOST_SSHV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,igen_mdt),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
209 |
COST_GENCOST_SSHV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,igen_lsc),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
210 |
COST_GENCOST_SSHV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,igen_tp),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
211 |
COST_GENCOST_SSHV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,igen_ers),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
212 |
COST_GENCOST_SSHV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,igen_gfo),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
567 |
COST_GENCOST_SSHV4 |
& zeroRL, zeroRL, |
|
./pkg/ecco/cost_gencost_sshv4.F |
572 |
COST_GENCOST_SSHV4 |
& zeroRL, zeroRL, |
|
./pkg/ecco/cost_gencost_sshv4.F |
577 |
COST_GENCOST_SSHV4 |
& zeroRL, zeroRL, |
|
./pkg/ecco/cost_gencost_sshv4.F |
967 |
COST_GENCOST_SSHV4 |
& zeroRL, zeroRL, |
|
./pkg/ecco/cost_gencost_sshv4.F |
972 |
COST_GENCOST_SSHV4 |
& zeroRL, zeroRL, |
|
./pkg/ecco/cost_gencost_sshv4.F |
977 |
COST_GENCOST_SSHV4 |
& zeroRL, zeroRL, |
|
./pkg/ecco/cost_gencost_sstv4.F |
139 |
COST_GENCOST_SSTV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,kgen),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
140 |
COST_GENCOST_SSTV4 |
call ECCO_ZERO(gencost_weight(:,:,1,1,kgen_lsc),1,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_transp.F |
208 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(mybar,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_transp.F |
212 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(localtmp,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_transp.F |
226 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(myobs,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_gencost_transp.F |
244 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(localdif,nnzobs,zeroRL,mythid) |
|
./pkg/ecco/cost_gencost_transp.F |
245 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(difmask,nnzobs,zeroRL,mythid) |
|
./pkg/ecco/cost_generic.F |
107 |
COST_GENERIC |
call ECCO_ZERO(localdifmean1,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
108 |
COST_GENERIC |
call ECCO_ZERO(localdifmean2,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
134 |
COST_GENERIC |
call ECCO_ZERO(localdifmean1,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
272 |
COST_GENLOOP |
call ECCO_ZERO(localbar,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
273 |
COST_GENLOOP |
call ECCO_ZERO(localweight,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
274 |
COST_GENLOOP |
call ECCO_ZERO(localtmp,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
275 |
COST_GENLOOP |
call ECCO_ZERO(localmask,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
277 |
COST_GENLOOP |
call ECCO_ZERO(localobs,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
278 |
COST_GENLOOP |
call ECCO_ZERO(localdif,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
279 |
COST_GENLOOP |
call ECCO_ZERO(difmask,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
281 |
COST_GENLOOP |
call ECCO_ZERO(localdifmsk,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
282 |
COST_GENLOOP |
call ECCO_ZERO(localdifsum,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
283 |
COST_GENLOOP |
call ECCO_ZERO(localdifnum,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
340 |
COST_GENLOOP |
call ECCO_ZERO(localweight,nnzobs,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
351 |
COST_GENLOOP |
call ECCO_ZERO(localbar,nnzbar,zeroRL,myThid) |
|
./pkg/ecco/cost_generic.F |
404 |
COST_GENLOOP |
call ECCO_ZERO(localdifmeanOut,Nr,zeroRL,myThid) |
|
./pkg/ecco/cost_genread.F |
69 |
COST_GENREAD |
call ECCO_ZERO(active_tmp,nnzbar,zeroRL,myThid) |
|
./pkg/ecco/cost_hyd.F |
365 |
COST_HYD |
& 1,1,xx_etan_file,xx_etan_dummy,zeroRL, |
|
./pkg/ecco/cost_hyd.F |
368 |
COST_HYD |
& zeroRL, num_zero_mean, objf_zero_mean, |
|
./pkg/ecco/cost_hyd.F |
369 |
COST_HYD |
& objf_zero_smoo, zeroRL, zeroRL, |
|
./pkg/ecco/cost_internal_params.F |
111 |
COST_INTERNAL_PARAMS |
& xx_bottomdrag_dummy, zeroRL, wbottomdrag, |
|
./pkg/ecco/cost_internal_params.F |
114 |
COST_INTERNAL_PARAMS |
& zeroRL, num_zero_mean, objf_zero_mean, |
|
./pkg/ecco/cost_internal_params.F |
115 |
COST_INTERNAL_PARAMS |
& objf_zero_smoo, zeroRL, zeroRL, |
|
./pkg/ecco/ecco_check.F |
569 |
ECCO_CHECK |
call ECCO_ZERO(msktrVolW,1,zeroRL,mythid) |
|
./pkg/ecco/ecco_check.F |
597 |
ECCO_CHECK |
call ECCO_ZERO(msktrVolS,1,zeroRL,mythid) |
|
./pkg/ecco/ecco_cost_final.F |
1213 |
ECCO_COST_FINAL |
if ( no_profiles(num_file,num_var).GT.zeroRL ) then |
|
./pkg/ecco/ecco_cost_final.F |
1223 |
ECCO_COST_FINAL |
if ( no_profiles_mean(num_var).GT.zeroRL ) then |
|
./pkg/ecco/ecco_cost_final.F |
1530 |
ECCO_COST_FINAL |
if ( no_profiles(num_file,num_var).GT.zeroRL ) then |
|
./pkg/ecco/ecco_cost_final.F |
1542 |
ECCO_COST_FINAL |
if ( no_profiles_mean(num_var).GT.zeroRL ) then |