121 USE modi_glt_salflx_r
127 CHARACTER(*),
INTENT(in) :: &
129 TYPE(t_mxl),
DIMENSION(np),
INTENT(in) :: &
131 TYPE(t_tfl),
DIMENSION(np),
INTENT(inout) :: &
133 REAL,
DIMENSION(nt,np),
INTENT(in) :: &
135 REAL,
DIMENSION(nt,np),
INTENT(in),
OPTIONAL :: &
140 REAL,
DIMENSION(np) :: &
142 REAL,
DIMENSION(nt,np) :: &
143 zsalt,zaux,zsml,zqsalt2,zent
155 zqm(:) = sum( pdmass(:,:),dim=1 ) / dtt
165 IF ( present( psalt ) )
THEN
166 zsalt(:,:) = psalt(:,:)
170 IF ( present( pent ) )
THEN
171 zent(:,:) = pent(:,:)
178 zqsalt2(:,:) = pdmass(:,:)*zsalt(:,:)
179 zqsalt(:) = sum( zqsalt2(:,:),dim=1 ) / dtt
187 zqent(:) = sum( amin1( pdmass(:,:),0. )*zent(:,:),dim=1 ) / dtt
207 IF ( hflag==
'I2O' )
THEN
208 IF ( nleviti==1 )
THEN
210 CALL
glt_salflx_r( zqsalt2,tpmxl,tptfl,pdmass=pdmass,psalt=zsalt )
214 tptfl(:)%sio = tptfl(:)%sio - 1.e-3 * zqsalt(:)
217 ELSE IF ( hflag==
'FW2O')
THEN
218 tptfl(:)%wlo = tptfl(:)%wlo - zqm(:)
220 ELSE IF ( hflag==
'FW2I')
THEN
221 tptfl(:)%wio = tptfl(:)%wio + zqm(:)
222 IF ( nleviti==1 )
THEN
223 tptfl(:)%cio = tptfl(:)%cio - zqm(:)
229 tptfl(:)%tio = tptfl(:)%tio - zqent(:)
subroutine glt_updtfl_r(hflag, tpmxl, tptfl, pdmass, pent, psalt)
subroutine glt_salflx_r(pqsalt, tpmxl, tptfl, pdmass, psalt)