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

Go to the documentation of this file.
00001 SUBROUTINE INI_OCEAN_CSTS 
00002 !     ##################
00003 !
00004 !!****  *INI_OCEAN_CSTS * - routine to initialize the module MODD_OCEAN_CSTS
00005 !!
00006 !!    PURPOSE
00007 !!    -------
00008 !       The purpose of this routine is to initialize  the physical constants
00009 !     stored in  module MODD_OCEAN_CSTS.
00010 !      
00011 !
00012 !!**  METHOD
00013 !!    ------
00014 !!      The physical constants are set to their numerical values 
00015 !!     
00016 !!
00017 !!    EXTERNAL
00018 !!    --------
00019 !!
00020 !!
00021 !!    IMPLICIT ARGUMENTS
00022 !!    ------------------
00023 !!      Module MODD_OCEAN_CST     : contains physical constants
00024 !!
00025 !!    REFERENCE
00026 !!    ---------
00027 !!
00028 !!    AUTHOR
00029 !!    ------
00030 !!      C. Lebeaupin Brossier       * Meteo France *
00031 !!
00032 !!    MODIFICATIONS
00033 !!    -------------
00034 !!      Original    01/2008
00035 !!
00036 !-------------------------------------------------------------------------------
00037 !
00038 !*       0.    DECLARATIONS
00039 !              ------------
00040 !
00041 USE MODD_OCEAN_CSTS
00042 !
00043 !
00044 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00045 USE PARKIND1  ,ONLY : JPRB
00046 !
00047 IMPLICIT NONE
00048 !  
00049 !-------------------------------------------------------------------------------
00050 !
00051 !
00052 !*       1.     THERMODYNAMICAL CONSTANTS OF SEAWATER
00053 !               -------------------------------------
00054 
00055 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00056 
00057 IF (LHOOK) CALL DR_HOOK('INI_OCEAN_CSTS',0,ZHOOK_HANDLE)
00058 XRHOSW=1024.
00059 XRHOSWREF=1024.458
00060 XCPSW=4178.4
00061 !
00062 !*       2.     CORIOLIS FRACTION
00063 !               -----------------
00064 XGAMA=0.53
00065 !
00066 !*       3.     TURBULENCE CONSTANTS
00067 !               --------------------
00068 XZCE=1./0.7
00069 XCKL=0.1
00070 !
00071 !*       4.      RADIATION CONSTANTS
00072 !               --------------------
00073 !from Jerlov's 1976 optical water C type I
00074 XR=0.58
00075 XD1=0.35
00076 XD2=23.
00077 !albedo of seawater
00078 XALBEDOSW=0.06
00079 !
00080 !*       5.      OCEANIC MODEL TIME STEP
00081 XOCEAN_TSTEP=5.*60.
00082 IF (LHOOK) CALL DR_HOOK('INI_OCEAN_CSTS',1,ZHOOK_HANDLE)
00083 !
00084 !-------------------------------------------------------------------------------
00085 !
00086 END SUBROUTINE INI_OCEAN_CSTS