| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
907 |
ASTRO |
FUN(Y,PI,ECC,YRLEN,PER) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/fizhi/fizhi_clockstuff.F |
908 |
ASTRO |
. * (ONE - ECC*COS(Y-PER)) ** 2 |
|
./pkg/fizhi/fizhi_clockstuff.F |
973 |
ASTRO |
THNOW = THM*(ONE-FAC) + THP*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
976 |
ASTRO |
ZC = SQRT(ONE-ZS*ZS) |
|
./pkg/fizhi/fizhi_clockstuff.F |
977 |
ASTRO |
RA = (1.-ECC*ECC) / ( ONE-ECC*COS(THNOW-PER) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
988 |
ASTRO |
CJ = SQRT(ONE-SJ*SJ) |
|
./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 |
203 |
SIBALB |
_RL ZERO, ONE |
|
./pkg/fizhi/update_earth_exports.F |
210 |
SIBALB |
PARAMETER (ZERO=0., ONE=1.0) |
|
./pkg/fizhi/update_earth_exports.F |
650 |
SIBALB |
DX = (ALA - (BLAI+(LAI-1)*DLAI)) * (ONE/DLAI) |
|
./pkg/fizhi/update_earth_exports.F |
651 |
SIBALB |
DY = (VGRN(I)- GRN(1)) * (ONE/(GRN(2) - GRN(1))) |
|
./pkg/fizhi/update_earth_exports.F |
803 |
GETLGR |
& VGLA(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
805 |
GETLGR |
& VGGR(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
881 |
GETALB |
ALBVR(I,J,bi,bj) = ALBSI*FRACI(I,J) + ALBOC(I,J)*(ONE-FRACI(I,J)) |
|
./pkg/fizhi/update_earth_exports.F |
883 |
GETALB |
ALBVF(I,J,bi,bj) = ALBSI * FRACI(I,J) + OCNALB * (ONE-FRACI(I,J)) |
|
./pkg/seaice/SEAICE_PARAMS.h |
276 |
NO PROCEDURE |
_RL ZERO , ONE , TWO |
|
./pkg/seaice/SEAICE_PARAMS.h |
277 |
NO PROCEDURE |
parameter ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 ) |
|
./pkg/seaice/dynsolver.F |
140 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
145 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
219 |
DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
285 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
|
./pkg/seaice/dynsolver.F |
287 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
404 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
|
./pkg/seaice/dynsolver.F |
406 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
65 |
DYNSOLVER |
ECM2=ONE/(ECCEN**2) |
|
./pkg/seaice/lsr.F |
159 |
LSR |
BU(I,J,bi,bj)=(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
405 |
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 |
371 |
SEAICE_ADVDIFF |
& / MAX(ONE,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
373 |
SEAICE_ADVDIFF |
AREA(I,J,bi,bj) = MIN(ONE,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
207 |
SEAICE_BUDGET_ICE_IF |
AbsorbedSWFlux(I,J) = -(ONE - ALB(I,J))* |
|
./pkg/seaice/seaice_budget_ice_if.F |
211 |
SEAICE_BUDGET_ICE_IF |
IcePenetSWFlux(I,J) = -(ONE - ALB(I,J))* |
|
./pkg/seaice/seaice_budget_ocean.F |
107 |
SEAICE_BUDGET_OCEAN |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
116 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
131 |
SEAICE_BUDGET_OCEAN_IF |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
140 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux (I,J)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
72 |
SEAICE_CALC_VISCOSITIES |
IF ( SEAICE_eccen .NE. 0. _d 0 ) ecm2=ONE/(SEAICE_eccen**2) |
|
./pkg/seaice/seaice_calc_viscosities.F |
86 |
SEAICE_CALC_VISCOSITIES |
deltaC = (e11(i,j,bi,bj)**2+e22(i,j,bi,bj)**2)*(ONE+ecm2) |
|
./pkg/seaice/seaice_calc_viscosities.F |
88 |
SEAICE_CALC_VISCOSITIES |
& + 2. _d 0*e11(i,j,bi,bj)*e22(i,j,bi,bj)*(ONE-ecm2) |
|
./pkg/seaice/seaice_dynsolver.F |
215 |
SEAICE_DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_dynsolver.F |
65 |
SEAICE_DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_evp.F |
107 |
SEAICE_EVP |
IF ( ecc2 .NE. 0. _d 0 ) recip_ecc2=ONE/ecc2 |
|
./pkg/seaice/seaice_growth.F |
1246 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MIN(ONE,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1444 |
SEAICE_GROWTH |
& * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1459 |
SEAICE_GROWTH |
& *( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
623 |
SEAICE_GROWTH |
& + a_QbyATM_open(I,J) * ( ONE - AREApreTH(I,J) ) ) |
|
./pkg/seaice/seaice_growth.F |
643 |
SEAICE_GROWTH |
& *( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
666 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
668 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth_if.F |
679 |
SEAICE_GROWTH_IF |
S_a_from_IGROW(I,J) = (ONE-AREANm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
682 |
SEAICE_GROWTH_IF |
S_a_from_IGROW(I,J) = (ONE-AREANm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
933 |
SEAICE_GROWTH_IF |
& * ( ONE - AREANm1(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
341 |
SEAICE_INIT_VARIA |
IF(HEFF(i,j,bi,bj).GT.ZERO) AREA(i,j,bi,bj)=ONE |
|
./pkg/seaice/seaice_init_varia.F |
356 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MIN(AREA(i,j,bi,bj),ONE) |
|
./pkg/seaice/seaice_init_varia.F |
452 |
SEAICE_INIT_VARIA |
& *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_lsr.F |
378 |
SEAICE_LSR |
BU(I,J,bi,bj)=(ONE - seaiceMaskU(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
636 |
SEAICE_LSR |
BV(I,J,bi,bj)= (ONE - seaiceMaskV(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_ocean_stress.F |
120 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj)+areaW*fuIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
121 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj)+areaS*fvIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
66 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
76 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj) |
|
./verification/global_ocean.cs32x15/code_ad/SEAICE_PARAMS.h |
276 |
NO PROCEDURE |
_RL ZERO , ONE , TWO |
|
./verification/global_ocean.cs32x15/code_ad/SEAICE_PARAMS.h |
277 |
NO PROCEDURE |
parameter ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 ) |
|
./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) |