| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_slab_ocean.F |
52 |
THSICE_SLAB_OCEAN |
_RL dtFac, dtFacR, fwFac, heatFac, locTemp |
|
./pkg/thsice/thsice_slab_ocean.F |
59 |
THSICE_SLAB_OCEAN |
dtFac = ocean_deltaT/rhosw |
|
./pkg/thsice/thsice_slab_ocean.F |
69 |
THSICE_SLAB_OCEAN |
& + (fwFac*EmPmR(i,j,bi,bj) - dtFac*saltFlux(i,j,bi,bj)) |
|
./pkg/thsice/thsice_slab_ocean.F |
78 |
THSICE_SLAB_OCEAN |
dtFac = ocean_deltaT/tauRelax_MxL |
|
./pkg/thsice/thsice_slab_ocean.F |
79 |
THSICE_SLAB_OCEAN |
dtFacR = 1. _d 0 /(1. _d 0 + dtFac) |
|
./pkg/thsice/thsice_slab_ocean.F |
85 |
THSICE_SLAB_OCEAN |
& (sOceMxL(i,j,bi,bj) + dtFac*sMxL_default)*dtFacR |
|
./pkg/thsice/thsice_slab_ocean.F |
92 |
THSICE_SLAB_OCEAN |
& (tOceMxL(i,j,bi,bj) + dtFac*locTemp)*dtFacR |