modn_flaken.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 modn_flake_n
!     ##################
!
!!****  *MODN_FLAKE_n* - declaration of namelist NAM_FLAKEn
!!
!!    PURPOSE
!!    -------
!       The purpose of this module is to specify  the namelist NAM_FLAKEn
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!       
!!    AUTHOR
!!    ------
!!      V. Masson    *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004                    
!!      Modified    04/2013, P. Le Moigne: FLake chemistry
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!

         

!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
REAL     :: XTSTEP
REAL     :: XOUT_TSTEP
REAL     :: XDIAG_TSTEP
INTEGER  :: N2M
LOGICAL  :: L2M_MIN_ZS
LOGICAL  :: LSURF_BUDGET
LOGICAL  :: LRAD_BUDGET
LOGICAL  :: LSURF_BUDGETC
LOGICAL  :: LRESET_BUDGETC
LOGICAL  :: LCOEF
LOGICAL  :: LSURF_VARS
 CHARACTER(LEN=6)  :: CCH_DRY_DEP
!
LOGICAL          :: LSEDIMENTS
LOGICAL          :: LSKINTEMP
 CHARACTER(LEN=3) :: CSNOW_FLK
 CHARACTER(LEN=5) :: CFLK_FLUX
 CHARACTER(LEN=4) :: CFLK_ALB
!
LOGICAL  :: LWATER_PROFILE
REAL,DIMENSION(100) :: XZWAT_PROFILE
!
namelist/nam_diag_flaken/lwater_profile,xzwat_profile
namelist/nam_flaken/lsediments,csnow_flk, cflk_flux, cflk_alb,   &
                    lskintemp
namelist/nam_diag_surfn/n2m,l2m_min_zs,lsurf_budget,lrad_budget, &
                          lsurf_budgetc,lreset_budgetc,lcoef,lsurf_vars  
namelist/nam_ch_flaken/cch_dry_dep
!
 CONTAINS
!
SUBROUTINE init_nam_flaken (F)
!
  USE modd_flake_n, ONLY : flake_t
!
  IMPLICIT NONE

!
  TYPE(flake_t), INTENT(INOUT) :: f
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_FLAKE_N:INIT_NAM_FLAKEN',0,zhook_handle)
  xtstep=f%XTSTEP
  xout_tstep=f%XOUT_TSTEP
  lsediments=f%LSEDIMENTS
  lskintemp=f%LSKINTEMP
  cflk_flux=f%CFLK_FLUX
  cflk_alb=f%CFLK_ALB
  csnow_flk=f%CSNOW_FLK
IF (lhook) CALL dr_hook('MODN_FLAKE_N:INIT_NAM_FLAKEN',1,zhook_handle)
END SUBROUTINE init_nam_flaken
!
SUBROUTINE update_nam_flaken (F)
!
  USE modd_flake_n, ONLY : flake_t
!
  IMPLICIT NONE

!
  TYPE(flake_t), INTENT(INOUT) :: f
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_FLAKE_N:UPDATE_NAM_FLAKEN',0,zhook_handle)
  f%XTSTEP = xout_tstep
  f%XOUT_TSTEP = xout_tstep
  f%LSEDIMENTS = lsediments
  f%LSKINTEMP  = lskintemp
  f%CFLK_FLUX=cflk_flux
  f%CFLK_ALB=cflk_alb
  f%CSNOW_FLK=csnow_flk
IF (lhook) CALL dr_hook('MODN_FLAKE_N:UPDATE_NAM_FLAKEN',1,zhook_handle)
END SUBROUTINE update_nam_flaken
!
SUBROUTINE init_nam_diag_surfn (DGF)
!
  USE modd_diag_flake_n, ONLY : diag_flake_t
!
  IMPLICIT NONE

!
  TYPE(diag_flake_t), INTENT(INOUT) :: dgf
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_FLAKE_N:INIT_NAM_DIAG_SURFN',0,zhook_handle)
  xdiag_tstep = dgf%XDIAG_TSTEP
  n2m = dgf%N2M
  l2m_min_zs = dgf%L2M_MIN_ZS
  lsurf_budget = dgf%LSURF_BUDGET
  lrad_budget = dgf%LRAD_BUDGET
  lsurf_budgetc = dgf%LSURF_BUDGETC
  lreset_budgetc = dgf%LRESET_BUDGETC  
  lcoef = dgf%LCOEF
  lsurf_vars = dgf%LSURF_VARS
