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

Go to the documentation of this file.
00001 !     ###############
00002       MODULE MODD_OCEAN_CSTS      
00003 !     ###############
00004 !
00005 !!****  *MODD_OCEAN_CSTS* - declaration of Physic constants for ocean
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !       The purpose of this declarative module is to declare  the 
00010 !     Physics constants for ocean.    
00011 !
00012 !!
00013 !!**  IMPLICIT ARGUMENTS
00014 !!    ------------------
00015 !!      None 
00016 !!
00017 !!    REFERENCE
00018 !!    ---------
00019 !!          
00020 !!    AUTHOR
00021 !!    ------
00022 !!      C. Lebeaupin Brossier   *Meteo France*
00023 !!
00024 !!    MODIFICATIONS
00025 !!    -------------
00026 !!      Original    01/2008
00027 !-------------------------------------------------------------------------------
00028 !
00029 !*       0.   DECLARATIONS
00030 !             ------------
00031 !
00032 IMPLICIT NONE 
00033 !
00034 REAL,SAVE :: XOCEAN_TSTEP       ! time step of the oceanic 1D model
00035 REAL,SAVE :: XRHOSW,XRHOSWREF   ! densities of seawater
00036 REAL,SAVE :: XCPSW              ! Cp (for seawater)
00037 !
00038 REAL,SAVE :: XGAMA              ! fraction of Coriolis parameter in time 
00039 !
00040 REAL,SAVE :: XZCE,XCKL          ! turbulence constants
00041 !
00042 REAL,SAVE :: XR                 ! from Jerlov's (1976)
00043 REAL,SAVE :: XD1,XD2            ! optical water C type I
00044 REAL,SAVE :: XALBEDOSW          ! Albedo of seawater
00045 !
00046 !
00047 END MODULE MODD_OCEAN_CSTS