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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE READ_NAM_PREP_GREENROOF_n(HPROGRAM)
00003 !     #######################################################
00004 !
00005 !----------------------------------------------
00006 !
00007 USE MODN_PREP_GREENROOF_SNOW
00008 USE MODN_PREP_TEB_GREENROOF
00009 !
00010 USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
00011 !
00012 USE MODI_DEFAULT_PREP_TEB_GREENROOF
00013 USE MODI_READ_PREP_GREENROOF_SNOW
00014 USE MODI_TEST_NAM_VAR_SURF
00015 USE MODI_GET_LUOUT
00016 USE MODI_OPEN_NAMELIST
00017 USE MODI_CLOSE_NAMELIST
00018 USE MODE_POS_SURF
00019 !
00020 !
00021 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00022 USE PARKIND1  ,ONLY : JPRB
00023 !
00024 IMPLICIT NONE
00025 !
00026  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00027 !
00028 INTEGER :: ILUNAM         ! logical unit of namelist file
00029 INTEGER :: ILUOUT
00030 LOGICAL :: GFOUND         ! Return code when searching namelist
00031 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00032 !
00033 !---------------------------------------
00034 !
00035 IF (LHOOK) CALL DR_HOOK('READ_NAM_PREP_GREENROOF_N',0,ZHOOK_HANDLE)
00036  CALL DEFAULT_PREP_TEB_GREENROOF
00037 !
00038  CALL GET_LUOUT(HPROGRAM,ILUOUT)
00039 !
00040  CALL OPEN_NAMELIST(HPROGRAM,ILUNAM)
00041  CALL POSNAM(ILUNAM,'NAM_PREP_TEB_GREENROOF',GFOUND,ILUOUT)
00042 IF (GFOUND) READ(UNIT=ILUNAM,NML=NAM_PREP_TEB_GREENROOF)
00043  CALL CLOSE_NAMELIST(HPROGRAM,ILUNAM)
00044 !
00045  CALL TEST_NAM_VAR_SURF(ILUOUT,'CTYPE',  CTYPE,   '      ', 'GRIB  ','MESONH','ASCII ','LFI   ')
00046  CALL TEST_NAM_VAR_SURF(ILUOUT,'CTYPEPGD',CTYPEPGD,'      ','GRIB  ','MESONH','ASCII ','LFI   ')
00047  CALL TEST_NAM_VAR_SURF(ILUOUT,'CTYPE_HUG',CTYPE_HUG,'      ','GRIB  ','MESONH','ASCII ','ASCLLV')
00048  CALL TEST_NAM_VAR_SURF(ILUOUT,'CTYPE_TG', CTYPE_TG,'      ', 'GRIB  ','MESONH','ASCII ','ASCLLV')
00049 !
00050  CALL READ_PREP_GREENROOF_SNOW(HPROGRAM,CSNOW,NSNOW_LAYER)
00051 IF (LHOOK) CALL DR_HOOK('READ_NAM_PREP_GREENROOF_N',1,ZHOOK_HANDLE)
00052 !
00053 !------------------------------------
00054 !
00055 END SUBROUTINE READ_NAM_PREP_GREENROOF_n