SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/read_nam_write_cover

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE READ_NAM_WRITE_COVER_TEX(HPROGRAM)
00003 !     ##############################################################
00004 !
00005 USE MODN_WRITE_COVER_TEX
00006 !
00007 USE MODE_POS_SURF
00008 !
00009 USE MODI_GET_LUOUT
00010 USE MODI_OPEN_NAMELIST
00011 USE MODI_CLOSE_NAMELIST
00012 !
00013 !
00014 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00015 USE PARKIND1  ,ONLY : JPRB
00016 !
00017 IMPLICIT NONE
00018 !
00019  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00020 !
00021 INTEGER                           :: ILUOUT    ! output listing logical unit
00022 INTEGER                           :: ILUNAM    ! namelist file logical unit
00023 LOGICAL                           :: GFOUND    ! flag when namelist is present
00024 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00025 !
00026 !*****************************************************************************
00027 !
00028 IF (LHOOK) CALL DR_HOOK('READ_NAM_WRITE_COVER_TEX',0,ZHOOK_HANDLE)
00029  CALL GET_LUOUT(HPROGRAM,ILUOUT)
00030  CALL OPEN_NAMELIST(HPROGRAM,ILUNAM)
00031  CALL POSNAM(ILUNAM,'NAM_WRITE_COVER_TEX',GFOUND,ILUOUT)
00032 IF (GFOUND) READ(UNIT=ILUNAM,NML=NAM_WRITE_COVER_TEX)
00033  CALL CLOSE_NAMELIST(HPROGRAM,ILUNAM)
00034 IF (LHOOK) CALL DR_HOOK('READ_NAM_WRITE_COVER_TEX',1,ZHOOK_HANDLE)
00035 !
00036 END SUBROUTINE READ_NAM_WRITE_COVER_TEX