| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_pickup.F |
123 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1, TICE, 1, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
51 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 1, TICE , 1, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
67 |
SEAICE_READ_PICKUP |
_EXCH_XY_R8(TICE , myThid ) |
|
./pkg/seaice/groatb.F |
152 |
GROATB |
TICE(I,J,bi,bj)=TICES(I,J,IT,bi,bj) |
|
./pkg/seaice/groatb.F |
155 |
GROATB |
CALL BUDGET(UG, TICE, HICEP, FICE, KOPEN, bi, bj) |
|
./pkg/seaice/groatb.F |
159 |
GROATB |
TICES(I,J,IT,bi,bj)=TICE(I,J,bi,bj) |
|
./pkg/seaice/groatb.F |
176 |
GROATB |
CALL BUDGET(UG, TICE, HICE, FICE, KOPEN, bi, bj) |
|
./pkg/seaice/SEAICE.h |
67 |
NO PROCEDURE |
COMMON/MIX/TMIX,TICE |
|
./pkg/seaice/SEAICE.h |
73 |
NO PROCEDURE |
_RL TICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/budget.F |
114 |
BUDGET |
& *(TICE(I,J,bi,bj)-TMELT) |
|
./pkg/seaice/budget.F |
115 |
BUDGET |
& /(TICE(I,J,bi,bj)-TMELT+237.3 _d +00)) |
|
./pkg/seaice/budget.F |
116 |
BUDGET |
A2(I,J)=-D1*UG(I,J)*TICE(I,J,bi,bj)-D1W*UG(I,J)*B(I,J) |
|
./pkg/seaice/budget.F |
117 |
BUDGET |
& -D3*(TICE(I,J,bi,bj)**4) |
|
./pkg/seaice/budget.F |
140 |
BUDGET |
IF(TICE(I,J,bi,bj).GT.TMELTP) ALB(I,J)=SEAICE_wetIceAlb |
|
./pkg/seaice/budget.F |
142 |
BUDGET |
IF(TICE(I,J,bi,bj).GT.TMELTP) ASNOW=SEAICE_wetSnowAlb |
|
./pkg/seaice/budget.F |
186 |
BUDGET |
B(I,J)=QS1*(C1*TICE(I,J,bi,bj)**4+C2*TICE(I,J,bi,bj)**3 |
|
./pkg/seaice/budget.F |
187 |
BUDGET |
& +C3*TICE(I,J,bi,bj)**2+C4*TICE(I,J,bi,bj)+C5) |
|
./pkg/seaice/budget.F |
188 |
BUDGET |
A2(I,J)=-D1*UG(I,J)*TICE(I,J,bi,bj)-D1I*UG(I,J)*B(I,J) |
|
./pkg/seaice/budget.F |
189 |
BUDGET |
& -D3*(TICE(I,J,bi,bj)**4) |
|
./pkg/seaice/budget.F |
191 |
BUDGET |
A3(I,J)=4.0 _d +00*D3*(TICE(I,J,bi,bj)**3)+B(I,J)+D1*UG(I,J) |
|
./pkg/seaice/budget.F |
192 |
BUDGET |
B(I,J)=B(I,J)*(TB-TICE(I,J,bi,bj)) |
|
./pkg/seaice/budget.F |
204 |
BUDGET |
TICE(I,J,bi,bj)=TICE(I,J,bi,bj) |
|
./pkg/seaice/budget.F |
206 |
BUDGET |
TICE(I,J,bi,bj)=MAX(273.16 _d 0+MIN_TICE,TICE(I,J,bi,bj)) |
|
./pkg/seaice/budget.F |
212 |
BUDGET |
TICE(I,J,bi,bj)=MIN(TICE(I,J,bi,bj),TMELT) |
|
./pkg/seaice/budget.F |
35 |
BUDGET |
_RL TICE (1-OLx:sNx+OLx, 1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/budget.F |
7 |
BUDGET |
SUBROUTINE BUDGET(UG, TICE, HICE1, FICE1, KOPEN, bi, bj) |
|
./pkg/seaice/budget.F |
91 |
BUDGET |
TICE(I,J,bi,bj)=MIN(273.16 _d 0+MAX_TICE,TICE(I,J,bi,bj)) |
|
./pkg/seaice/seaice_init.F |
210 |
SEAICE_INIT |
TICE(I,J,bi,bj)=273.0 _d 0 |
|
./pkg/seaice/seaice_init.F |
287 |
SEAICE_INIT |
TMIX(I,J,bi,bj)=TICE(I,J,bi,bj) |