| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/budget.F |
110 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
119 |
BUDGET |
QSWO(I,J,bi,bj)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
156 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
161 |
BUDGET |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
162 |
BUDGET |
& *(ONE-XIO*EXP(-1.5 _d 0*HICE(I,J))) |
|
./pkg/seaice/budget.F |
227 |
BUDGET |
QSWI(I,J,bi,bj)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
123 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,1,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
145 |
DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(I,J,1,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
207 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
|
./pkg/seaice/dynsolver.F |
209 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
314 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
|
./pkg/seaice/dynsolver.F |
316 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
64 |
DYNSOLVER |
ECM2=ONE/(ECCEN**2) |
|
./pkg/seaice/dynsolver.F |
76 |
DYNSOLVER |
COSWIN=ONE |
|
./pkg/seaice/dynsolver.F |
78 |
DYNSOLVER |
COSWAT=ONE |
|
./pkg/seaice/lsr.F |
149 |
LSR |
& *UVM(I,J,bi,bj)+(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
382 |
LSR |
& *UVM(I,J,bi,bj)+(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
72 |
LSR |
RADIUS2=ONE/(RADIUS*RADIUS) |
|
./pkg/seaice/seaice_init.F |
122 |
SEAICE_INIT |
HEFFM(i,j,bi,bj)=ONE |
|
./pkg/seaice/seaice_init.F |
131 |
SEAICE_INIT |
IF(mask_uice.GT.3.5) UVM(I,J,bi,bj)=ONE |
|
./pkg/seaice/seaice_init.F |
141 |
SEAICE_INIT |
CSTICE(i,j,bi,bj) = ONE |
|
./pkg/seaice/seaice_init.F |
142 |
SEAICE_INIT |
CSUICE(i,j,bi,bj) = ONE |
|
./pkg/seaice/seaice_init.F |
144 |
SEAICE_INIT |
RECIP_CSTICE(I,J,bi,bj) = ONE |
|
./pkg/seaice/seaice_init.F |
145 |
SEAICE_INIT |
RECIP_CSUICE(I,J,bi,bj) = ONE |
|
./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/ostres.F |
119 |
OSTRES |
fu(I,J,bi,bj)=(ONE-AREA(I,J,1,bi,bj))*fu(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
122 |
OSTRES |
fv(I,J,bi,bj)=(ONE-AREA(I,J,1,bi,bj))*fv(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
43 |
OSTRES |
COSWIN=ONE |
|
./pkg/seaice/ostres.F |
45 |
OSTRES |
COSWAT=ONE |
|
./pkg/seaice/seaice_get_forcing.F |
238 |
SEAICE_GET_FORCING |
bWghtWind=ONE-aWghtWind |
|
./pkg/seaice/seaice_get_forcing.F |
275 |
SEAICE_GET_FORCING |
bWghtFlux=ONE-aWghtFlux |
|
./pkg/seaice/seaice_get_forcing.F |
369 |
SEAICE_GET_FORCING |
bWghtSST=ONE-aWghtSST |
|
./pkg/seaice/seaice_get_forcing.F |
394 |
SEAICE_GET_FORCING |
bWghtSSS=ONE-aWghtSSS |
|
./pkg/seaice/growth.F |
212 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*FO(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
222 |
GROWTH |
GHEFF(I,J)=-ONE*MIN(HEFF(I,J,1,bi,bj),GHEFF(I,J)) |
|
./pkg/seaice/growth.F |
229 |
GROWTH |
GAREA(I,J)=TWO*(ONE-AREA(I,J,2,bi,bj))*GAREA(I,J)/HO |
|
./pkg/seaice/growth.F |
241 |
GROWTH |
GHEFF(I,J)=-ONE*MIN(HEFF(I,J,1,bi,bj),GHEFF(I,J)) |
|
./pkg/seaice/growth.F |
254 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*QNETO(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
256 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*QSWO(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
283 |
GROWTH |
& -PRECIP(I,J,bi,bj)*(ONE-AREA(I,J,2,bi,bj)) |
|
./pkg/seaice/growth.F |
319 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*QNETO(I,J,bi,bj), QNET(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
343 |
GROWTH |
AREA(I,J,1,bi,bj)=MIN(ONE,AREA(I,J,1,bi,bj)) |
|
./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 ) |