modn_surf_atmn.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.
!     ######spl
      MODULE modn_surf_atm_n
!     ######################
!
!!****  *MODN_SURF_ATM_n* - declaration of namelist NAM_SURF_ATMn
!!
!!    PURPOSE
!!    -------
!       The purpose of this module is to specify  the namelist NAM_SURF_ATMn
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!       
!!    AUTHOR
!!    ------
!!      V. Masson    *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      P. Tulet    flag namelist  for emission      02/2004  
!!      B. Decharme Cumulative diag for all Tile     08/2009
!!      B. Decharme Key to allow (or not) writting diag   10/2009
!!      S.Senesi    Additional write selection mechanism   12/2009
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!

!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
 CHARACTER(LEN=28), SAVE  :: CCHEM_SURF_FILE
LOGICAL, SAVE  :: LCH_SURF_EMIS
LOGICAL  :: LFRAC
REAL     :: XDIAG_TSTEP
INTEGER  :: N2M
LOGICAL  :: LT2MMW
LOGICAL  :: L2M_MIN_ZS
LOGICAL  :: LSURF_BUDGET
LOGICAL  :: LRAD_BUDGET
LOGICAL  :: LSURF_BUDGETC
LOGICAL  :: LRESET_BUDGETC
LOGICAL  :: LCOEF
LOGICAL  :: LSURF_VARS
LOGICAL  :: LDIAG_GRID
LOGICAL  :: LPROVAR_TO_DIAG
LOGICAL  :: LSELECT
 CHARACTER(LEN=12), DIMENSION(500)    :: CSELECT
!
namelist/nam_ch_controln/cchem_surf_file
namelist/nam_ch_surfn/lch_surf_emis
namelist/nam_diag_surf_atmn/lfrac, ldiag_grid, lt2mmw
namelist/nam_diag_surfn/n2m, l2m_min_zs, lsurf_budget, lrad_budget, lsurf_budgetc,  &
                        lreset_budgetc, lcoef, lsurf_vars
!                        
namelist/nam_write_diag_surfn/lprovar_to_diag,lselect,cselect
!
 CONTAINS
!
SUBROUTINE init_nam_ch_controln (CHU)
!
  USE modd_ch_surf_n, ONLY : ch_surf_t
!
  IMPLICIT NONE

!
  TYPE(ch_surf_t), INTENT(INOUT) :: chu
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:INIT_NAM_CH_CONTROLN',0,zhook_handle)
  cchem_surf_file = chu%CCHEM_SURF_FILE
IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:INIT_NAM_CH_CONTROLN',1,zhook_handle)
END SUBROUTINE init_nam_ch_controln

SUBROUTINE update_nam_ch_controln (CHU)
!
  USE modd_ch_surf_n, ONLY : ch_surf_t
!
  IMPLICIT NONE

!
  TYPE(ch_surf_t), INTENT(INOUT) :: chu
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:UPDATE_NAM_CH_CONTROLN',0,zhook_handle)
  chu%CCHEM_SURF_FILE = cchem_surf_file
IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:UPDATE_NAM_CH_CONTROLN',1,zhook_handle)
END SUBROUTINE update_nam_ch_controln

SUBROUTINE init_nam_ch_surfn (CHU)
!
  USE modd_ch_surf_n, ONLY : ch_surf_t
!
  IMPLICIT NONE

!
  TYPE(ch_surf_t), INTENT(INOUT) :: chu
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:INIT_NAM_CH_SURFN',0,zhook_handle)
  lch_surf_emis = chu%LCH_SURF_EMIS
IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:INIT_NAM_CH_SURFN',1,zhook_handle)
END SUBROUTINE init_nam_ch_surfn

SUBROUTINE update_nam_ch_surfn (CHU)
!
  USE modd_ch_surf_n, ONLY : ch_surf_t
!
  IMPLICIT NONE

!
  TYPE(ch_surf_t), INTENT(INOUT) :: chu
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:UPDATE_NAM_CH_SURFN',0,zhook_handle)
  chu%LCH_SURF_EMIS = lch_surf_emis
IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:UPDATE_NAM_CH_SURFN',1,zhook_handle)
END SUBROUTINE update_nam_ch_surfn

