File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_slab_ocean.F |
106 |
THSICE_SLAB_OCEAN |
dtFac = ocean_deltaT/tauRelax_MxL |
./pkg/thsice/thsice_slab_ocean.F |
107 |
THSICE_SLAB_OCEAN |
dtFacR = 1. _d 0 /(1. _d 0 + dtFac) |
./pkg/thsice/thsice_slab_ocean.F |
118 |
THSICE_SLAB_OCEAN |
& (tOceMxL(i,j,bi,bj) + dtFac*locTemp)*dtFacR |
./pkg/thsice/thsice_slab_ocean.F |
63 |
THSICE_SLAB_OCEAN |
_RL dtFac, fwFac, heatFac |
./pkg/thsice/thsice_slab_ocean.F |
74 |
THSICE_SLAB_OCEAN |
dtFac = ocean_deltaT/rhosw |
./pkg/thsice/thsice_slab_ocean.F |
84 |
THSICE_SLAB_OCEAN |
& + (fwFac*EmPmR(i,j,bi,bj) - dtFac*saltFlux(i,j,bi,bj)) |
./pkg/thsice/thsice_slab_ocean.F |
93 |
THSICE_SLAB_OCEAN |
dtFac = ocean_deltaT/tauRelax_MxL_salt |
./pkg/thsice/thsice_slab_ocean.F |
94 |
THSICE_SLAB_OCEAN |
dtFacR = 1. _d 0 /(1. _d 0 + dtFac) |
./pkg/thsice/thsice_slab_ocean.F |
99 |
THSICE_SLAB_OCEAN |
& (sOceMxL(i,j,bi,bj) + dtFac*sMxL_default)*dtFacR |