| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_fake.F |
42 |
SEAICE_FAKE |
_RL fac, tempFrz |
|
./pkg/seaice/seaice_fake.F |
72 |
SEAICE_FAKE |
tempFrz = SEAICE_tempFrz0 + |
|
./pkg/seaice/seaice_fake.F |
75 |
SEAICE_FAKE |
& ( tempFrz-theta(i,j,1,bi,bj) ) * |
|
./pkg/seaice/seaice_growth.F |
1039 |
SEAICE_GROWTH |
tempFrz = SEAICE_tempFrz0 + |
|
./pkg/seaice/seaice_growth.F |
1042 |
SEAICE_GROWTH |
IF ( theta(I,J,kSurface,bi,bj) .GE. tempFrz ) THEN |
|
./pkg/seaice/seaice_growth.F |
1060 |
SEAICE_GROWTH |
& * (theta(I,J,kSurface,bi,bj)-tempFrz) |
|
./pkg/seaice/seaice_growth.F |
1077 |
SEAICE_GROWTH |
tempFrz = SEAICE_tempFrz0 + |
|
./pkg/seaice/seaice_growth.F |
1079 |
SEAICE_GROWTH |
tmpscal1=(theta(I,J,kSurface,bi,bj)-tempFrz) |
|
./pkg/seaice/seaice_growth.F |
111 |
SEAICE_GROWTH |
_RL tempFrz, ICE2SNOW, SNOW2ICE |
|
./pkg/seaice/seaice_solve4temp.F |
245 |
SEAICE_SOLVE4TEMP |
tempFrz(I,J) = SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
403 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J)*(tempFrz(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
506 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J) * (tempFrz(I,J) - t1) |
|
./pkg/seaice/seaice_solve4temp.F |
522 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J)*(tempFrz(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
99 |
SEAICE_SOLVE4TEMP |
_RL tempFrz (1:sNx,1:sNy) |