| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
687 |
MSC2GRD |
VT1(I,1) = ZERO |
|
./pkg/fizhi/fizhi_clockstuff.F |
1016 |
ASTRO |
IF( COSZ(I).LT.ZERO ) COSZ(I) = ZERO |
|
./pkg/fizhi/fizhi_clockstuff.F |
967 |
ASTRO |
T0 = ZERO |
|
./pkg/fizhi/fizhi_clockstuff.F |
969 |
ASTRO |
T2 = FUN(ZERO+T1/TWO)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
970 |
ASTRO |
T3 = FUN(ZERO+T2/TWO)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
971 |
ASTRO |
T4 = FUN(ZERO+T3 )*FAC |
|
./pkg/fizhi/update_chemistry_exports.F |
306 |
INTERP_OZ |
PARAMETER ( ZERO = 0.0 ) |
|
./pkg/fizhi/update_earth_exports.F |
199 |
SIBALB |
_RL ZERO, ONE |
|
./pkg/fizhi/update_earth_exports.F |
206 |
SIBALB |
PARAMETER (ZERO=0., ONE=1.0) |
|
./pkg/fizhi/update_earth_exports.F |
644 |
SIBALB |
ALA = MIN (MAX (ZERO, VLAI(I)), ALATRM) |
|
./pkg/fizhi/update_earth_exports.F |
665 |
SIBALB |
IF (SNW (I) .GT. ZERO) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1596 |
CLOUD |
PARAMETER (DAYLEN=86400.0, HALF=0.5, ONE=1.0, ZERO=0.0) |
|
./pkg/fizhi/fizhi_moist.F |
1673 |
CLOUD |
ETA(I,K) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
1711 |
CLOUD |
TX1(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
1726 |
CLOUD |
IF (TX1(I) .GT. ZERO .AND. TX2(I) .GT. ZERO |
|
./pkg/fizhi/fizhi_moist.F |
1934 |
CLOUD |
AKM(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2031 |
CLOUD |
TX2(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2055 |
CLOUD |
HOL(I,IC) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2058 |
CLOUD |
GMH(I,IC) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2073 |
CLOUD |
IF (AKM(I) .LT. ZERO .AND. WLQ(I) .GE. 0.0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2076 |
CLOUD |
WFN(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2315 |
RNEVP |
PARAMETER (ZERO = 0.) |
|
./pkg/fizhi/sibber.h |
10 |
NO PROCEDURE |
_RL ZERO, ONE, PIE |
|
./pkg/fizhi/sibber.h |
18 |
NO PROCEDURE |
PARAMETER (ZERO = 0., ONE = 1., PIE = 3.14159265) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
1018 |
ASTRO |
IF( COSZ(I).LT.ZERO ) COSZ(I) = ZERO |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
969 |
ASTRO |
T0 = ZERO |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
971 |
ASTRO |
T2 = FUN(ZERO+T1/TWO)*FAC |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
972 |
ASTRO |
T3 = FUN(ZERO+T2/TWO)*FAC |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
973 |
ASTRO |
T4 = FUN(ZERO+T3 )*FAC |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
199 |
SIBALB |
_RL ZERO, ONE |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
206 |
SIBALB |
PARAMETER (ZERO=0., ONE=1.0) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
644 |
SIBALB |
ALA = MIN (MAX (ZERO, VLAI(I)), ALATRM) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
665 |
SIBALB |
IF (SNW (I) .GT. ZERO) THEN |
|
./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/seaice/seaice_do_diags.F |
368 |
SEAICE_DO_DIAGS |
SEAICE_TimeAve(k,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
259 |
SEAICE_LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
260 |
SEAICE_LSR |
CU(sNx,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
356 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
392 |
SEAICE_LSR |
S1=ZERO |
|
./pkg/seaice/seaice_lsr.F |
480 |
SEAICE_LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
481 |
SEAICE_LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
584 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
619 |
SEAICE_LSR |
S2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
88 |
SEAICE_LSR |
WFAU2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
89 |
SEAICE_LSR |
WFAV2=ZERO |
|
./pkg/seaice/SEAICE_PARAMS.h |
221 |
NO PROCEDURE |
_RL ZERO , ONE , TWO |
|
./pkg/seaice/SEAICE_PARAMS.h |
222 |
NO PROCEDURE |
parameter ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 ) |
|
./pkg/seaice/seaice_readparms.F |
135 |
SEAICE_READPARMS |
SEAICE_initialHEFF = ZERO |
|
./pkg/seaice/seaice_init.F |
101 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
129 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
135 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
140 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
155 |
SEAICE_INIT |
UICEC (I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
156 |
SEAICE_INIT |
VICEC (I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
157 |
SEAICE_INIT |
DAIRN (I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
158 |
SEAICE_INIT |
DWATN (I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
166 |
SEAICE_INIT |
GWATX (I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
167 |
SEAICE_INIT |
GWATY (I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
246 |
SEAICE_INIT |
YNEG(I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
250 |
SEAICE_INIT |
UICE(I,J,k,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
251 |
SEAICE_INIT |
VICE(I,J,k,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
269 |
SEAICE_INIT |
HEFF(I,J,k,bi,bj) = MAX(ZETA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init.F |
282 |
SEAICE_INIT |
IF(HEFF(I,J,k,bi,bj).GT.ZERO) AREA(I,J,k,bi,bj)=ONE |
|
./pkg/seaice/seaice_init.F |
55 |
SEAICE_INIT |
SEAICE_TimeAve(k,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
70 |
SEAICE_INIT |
HEFF(I,J,k,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
71 |
SEAICE_INIT |
AREA(I,J,k,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
72 |
SEAICE_INIT |
UICE(I,J,k,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
73 |
SEAICE_INIT |
VICE(I,J,k,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
80 |
SEAICE_INIT |
HSNOW(I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
81 |
SEAICE_INIT |
ZETA(I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
95 |
SEAICE_INIT |
IF (_hFacC(i,j,1,bi,bj).eq.0.) HEFFM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/budget.F |
231 |
BUDGET |
QSWI(I,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
161 |
LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
162 |
LSR |
CU(sNx,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
274 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
310 |
LSR |
S1=ZERO |
|
./pkg/seaice/lsr.F |
395 |
LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
396 |
LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
513 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
548 |
LSR |
S2=ZERO |
|
./pkg/seaice/lsr.F |
78 |
LSR |
WFAU2=ZERO |
|
./pkg/seaice/lsr.F |
79 |
LSR |
WFAV2=ZERO |
|
./pkg/seaice/growth.F |
131 |
GROWTH |
HEFF(I,J,1,bi,bj)=MAX(ZERO,HEFF(I,J,1,bi,bj)-YNEG(I,J,bi,bj)) |
|
./pkg/seaice/growth.F |
195 |
GROWTH |
IF(GHEFF(I,J).GT.ZERO.AND.GHEFF(I,J).LE.GAREA(I,J)) THEN |
|
./pkg/seaice/growth.F |
203 |
GROWTH |
FICE(I,J,bi,bj)=ZERO |
|
./pkg/seaice/growth.F |
232 |
GROWTH |
GAREA(I,J)=MAX(ZERO,GAREA(I,J)) |
|
./pkg/seaice/growth.F |
233 |
GROWTH |
HCORR(I,J,bi,bj)=MIN(ZERO,GHEFF(I,J)) |
|
./pkg/seaice/growth.F |
281 |
GROWTH |
IF(FICE(I,J,bi,bj).GT.ZERO) THEN |
|
./pkg/seaice/growth.F |
362 |
GROWTH |
AREA(I,J,1,bi,bj)=MAX(ZERO,AREA(I,J,1,bi,bj)) |
|
./pkg/seaice/growth.F |
363 |
GROWTH |
HSNOW(I,J,bi,bj)=MAX(ZERO,HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/growth.F |
89 |
GROWTH |
SEAICE_SALT(I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_get_forcing.F |
114 |
SEAICE_GET_FORCING |
initValue = ZERO |
|
./pkg/seaice/seaice_get_forcing.F |
97 |
SEAICE_GET_FORCING |
initValue = ZERO |