modd_ocean_reln.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.
!     ##################
      MODULE modd_ocean_rel_n
!     ##################
!
!     Author : P. Peyrille
!!    Date: 01/2012
!! 
!!  declaration of relaxation field, flag for ocean model
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
TYPE ocean_rel_t
!
 REAL                :: XTAU_REL   ! Time of relaxation  (s)
!
 REAL                :: XQCORR     ! correction coefficient  for surface fluxes  (BArnier et al. 1998) typcial val: 100.
!
 LOGICAL                            :: LREL_CUR   ! flag for  relxation on current
 LOGICAL                            :: LREL_TS    ! flag for relaxation on ocean temperature
 LOGICAL                            :: LFLUX_NULL ! Flag for testing zero  incoming flux at the surface 
!
 LOGICAL                            :: LFLX_CORR  ! Flag for  flux  correction 
 LOGICAL                            :: LDIAPYCNAL ! Flag for diapycnal mixing activation
!
 REAL, POINTER, DIMENSION(:,:) :: XSEAU_REL  ! ref. U current  profile (C)
 REAL, POINTER, DIMENSION(:,:) :: XSEAV_REL  ! ref. V current  profile (C)
 REAL, POINTER, DIMENSION(:,:) :: XSEAT_REL  ! ref. temperature  profile (C)
 REAL, POINTER, DIMENSION(:,:) :: XSEAS_REL  ! ---- salinity   ---------- (%)
!
END TYPE ocean_rel_t
!


 CONTAINS
!
!


!
!
SUBROUTINE ocean_rel_init(YOCEAN_REL)
TYPE(ocean_rel_t), INTENT(INOUT) :: yocean_rel
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_OCEAN_REL_N:OCEAN_REL_INIT",0,zhook_handle)
  nullify(yocean_rel%XSEAT_REL)
  nullify(yocean_rel%XSEAS_REL)
  nullify(yocean_rel%XSEAU_REL)
  nullify(yocean_rel%XSEAV_REL)
yocean_rel%XTAU_REL=0.
yocean_rel%XQCORR=0.
yocean_rel%LREL_CUR=.false.
yocean_rel%LREL_TS=.false.
yocean_rel%LFLUX_NULL=.false.
yocean_rel%LFLX_CORR=.false.
yocean_rel%LDIAPYCNAL=.false.
!
IF (lhook) CALL dr_hook("MODD_OCEAN_REL_N:OCEAN_REL_INIT",1,zhook_handle)
END SUBROUTINE ocean_rel_init
!
!
END MODULE modd_ocean_rel_n