ini_ocean_csts.F90 Source File


Contents

Source Code


Source Code

!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 version 2.1
!SFX_LIC version 1. See LICENSE, Licence_CeCILL_V2.1-en.txt and Licence_CeCILL_V2.1-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