81 #if ! defined in_surfex
82 USE mode_gltools_bound
88 TYPE(t_mxl),
DIMENSION(nx,ny),
INTENT(in) :: &
90 TYPE(t_mxl),
DIMENSION(nx,ny),
INTENT(out) :: &
95 tpml(:,:)%qoc = tpoce_all(:,:)%qoc
96 tpml(:,:)%sml = tpoce_all(:,:)%sml
97 tpml(:,:)%ssh = tpoce_all(:,:)%ssh
98 tpml(:,:)%tml = tpoce_all(:,:)%tml - t0deg
100 tpml(:,:)%qml = tpoce_all(:,:)%qml
101 tpml(:,:)%hco = cpsw * tpml(:,:)%tml
105 tpml(:,:)%uml = tpoce_all(:,:)%uml
106 tpml(:,:)%vml = tpoce_all(:,:)%vml
107 #if ! defined in_surfex
108 CALL gltools_bound(
'U',
'vector',tpml(:,:)%uml )
109 CALL gltools_bound(
'V',
'vector',tpml(:,:)%vml )
subroutine glt_getmlrf(tpoce_all, tpml)