ini_ocean_csts.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 ini_ocean_csts 
!     ##################
!
!!****  *INI_OCEAN_CSTS * - routine to initialize the module MODD_OCEAN_CSTS
!!
!!    PURPOSE
!!    -------
!       The purpose of this routine is to initialize  the physical constants
!     stored in  module MODD_OCEAN_CSTS.
!      
!
!!**  METHOD
!!    ------
!!      The physical constants are set to their numerical values 
!!     
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!      Module MODD_OCEAN_CST     : contains physical constants
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      C. Lebeaupin Brossier       * Meteo France *
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2008
!!
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
USE modd_ocean_csts
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!  
!-------------------------------------------------------------------------------
!
!
!*       1.     THERMODYNAMICAL CONSTANTS OF SEAWATER
!               -------------------------------------
!
REAL(KIND=JPRB) :: zhook_handle
!
IF (lhook) CALL dr_hook('INI_OCEAN_CSTS',0,zhook_handle)
!
xrhosw=1024.
xrhoswref=1024.458
xcpsw=4178.4
!
!*       2.     CORIOLIS FRACTION
!               -----------------
xgama=0.53
!
!*       3.     TURBULENCE CONSTANTS
!               --------------------
xzce=1./0.7
xckl=0.1
!
!*       4.      RADIATION CONSTANTS
!               --------------------
!from Jerlov's 1976 optical water C type I
xr=0.58
xd1=0.35
xd2=23.
!albedo of seawater
xalbedosw=0.06
!
IF (lhook) CALL dr_hook('INI_OCEAN_CSTS',1,zhook_handle)
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE ini_ocean_csts