| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
216 |
SEAICE_GROWTH |
TBC = SEAICE_freeze |
|
./pkg/seaice/seaice_growth.F |
708 |
SEAICE_GROWTH |
TBC = -0.0575 _d 0*salt(I,J,kSurface,bi,bj) + 0.0901 _d 0 |
|
./pkg/seaice/seaice_growth.F |
710 |
SEAICE_GROWTH |
IF ( theta(I,J,kSurface,bi,bj) .GE. TBC ) THEN |
|
./pkg/seaice/seaice_growth.F |
712 |
SEAICE_GROWTH |
& * (theta(I,J,kSurface,bi,bj)-TBC) * dRf(kSurface) |
|
./pkg/seaice/seaice_growth.F |
717 |
SEAICE_GROWTH |
& * (theta(I,J,kSurface,bi,bj)-TBC) * dRf(kSurface) |
|
./pkg/seaice/seaice_growth.F |
91 |
SEAICE_GROWTH |
_RL TBC, ICE2SNOW |
|
./pkg/seaice/seaice_growth_if.F |
1130 |
SEAICE_GROWTH_IF |
& TBC |
|
./pkg/seaice/seaice_growth_if.F |
177 |
SEAICE_GROWTH_IF |
TBC = SEAICE_freeze |
|
./pkg/seaice/seaice_growth_if.F |
53 |
SEAICE_GROWTH_IF |
_RL TBC, salinity_ice, SDF, ICE2SNOW,TMELT |
|
./pkg/seaice/seaice_growth_if.F |
610 |
SEAICE_GROWTH_IF |
TBC = -0.0575 _d 0*salt(I,J,kSurface,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
622 |
SEAICE_GROWTH_IF |
surf_theta = max(theta(I,J,kSurface,bi,bj), TBC) |
|
./pkg/seaice/seaice_growth_if.F |
624 |
SEAICE_GROWTH_IF |
F_mi(I,J) = -GAMMA*RHOSW*CPW *(surf_theta - TBC) |