MODULE final_grid_lmdz
          IMPLICIT NONE
          SAVE

          INTEGER :: klon
          INTEGER :: latu_len, lonu_len, latv_len, lonv_len
          REAL, ALLOCATABLE, DIMENSION(:) :: latu
          REAL, ALLOCATABLE, DIMENSION(:) :: lonu
          REAL, ALLOCATABLE, DIMENSION(:) :: latv
          REAL, ALLOCATABLE, DIMENSION(:) :: lonv

          INTEGER :: nlat_len, nlon_len, nlat_edge_len, nlon_edge_len, nlev_len,ntype_len
          REAL, ALLOCATABLE, DIMENSION(:) :: nlatbis
          REAL, ALLOCATABLE, DIMENSION(:) :: nlat
          REAL, ALLOCATABLE, DIMENSION(:) :: nlon
          REAL, ALLOCATABLE, DIMENSION(:) :: nlev
          REAL, allocatable, DIMENSION(:) :: ntype
          REAL, ALLOCATABLE, DIMENSION(:) :: nlat_edge
          REAL, ALLOCATABLE, DIMENSION(:) :: nlon_edge

          REAL, ALLOCATABLE, DIMENSION(:,:) :: area_out
          REAL, ALLOCATABLE, DIMENSION(:,:) :: lsmask

      END MODULE final_grid_lmdz

      MODULE grid
          IMPLICIT NONE
          SAVE

          INTEGER :: klon_init
          INTEGER :: lat_len, lon_len, lat_edge_len, lon_edge_len
          INTEGER :: lev_len, lev_edge_len, type_len
          REAL, ALLOCATABLE, DIMENSION(:) :: latbis
          REAL, ALLOCATABLE, DIMENSION(:)   :: lat
          REAL, ALLOCATABLE, DIMENSION(:)   :: lon
          REAL, ALLOCATABLE, DIMENSION(:)   :: lev
          REAL, ALLOCATABLE, DIMENSION(:)   :: lat_edge
          REAL, ALLOCATABLE, DIMENSION(:)   :: lon_edge
          REAL, ALLOCATABLE, DIMENSION(:)   :: lev_edge
          REAL, ALLOCATABLE, DIMENSION(:,:) :: area_in

          INTEGER :: nrecs
          INTEGER :: types

      END MODULE grid

      MODULE correspondance
          IMPLICIT NONE
          SAVE

          !Derived type for correspondance array
          TYPE corr_type
           INTEGER :: olat !old latitude index
           INTEGER :: olon !old longitude index
           INTEGER :: nlat !new latitude index
           INTEGER :: nlon !new longitude index
           REAL    :: wght !weighting function
          END TYPE corr_type

          INTEGER count
          TYPE (corr_type), ALLOCATABLE, DIMENSION(:) :: corr

      END MODULE correspondance

      MODULE sflx
          IMPLICIT NONE
          SAVE


          REAL, ALLOCATABLE, DIMENSION(:,:,:) :: var_dyn
          REAL, ALLOCATABLE, DIMENSION(:,:)   :: var_dyn_1lev
          REAL, ALLOCATABLE, DIMENSION(:,:,:) :: var_dyn_new
          REAL, ALLOCATABLE, DIMENSION(:,:,:) :: var_dyn_new_bis
          REAL, ALLOCATABLE, DIMENSION(:,:)   :: var_dyn_new_1lev


          REAL, ALLOCATABLE, DIMENSION(:,:,:) :: so4_phy,so4_phy_new
          REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: so4_dyn,so4_dyn_new,so4_dyn_new_bis
          REAL, ALLOCATABLE, DIMENSION(:,:) :: so4_phy_1lev,so4_phy_new_1lev
          REAL, ALLOCATABLE, DIMENSION(:,:,:) :: so4_dyn_1lev,so4_dyn_new_1lev


          REAL, allocatable, DIMENSION(:,:) :: landuse_phy, landuse_phy_new
          REAL, allocatable, DIMENSION(:,:,:) :: landuse_dyn, landuse_dyn_new

          REAL, allocatable, DIMENSION(:,:) :: npp_phy, npp_phy_new
          REAL, allocatable, DIMENSION(:,:,:) :: npp_dyn, npp_dyn_new


          CHARACTER*8, DIMENSION(119) :: trac_name
          INTEGER, DIMENSION(119) :: var_id


!     ... Variable ids
          INTEGER :: lon_id
          INTEGER :: lat_id
          INTEGER :: lev_id
          INTEGER :: lat_edge_id
          INTEGER :: lon_edge_id
          INTEGER :: time_id


      END MODULE sflx