89 #if ! defined in_arpege
94 CHARACTER(*),
INTENT(in) :: &
96 TYPE(t_dom),
DIMENSION(nx,ny),
INTENT(in) :: &
98 TYPE(t_sit),
DIMENSION(nt,nx,ny),
INTENT(in) :: &
101 LOGICAL,
DIMENSION(nx,ny) :: &
104 zlatn0,zlats0,zehn,zehs,zshn,zshs,zvhn,zvhs
105 REAL,
DIMENSION(nx,ny) :: &
113 IF ( nprinto>=2 )
THEN
119 WRITE(noutlu,*)
' **** gltools_chkglo ****'
130 zsrf(:,:) = tpdom(:,:)%srf*float(tpdom(:,:)%imk)
135 zfsit(:,:) = sum( tpsit(:,:,:)%fsi, dim=1 )*float( tpdom(:,:)%tmk )
137 zhsiw(:,:) = sum( tpsit(:,:,:)%fsi*tpsit(:,:,:)%hsi, dim=1 )* &
138 float( tpdom(:,:)%tmk )
142 ghnorth(:,:) = .false.
143 ghsouth(:,:) = .false.
145 WHERE( tpdom(:,:)%lat>zlatn0 )
146 ghnorth(:,:) = .true.
149 WHERE( tpdom(:,:)%lat<zlats0 )
150 ghsouth(:,:) = .true.
167 zehn = sum( zsrf(:,:), mask=(ghnorth(:,:).AND.zfsit(:,:)>xfsic) ) / 1.e+12
168 zehs = sum( zsrf(:,:), mask=(ghsouth(:,:).AND.zfsit(:,:)>xfsic) ) / 1.e+12
174 zshn = sum( zsrf(:,:)*zfsit(:,:), mask=ghnorth(:,:) ) / 1.e+12
175 zshs = sum( zsrf(:,:)*zfsit(:,:), mask=ghsouth(:,:) ) / 1.e+12
181 zvhn = sum( zsrf(:,:)*zhsiw(:,:), mask=ghnorth(:,:) ) / 1.e+12
182 zvhs = sum( zsrf(:,:)*zhsiw(:,:), mask=ghsouth(:,:) ) / 1.e+12
189 #if ! defined in_arpege
198 WRITE(noutlu,*)
' North South'
199 WRITE(noutlu,1000) zshn,zshs
200 WRITE(noutlu,1100) zehn,zehs
201 WRITE(noutlu,1200) zvhn,zvhs
212 1000
FORMAT( 5x,
"Ice surface (SISH.SIG)",2(4x,f9.5) )
213 1100
FORMAT( 5x,
"Ice extent (SIEH.SIG)",2(4x,f9.5) )
214 1200
FORMAT( 5x,
"Ice volume (SIVH.SIG)",2(4x,f9.5) )