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
LOGICAL  :: lsnowdimnc
LOGICAL  :: lresetcumul
 CHARACTER(LEN=12), DIMENSION(4000)    :: 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,lsnowdimnc,lresetcumul,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 (DGO)
!
  USE modd_diag_n, ONLY : diag_options_t
!
  IMPLICIT NONE

!
  TYPE(diag_options_t), INTENT(INOUT) :: DGO
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:INIT_NAM_DIAG_SURF_ATMN',0,zhook_handle)
  lfrac = dgo%LFRAC
  lt2mmw = dgo%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 (DGO)
!
  USE modd_diag_n, ONLY : diag_options_t
!
  IMPLICIT NONE

!
  TYPE(diag_options_t), INTENT(INOUT) :: DGO
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:UPDATE_NAM_DIAG_SURF_ATMN',0,zhook_handle)
  dgo%LFRAC = lfrac
  dgo%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 (DGO)
!
  USE modd_diag_n, ONLY : diag_options_t
!
  IMPLICIT NONE

!
  TYPE(diag_options_t), INTENT(INOUT) :: DGO
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:INIT_NAM_DIAG_SURFN',0,zhook_handle)
  xdiag_tstep = dgo%XDIAG_TSTEP
  n2m = dgo%N2M
  l2m_min_zs = dgo%L2M_MIN_ZS
  lsurf_budget = dgo%LSURF_BUDGET
  lrad_budget = dgo%LRAD_BUDGET
  lsurf_budgetc = dgo%LSURF_BUDGETC
  lreset_budgetc = dgo%LRESET_BUDGETC
  lcoef = dgo%LCOEF
  lsurf_vars = dgo%LSURF_VARS
  ldiag_grid = dgo%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 (DGO)
!
  USE modd_diag_n, ONLY : diag_options_t
!
  IMPLICIT NONE

!
  TYPE(diag_options_t), INTENT(INOUT) :: DGO
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:UPDATE_NAM_DIAG_SURFN',0,zhook_handle)
  dgo%XDIAG_TSTEP = xdiag_tstep
  dgo%N2M = n2m
  dgo%L2M_MIN_ZS = l2m_min_zs
  dgo%LSURF_BUDGET = lsurf_budget
  dgo%LRAD_BUDGET = lrad_budget
  dgo%LSURF_BUDGETC = lsurf_budgetc
  dgo%LRESET_BUDGETC = lreset_budgetc 
  dgo%LCOEF = lcoef
  dgo%LSURF_VARS = lsurf_vars
  dgo%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 (DGO)
!
  USE modd_diag_n, ONLY : diag_options_t
!
  IMPLICIT NONE


!
  TYPE(diag_options_t), INTENT(INOUT) :: DGO
  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 = dgo%LPROVAR_TO_DIAG
  lsnowdimnc = dgo%LSNOWDIMNC
  lresetcumul = dgo%LRESETCUMUL  
  lselect = dgo%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 (DGO)
!
  USE modd_diag_n, ONLY : diag_options_t
!
  IMPLICIT NONE
!
  TYPE(diag_options_t), INTENT(INOUT) :: DGO
  INTEGER :: ICOUNT
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_SURF_ATM_N:UPDATE_NAM_WRITE_DIAG_SURFN',0,zhook_handle)
  dgo%LPROVAR_TO_DIAG = lprovar_to_diag
  dgo%LSNOWDIMNC = lsnowdimnc
  dgo%LRESETCUMUL = lresetcumul  
!
  dgo%LSELECT = lselect
  IF (lselect) THEN
    icount = count(cselect /= '            ')
    IF(.NOT.ASSOCIATED(dgo%CSELECT))THEN
      ALLOCATE(dgo%CSELECT(icount+1))
      dgo%CSELECT(:) = '            '
    ENDIF
    dgo%CSELECT(1:icount) = cselect(1:icount)
  ELSE
    IF (.NOT.ASSOCIATED(dgo%CSELECT)) ALLOCATE(dgo%CSELECT(0))
  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