SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/modn_prep

Go to the documentation of this file.
00001 
00002 !     ##################
00003       MODULE MODN_PREP_SEAFLUX
00004 !     ##################
00005 !
00006 !!****  *MODN_PREP_SEAFLUX* - declaration of namelist NAM_PREP_SEAFLUX
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !       The purpose of this module is to specify  the namelist NAM_PREP_SEAFLUX
00011 !
00012 !!
00013 !!**  IMPLICIT ARGUMENTS
00014 !!    ------------------
00015 !!
00016 !!    REFERENCE
00017 !!    ---------
00018 !!
00019 !!       
00020 !!    AUTHOR
00021 !!    ------
00022 !!      S.Malardel    *Meteo France*
00023 !!
00024 !!    MODIFICATIONS
00025 !!    -------------
00026 !!      Original    10/2003                    
00027 !!      Modified    07/2012, P. Le Moigne : CMO1D phasing
00028 !-------------------------------------------------------------------------------
00029 !
00030 !*       0.   DECLARATIONS
00031 !             ------------
00032 !
00033 USE MODD_PREP_SEAFLUX, ONLY : CFILE_SEAFLX, CTYPE, CFILEPGD_SEAFLX, CTYPEPGD, XSST_UNIF
00034 !
00035 IMPLICIT NONE
00036 !
00037 INTEGER           :: NYEAR            ! YEAR for surface
00038 INTEGER           :: NMONTH           ! MONTH for surface
00039 INTEGER           :: NDAY             ! DAY for surface
00040 REAL              :: XTIME            ! TIME for surface
00041 LOGICAL           :: LSEA_SBL         ! flag to use air layers inside the SBL
00042 LOGICAL           :: LOCEAN_MERCATOR  ! oceanic variables initialized from 
00043                                       !   MERCATOR if true
00044 LOGICAL           :: LOCEAN_CURRENT   ! initial ocean state with current 
00045                                       !   (if false ucur=0, vcur=0)
00046 REAL              :: XTIME_REL        ! relaxation time (s)
00047 LOGICAL           :: LCUR_REL         ! If T, relax on current
00048 LOGICAL           :: LTS_REL          ! If T, relax on T, S
00049 LOGICAL           :: LZERO_FLUX       ! If T, relax on T, S
00050 LOGICAL           :: LCORR_FLUX       ! If T, fluxes correction is made
00051 REAL              :: XCORFLX          ! correction coefficient ( W.m-2.K-1)
00052 LOGICAL           :: LDIAPYC          ! If T, fluxes correction is made                                      
00053 !
00054 NAMELIST/NAM_PREP_SEAFLUX/CFILE_SEAFLX, CTYPE, CFILEPGD_SEAFLX, CTYPEPGD, XSST_UNIF,  &
00055                           NYEAR, NMONTH, NDAY, XTIME, LSEA_SBL, &
00056                           LOCEAN_MERCATOR, LOCEAN_CURRENT,      & 
00057                           XTIME_REL,LCUR_REL,LTS_REL,  &
00058                           LZERO_FLUX,XCORFLX,LCORR_FLUX, LDIAPYC  
00059 !
00060 END MODULE MODN_PREP_SEAFLUX