| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/groatb.F |
155 |
GROATB |
CALL BUDGET(UG, TICE, HICEP, FICE, KOPEN, bi, bj) |
|
./pkg/seaice/groatb.F |
158 |
GROATB |
FICEP(I,J)=(FICE(I,J,bi,bj)/7.0 _d 0)+FICEP(I,J) |
|
./pkg/seaice/groatb.F |
166 |
GROATB |
FICE(I,J,bi,bj)=FICEP(I,J) |
|
./pkg/seaice/groatb.F |
176 |
GROATB |
CALL BUDGET(UG, TICE, HICE, FICE, KOPEN, bi, bj) |
|
./pkg/seaice/SEAICE.h |
70 |
NO PROCEDURE |
COMMON/RATE/FHEFF,FICE,FO,HCORR |
|
./pkg/seaice/SEAICE.h |
79 |
NO PROCEDURE |
_RL FICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/growth.F |
189 |
GROWTH |
GHEFF(I,J)=-SEAICE_deltaTtherm*FICE(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
197 |
GROWTH |
FICE(I,J,bi,bj)=ZERO |
|
./pkg/seaice/growth.F |
199 |
GROWTH |
FICE(I,J,bi,bj)=-(GHEFF(I,J)-GAREA(I,J))/SEAICE_deltaTtherm |
|
./pkg/seaice/growth.F |
211 |
GROWTH |
FHEFF(I,J,bi,bj)=FICE(I,J,bi,bj)*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
240 |
GROWTH |
& FICE(I,J,bi,bj)*Q0*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
246 |
GROWTH |
& FICE(I,J,bi,bj)*Q0*AR(I,J,bi,bj))/Q0/SEAICE_deltaTtherm |
|
./pkg/seaice/growth.F |
271 |
GROWTH |
IF(FICE(I,J,bi,bj).GT.ZERO) THEN |