default_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.
!     #########
      SUBROUTINE default_prep_seaflux
!     ###########################
!
!!****  *DEFAULT_PREP_SEAFLUX* - routine to set default values for the configuration for SEAFLUX field preparation
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      S. Malardel   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    10/2003 
!!      01/2008     C. Lebeaupin Brossier ! initialization of oceanic var. 
!!                                        ! from MERCATOR analyses types
!!      07/2012     P. Le Moigne          ! CMO1D phasing
!!      01/2014     S. Senesi             ! introduce fractional seaice and sea-ice model 
!!      03/2014     S. Belamari           ! initialize sea surface salinity
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
USE modd_prep_seaflux,   ONLY : cfile_seaflx, ctype_seaflx, cfilepgd_seaflx, ctypepgd, xsst_unif,&
                                xsss_unif, xsic_unif
!
USE modn_prep_seaflux,   ONLY : lsea_sbl, cseaice_scheme, locean_mercator, locean_current, &
                                xtime_rel, lcur_rel, lts_rel,    &
                                lzero_flux, lcorr_flux, xcorflx, ldiapyc

USE modd_surf_par,   ONLY : xundef
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*       0.1   Declarations of arguments
!              -------------------------
!
!
!
!*       0.2   Declarations of local variables
!              -------------------------------
!
!-------------------------------------------------------------------------------
!

REAL(KIND=JPRB) :: zhook_handle

IF (lhook) CALL dr_hook('DEFAULT_PREP_SEAFLUX',0,zhook_handle)
 cfile_seaflx = '                          '
 ctype_seaflx = 'GRIB  '
!
 cfilepgd_seaflx = '                          '
 ctypepgd        = '      '
!
xsst_unif = xundef
xsss_unif = xundef
xsic_unif = xundef
!
lsea_sbl = .false.
 cseaice_scheme='NONE  '
locean_mercator = .false.
locean_current = .false.
!
xtime_rel  = 25920000.
xcorflx    = 0.
lcur_rel   = .false.
lts_rel    = .false.
lzero_flux = .false.
lcorr_flux = .false.
ldiapyc    = .false.
!
IF (lhook) CALL dr_hook('DEFAULT_PREP_SEAFLUX',1,zhook_handle)
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE default_prep_seaflux