read_nam_trip.F90

Go to the documentation of this file.

!#########
SUBROUTINE read_nam_trip(KLISTING)
!#######################################################
!
!!****  *READ_NAM_TRIP* - routine to read the configuration for TRIP
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      B. Decharme   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    05/2008 
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
!
USE modn_trip
!
USE modi_trip_posnam
USE modi_abort_trip
USE modi_test_nam_var_trip
USE modi_open_trip_namelist
USE modi_close_trip_namelist
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*       0.1   Declarations of arguments
!              -------------------------
!
INTEGER, INTENT(IN) :: KLISTING
!
!*       0.2   Declarations of local variables
!              -------------------------------
!
!
LOGICAL         :: GFOUND         ! Return code when searching namelist
INTEGER         :: INAM           ! logical unit of namelist file
INTEGER         :: IMI
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------
!
IF (lhook) CALL dr_hook('READ_NAM_TRIP',0,zhook_handle)
!
!* open namelist file
!
 CALL open_trip_namelist(inam)
!
!* reading of namelist
!  -------------------
!
 CALL trip_posnam(inam,'NAM_TRIP',gfound,klisting)
IF (gfound) THEN
   READ(unit=inam,nml=nam_trip)
ELSE
   WRITE(klisting,*)'READ_NAM_TRIP: NAM_TRIP not found in namelist'
   CALL abort_trip('READ_NAM_TRIP: NAM_TRIP not found in namelist')
ENDIF
!
 CALL test_nam_var_trip(klisting,'CGROUNDW',cgroundw,'DEF','CST','DIF')
 CALL test_nam_var_trip(klisting,'CVIT',cvit,'DEF','VAR')
!
!* close namelist file
!
 CALL close_trip_namelist(inam)
!
IF (lhook) CALL dr_hook('READ_NAM_TRIP',1,zhook_handle)
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE read_nam_trip