modn_prep_seaflux.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 modn_prep_seaflux
!     ##################
!
!!****  *MODN_PREP_SEAFLUX* - declaration of namelist NAM_PREP_SEAFLUX
!!
!!    PURPOSE
!!    -------
!       The purpose of this module is to specify  the namelist NAM_PREP_SEAFLUX
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!       
!!    AUTHOR
!!    ------
!!      S.Malardel    *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    10/2003                    
!!      Modified    07/2012, P. Le Moigne : CMO1D phasing
!!                  07/2013, S. Senesi    : handle seaice scheme
!!                              and uniform sea surface salinity and ice cover
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
USE modd_prep_seaflux, ONLY : cfile_seaflx, ctype_seaflx, cfilepgd_seaflx, ctypepgd, &
                              xsst_unif, xsss_unif, xsic_unif
!
IMPLICIT NONE
!
INTEGER           :: NYEAR            ! YEAR for surface
INTEGER           :: NMONTH           ! MONTH for surface
INTEGER           :: NDAY             ! DAY for surface
REAL              :: XTIME            ! TIME for surface
LOGICAL           :: LSEA_SBL         ! flag to use air layers inside the SBL
 CHARACTER(LEN=6)  :: CSEAICE_SCHEME    ! name of the seaice scheme
LOGICAL           :: LOCEAN_MERCATOR  ! oceanic variables initialized from 
                                      !   MERCATOR if true
LOGICAL           :: LOCEAN_CURRENT   ! initial ocean state with current 
                                      !   (if false ucur=0, vcur=0)
REAL              :: XTIME_REL        ! relaxation time (s)
LOGICAL           :: LCUR_REL         ! If T, relax on current
LOGICAL           :: LTS_REL          ! If T, relax on T, S
LOGICAL           :: LZERO_FLUX       ! If T, relax on T, S
LOGICAL           :: LCORR_FLUX       ! If T, fluxes correction is made
REAL              :: XCORFLX          ! correction coefficient ( W.m-2.K-1)
LOGICAL           :: LDIAPYC          ! If T, fluxes correction is made                                      
!
namelist/nam_prep_seaflux/cfile_seaflx, ctype_seaflx, cfilepgd_seaflx, ctypepgd, xsst_unif,  &
                          xsss_unif, xsic_unif, nyear, nmonth, nday, xtime, lsea_sbl, &
                          cseaice_scheme, locean_mercator, locean_current,              & 
                          xtime_rel,lcur_rel,lts_rel,                                  &
                          lzero_flux,xcorflx,lcorr_flux, ldiapyc  
!
END MODULE modn_prep_seaflux