| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
437 |
SEAICE_GROWTH |
GHEFF(I,J)=-SEAICE_deltaTtherm*FICE(I,J)*AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
452 |
SEAICE_GROWTH |
IF(GHEFF(I,J).LE.snowEnergy) THEN |
|
./pkg/seaice/seaice_growth.F |
454 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)-GHEFF(I,J)/QS |
|
./pkg/seaice/seaice_growth.F |
458 |
SEAICE_GROWTH |
& frWtrIce(I,J,bi,bj) - GHEFF(I,J)/(QS*ICE2SNOW) |
|
./pkg/seaice/seaice_growth.F |
463 |
SEAICE_GROWTH |
FICE(I,J)=-(GHEFF(I,J)-snowEnergy)/ |
|
./pkg/seaice/seaice_growth.F |
615 |
SEAICE_GROWTH |
GHEFF(I,J) = MIN( HSNOW(I,J,bi,bj)/SDF/ICE2WATR, |
|
./pkg/seaice/seaice_growth.F |
617 |
SEAICE_GROWTH |
YNEG(I,J,bi,bj) = YNEG(I,J,bi,bj) +GHEFF(I,J) |
|
./pkg/seaice/seaice_growth.F |
632 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)-GHEFF(I,J)*SDF*ICE2WATR |
|
./pkg/seaice/seaice_growth.F |
633 |
SEAICE_GROWTH |
frWtrIce(I,J,bi,bj) = frWtrIce(I,J,bi,bj)-GHEFF(I,J) |
|
./pkg/seaice/seaice_growth.F |
67 |
SEAICE_GROWTH |
_RL GHEFF (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_growth.F |
884 |
SEAICE_GROWTH |
GHEFF(I,J) = (HEFF(I,J,bi,bj)-HEFFNm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
888 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(GHEFF,'SIthdgrh',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
901 |
SEAICE_GROWTH |
GHEFF(I,J) = hDraft - MIN(hDraft,HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
902 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + GHEFF(I,J) |
|
./pkg/seaice/seaice_growth.F |
904 |
SEAICE_GROWTH |
& HSNOW(I,J,bi,bj)-GHEFF(I,J)*ICE2SNOW) |
|
./pkg/seaice/seaice_growth.F |
913 |
SEAICE_GROWTH |
GHEFF(I,J) = GHEFF(I,J)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
916 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(GHEFF,'SIsnwice',0,1,3,bi,bj,myThid) |