| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
1003 |
ASTRO |
CJ = SQRT(ONE-SJ*SJ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
922 |
ASTRO |
FUN(Y,PI,ECC,YRLEN,PER) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/fizhi/fizhi_clockstuff.F |
923 |
ASTRO |
& * (ONE - ECC*COS(Y-PER)) ** 2 |
|
./pkg/fizhi/fizhi_clockstuff.F |
988 |
ASTRO |
THNOW = THM*(ONE-FAC) + THP*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
991 |
ASTRO |
ZC = SQRT(ONE-ZS*ZS) |
|
./pkg/fizhi/fizhi_clockstuff.F |
992 |
ASTRO |
RA = (1.-ECC*ECC) / ( ONE-ECC*COS(THNOW-PER) ) |
|
./pkg/fizhi/fizhi_lsm.F |
205 |
TILE |
RA(CHNO) = ONE / ( CD(CHNO) * UM(CHNO) ) |
|
./pkg/fizhi/fizhi_lsm.F |
736 |
RCUNST |
BB = 0.877 * ( ONE - 2.*AA ) |
|
./pkg/fizhi/fizhi_lsm.F |
740 |
RCUNST |
EXTK2 = (ONE / VGZMEW(ITYP(ChNo))) * SQSCAT(ChNo) |
|
./pkg/fizhi/fizhi_lsm.F |
743 |
RCUNST |
DUM2 = (ONE-PDIR(ChNo)) * ( BB*(ONE/3.+PIE/4.) + AA*1.5 ) |
|
./pkg/fizhi/fizhi_lsm.F |
748 |
RCUNST |
& (ONE-PDIR(ChNo))*MIN( EXTK2, 50. _d 0/ZLAI(ChNo) ) |
|
./pkg/fizhi/fizhi_lsm.F |
759 |
RCUNST |
DUM2 = (RHO4 * EKAT + ONE) / (RHO4 + ONE) |
|
./pkg/fizhi/fizhi_lsm.F |
763 |
RCUNST |
RCUN(ChNo) = ONE / (RCINV * GREEN(ChNo) + 1.E-10) |
|
./pkg/fizhi/fizhi_moist.F |
1656 |
CLOUD |
PARAMETER (DAYLEN=86400.0, HALF=0.5, ONE=1.0, ZERO=0.0) |
|
./pkg/fizhi/fizhi_moist.F |
1964 |
CLOUD |
QS1(I) = TEM1 + TX8(I)*(ONE/ALHL) |
|
./pkg/fizhi/fizhi_moist.F |
2032 |
CLOUD |
TX2(I) = (ONE - TX1(I)) * WLQ(I) |
|
./pkg/fizhi/fizhi_moist.F |
2117 |
CLOUD |
* + 0.5*(PRS(II,IC+2) - PRS(II,IC)) * (ONE-TX6(I)) |
|
./pkg/fizhi/fizhi_moist.F |
2123 |
CLOUD |
TX6(I) = ONE - (TX2(I) - TX1(I)) / (TX5(I) - TX1(I)) |
|
./pkg/fizhi/fizhi_moist.F |
2395 |
RNEVP |
PARAMETER ( ONE = 1.) |
|
./pkg/fizhi/fizhi_moist.F |
2477 |
RNEVP |
IF(N.GT.1)RELAX=ONE |
|
./pkg/fizhi/fizhi_moist.F |
2483 |
RNEVP |
TEMP1(I,5)=TEMP1(I,5)/(ONE+TEMP1(I,6)) |
|
./pkg/fizhi/fizhi_moist.F |
2520 |
RNEVP |
AREARAT = ONE-(EXP(EXPARG)) |
|
./pkg/fizhi/fizhi_moist.F |
2572 |
RNEVP |
AREARAT = ONE-(EXP(EXPARG)) |
|
./pkg/fizhi/fizhi_utils.F |
702 |
MSC2GRD |
A(I) = A(I)*(ONE-FRACG(I)) + VT1(I) |
|
./pkg/fizhi/sibber.h |
13 |
NO PROCEDURE |
_RL ZERO, ONE, PIE |
|
./pkg/fizhi/sibber.h |
21 |
NO PROCEDURE |
PARAMETER (ZERO = 0., ONE = 1., PIE = 3.14159265) |
|
./pkg/fizhi/update_chemistry_exports.F |
307 |
INTERP_OZ |
PARAMETER ( ONE = 1.0 ) |
|
./pkg/fizhi/update_earth_exports.F |
218 |
SIBALB |
_RL ZERO, ONE |
|
./pkg/fizhi/update_earth_exports.F |
225 |
SIBALB |
PARAMETER (ZERO=0., ONE=1.0) |
|
./pkg/fizhi/update_earth_exports.F |
657 |
SIBALB |
DX = (ALA - (BLAI+(LAI-1)*DLAI)) * (ONE/DLAI) |
|
./pkg/fizhi/update_earth_exports.F |
658 |
SIBALB |
DY = (VGRN(I)- GRN(1)) * (ONE/(GRN(2) - GRN(1))) |
|
./pkg/fizhi/update_earth_exports.F |
809 |
GETLGR |
& VGLA(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
811 |
GETLGR |
& VGGR(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
890 |
GETALB |
ALBVR(I,J,bi,bj) = ALBSI*FRACI(I,J) + ALBOC(I,J)*(ONE-FRACI(I,J)) |
|
./pkg/fizhi/update_earth_exports.F |
892 |
GETALB |
ALBVF(I,J,bi,bj) = ALBSI * FRACI(I,J) + OCNALB * (ONE-FRACI(I,J)) |
|
./pkg/seaice/SEAICE_PARAMS.h |
579 |
NO PROCEDURE |
_RL ZERO , ONE , TWO |
|
./pkg/seaice/SEAICE_PARAMS.h |
580 |
NO PROCEDURE |
PARAMETER ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 ) |
|
./pkg/seaice/dynsolver.F |
147 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
152 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
226 |
DYNSOLVER |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
69 |
DYNSOLVER |
ECM2=ONE/(ECCEN**2) |
|
./pkg/seaice/lsr.F |
350 |
LSR |
BU(I,J,bi,bj)=(ONE - UVM(I,J,bi,bj)) + |
|
./pkg/seaice/lsr.F |
390 |
LSR |
BV(I,J,bi,bj)= (ONE - UVM(I,J,bi,bj)) + |
|
./pkg/seaice/lsr.F |
740 |
LSR |
BU(I,J,bi,bj)=(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
986 |
LSR |
BV(I,J,bi,bj)= (ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
88 |
OSTRES |
fu(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fu(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
90 |
OSTRES |
fv(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fv(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_advdiff.F |
231 |
SEAICE_ADVDIFF |
I GAD_HEFF, SEAICEdiffKhHeff, ONE, |
|
./pkg/seaice/seaice_advdiff.F |
274 |
SEAICE_ADVDIFF |
I GAD_AREA, SEAICEdiffKhArea, ONE, |
|
./pkg/seaice/seaice_advdiff.F |
305 |
SEAICE_ADVDIFF |
I GAD_AREA, SEAICEdiffKhArea, ONE, |
|
./pkg/seaice/seaice_advdiff.F |
341 |
SEAICE_ADVDIFF |
I GAD_SNOW, SEAICEdiffKhSnow, ONE, |
|
./pkg/seaice/seaice_advdiff.F |
384 |
SEAICE_ADVDIFF |
I GAD_SALT, SEAICEdiffKhSalt, ONE, |
|
./pkg/seaice/seaice_advdiff.F |
450 |
SEAICE_ADVDIFF |
I GAD_SITR+iTr-1, SEAICEdiffKhSItr, ONE, |
|
./pkg/seaice/seaice_calc_viscosities.F |
88 |
SEAICE_CALC_VISCOSITIES |
IF ( SEAICE_eccen .NE. 0. _d 0 ) recip_e2=ONE/(SEAICE_eccen**2) |
|
./pkg/seaice/seaice_diagnostics_state.F |
116 |
SEAICE_DIAGNOSTICS_STATE |
I ONE, 1, diagName, 0, 1, 0, 1, 1, myThid ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
120 |
SEAICE_DIAGNOSTICS_STATE |
I ONE, 1, diagName, 0, 1, 0, 1, 1, myThid ) |
|
./pkg/seaice/seaice_do_ridging.F |
121 |
SEAICE_DO_RIDGING |
openWater(i,j) = ONE |
|
./pkg/seaice/seaice_dynsolver.F |
79 |
SEAICE_DYNSOLVER |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_evp.F |
194 |
SEAICE_EVP |
IF ( ecc2 .NE. 0. _d 0 ) recip_ecc2=ONE/ecc2 |
|
./pkg/seaice/seaice_evp.F |
903 |
SEAICE_EVP |
& + uIceNm1(i,j,bi,bj)*(ONE-locMaskU) |
|
./pkg/seaice/seaice_evp.F |
905 |
SEAICE_EVP |
& + vIceNm1(i,j,bi,bj)*(ONE-locMaskV) |
|
./pkg/seaice/seaice_growth.F |
1050 |
SEAICE_GROWTH |
MixedLayerTurbulenceFactor = ONE - |
|
./pkg/seaice/seaice_growth.F |
1054 |
SEAICE_GROWTH |
MixedLayerTurbulenceFactor = ONE - SEAICE_mcPheeTaper |
|
./pkg/seaice/seaice_growth.F |
1056 |
SEAICE_GROWTH |
MixedLayerTurbulenceFactor = ONE |
|
./pkg/seaice/seaice_growth.F |
1113 |
SEAICE_GROWTH |
latMeltFrac(i,j,it)=max(ZERO, min(latMeltFrac(i,j,it),ONE)) |
|
./pkg/seaice/seaice_growth.F |
1903 |
SEAICE_GROWTH |
& * (ONE - latMeltFrac(I,J,IT)) |
|
./pkg/seaice/seaice_growth.F |
2026 |
SEAICE_GROWTH |
& (ONE + EXP( (SPinflectionPoint - AREApreTH(I,J))*5.0 |
|
./pkg/seaice/seaice_growth.F |
2027 |
SEAICE_GROWTH |
& /(ONE - SPinflectionPoint) ))**(-ONE) |
|
./pkg/seaice/seaice_growth.F |
2081 |
SEAICE_GROWTH |
& *(ONE-SEAICE_saltFrac)*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2112 |
SEAICE_GROWTH |
& (ONE + EXP( (SPinflectionPoint - AREApreTH(I,J))*5.0 |
|
./pkg/seaice/seaice_growth.F |
2113 |
SEAICE_GROWTH |
& /(ONE - SPinflectionPoint) ))**(-ONE) |
|
./pkg/seaice/seaice_growth.F |
2119 |
SEAICE_GROWTH |
& *(ONE-SEAICE_saltFrac)*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2212 |
SEAICE_GROWTH |
& snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
2268 |
SEAICE_GROWTH |
& - snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) ) |
|
./pkg/seaice/seaice_growth.F |
2327 |
SEAICE_GROWTH |
& * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2376 |
SEAICE_GROWTH |
& * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2390 |
SEAICE_GROWTH |
& EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2407 |
SEAICE_GROWTH |
& - EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2426 |
SEAICE_GROWTH |
& *( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2573 |
SEAICE_GROWTH |
tmpscal1= EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
336 |
SEAICE_GROWTH |
recip_multDim = ONE / recip_multDim |
|
./pkg/seaice/seaice_growth.F |
339 |
SEAICE_GROWTH |
recip_deltaTtherm = ONE / SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
340 |
SEAICE_GROWTH |
recip_rhoIce = ONE / SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth.F |
347 |
SEAICE_GROWTH |
SNOW2ICE = ONE / ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
351 |
SEAICE_GROWTH |
recip_QI = ONE / QI |
|
./pkg/seaice/seaice_growth.F |
364 |
SEAICE_GROWTH |
convertHI2Q = ONE/convertQ2HI |
|
./pkg/seaice/seaice_growth.F |
367 |
SEAICE_GROWTH |
convertHI2PRECIP = ONE/convertPRECIP2HI |
|
./pkg/seaice/seaice_growth.F |
541 |
SEAICE_GROWTH |
areaFracFactor(I,J,IT)=ONE |
|
./pkg/seaice/seaice_growth.F |
578 |
SEAICE_GROWTH |
I ONE, 1, diagName,0,1,2,bi,bj,myThid ) |
|
./pkg/seaice/seaice_growth.F |
582 |
SEAICE_GROWTH |
I ONE, 1, diagName,0,1,2,bi,bj,myThid ) |
|
./pkg/seaice/seaice_growth.F |
954 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
956 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
969 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
971 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_init_fixed.F |
106 |
SEAICE_INIT_FIXED |
SItrFromOcean0(iTracer) =ONE |
|
./pkg/seaice/seaice_init_fixed.F |
107 |
SEAICE_INIT_FIXED |
SItrFromFlood0(iTracer) =ONE |
|
./pkg/seaice/seaice_init_fixed.F |
108 |
SEAICE_INIT_FIXED |
SItrExpand0(iTracer) =ONE |
|
./pkg/seaice/seaice_init_varia.F |
522 |
SEAICE_INIT_VARIA |
IF(HEFF(i,j,bi,bj).GT.ZERO) AREA(i,j,bi,bj)=ONE |
|
./pkg/seaice/seaice_init_varia.F |
537 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MIN(AREA(i,j,bi,bj),ONE) |
|
./pkg/seaice/seaice_init_varia.F |
679 |
SEAICE_INIT_VARIA |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_itd_redist.F |
90 |
SEAICE_ITD_REDIST |
openWater(i,j) = ONE |
|
./pkg/seaice/seaice_lsr.F |
1321 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj)=(ONE - seaiceMaskU(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
1384 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj)= (ONE - seaiceMaskV(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
504 |
SEAICE_LSR |
BU(I,J,bi,bj) = ONE |
|
./pkg/seaice/seaice_lsr.F |
512 |
SEAICE_LSR |
BV(I,J,bi,bj) = ONE |
|
./pkg/seaice/seaice_ocean_stress.F |
121 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj)+areaW*fuIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
122 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj)+areaS*fvIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
67 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
77 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
197 |
SEAICE_PRECONDITIONER |
BU(I,J,bi,bj) = ONE |
|
./pkg/seaice/seaice_preconditioner.F |
204 |
SEAICE_PRECONDITIONER |
BV(I,J,bi,bj) = ONE |
|
./pkg/seaice/seaice_readparms.F |
670 |
SEAICE_READPARMS |
IF (SEAICE_PDF(l).EQ.UNSET_RL) SEAICE_PDF(l) = ONE/tmp |
|
./pkg/seaice/seaice_reg_ridge.F |
84 |
SEAICE_REG_RIDGE |
recip_deltaTtherm = ONE / SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_tracer_phys.F |
196 |
SEAICE_TRACER_PHYS |
tmpscal1=-ONE/SEAICE_deltaTtherm*SEAICE_rhoIce |
|
./pkg/chronos/chronos.F |
767 |
ASTRO |
FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/chronos/chronos.F |
768 |
ASTRO |
. * (ONE - ECC*COS(Y-PER)) ** 2 |
|
./pkg/chronos/chronos.F |
821 |
ASTRO |
THNOW = THM*(ONE-FAC) + THP*FAC |
|
./pkg/chronos/chronos.F |
824 |
ASTRO |
ZC = SQRT(ONE-ZS*ZS) |
|
./pkg/chronos/chronos.F |
825 |
ASTRO |
RA = (1.-ECC*ECC) / ( ONE-ECC*COS(THNOW-PER) ) |
|
./pkg/chronos/chronos.F |
836 |
ASTRO |
CJ = SQRT(ONE-SJ*SJ) |