| 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 |
579 |
NO PROCEDURE |
_RL ZERO , ONE , TWO |
|
./pkg/seaice/SEAICE_PARAMS.h |
580 |
NO PROCEDURE |
PARAMETER ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 ) |
|
./pkg/seaice/dynsolver.F |
143 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/lsr.F |
1129 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
1162 |
LSR |
S2=ZERO |
|
./pkg/seaice/lsr.F |
154 |
LSR |
WFAU2=ZERO |
|
./pkg/seaice/lsr.F |
155 |
LSR |
WFAV2=ZERO |
|
./pkg/seaice/lsr.F |
225 |
LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/lsr.F |
510 |
LSR |
AA3 = ZERO |
|
./pkg/seaice/lsr.F |
567 |
LSR |
AA3 = ZERO |
|
./pkg/seaice/lsr.F |
612 |
LSR |
S1=ZERO |
|
./pkg/seaice/lsr.F |
637 |
LSR |
S2=ZERO |
|
./pkg/seaice/lsr.F |
751 |
LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
752 |
LSR |
CU(sNx,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
880 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
914 |
LSR |
S1=ZERO |
|
./pkg/seaice/lsr.F |
994 |
LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
995 |
LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/seaice_advdiff.F |
480 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_advdiff.F |
517 |
SEAICE_ADVDIFF |
tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
108 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
112 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO) |
|
./pkg/seaice/seaice_check.F |
242 |
SEAICE_CHECK |
& ( (SItrFromOceanFrac(iTracer).NE.ZERO).OR. |
|
./pkg/seaice/seaice_check.F |
243 |
SEAICE_CHECK |
& (SItrFromFloodFrac(iTracer).NE.ZERO) ) ) THEN |
|
./pkg/seaice/seaice_diagnostics_state.F |
87 |
SEAICE_DIAGNOSTICS_STATE |
IF (AREA(I,J,bi,bj) .GT. ZERO) |
|
./pkg/seaice/seaice_freedrift.F |
109 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
119 |
SEAICE_FREEDRIFT |
IF ( tmpscal3.GT.ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
127 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
137 |
SEAICE_FREEDRIFT |
IF ( tmpscal4.GT.ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
99 |
SEAICE_FREEDRIFT |
IF ( tmpscal1.GT.ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
159 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
177 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
262 |
SEAICE_GET_DYNFORCING |
IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1092 |
SEAICE_GROWTH |
IF (a_QbyATMmult_cover(i,j,it).LT.ZERO .OR. |
|
./pkg/seaice/seaice_growth.F |
1093 |
SEAICE_GROWTH |
& a_QbyATM_open(i,j) .LT.ZERO .OR. |
|
./pkg/seaice/seaice_growth.F |
1094 |
SEAICE_GROWTH |
& a_QbyOCN(i,j) .LT.ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
1098 |
SEAICE_GROWTH |
latMeltRate(i,j,it) = ZERO |
|
./pkg/seaice/seaice_growth.F |
1099 |
SEAICE_GROWTH |
IF (tmpscal1 .GT. ZERO) |
|
./pkg/seaice/seaice_growth.F |
1113 |
SEAICE_GROWTH |
latMeltFrac(i,j,it)=max(ZERO, min(latMeltFrac(i,j,it),ONE)) |
|
./pkg/seaice/seaice_growth.F |
1235 |
SEAICE_GROWTH |
& *SNOW2ICE),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1242 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublim(I,J),HSNOW(I,J,bi,bj)*SNOW2ICE),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1258 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublimMult(I,J,IT),HEFFITD(I,J,IT,bi,bj)),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1264 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublim(I,J),HEFF(I,J,bi,bj)),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1800 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1811 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,d_HEFFbyGREASE(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1816 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,d_HEFFbyATMonOCN_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1818 |
SEAICE_GROWTH |
tmpscal4=MAX(ZERO,a_QbyATM_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1841 |
SEAICE_GROWTH |
tmpscal3 = MIN(ZERO,tmpscal2) |
|
./pkg/seaice/seaice_growth.F |
1859 |
SEAICE_GROWTH |
& recip_HO*MAX(ZERO,d_HEFFbyATMonOCN_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1886 |
SEAICE_GROWTH |
IF (HEFFITD(I,J,IT,bi,bj).LE.ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
1888 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj)=ZERO |
|
./pkg/seaice/seaice_growth.F |
1894 |
SEAICE_GROWTH |
IF ( HEFFITDpreTH(I,J,IT).LE.ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
2260 |
SEAICE_GROWTH |
tmpscal1 = ZERO |
|
./pkg/seaice/seaice_growth.F |
2282 |
SEAICE_GROWTH |
tmpscal1 = ZERO |
|
./pkg/seaice/seaice_growth.F |
2337 |
SEAICE_GROWTH |
& ( -SEAICE_lhFusion + HeatCapacity_Cp * ZERO ) |
|
./pkg/seaice/seaice_growth.F |
2341 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * temp_EvPrRn ) |
|
./pkg/seaice/seaice_growth.F |
2345 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2350 |
SEAICE_GROWTH |
tmpscal2= ZERO |
|
./pkg/seaice/seaice_growth.F |
2645 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * temp_EvPrRn ) |
|
./pkg/seaice/seaice_growth.F |
2649 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2654 |
SEAICE_GROWTH |
tmpscal1=ZERO |
|
./pkg/seaice/seaice_growth.F |
536 |
SEAICE_GROWTH |
IF (AREA(I,J,bi,bj) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
543 |
SEAICE_GROWTH |
areaFracFactor(I,J,IT)=ZERO |
|
./pkg/seaice/seaice_growth.F |
554 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,iTr)=ZERO |
|
./pkg/seaice/seaice_growth.F |
561 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,3)=ZERO |
|
./pkg/seaice/seaice_growth.F |
633 |
SEAICE_GROWTH |
IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
650 |
SEAICE_GROWTH |
heffActualMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
651 |
SEAICE_GROWTH |
hsnowActualMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
652 |
SEAICE_GROWTH |
recip_heffActualMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
660 |
SEAICE_GROWTH |
IF (HEFFpreTH(I,J) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
674 |
SEAICE_GROWTH |
heffActual(I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
675 |
SEAICE_GROWTH |
hsnowActual(I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
676 |
SEAICE_GROWTH |
recip_heffActual(I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
698 |
SEAICE_GROWTH |
IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
704 |
SEAICE_GROWTH |
latentHeatFluxMaxMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
712 |
SEAICE_GROWTH |
IF (HEFFpreTH(I,J) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
717 |
SEAICE_GROWTH |
latentHeatFluxMax(I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
794 |
SEAICE_GROWTH |
TICES(I,J,IT,bi,bj) = ZERO |
|
./pkg/seaice/seaice_growth.F |
943 |
SEAICE_GROWTH |
a_FWbySublimMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
979 |
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 |
371 |
SEAICE_INIT_VARIA |
SEAICE_timeAve(bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
475 |
SEAICE_INIT_VARIA |
UICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
476 |
SEAICE_INIT_VARIA |
VICE(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init_varia.F |
511 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj) = MAX(HEFF(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
522 |
SEAICE_INIT_VARIA |
IF(HEFF(i,j,bi,bj).GT.ZERO) AREA(i,j,bi,bj)=ONE |
|
./pkg/seaice/seaice_init_varia.F |
536 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MAX(AREA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
538 |
SEAICE_INIT_VARIA |
IF ( AREA(i,j,bi,bj) .LE. ZERO ) HEFF(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
539 |
SEAICE_INIT_VARIA |
IF ( HEFF(i,j,bi,bj) .LE. ZERO ) AREA(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
564 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = MAX(HSNOW(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_itd_redist.F |
132 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
135 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
138 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
162 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
165 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
168 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
189 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
192 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
195 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_remap.F |
257 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
264 |
SEAICE_LSR |
WFAU2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
265 |
SEAICE_LSR |
WFAV2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
503 |
SEAICE_LSR |
AU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
505 |
SEAICE_LSR |
CU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
506 |
SEAICE_LSR |
uRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
507 |
SEAICE_LSR |
uRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
511 |
SEAICE_LSR |
AV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
513 |
SEAICE_LSR |
CV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
514 |
SEAICE_LSR |
vRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
515 |
SEAICE_LSR |
vRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
808 |
SEAICE_LSR |
S1=ZERO |
|
./pkg/seaice/seaice_lsr.F |
833 |
SEAICE_LSR |
S2=ZERO |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
96 |
SEAICE_OCEANDRAG_COEFFS |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_output.F |
239 |
SEAICE_OUTPUT |
CALL CAL_TIME2DUMP( ZERO, SEAICE_taveFreq, deltaTClock, |
|
./pkg/seaice/seaice_output.F |
340 |
SEAICE_OUTPUT |
SEAICE_timeAve(bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
196 |
SEAICE_PRECONDITIONER |
AU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
198 |
SEAICE_PRECONDITIONER |
CU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
199 |
SEAICE_PRECONDITIONER |
uRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
200 |
SEAICE_PRECONDITIONER |
uRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
203 |
SEAICE_PRECONDITIONER |
AV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
205 |
SEAICE_PRECONDITIONER |
CV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
206 |
SEAICE_PRECONDITIONER |
vRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
207 |
SEAICE_PRECONDITIONER |
vRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_readparms.F |
348 |
SEAICE_READPARMS |
SEAICE_initialHEFF = ZERO |
|
./pkg/seaice/seaice_readparms.F |
610 |
SEAICE_READPARMS |
SItrFromOcean0(iTracer) = ZERO |
|
./pkg/seaice/seaice_readparms.F |
611 |
SEAICE_READPARMS |
SItrFromOceanFrac(iTracer) = ZERO |
|
./pkg/seaice/seaice_readparms.F |
612 |
SEAICE_READPARMS |
SItrFromFlood0(iTracer) = ZERO |
|
./pkg/seaice/seaice_readparms.F |
613 |
SEAICE_READPARMS |
SItrFromFloodFrac(iTracer) = ZERO |
|
./pkg/seaice/seaice_readparms.F |
614 |
SEAICE_READPARMS |
SItrExpand0(iTracer) = ZERO |
|
./pkg/seaice/seaice_solve4temp.F |
299 |
SEAICE_SOLVE4TEMP |
ELSEIF ( HCUT.LE.ZERO ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
410 |
SEAICE_SOLVE4TEMP |
dqh_dTs(I,J) = ZERO |
|
./pkg/seaice/seaice_solve4temp.F |
569 |
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 |