IF (lhook) CALL dr_hook('MODN_FLAKE_N:INIT_NAM_DIAG_SURFN',1,zhook_handle)
END SUBROUTINE init_nam_diag_surfn

SUBROUTINE update_nam_diag_surfn (DGF)
!
  USE modd_diag_flake_n, ONLY : diag_flake_t
!
  IMPLICIT NONE

!
  TYPE(diag_flake_t), INTENT(INOUT) :: dgf
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_FLAKE_N:UPDATE_NAM_DIAG_SURFN',0,zhook_handle)
  dgf%XDIAG_TSTEP = xdiag_tstep  
  dgf%N2M = n2m
  dgf%L2M_MIN_ZS = l2m_min_zs
  dgf%LSURF_BUDGET = lsurf_budget
  dgf%LRAD_BUDGET = lrad_budget 
  dgf%LSURF_BUDGETC = lsurf_budgetc
  dgf%LRESET_BUDGETC = lreset_budgetc  
  dgf%LCOEF = lcoef
  dgf%LSURF_VARS = lsurf_vars
IF (lhook) CALL dr_hook('MODN_FLAKE_N:UPDATE_NAM_DIAG_SURFN',1,zhook_handle)
END SUBROUTINE update_nam_diag_surfn
!
SUBROUTINE init_nam_diag_flaken (DGMF)
!
  USE modd_diag_misc_flake_n, ONLY : diag_misc_flake_t
!
  IMPLICIT NONE

!
  TYPE(diag_misc_flake_t), INTENT(INOUT) :: dgmf
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_FLAKE_N:INIT_NAM_DIAG_FLAKEN',0,zhook_handle)
  lwater_profile = dgmf%LWATER_PROFILE
  xzwat_profile = dgmf%XZWAT_PROFILE
IF (lhook) CALL dr_hook('MODN_FLAKE_N:INIT_NAM_DIAG_FLAKEN',1,zhook_handle)
END SUBROUTINE init_nam_diag_flaken

SUBROUTINE update_nam_diag_flaken (DGMF)
!
  USE modd_diag_misc_flake_n, ONLY : diag_misc_flake_t
!
  IMPLICIT NONE

!
  TYPE(diag_misc_flake_t), INTENT(INOUT) :: dgmf
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_FLAKE_N:UPDATE_NAM_DIAG_FLAKEN',0,zhook_handle)
  dgmf%LWATER_PROFILE = lwater_profile
  dgmf%XZWAT_PROFILE = xzwat_profile
IF (lhook) CALL dr_hook('MODN_FLAKE_N:UPDATE_NAM_DIAG_FLAKEN',1,zhook_handle)
END SUBROUTINE update_nam_diag_flaken

SUBROUTINE init_nam_ch_flaken (CHF)
!
  USE modd_ch_flake_n, ONLY : ch_flake_t
!
  IMPLICIT NONE

!
  TYPE(ch_flake_t), INTENT(INOUT) :: chf
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_FLAKE_N:INIT_NAM_CH_FLAKEN',0,zhook_handle)
  cch_dry_dep = chf%CCH_DRY_DEP
IF (lhook) CALL dr_hook('MODN_FLAKE_N:INIT_NAM_CH_FLAKEN',1,zhook_handle)
END SUBROUTINE init_nam_ch_flaken

SUBROUTINE update_nam_ch_flaken (CHF)
!
  USE modd_ch_flake_n, ONLY : ch_flake_t
!
  IMPLICIT NONE

!
  TYPE(ch_flake_t), INTENT(INOUT) :: chf
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_FLAKE_N:UPDATE_NAM_CH_FLAKEn',0,zhook_handle)
  chf%CCH_DRY_DEP = cch_dry_dep
IF (lhook) CALL dr_hook('MODN_FLAKE_N:UPDATE_NAM_CH_FLAKEn',1,zhook_handle)
END SUBROUTINE update_nam_ch_flaken

END MODULE modn_flake_n