| File |
Line number |
Procedure |
Code |
|
./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 |
269 |
NO PROCEDURE |
_RL ZERO , ONE , TWO |
|
./pkg/seaice/SEAICE_PARAMS.h |
270 |
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 |
393 |
SEAICE_ADVDIFF |
IceAge(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_budget_ice.F |
136 |
SEAICE_BUDGET_ICE |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_budget_ice.F |
243 |
SEAICE_BUDGET_ICE |
SWHeatFlux(I,J)=ZERO |
|
./pkg/seaice/seaice_budget_ice_if.F |
167 |
SEAICE_BUDGET_ICE_IF |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
200 |
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_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 |
394 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = MAX(ZERO,HEFF(I,J,bi,bj)-availHeat(I,J)) |
|
./pkg/seaice/seaice_growth.F |
448 |
SEAICE_GROWTH |
IF(FICE(I,J).LT.ZERO.AND.AREANm1(I,J,bi,bj).GT.ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
459 |
SEAICE_GROWTH |
FICE (I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
516 |
SEAICE_GROWTH |
HCORR(I,J) = MIN(ZERO,growthHEFF) |
|
./pkg/seaice/seaice_growth.F |
518 |
SEAICE_GROWTH |
GAREA(I,J) = MAX(ZERO,SEAICE_deltaTtherm*QNETO(I,J)*recip_QI) |
|
./pkg/seaice/seaice_growth.F |
529 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
580 |
SEAICE_GROWTH |
IF(FICE(I,J).GT.ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
613 |
SEAICE_GROWTH |
IF( RESID_HEAT(I,J) .GT. ZERO .AND. |
|
./pkg/seaice/seaice_growth.F |
614 |
SEAICE_GROWTH |
& HSNOW(I,J,bi,bj) .GT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
630 |
SEAICE_GROWTH |
IF( RESID_HEAT(I,J) .GT. ZERO .AND. |
|
./pkg/seaice/seaice_growth.F |
631 |
SEAICE_GROWTH |
& HSNOW(I,J,bi,bj) .GT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
866 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = MAX(ZERO,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
867 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = MAX(ZERO,HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
948 |
SEAICE_GROWTH |
IceAge(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_growth_if.F |
676 |
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 |
1057 |
SEAICE_LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_lsr.F |
1242 |
SEAICE_LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
1243 |
SEAICE_LSR |
CU(sNx,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
134 |
SEAICE_LSR |
WFAU2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
1353 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
135 |
SEAICE_LSR |
WFAV2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
1405 |
SEAICE_LSR |
S1=ZERO |
|
./pkg/seaice/seaice_lsr.F |
1512 |
SEAICE_LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
1513 |
SEAICE_LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
1655 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
1695 |
SEAICE_LSR |
S2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
226 |
SEAICE_LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_lsr.F |
430 |
SEAICE_LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
431 |
SEAICE_LSR |
CU(sNx,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
528 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
580 |
SEAICE_LSR |
S1=ZERO |
|
./pkg/seaice/seaice_lsr.F |
688 |
SEAICE_LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
689 |
SEAICE_LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
787 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
827 |
SEAICE_LSR |
S2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
957 |
SEAICE_LSR |
WFAU2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
958 |
SEAICE_LSR |
WFAV2=ZERO |
|
./pkg/seaice/seaice_output.F |
280 |
SEAICE_OUTPUT |
SEAICE_timeAve(bi,bj) = ZERO |
|
./pkg/seaice/seaice_readparms.F |
170 |
SEAICE_READPARMS |
SEAICE_initialHEFF = ZERO |
|
./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 |
|
./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 |