init_topd_pgd.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 init_topd_pgd(HPROGRAM)
!     #######################
!
!!****  *INIT_TOPD_PGD*  
!!
!!    PURPOSE
!!    -------
!     This routine aims at initialising the variables 
!     needed of running Topmodel for PGD step.
!              
!     
!!**  METHOD
!!    ------
!
!!    EXTERNAL
!!    --------
!!
!!    none
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------ 
!!
!!    
!!    
!!
!!      
!!    REFERENCE
!!    ---------
!!
!!    
!!      
!!    AUTHOR 
!!    ------
!!
!!      B. Vincendon    * Meteo-France *
!!
!!    MODIFICATIONS
!!    -------------
!!
!!      Original   03/2014
!-------------------------------------------------------------------------------
!
!*       0.     DECLARATIONS
!               ------------
!
USE modd_coupling_topd, ONLY : nnb_stp_restart,lcoupl_topd
USE modd_topodyn,       ONLY : ccat, nncat, nnb_topd_step, xtopd_step,&
                               xdxt, nnxc, nnyc,&
                               xnul, xx0, xy0, nnpt,&
                               nx_step_rout, xspeedr,&
                               xspeedh, nnmc, nmesht, npmax,&
                               nline,  xdmaxt,&
                               xtopd, xdriv, xdhil, xtime_topd,&
                               xdgrd, xspeedg, xtime_topd_drain,&
                               xqtot, xtanb, xslop, xdarea,&
                               xlambda, xconn, xqb_dr, xqb_run
!
USE modd_topd_par, ONLY : ndim
USE modd_surf_par,       ONLY : xundef, nundef
!
USE modi_get_luout
USE modi_init_topd
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*      0.1    declarations of arguments
!
 CHARACTER(LEN=*), INTENT(IN) :: HPROGRAM    !
!
!*      0.2    declarations of local variables
!
!
INTEGER                   :: JJ,JCAT ! loop control 
INTEGER                   :: ILUOUT                 ! Unit of the files
!
REAL, DIMENSION(:),ALLOCATABLE    :: ZTOPD_READ !Topgraphic variable read
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!-------------------------------------------------------------------------------
IF (lhook) CALL dr_hook('INIT_TOPD_PGD',0,zhook_handle)
!
!*       1    Initialization:
!               ---------------
!
 CALL get_luout(hprogram,iluout)
!
WRITE(iluout,*) 'INITIALISATION INIT_TOPD_PGD'
!
CALL INIT_TOPD('ASCII ')
!
IF (lhook) CALL dr_hook('INIT_TOPD_PGD',1,zhook_handle)
!
END SUBROUTINE init_topd_pgd