read_namelists_topd.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.
!     #######################################################
SUBROUTINE read_namelists_topd(HPROGRAM)
!     #######################################################
!
!!**** *READ_NAMELISTS_TOPD* reads useful namelists for coupling with TOPD
!!
!!    PURPOSE
!!    -------
!!
!!    This routine aims at reading and initialising variables.
!!
!!    METHOD
!!    ------
!!   
!
!!    EXTERNAL
!!    --------
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!
!!    B. Vincendon        Meteo-France
!!
!!    MODIFICATION
!!    ------------
!!
!!    Original    11/2006
!!    B. Vincendon 02/2014 : adding possibility to choose the speed of water on hillslopes
!!                           and ti write runoff map on watersheds
!----------------------------------------------------------------------------
!
USE modi_read_nam_pgd_topd
USE modi_read_nam_topd
!
USE modd_topodyn, ONLY       : ccat, xtopd_step, nnb_topd_step,& 
                               xspeedr, xspeedg, xspeedh,&
                               xqinit, xrtop_d2
USE modd_coupling_topd, ONLY : lcoupl_topd, nnb_topd,&
                               lbudget_topd, lstock_topd,&
                               nnb_stp_stock, nnb_stp_restart,&
                               nfreq_maps_wg, nfreq_maps_asat, nfreq_maps_runoff
!
USE modd_dummy_exp_profile,ONLY:xf_param_bv,xc_depth_ratio_bv
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
 CHARACTER(LEN=6),   INTENT(IN)  :: hprogram  ! program calling surf. schemes
REAL(KIND=JPRB) :: zhook_handle
!
!----------------------------------------------------------
!
IF (lhook) CALL dr_hook('READ_NAMELISTS_TOPD',0,zhook_handle)
!
 CALL read_nam_pgd_topd(hprogram,lcoupl_topd,ccat,&
                        xf_param_bv,xc_depth_ratio_bv)
IF (lcoupl_topd) &
  CALL read_nam_topd(hprogram,lbudget_topd,nnb_topd,&
                     lstock_topd,nnb_stp_stock,nnb_stp_restart,&
                     nfreq_maps_wg, nfreq_maps_asat,nfreq_maps_runoff,&
                     xspeedr,xspeedg,xspeedh,xqinit,xrtop_d2)
!
IF (lhook) CALL dr_hook('READ_NAMELISTS_TOPD',1,zhook_handle)
!
END SUBROUTINE read_namelists_topd