| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
942 |
ASTRO |
T0 = ZERO |
|
./pkg/fizhi/fizhi_clockstuff.F |
944 |
ASTRO |
T2 = FUN(ZERO+T1/TWO,PI,ECC,YRLEN,PER)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
945 |
ASTRO |
T3 = FUN(ZERO+T2/TWO,PI,ECC,YRLEN,PER)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
946 |
ASTRO |
T4 = FUN(ZERO+T3,PI,ECC,YRLEN,PER )*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
991 |
ASTRO |
IF( COSZ(I).LT.ZERO ) COSZ(I) = ZERO |
|
./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 |
1733 |
CLOUD |
ETA(I,K) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
1771 |
CLOUD |
TX1(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
1786 |
CLOUD |
IF (TX1(I) .GT. ZERO .AND. TX2(I) .GT. ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2006 |
CLOUD |
AKM(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2103 |
CLOUD |
TX2(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2127 |
CLOUD |
HOL(I,IC) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2130 |
CLOUD |
GMH(I,IC) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2145 |
CLOUD |
IF (AKM(I) .LT. ZERO .AND. WLQ(I) .GE. 0.0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2148 |
CLOUD |
WFN(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2387 |
RNEVP |
PARAMETER (ZERO = 0.) |
|
./pkg/fizhi/fizhi_utils.F |
692 |
MSC2GRD |
VT1(I) = ZERO |
|
./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 |
306 |
INTERP_OZ |
PARAMETER ( ZERO = 0.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 |
648 |
SIBALB |
ALA = MIN (MAX (ZERO, VLAI(I)), ALATRM) |
|
./pkg/fizhi/update_earth_exports.F |
669 |
SIBALB |
IF (SNW (I) .GT. ZERO) THEN |
|
./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 |
136 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/dynsolver.F |
318 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/dynsolver.F |
437 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/lsr.F |
170 |
LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
171 |
LSR |
CU(sNx,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
299 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
333 |
LSR |
S1=ZERO |
|
./pkg/seaice/lsr.F |
413 |
LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
414 |
LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
548 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
581 |
LSR |
S2=ZERO |
|
./pkg/seaice/lsr.F |
90 |
LSR |
WFAU2=ZERO |
|
./pkg/seaice/lsr.F |
91 |
LSR |
WFAV2=ZERO |
|
./pkg/seaice/seaice_advdiff.F |
389 |
SEAICE_ADVDIFF |
IceAge(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_budget_ice_if.F |
168 |
SEAICE_BUDGET_ICE_IF |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
201 |
SEAICE_BUDGET_ICE_IF |
IcePenetSWFluxFrac(I,J) = ZERO |
|
./pkg/seaice/seaice_evp.F |
435 |
SEAICE_EVP |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
111 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
129 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
80 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
130 |
SEAICE_GET_DYNFORCING |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
148 |
SEAICE_GET_DYNFORCING |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
231 |
SEAICE_GET_DYNFORCING |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1022 |
SEAICE_GROWTH |
tmpscal3 = MIN(ZERO,tmpscal2) |
|
./pkg/seaice/seaice_growth.F |
1027 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,a_QbyATM_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1046 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,a_QbyATM_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1051 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1258 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = MAX(ZERO,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1259 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = MAX(ZERO,HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1341 |
SEAICE_GROWTH |
IceAge(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_growth_if.F |
678 |
SEAICE_GROWTH_IF |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_init_varia.F |
164 |
SEAICE_INIT_VARIA |
SEAICE_timeAve(bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
315 |
SEAICE_INIT_VARIA |
UICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
316 |
SEAICE_INIT_VARIA |
VICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
330 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj) = MAX(HEFF(i,j,bi,bj),ZERO) |
|
./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 |
355 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MAX(AREA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
357 |
SEAICE_INIT_VARIA |
IF ( AREA(i,j,bi,bj) .LE. ZERO ) HEFF(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
358 |
SEAICE_INIT_VARIA |
IF ( HEFF(i,j,bi,bj) .LE. ZERO ) AREA(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
383 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = MAX(HSNOW(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_lsr.F |
133 |
SEAICE_LSR |
WFAU2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
134 |
SEAICE_LSR |
WFAV2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
225 |
SEAICE_LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_lsr.F |
429 |
SEAICE_LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
430 |
SEAICE_LSR |
CU(sNx,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
527 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
579 |
SEAICE_LSR |
S1=ZERO |
|
./pkg/seaice/seaice_lsr.F |
687 |
SEAICE_LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
688 |
SEAICE_LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
786 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
826 |
SEAICE_LSR |
S2=ZERO |
|
./pkg/seaice/seaice_output.F |
280 |
SEAICE_OUTPUT |
SEAICE_timeAve(bi,bj) = ZERO |
|
./pkg/seaice/seaice_readparms.F |
182 |
SEAICE_READPARMS |
SEAICE_initialHEFF = ZERO |
|
./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 |
790 |
ASTRO |
T0 = ZERO |
|
./pkg/chronos/chronos.F |
792 |
ASTRO |
T2 = FUN(ZERO+T1/TWO)*FAC |
|
./pkg/chronos/chronos.F |
793 |
ASTRO |
T3 = FUN(ZERO+T2/TWO)*FAC |
|
./pkg/chronos/chronos.F |
794 |
ASTRO |
T4 = FUN(ZERO+T3 )*FAC |
|
./pkg/chronos/chronos.F |
839 |
ASTRO |
IF( COSZ(I).LT.ZERO ) COSZ(I) = ZERO |