| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
33 |
NO PROCEDURE |
& ETA,ZETA,DRAGS,DRAGA,AMASS,FORCEX,FORCEY,UICEC,VICEC |
|
./pkg/seaice/SEAICE.h |
41 |
NO PROCEDURE |
_RL AMASS (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
85 |
DYNSOLVER |
AMASS(I,J,bi,bj)=RHOICE*QUART*(HEFF(i,j,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
89 |
DYNSOLVER |
COR_ICE(I,J,bi,bj)=AMASS(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
106 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*UICE(I,J,2,bi,bj) |
|
./pkg/seaice/lsr.F |
108 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*VICE(I,J,2,bi,bj) |
|
./pkg/seaice/lsr.F |
148 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn+DRAGS(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
381 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn+DRAGS(I,J,bi,bj)) |
|
./pkg/seaice/seaice_init.F |
218 |
SEAICE_INIT |
AMASS(I,J,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/ostres.F |
67 |
OSTRES |
& -UICE(I,J,3,bi,bj))*AMASS(I,J,bi,bj)/SEAICE_DT*TWO |
|
./pkg/seaice/ostres.F |
69 |
OSTRES |
& -VICE(I,J,3,bi,bj))*AMASS(I,J,bi,bj)/SEAICE_DT*TWO |