| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/groatb.F |
132 |
GROATB |
CALL BUDGET(UG, TMIX, HICE, FO, KOPEN, bi, bj) |
|
./pkg/seaice/groatb.F |
151 |
GROATB |
HICEP(I,J)=(HICE(I,J)/7.0 _d 0)*((2.0 _d 0*RK)-1.0 _d 0) |
|
./pkg/seaice/groatb.F |
176 |
GROATB |
CALL BUDGET(UG, TICE, HICE, FICE, KOPEN, bi, bj) |
|
./pkg/seaice/groatb.F |
46 |
GROATB |
_RL HICE (1-OLx:sNx+OLx, 1-OLy:sNy+OLy) |
|
./pkg/seaice/groatb.F |
97 |
GROATB |
HICE(I,J)=HEFF(I,J,2,bi,bj)/AREA(I,J,2,bi,bj) |
|
./pkg/seaice/budget.F |
132 |
BUDGET |
HICE(I,J)=MAX(HICE1(I,J),0.05 _d +00) |
|
./pkg/seaice/budget.F |
133 |
BUDGET |
HICE(I,J)=MIN(HICE(I,J),9.0 _d +00) |
|
./pkg/seaice/budget.F |
162 |
BUDGET |
& *(ONE-XIO*EXP(-1.5 _d 0*HICE(I,J))) |
|
./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 |
228 |
BUDGET |
& *XIO*EXP(-1.5 _d 0*HICE(I,J)) |
|
./pkg/seaice/budget.F |
50 |
BUDGET |
_RL HICE (1-OLx:sNx+OLx, 1-OLy:sNy+OLy) |