| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getfield_start.F |
58 |
EXF_GETFIELD_START |
fld_period = oneRL |
|
./pkg/exf/exf_interp_uv.F |
277 |
EXF_INTERP_UV |
pSign = SIGN( oneRL, y_in(j) ) |
|
./pkg/exf/exf_zenithangle.F |
107 |
EXF_ZENITHANGLE |
TYEAR = MOD( TYEAR, oneRL ) |
|
./pkg/exf/exf_zenithangle.F |
108 |
EXF_ZENITHANGLE |
TDAY = MOD( TDAY , oneRL ) |
|
./pkg/gmredi/gmredi_k3d.F |
443 |
GMREDI_K3D |
mskp1 = oneRL |
|
./pkg/gmredi/gmredi_k3d.F |
487 |
GMREDI_K3D |
mskp1 = oneRL |
|
./pkg/gmredi/gmredi_k3d.F |
965 |
GMREDI_K3D |
Renorm(i,j)=oneRL |
|
./pkg/gmredi/gmredi_k3d.F |
966 |
GMREDI_K3D |
RenormU(i,j)=oneRL |
|
./pkg/gmredi/gmredi_k3d.F |
967 |
GMREDI_K3D |
RenormV(i,j)=oneRL |
|
./pkg/gmredi/gmredi_readparms.F |
165 |
GMREDI_READPARMS |
GM_K3D_minRenorm = oneRL |
|
./pkg/gmredi/gmredi_write_pickup.F |
173 |
GMREDI_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/mdsio/mdsio_gl.F |
1446 |
MDSWRITEFIELD_2D_GL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl.F |
1564 |
MDSWRITEFIELD_2D_GL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl.F |
657 |
MDSWRITEFIELD_3D_GL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl.F |
775 |
MDSWRITEFIELD_3D_GL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
718 |
MDSWRITEFIELD_XZ_GL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
959 |
MDSWRITEFIELD_YZ_GL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
119 |
MDS_READ_META |
misVal = oneRL |
|
./pkg/mdsio/mdsio_read_meta.F |
348 |
MDS_READ_META |
IF ( misVal.EQ.oneRL .AND. iL.GE.40 .AND. |
|
./pkg/mdsio/mdsio_write_field.F |
554 |
MDS_WRITE_FIELD |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
600 |
MDS_WRITE_FIELD |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
|
./model/src/calc_phi_hyd.F |
284 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
285 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
350 |
CALC_PHI_HYD |
& (oneRL/locAlpha - recip_rhoConst) |
|
./model/src/calc_phi_hyd.F |
404 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
405 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
448 |
CALC_PHI_HYD |
& *( sFld(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/calc_phi_hyd.F |
591 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
592 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./pkg/mdsio/mdsio_write_meta.F |
182 |
MDS_WRITE_META |
IF ( misVal.NE.oneRL ) THEN |
|
./pkg/mdsio/mdsio_write_tape.F |
213 |
MDS_WRITE_TAPE |
I 0, dummyRL, oneRL, iRec, myIter, myThid ) |
|
./pkg/mdsio/mdsio_write_tape.F |
310 |
MDS_WRITE_TAPE |
I 0, dummyRL, oneRL, iRec, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
405 |
MDS_WRITELOCAL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
436 |
MDS_WRITELOCAL |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
246 |
MDS_WRITEVEC_LOC |
I 0, dummyRL, oneRL, irecord, myIter, myThid ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
60 |
MOM_CALC_3D_STRAIN |
maskp1 = oneRL |
|
./pkg/monitor/mon_calc_stats_rl.F |
102 |
MON_CALC_STATS_RL |
tileNbPt(bi,bj) = tileNbPt(bi,bj) + oneRL |
|
./pkg/monitor/mon_calc_stats_rs.F |
102 |
MON_CALC_STATS_RS |
tileNbPt(bi,bj) = tileNbPt(bi,bj) + oneRL |
|
./pkg/mypackage/mypackage_write_pickup.F |
140 |
MYPACKAGE_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/obcs/obcs_set_connect.F |
255 |
OBCS_SET_CONNECT |
IF ( listLocal(n,bi,bj).EQ.j ) tmpRL = oneRL |
|
./pkg/obcs/obcs_set_connect.F |
260 |
OBCS_SET_CONNECT |
IF ( tmpRL.EQ.oneRL ) THEN |
|
./model/src/diags_phi_rlow.F |
100 |
DIAGS_PHI_RLOW |
ratioRp = oneRL |
|
./model/src/diags_phi_rlow.F |
99 |
DIAGS_PHI_RLOW |
ratioRm = oneRL |
|
./model/src/do_atmospheric_phys.F |
94 |
DO_ATMOSPHERIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/do_oceanic_phys.F |
815 |
DO_OCEANIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
177 |
PTRACERS_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./model/src/find_rho.F |
1164 |
FIND_RHO_SCALAR |
oneMinusKap = oneRL - atm_kappa |
|
./model/src/find_rho.F |
1167 |
FIND_RHO_SCALAR |
theta_v = tLoc*( sLoc*atm_Rq + oneRL ) |
|
./model/src/find_rho.F |
245 |
FIND_RHO_2D |
oneMinusKap = oneRL - atm_kappa |
|
./model/src/find_rho.F |
251 |
FIND_RHO_2D |
theta_v = tFld(i,j)*( sFld(i,j)*atm_Rq + oneRL ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
292 |
SEAICE_GET_DYNFORCING |
& + fu(i,j,bi,bj)*(oneRL-locFrac) |
|
./pkg/seaice/seaice_get_dynforcing.F |
307 |
SEAICE_GET_DYNFORCING |
& + fv(i,j,bi,bj)*(oneRL-locFrac) |
|
./pkg/seaice/seaice_init_fixed.F |
165 |
SEAICE_INIT_FIXED |
tmpVar = oneRL / tmpVar |
|
./pkg/seaice/seaice_init_fixed.F |
172 |
SEAICE_INIT_FIXED |
& *( oneRL + TANH( Hlimit_c3 *( FLOAT(k-1)*tmpVar - oneRL ) ) ) |
|
./pkg/seaice/seaice_write_pickup.F |
214 |
SEAICE_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/shelfice/shelfice_write_pickup.F |
117 |
SHELFICE_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/streamice/streamice_init_varia.F |
218 |
STREAMICE_INIT_VARIA |
& min (oneRL, (c1*(slope_pos-xC(i,j,bi,bj)))**2)) |
|
./model/src/ini_masks_etc.F |
110 |
INI_MASKS_ETC |
hFacMnSz = MAX( hFacMin, MIN(hFacMinDr*recip_drF(k),oneRL) ) |
|
./model/src/ini_masks_etc.F |
116 |
INI_MASKS_ETC |
hFacCtmp = MIN( MAX( hFacCtmp, zeroRL ) , oneRL ) |
|
./model/src/ini_masks_etc.F |
153 |
INI_MASKS_ETC |
hFacMnSz = MAX( hFacMin, MIN(hFacMinDr*recip_drF(k),oneRL) ) |
|
./model/src/ini_masks_etc.F |
281 |
INI_MASKS_ETC |
hFacMnSz = MAX( hFacMin, MIN(hFacMinDr*recip_drF(k),oneRL) ) |
|
./model/src/ini_masks_etc.F |
286 |
INI_MASKS_ETC |
hFacCtmp = MIN( hFac1tmp, oneRL ) |
|
./model/src/ini_masks_etc.F |
310 |
INI_MASKS_ETC |
hFacCtmp = MIN( hFac1tmp, oneRL ) |
|
./pkg/streamice/streamice_write_pickup.F |
172 |
STREAMICE_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/thsice/thsice_step_fwd.F |
188 |
THSICE_STEP_FWD |
I iceMask(1-OLx,1-OLy,bi,bj), oneRL, 1, |
|
./pkg/thsice/thsice_step_fwd.F |
190 |
THSICE_STEP_FWD |
CALL DIAGNOSTICS_FRACT_FILL( siceAlb, iceMask, oneRL, 1, |
|
./pkg/zonal_filt/zonal_filt_init.F |
65 |
ZONAL_FILT_INIT |
ampfact(lat,i) = MIN( oneRL, |
|
./pkg/zonal_filt/zonal_filt_init.F |
94 |
ZONAL_FILT_INIT |
ampFactor(1,j,bi,bj) = oneRL |
|
./pkg/zonal_filt/zonal_filt_init.F |
95 |
ZONAL_FILT_INIT |
ampFactorV(1,j,bi,bj) = oneRL |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./model/src/post_cg3d.F |
104 |
POST_CG3D |
& ( implicitNHPress.LT.oneRL .OR. selectP_inEOS_Zc.EQ.3 ) ) THEN |
|
./model/src/solve_for_pressure.F |
345 |
SOLVE_FOR_PRESSURE |
IF ( useDiagnostics .AND. implicSurfPress.NE.oneRL ) THEN |
|
./model/src/solve_for_pressure.F |
353 |
SOLVE_FOR_PRESSURE |
& + (oneRL - implicSurfPress)* Bo_surf(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
201 |
SOLVE_UV_TRIDIAGO |
tmpVar = oneRL - aTu(1,j,bi,bj)*cTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
242 |
SOLVE_UV_TRIDIAGO |
cTu(1,j,bm,bj) = oneRL + cTu(1,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
243 |
SOLVE_UV_TRIDIAGO |
aTu(2,j,bp,bj) = oneRL + aTu(2,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
388 |
SOLVE_UV_TRIDIAGO |
tmpVar = oneRL - aTv(1,i,bi,bj)*cTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
429 |
SOLVE_UV_TRIDIAGO |
cTv(1,i,bi,bm) = oneRL + cTv(1,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
430 |
SOLVE_UV_TRIDIAGO |
aTv(2,i,bi,bp) = oneRL + aTv(2,i,bi,bp) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./model/src/write_pickup.F |
344 |
WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/atm_compon_interf/cpl_write_pickup.F |
172 |
CPL_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
113 |
ATM_PHYS_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/bbl/bbl_write_pickup.F |
108 |
BBL_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/bling/bling_write_pickup.F |
111 |
BLING_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/cfc/cfc11_forcing.F |
145 |
CFC11_FORCING |
weight = MAX( zeroRL, MIN( oneRL, weight ) ) |
|
./pkg/cfc/cfc11_forcing.F |
147 |
CFC11_FORCING |
& + ( oneRL - weight )*ACFC11south |
|
./pkg/cfc/cfc12_forcing.F |
146 |
CFC12_FORCING |
weight = MAX( zeroRL, MIN( oneRL, weight ) ) |
|
./pkg/cfc/cfc12_forcing.F |
148 |
CFC12_FORCING |
& + ( oneRL - weight )*ACFC12south |
|
./pkg/cheapaml/cheapaml.F |
440 |
CHEAPAML |
& *( oneRL - (halfRL+ABS(yG(i,j,bi,bj))/230. _d 0) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
294 |
CHEAPAML_COARE3_FLUX |
psik=2.*LOG((1.+x)/2.)+LOG((1.+x*x)/2.)-2.*ATAN(x)+2.*ATAN(oneRL) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
298 |
CHEAPAML_COARE3_FLUX |
& + 4.*ATAN(oneRL)/SQRT(3. _d 0) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
336 |
CHEAPAML_COARE3_FLUX |
& + 4.*ATAN(oneRL)/SQRT(3. _d 0) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
189 |
CHEAPAML_INIT_FIXED |
tmpVar = oneRL / tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
196 |
CHEAPAML_INIT_FIXED |
IF (iG.LE.xmw) xmf = oneRL - (iG-1 )*tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
197 |
CHEAPAML_INIT_FIXED |
IF (iG.GE.Nx-xmw+1) xmf = oneRL - (Nx-iG)*tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
201 |
CHEAPAML_INIT_FIXED |
& xmf = MAX( xmf, oneRL - (jG-1 )*tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
203 |
CHEAPAML_INIT_FIXED |
& xmf = MAX( xmf, oneRL - (Ny-jG)*tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
213 |
CHEAPAML_INIT_FIXED |
& (oneRL - maskC(i,j,1,bi,bj)) ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
231 |
CHEAPAML_INIT_FIXED |
tmpVar = oneRL/cheap_tauRelax |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
240 |
CHEAPAML_INIT_FIXED |
tmpVar = oneRL/cheap_tauRelaxOce |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
251 |
CHEAPAML_INIT_FIXED |
xrelf(i,j,bi,bj)= tmpVar/( oneRL + tmpVar ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
142 |
CHEAPAML_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
101 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( vVel, oneRL, 2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
103 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( wVel, oneRL, 2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
434 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( theta, oneRL, 2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
436 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( salt, oneRL, 2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
503 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( tmpMk, oneRL, 2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
82 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( etaN, oneRL, 2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
86 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( dEtaHdt, oneRL, 2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
99 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( uVel, oneRL, 2, |
|
./pkg/diagnostics/diagnostics_readparms.F |
142 |
DIAGNOSTICS_READPARMS |
missing_value(l) = oneRL |
|
./pkg/diagnostics/diagnostics_readparms.F |
319 |
DIAGNOSTICS_READPARMS |
IF ( missing_value(l) .NE. oneRL ) |
|
./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/dic/dic_write_pickup.F |
119 |
DIC_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/ecco/cost_gencost_sshv4.F |
625 |
COST_GENCOST_SSHV4 |
call ECCO_ZERO(num0array,1,oneRL,mythid) |
|
./pkg/ecco/cost_gencost_transp.F |
243 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(localtmp,nnzobs,oneRL,mythid) |
|
./pkg/ecco/cost_gencost_transp.F |
255 |
COST_GENCOST_TRANSP |
call ECCO_ZERO(localtmp,nnzobs,oneRL,mythid) |
|
./pkg/ecco/cost_generic.F |
293 |
COST_GENLOOP |
fac=oneRL |