| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_pickup.F |
121 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, AREA, 7, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
129 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, AREA, 5, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
49 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, AREA , 7, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
57 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, AREA , 5, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
66 |
SEAICE_READ_PICKUP |
CALL SEAICE_EXCH ( AREA, myThid ) |
|
./pkg/seaice/groatb.F |
84 |
GROATB |
AREA(I,J,2,bi,bj)=MAX(A22,AREA(I,J,2,bi,bj)) |
|
./pkg/seaice/groatb.F |
97 |
GROATB |
HICE(I,J)=HEFF(I,J,2,bi,bj)/AREA(I,J,2,bi,bj) |
|
./pkg/seaice/SEAICE.h |
31 |
NO PROCEDURE |
COMMON/SEAICE_DYNVARS/UICE,VICE,AREA |
|
./pkg/seaice/SEAICE.h |
36 |
NO PROCEDURE |
_RL AREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/seaice_monitor.F |
68 |
SEAICE_MONITOR |
TMP_DIAG(i,j,bi,bj)=AREA(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_model.F |
130 |
SEAICE_MODEL |
CALL ADVECT( UICE, VICE, AREA, HEFFM, myThid ) |
|
./pkg/seaice/seaice_model.F |
139 |
SEAICE_MODEL |
CALL SEAICE_EXCH( AREA, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
157 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=AREA(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
203 |
SEAICE_DO_DIAGS |
& AREAtave(i,j,1,bi,bj) +AREA(i,j,1,bi,bj)*deltaTclock |
|
./pkg/seaice/dynsolver.F |
121 |
DYNSOLVER |
DAIRN(I,J,bi,bj)=RHOAIR*(SEAICE_drag*AAA*AREA(I,J,1,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/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 |
71 |
SEAICE_INIT |
AREA(I,J,k,bi,bj)=ZERO |
|
./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 |
120 |
OSTRES |
& HALF*AREA(I,J,1,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 |
123 |
OSTRES |
& HALF*AREA(I,J,1,bi,bj)* |
|
./pkg/seaice/growth.F |
100 |
GROWTH |
AR(I,J,bi,bj)=MIN(AREA(I,J,2,bi,bj), |
|
./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 |
230 |
GROWTH |
& +HALF*HCORR(I,J,bi,bj)*AREA(I,J,2,bi,bj) |
|
./pkg/seaice/growth.F |
232 |
GROWTH |
AREA(I,J,1,bi,bj)=AREA(I,J,1,bi,bj)+GAREA(I,J) |
|
./pkg/seaice/growth.F |
274 |
GROWTH |
& PRECIP(I,J,bi,bj)*AREA(I,J,2,bi,bj)*SDF |
|
./pkg/seaice/growth.F |
278 |
GROWTH |
& -PRECIP(I,J,bi,bj)*AREA(I,J,2,bi,bj)* |
|
./pkg/seaice/growth.F |
283 |
GROWTH |
& -PRECIP(I,J,bi,bj)*(ONE-AREA(I,J,2,bi,bj)) |
|
./pkg/seaice/growth.F |
331 |
GROWTH |
AREA(I,J,1,bi,bj)=MIN(AREA(I,J,1,bi,bj) |
|
./pkg/seaice/growth.F |
343 |
GROWTH |
AREA(I,J,1,bi,bj)=MIN(ONE,AREA(I,J,1,bi,bj)) |
|
./pkg/seaice/growth.F |
352 |
GROWTH |
AREA(I,J,1,bi,bj)=MAX(ZERO,AREA(I,J,1,bi,bj)) |
|
./pkg/seaice/growth.F |
355 |
GROWTH |
AREA(I,J,1,bi,bj)=AREA(I,J,1,bi,bj)*HEFFM(I,J,bi,bj) |