! Conformal Cubic Atmospheric Model
    
! Copyright 2015 Commonwealth Scientific Industrial Research Organisation (CSIRO)
    
! This file is part of the Conformal Cubic Atmospheric Model (CCAM)
!
! CCAM is free software: you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! CCAM is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with CCAM.  If not, see <http://www.gnu.org/licenses/>.

!------------------------------------------------------------------------------
    
module sigdata_m

private
public pmsl,sfct,zs,ps,us,vs,ts,rs,hs,psg_m,zsi_m,lsm_m,sigdataalloc,sigdatadealloc
public soiltemp, soilmoist
public fracice, snod

real, dimension(:), allocatable, save :: pmsl,sfct,zs,ps,fracice,snod
real, dimension(:), allocatable, save :: psg_m,zsi_m,lsm_m
real, dimension(:,:), allocatable, save :: us, vs, ts, rs, hs
real, dimension(:,:), allocatable, save :: soiltemp, soilmoist

contains

subroutine sigdataalloc(il,kl)

implicit none

integer, intent(in) :: il,kl
integer jl,ifull

jl=6*il
ifull=il*jl

allocate(pmsl(ifull),sfct(ifull),zs(ifull),ps(ifull),fracice(ifull),snod(ifull))
allocate(psg_m(ifull),zsi_m(ifull),lsm_m(ifull))
allocate(us(ifull,kl),vs(ifull,kl),ts(ifull,kl),rs(ifull,kl),hs(ifull,kl))
allocate( soiltemp(ifull,6), soilmoist(ifull,6) )

soiltemp(:,:) = -1.
soilmoist(:,:) = -1.

return
end subroutine sigdataalloc

subroutine sigdatadealloc

implicit none

deallocate(pmsl,sfct,zs,ps,fracice,snod)
deallocate(psg_m,zsi_m,lsm_m)
deallocate(us,vs,ts,rs,hs)
deallocate( soiltemp, soilmoist )

return
end subroutine sigdatadealloc

end module sigdata_m