| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
957 |
GMREDI_K3D |
Renorm(i,j)=oneRL |
|
./pkg/gmredi/gmredi_k3d.F |
958 |
GMREDI_K3D |
RenormU(i,j)=oneRL |
|
./pkg/gmredi/gmredi_k3d.F |
959 |
GMREDI_K3D |
RenormV(i,j)=oneRL |
|
./pkg/gmredi/gmredi_readparms.F |
161 |
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 ) |
|
./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 |
|
./model/src/calc_phi_hyd.F |
279 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
280 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
345 |
CALC_PHI_HYD |
& (oneRL/locAlpha - recip_rhoConst) |
|
./model/src/calc_phi_hyd.F |
399 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
400 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
443 |
CALC_PHI_HYD |
& *( sFld(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/calc_phi_hyd.F |
586 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
587 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./pkg/mypackage/mypackage_write_pickup.F |
140 |
MYPACKAGE_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./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 |
80 |
DO_ATMOSPHERIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/do_oceanic_phys.F |
713 |
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, |
|
./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/streamice/streamice_init_varia.F |
220 |
STREAMICE_INIT_VARIA |
& min (oneRL, (c1*(slope_pos-xC(i,j,bi,bj)))**2)) |
|
./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 ) |
|
./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/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) |
|
./model/src/write_pickup.F |
340 |
WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
110 |
ATM_PHYS_WRITE_PICKUP |
& 1, timList, oneRL, |
|
./pkg/bbl/bbl_write_pickup.F |
108 |
BBL_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 |
526 |
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_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 |
424 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( theta, oneRL, 2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
426 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_SCALE_FILL( salt, oneRL, 2, |
|
./pkg/diagnostics/diagnostics_fill_state.F |
493 |
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 |
137 |
DIAGNOSTICS_READPARMS |
missing_value(l) = oneRL |
|
./pkg/diagnostics/diagnostics_readparms.F |
296 |
DIAGNOSTICS_READPARMS |
IF ( missing_value(l) .NE. oneRL ) |
|
./pkg/dic/dic_write_pickup.F |
124 |
DIC_WRITE_PICKUP |
& 1, timList, 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 ) |