modd_io_surf_fa.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     ##################
      MODULE modd_io_surf_fa
!     ##################
!
!!****  *MODD_IO_SURF_FA - 
!!
!!    PURPOSE
!!    -------
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      V. Masson    *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!    
!
!*       0.   DECLARATIONS
!
IMPLICIT NONE
!
 CHARACTER(LEN=6), SAVE  :: cdnomc ='header'     ! Name of the header
 CHARACTER(LEN=28),SAVE  :: cfile_fa       ='SURFIN.fa'  ! Name of the input
 CHARACTER(LEN=28),SAVE  :: cfilein_fa       ='SURFIN.fa'  ! Name of the input
 CHARACTER(LEN=28),SAVE  :: cfilein_fa_save  ='SURFIN.fa'  ! Name of the input
 CHARACTER(LEN=28),SAVE  :: cfileout_fa      ='SURFOUT.fa' ! Name of the input
 CHARACTER(LEN=28),SAVE  :: cfilepgd_fa      ='PGD.fa'     ! Name of the pgd file
 CHARACTER(LEN=4), SAVE  :: cprefix1d        ='SFX.'       ! Prefix name in fa file
 CHARACTER(LEN=1), SAVE  :: cprefix2d        ='X'          ! Prefix name in fa file
!
 CHARACTER(LEN=6)        :: cmask     ! surface mask type
!
INTEGER                 :: nunit_fa         =19           ! logical unit of surface file (FA part)
INTEGER                 :: nluout         ! logical unit of output file
INTEGER                 :: iverbfa=0      ! amount of message from FA lib 
!
LOGICAL, SAVE           :: lfanocompact=.false. 
LOGICAL, SAVE           :: lprep       =.false.
LOGICAL                 :: lopen   ! flag to know if the file has been openned during the surface call
!      
INTEGER, DIMENSION(:), POINTER :: nmask=>null()     ! 1D mask to read only interesting
INTEGER                        :: nfull     ! total number of points of surface
INTEGER                        :: nfull_ext ! total number of points including the extension zone (ALADIN)
INTEGER                        :: ndgl,ndlon,ndlux,ndgux        ! dimensions of ALADIN domain
!
REAL                           :: perpk,pebeta,pelon0,pelat0,  &! grid projection parameters
                                  pedelx,pedely,pelon1,pelat1   ! for the ALADIN domain  
!
END MODULE modd_io_surf_fa