!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