| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_PARAMS.h |
214 |
NO PROCEDURE |
_RL SEAICE_rhoAir, SEAICE_rhoIce, SEAICE_rhoSnow, ICE2WATR |
|
./pkg/seaice/SEAICE_PARAMS.h |
238 |
NO PROCEDURE |
& SEAICE_rhoAir, SEAICE_rhoIce, SEAICE_rhoSnow, ICE2WATR, |
|
./pkg/seaice/dynsolver.F |
62 |
DYNSOLVER |
RHOICE=SEAICE_rhoIce |
|
./pkg/seaice/seaice_dynsolver.F |
101 |
SEAICE_DYNSOLVER |
seaiceMassC(I,J,bi,bj)=SEAICE_rhoIce*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
102 |
SEAICE_DYNSOLVER |
seaiceMassU(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
104 |
SEAICE_DYNSOLVER |
seaiceMassV(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_growth.F |
899 |
SEAICE_GROWTH |
& +HEFF(I,J,bi,bj)*SEAICE_rhoIce)/1000. _d 0 |
|
./pkg/seaice/seaice_growth.F |
926 |
SEAICE_GROWTH |
sIceLoad(i,j,bi,bj) = HEFF(I,J,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth_if.F |
1080 |
SEAICE_GROWTH_IF |
& SEAICE_rhoIce + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_init_varia.F |
437 |
SEAICE_INIT_VARIA |
sIceLoad(i,j,bi,bj) = HEFF(i,j,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_readparms.F |
172 |
SEAICE_READPARMS |
SEAICE_rhoIce = 0.91 _d +03 |
|
./pkg/seaice/seaice_readparms.F |
278 |
SEAICE_READPARMS |
IF (ICE2WATR.EQ.UNSET_RL) ICE2WATR = SEAICE_rhoIce*recip_rhoConst |
|
./pkg/seaice/seaice_readparms.F |
58 |
SEAICE_READPARMS |
& SEAICE_rhoAir, SEAICE_rhoIce, SEAICE_rhoSnow, ICE2WATR, |