SUBROUTINE init_nam_diag_surf_atmn (DGU)
!
  USE modd_diag_surf_atm_n, ONLY : diag_surf_atm_t
!
  IMPLICIT NONE

!
  TYPE(diag_surf_atm_t), INTENT(INOUT) :: dgu
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:INIT_NAM_DIAG_SURF_ATMN',0,zhook_handle)
  lfrac = dgu%LFRAC
  lt2mmw = dgu%LT2MMW
IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:INIT_NAM_DIAG_SURF_ATMN',1,zhook_handle)
END SUBROUTINE init_nam_diag_surf_atmn

SUBROUTINE update_nam_diag_surf_atmn (DGU)
!
  USE modd_diag_surf_atm_n, ONLY : diag_surf_atm_t
!
  IMPLICIT NONE

!
  TYPE(diag_surf_atm_t), INTENT(INOUT) :: dgu
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:UPDATE_NAM_DIAG_SURF_ATMN',0,zhook_handle)
  dgu%LFRAC = lfrac
  dgu%LT2MMW = lt2mmw
IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:UPDATE_NAM_DIAG_SURF_ATMN',1,zhook_handle)
END SUBROUTINE update_nam_diag_surf_atmn

SUBROUTINE init_nam_diag_surfn (DGU)
!
  USE modd_diag_surf_atm_n, ONLY : diag_surf_atm_t
!
  IMPLICIT NONE

!
  TYPE(diag_surf_atm_t), INTENT(INOUT) :: dgu
  REAL(KIND=JPRB) :: zhook_handle

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

SUBROUTINE update_nam_diag_surfn (DGU)
!
  USE modd_diag_surf_atm_n, ONLY : diag_surf_atm_t
!
  IMPLICIT NONE

!
  TYPE(diag_surf_atm_t), INTENT(INOUT) :: dgu
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:UPDATE_NAM_DIAG_SURFN',0,zhook_handle)
  dgu%XDIAG_TSTEP = xdiag_tstep
  dgu%N2M = n2m
  dgu%L2M_MIN_ZS = l2m_min_zs
  dgu%LSURF_BUDGET = lsurf_budget
  dgu%LRAD_BUDGET = lrad_budget
  dgu%LSURF_BUDGETC = lsurf_budgetc
  dgu%LRESET_BUDGETC = lreset_budgetc 
  dgu%LCOEF = lcoef
  dgu%LSURF_VARS = lsurf_vars
  dgu%LDIAG_GRID = ldiag_grid
IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:UPDATE_NAM_DIAG_SURFN',1,zhook_handle)
END SUBROUTINE update_nam_diag_surfn


SUBROUTINE init_nam_write_diag_surfn (DGU)
!
  USE modd_diag_surf_atm_n, ONLY : diag_surf_atm_t
!
  IMPLICIT NONE


!
  TYPE(diag_surf_atm_t), INTENT(INOUT) :: dgu
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:INIT_NAM_WRITE_DIAG_SURFN',0,zhook_handle)
  lprovar_to_diag = dgu%LPROVAR_TO_DIAG
  lselect = dgu%LSELECT
  cselect(:) = '            '
IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:INIT_NAM_WRITE_DIAG_SURFN',1,zhook_handle)
END SUBROUTINE init_nam_write_diag_surfn

SUBROUTINE update_nam_write_diag_surfn (DGU)
!
  USE modd_diag_surf_atm_n, ONLY : diag_surf_atm_t
!
  IMPLICIT NONE
!
  TYPE(diag_surf_atm_t), INTENT(INOUT) :: dgu
  INTEGER :: icount
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:UPDATE_NAM_WRITE_DIAG_SURFN',0,zhook_handle)
  dgu%LPROVAR_TO_DIAG = lprovar_to_diag
!
  dgu%LSELECT = lselect
  IF (lselect) THEN
    icount = count(cselect /= '            ')
    IF(.NOT.ASSOCIATED(dgu%CSELECT))THEN
      ALLOCATE(dgu%CSELECT(icount))
      dgu%CSELECT(:) = '            '
    ENDIF
    dgu%CSELECT = cselect(1:icount)
  ENDIF
IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:UPDATE_NAM_WRITE_DIAG_SURFN',1,zhook_handle)
END SUBROUTINE update_nam_write_diag_surfn

END MODULE modn_surf_atm_n