| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_pickup.F |
117 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, HSNOW, 9, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
125 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, HSNOW, 3, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
45 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, HSNOW, 9, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
53 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, HSNOW, 3, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
69 |
SEAICE_READ_PICKUP |
_EXCH_XY_R8(HSNOW, myThid ) |
|
./pkg/seaice/SEAICE.h |
47 |
NO PROCEDURE |
COMMON/SEAICE_TRANS/HEFF,HSNOW |
|
./pkg/seaice/SEAICE.h |
53 |
NO PROCEDURE |
_RL HSNOW (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/budget.F |
143 |
BUDGET |
IF(HSNOW(I,J,bi,bj).GT.HCUT) THEN |
|
./pkg/seaice/budget.F |
146 |
BUDGET |
ALB(I,J)=ALB(I,J)+(HSNOW(I,J,bi,bj)/HCUT)*(ASNOW-ALB(I,J)) |
|
./pkg/seaice/budget.F |
154 |
BUDGET |
IF(HSNOW(I,J,bi,bj).GT.0.0) THEN |
|
./pkg/seaice/budget.F |
190 |
BUDGET |
B(I,J)=XKS/(HSNOW(I,J,bi,bj)/HICE(I,J)+XKS/XKI)/HICE(I,J) |
|
./pkg/seaice/budget.F |
222 |
BUDGET |
IF(HSNOW(I,J,bi,bj).GT.0.0) THEN |
|
./pkg/seaice/budget.F |
25 |
BUDGET |
_RL HSNOW (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/budget.F |
30 |
BUDGET |
COMMON/SEAICE_TRANS/HEFF,HSNOW |
|
./pkg/seaice/seaice_init.F |
285 |
SEAICE_INIT |
HSNOW(I,J,bi,bj)=0.2*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init.F |
80 |
SEAICE_INIT |
HSNOW(I,J,bi,bj)=ZERO |
|
./pkg/seaice/growth.F |
190 |
GROWTH |
GAREA(I,J)=HSNOW(I,J,bi,bj)*QS |
|
./pkg/seaice/growth.F |
192 |
GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)-GHEFF(I,J)/QS |
|
./pkg/seaice/growth.F |
201 |
GROWTH |
& -HSNOW(I,J,bi,bj)/SDF/0.920 _d 0*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
202 |
GROWTH |
HSNOW(I,J,bi,bj)=0.0 |
|
./pkg/seaice/growth.F |
273 |
GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+SEAICE_deltaTtherm* |
|
./pkg/seaice/growth.F |
353 |
GROWTH |
HSNOW(I,J,bi,bj)=MAX(ZERO,HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/growth.F |
360 |
GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)*HEFFM(I,J,bi,bj) |