112 USE modi_glt_salflx_r
118 TYPE(t_dom),
DIMENSION(np),
INTENT(in) :: &
120 REAL,
DIMENSION(np),
INTENT(in) :: &
122 TYPE(t_mxl),
DIMENSION(np),
INTENT(inout) :: &
131 ppg_mole_t = 65.9d0 , ppg_mole_s = 2255d0
135 REAL,
DIMENSION(np) :: &
138 REAL,
DIMENSION(np) :: &
148 zfcor(:) = 2. * omega * abs( sin( tpdom(:)%lat ) )
152 zustar(:) = max( pustar,0.005 )
159 zg_turb(:) = 2.5d0 * log( 5300.*zustar(:)*zustar(:)/zfcor(:) ) + 7.12d0
164 zg_t(:) = zustar(:) / ( zg_turb(:) + ppg_mole_t )
165 zg_s(:) = zustar(:) / ( zg_turb(:) + ppg_mole_s )
172 tpmxl(:)%qoc = rhosw * cpsw * zg_t(:) * &
173 max( tpmxl(:)%tml-tpmxl(:)%mlf, 0. )
subroutine glt_oceflx_r(tpdom, pustar, tpmxl)