| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/budget.F |
224 |
BUDGET |
QSWI(I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_do_diags.F |
321 |
SEAICE_DO_DIAGS |
SEAICE_TimeAve(k,bi,bj)=ZERO |
|
./pkg/seaice/dynsolver.F |
75 |
DYNSOLVER |
SINWIN=ZERO |
|
./pkg/seaice/dynsolver.F |
77 |
DYNSOLVER |
SINWAT=ZERO |
|
./pkg/seaice/lsr.F |
155 |
LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
156 |
LSR |
CU(sNx,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
278 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
314 |
LSR |
S1=ZERO |
|
./pkg/seaice/lsr.F |
392 |
LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
393 |
LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
503 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
538 |
LSR |
S2=ZERO |
|
./pkg/seaice/lsr.F |
75 |
LSR |
WFAU2=ZERO |
|
./pkg/seaice/lsr.F |
76 |
LSR |
WFAV2=ZERO |
|
./pkg/seaice/seaice_init.F |
123 |
SEAICE_INIT |
IF (_hFacC(i,j,1,bi,bj).eq.0.) HEFFM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
128 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
147 |
SEAICE_INIT |
TNGTICE(i,j,bi,bj)= ZERO |
|
./pkg/seaice/seaice_init.F |
148 |
SEAICE_INIT |
TNGICE(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init.F |
160 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
166 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
171 |
SEAICE_INIT |
UVM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
216 |
SEAICE_INIT |
UICEC(I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
217 |
SEAICE_INIT |
VICEC(I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
286 |
SEAICE_INIT |
YNEG(I,J,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
290 |
SEAICE_INIT |
UICE(I,J,k,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
291 |
SEAICE_INIT |
VICE(I,J,k,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
309 |
SEAICE_INIT |
HEFF(I,J,k,bi,bj) = MAX(ZETA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init.F |
322 |
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/ostres.F |
42 |
OSTRES |
SINWIN=ZERO |
|
./pkg/seaice/ostres.F |
44 |
OSTRES |
SINWAT=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 |
|
./pkg/seaice/growth.F |
127 |
GROWTH |
HEFF(I,J,1,bi,bj)=MAX(ZERO,HEFF(I,J,1,bi,bj)-YNEG(I,J,bi,bj)) |
|
./pkg/seaice/growth.F |
191 |
GROWTH |
IF(GHEFF(I,J).GT.ZERO.AND.GHEFF(I,J).LE.GAREA(I,J)) THEN |
|
./pkg/seaice/growth.F |
197 |
GROWTH |
FICE(I,J,bi,bj)=ZERO |
|
./pkg/seaice/growth.F |
223 |
GROWTH |
GAREA(I,J)=MAX(ZERO,GAREA(I,J)) |
|
./pkg/seaice/growth.F |
224 |
GROWTH |
HCORR(I,J,bi,bj)=MIN(ZERO,GHEFF(I,J)) |
|
./pkg/seaice/growth.F |
271 |
GROWTH |
IF(FICE(I,J,bi,bj).GT.ZERO) THEN |
|
./pkg/seaice/growth.F |
352 |
GROWTH |
AREA(I,J,1,bi,bj)=MAX(ZERO,AREA(I,J,1,bi,bj)) |
|
./pkg/seaice/growth.F |
353 |
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_readparms.F |
95 |
SEAICE_READPARMS |
SEAICE_initialHEFF = ZERO |
|
./pkg/seaice/SEAICE_PARAMS.h |
156 |
NO PROCEDURE |
_RL ZERO , ONE , TWO |
|
./pkg/seaice/SEAICE_PARAMS.h |
157 |
NO PROCEDURE |
parameter ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 ) |