| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
1006 |
ASTRO |
IF( COSZ(I).LT.ZERO ) COSZ(I) = ZERO |
|
./pkg/fizhi/fizhi_clockstuff.F |
957 |
ASTRO |
T0 = ZERO |
|
./pkg/fizhi/fizhi_clockstuff.F |
959 |
ASTRO |
T2 = FUN(ZERO+T1/TWO,PI,ECC,YRLEN,PER)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
960 |
ASTRO |
T3 = FUN(ZERO+T2/TWO,PI,ECC,YRLEN,PER)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
961 |
ASTRO |
T4 = FUN(ZERO+T3,PI,ECC,YRLEN,PER )*FAC |
|
./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 |
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 |
655 |
SIBALB |
ALA = MIN (MAX (ZERO, VLAI(I)), ALATRM) |
|
./pkg/fizhi/update_earth_exports.F |
676 |
SIBALB |
IF (SNW (I) .GT. ZERO) THEN |
|
./pkg/seaice/SEAICE_PARAMS.h |
499 |
NO PROCEDURE |
_RL ZERO , ONE , TWO |
|
./pkg/seaice/SEAICE_PARAMS.h |
500 |
NO PROCEDURE |
PARAMETER ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 ) |
|
./pkg/seaice/dynsolver.F |
140 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/lsr.F |
1126 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
1159 |
LSR |
S2=ZERO |
|
./pkg/seaice/lsr.F |
151 |
LSR |
WFAU2=ZERO |
|
./pkg/seaice/lsr.F |
152 |
LSR |
WFAV2=ZERO |
|
./pkg/seaice/lsr.F |
222 |
LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/lsr.F |
507 |
LSR |
AA3 = ZERO |
|
./pkg/seaice/lsr.F |
564 |
LSR |
AA3 = ZERO |
|
./pkg/seaice/lsr.F |
609 |
LSR |
S1=ZERO |
|
./pkg/seaice/lsr.F |
634 |
LSR |
S2=ZERO |
|
./pkg/seaice/lsr.F |
748 |
LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
749 |
LSR |
CU(sNx,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
877 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
911 |
LSR |
S1=ZERO |
|
./pkg/seaice/lsr.F |
991 |
LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
992 |
LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/seaice_advdiff.F |
477 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_advdiff.F |
514 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
105 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
109 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO) |
|
./pkg/seaice/seaice_check.F |
231 |
SEAICE_CHECK |
& ( (SItrFromOceanFrac(iTracer).NE.ZERO).OR. |
|
./pkg/seaice/seaice_check.F |
232 |
SEAICE_CHECK |
& (SItrFromFloodFrac(iTracer).NE.ZERO) ) ) THEN |
|
./pkg/seaice/seaice_diagnostics_state.F |
84 |
SEAICE_DIAGNOSTICS_STATE |
IF (AREA(I,J,bi,bj) .GT. ZERO) |
|
./pkg/seaice/seaice_freedrift.F |
106 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
116 |
SEAICE_FREEDRIFT |
IF ( tmpscal3.GT.ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
124 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
134 |
SEAICE_FREEDRIFT |
IF ( tmpscal4.GT.ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
96 |
SEAICE_FREEDRIFT |
IF ( tmpscal1.GT.ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
147 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
165 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
250 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1074 |
SEAICE_GROWTH |
IF (a_QbyATMmult_cover(i,j,it).LT.ZERO .OR. |
|
./pkg/seaice/seaice_growth.F |
1075 |
SEAICE_GROWTH |
& a_QbyATM_open(i,j) .LT.ZERO .OR. |
|
./pkg/seaice/seaice_growth.F |
1076 |
SEAICE_GROWTH |
& a_QbyOCN(i,j) .LT.ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
1091 |
SEAICE_GROWTH |
latMeltFrac(i,j,it)=max(ZERO, min(latMeltFrac(i,j,it),ONE)) |
|
./pkg/seaice/seaice_growth.F |
1213 |
SEAICE_GROWTH |
& *SNOW2ICE),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1220 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublim(I,J),HSNOW(I,J,bi,bj)*SNOW2ICE),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1236 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublimMult(I,J,IT),HEFFITD(I,J,IT,bi,bj)),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1242 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublim(I,J),HEFF(I,J,bi,bj)),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1778 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1789 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,d_HEFFbyGREASE(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1794 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,d_HEFFbyATMonOCN_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1796 |
SEAICE_GROWTH |
tmpscal4=MAX(ZERO,a_QbyATM_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1819 |
SEAICE_GROWTH |
tmpscal3 = MIN(ZERO,tmpscal2) |
|
./pkg/seaice/seaice_growth.F |
1836 |
SEAICE_GROWTH |
& recip_HO*MAX(ZERO,d_HEFFbyATMonOCN_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1860 |
SEAICE_GROWTH |
IF (HEFFITD(I,J,IT,bi,bj).LE.ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
1862 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj)=ZERO |
|
./pkg/seaice/seaice_growth.F |
1870 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = max(ZERO,AREAITD(I,J,IT,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
2222 |
SEAICE_GROWTH |
tmpscal1 = ZERO |
|
./pkg/seaice/seaice_growth.F |
2244 |
SEAICE_GROWTH |
tmpscal1 = ZERO |
|
./pkg/seaice/seaice_growth.F |
2299 |
SEAICE_GROWTH |
& ( -SEAICE_lhFusion + HeatCapacity_Cp * ZERO ) |
|
./pkg/seaice/seaice_growth.F |
2303 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * temp_EvPrRn ) |
|
./pkg/seaice/seaice_growth.F |
2307 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2312 |
SEAICE_GROWTH |
tmpscal2= ZERO |
|
./pkg/seaice/seaice_growth.F |
2605 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * temp_EvPrRn ) |
|
./pkg/seaice/seaice_growth.F |
2609 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2614 |
SEAICE_GROWTH |
tmpscal1=ZERO |
|
./pkg/seaice/seaice_growth.F |
518 |
SEAICE_GROWTH |
IF (AREA(I,J,bi,bj) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
525 |
SEAICE_GROWTH |
areaFracFactor(I,J,IT)=ZERO |
|
./pkg/seaice/seaice_growth.F |
536 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,iTr)=ZERO |
|
./pkg/seaice/seaice_growth.F |
543 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,3)=ZERO |
|
./pkg/seaice/seaice_growth.F |
615 |
SEAICE_GROWTH |
IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
632 |
SEAICE_GROWTH |
heffActualMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
633 |
SEAICE_GROWTH |
hsnowActualMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
634 |
SEAICE_GROWTH |
recip_heffActualMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
642 |
SEAICE_GROWTH |
IF (HEFFpreTH(I,J) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
656 |
SEAICE_GROWTH |
heffActual(I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
657 |
SEAICE_GROWTH |
hsnowActual(I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
658 |
SEAICE_GROWTH |
recip_heffActual(I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
680 |
SEAICE_GROWTH |
IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
686 |
SEAICE_GROWTH |
latentHeatFluxMaxMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
694 |
SEAICE_GROWTH |
IF (HEFFpreTH(I,J) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
699 |
SEAICE_GROWTH |
latentHeatFluxMax(I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
776 |
SEAICE_GROWTH |
TICES(I,J,IT,bi,bj) = ZERO |
|
./pkg/seaice/seaice_growth.F |
925 |
SEAICE_GROWTH |
a_FWbySublimMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
961 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
109 |
SEAICE_INIT_FIXED |
SItrFromOceanFrac(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
110 |
SEAICE_INIT_FIXED |
SItrFromFloodFrac(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
114 |
SEAICE_INIT_FIXED |
SItrFromOcean0(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
115 |
SEAICE_INIT_FIXED |
SItrFromFlood0(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
116 |
SEAICE_INIT_FIXED |
SItrExpand0(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
117 |
SEAICE_INIT_FIXED |
SItrFromOceanFrac(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
118 |
SEAICE_INIT_FIXED |
SItrFromFloodFrac(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
123 |
SEAICE_INIT_FIXED |
SItrExpand0(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
125 |
SEAICE_INIT_FIXED |
SEAICE_salt0 = ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
126 |
SEAICE_INIT_FIXED |
SEAICE_saltFrac = ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
132 |
SEAICE_INIT_FIXED |
SItrFromOcean0(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
133 |
SEAICE_INIT_FIXED |
SItrFromFlood0(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
134 |
SEAICE_INIT_FIXED |
SItrExpand0(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
135 |
SEAICE_INIT_FIXED |
SItrFromOceanFrac(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
136 |
SEAICE_INIT_FIXED |
SItrFromFloodFrac(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
143 |
SEAICE_INIT_FIXED |
SItrFromOcean0(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
144 |
SEAICE_INIT_FIXED |
SItrFromFlood0(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
145 |
SEAICE_INIT_FIXED |
SItrExpand0(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
146 |
SEAICE_INIT_FIXED |
SItrFromOceanFrac(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_fixed.F |
147 |
SEAICE_INIT_FIXED |
SItrFromFloodFrac(iTracer) =ZERO |
|
./pkg/seaice/seaice_init_varia.F |
366 |
SEAICE_INIT_VARIA |
SEAICE_timeAve(bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
470 |
SEAICE_INIT_VARIA |
UICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
471 |
SEAICE_INIT_VARIA |
VICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
506 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj) = MAX(HEFF(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
517 |
SEAICE_INIT_VARIA |
IF(HEFF(i,j,bi,bj).GT.ZERO) AREA(i,j,bi,bj)=ONE |
|
./pkg/seaice/seaice_init_varia.F |
531 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MAX(AREA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
533 |
SEAICE_INIT_VARIA |
IF ( AREA(i,j,bi,bj) .LE. ZERO ) HEFF(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
534 |
SEAICE_INIT_VARIA |
IF ( HEFF(i,j,bi,bj) .LE. ZERO ) AREA(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
559 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = MAX(HSNOW(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_itd_redist.F |
129 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
132 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
135 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
159 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
162 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
165 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
186 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
189 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
192 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
225 |
SEAICE_LSR |
WFAU2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
226 |
SEAICE_LSR |
WFAV2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
422 |
SEAICE_LSR |
AU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
424 |
SEAICE_LSR |
CU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
425 |
SEAICE_LSR |
uRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
426 |
SEAICE_LSR |
uRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
430 |
SEAICE_LSR |
AV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
432 |
SEAICE_LSR |
CV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
433 |
SEAICE_LSR |
vRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
434 |
SEAICE_LSR |
vRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
725 |
SEAICE_LSR |
S1=ZERO |
|
./pkg/seaice/seaice_lsr.F |
750 |
SEAICE_LSR |
S2=ZERO |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
93 |
SEAICE_OCEANDRAG_COEFFS |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_output.F |
231 |
SEAICE_OUTPUT |
CALL CAL_TIME2DUMP( ZERO, SEAICE_taveFreq, deltaTClock, |
|
./pkg/seaice/seaice_output.F |
328 |
SEAICE_OUTPUT |
SEAICE_timeAve(bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
192 |
SEAICE_PRECONDITIONER |
AU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
194 |
SEAICE_PRECONDITIONER |
CU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
195 |
SEAICE_PRECONDITIONER |
uRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
196 |
SEAICE_PRECONDITIONER |
uRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
199 |
SEAICE_PRECONDITIONER |
AV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
201 |
SEAICE_PRECONDITIONER |
CV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
202 |
SEAICE_PRECONDITIONER |
vRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
203 |
SEAICE_PRECONDITIONER |
vRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_readparms.F |
306 |
SEAICE_READPARMS |
SEAICE_initialHEFF = ZERO |
|
./pkg/seaice/seaice_readparms.F |
542 |
SEAICE_READPARMS |
SItrFromOcean0(iTracer) = ZERO |
|
./pkg/seaice/seaice_readparms.F |
543 |
SEAICE_READPARMS |
SItrFromOceanFrac(iTracer) = ZERO |
|
./pkg/seaice/seaice_readparms.F |
544 |
SEAICE_READPARMS |
SItrFromFlood0(iTracer) = ZERO |
|
./pkg/seaice/seaice_readparms.F |
545 |
SEAICE_READPARMS |
SItrFromFloodFrac(iTracer) = ZERO |
|
./pkg/seaice/seaice_readparms.F |
546 |
SEAICE_READPARMS |
SItrExpand0(iTracer) = ZERO |
|
./pkg/seaice/seaice_solve4temp.F |
296 |
SEAICE_SOLVE4TEMP |
ELSEIF ( HCUT.LE.ZERO ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
407 |
SEAICE_SOLVE4TEMP |
dqh_dTs(I,J) = ZERO |
|
./pkg/seaice/seaice_solve4temp.F |
566 |
SEAICE_SOLVE4TEMP |
IF (F_lh_max(I,J) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_tracer_phys.F |
212 |
SEAICE_TRACER_PHYS |
saltPlumeFlux(I,J,bi,bj) = MAX(ZERO,saltFlux(I,J,bi,bj)) |
|
./pkg/seaice/seaice_tracer_phys.F |
75 |
SEAICE_TRACER_PHYS |
& (SItrFromOceanFrac(iTr).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 |