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_TEB_n(HPROGRAM)
00003 !     #######################################################
00004 !
00005 !---------------------------------------
00006 !
00007 USE MODN_PREP_TEB_SNOW
00008 USE MODN_PREP_TEB
00009 !
00010 USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
00011 !
00012 USE MODI_DEFAULT_PREP_TEB
00013 USE MODI_READ_PREP_TEB_SNOW
00014 !
00015 USE MODI_TEST_NAM_VAR_SURF
00016 USE MODI_GET_LUOUT
00017 USE MODI_OPEN_NAMELIST
00018 USE MODI_CLOSE_NAMELIST
00019 USE MODE_POS_SURF
00020 !
00021 !
00022 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00023 USE PARKIND1  ,ONLY : JPRB
00024 !
00025 IMPLICIT NONE
00026 !
00027  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00028 !
00029 INTEGER :: ILUNAM         ! logical unit of namelist file
00030 INTEGER :: ILUOUT
00031 LOGICAL :: GFOUND         ! Return code when searching namelist
00032 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00033 !
00034 !---------------------------------------
00035 !
00036 IF (LHOOK) CALL DR_HOOK('READ_NAM_PREP_TEB_N',0,ZHOOK_HANDLE)
00037 NYEAR=NUNDEF
00038 NMONTH=NUNDEF
00039 NDAY=NUNDEF
00040 XTIME=XUNDEF
00041 !
00042  CALL GET_LUOUT(HPROGRAM,ILUOUT)
00043 !
00044 !
00045  CALL DEFAULT_PREP_TEB
00046 !
00047  CALL OPEN_NAMELIST(HPROGRAM,ILUNAM)
00048  CALL POSNAM(ILUNAM,'NAM_PREP_TEB',GFOUND,ILUOUT)
00049 IF (GFOUND) READ(UNIT=ILUNAM,NML=NAM_PREP_TEB)
00050  CALL CLOSE_NAMELIST(HPROGRAM,ILUNAM)
00051 !
00052  CALL TEST_NAM_VAR_SURF(ILUOUT,'CROAD_DIR',CROAD_DIR,'UNIF','ORIE')
00053  CALL TEST_NAM_VAR_SURF(ILUOUT,'CWALL_OPT',CWALL_OPT,'UNIF','TWO ')
00054  CALL TEST_NAM_VAR_SURF(ILUOUT,'CTYPE',   CTYPE,   '      ','GRIB  ','MESONH','ASCII ','LFI   ')
00055  CALL TEST_NAM_VAR_SURF(ILUOUT,'CTYPEPGD',CTYPEPGD,'      ','GRIB  ','MESONH','ASCII ','LFI   ')
00056  CALL TEST_NAM_VAR_SURF(ILUOUT,'CTYPE_WS',CTYPE_WS,'      ','GRIB  ','MESONH','ASCII ','LFI   ')
00057  CALL TEST_NAM_VAR_SURF(ILUOUT,'CTYPE_TS',CTYPE_TS,'      ','GRIB  ','MESONH','ASCII ','LFI   ')
00058 !
00059  CALL READ_PREP_TEB_SNOW(HPROGRAM,CSNOW_ROOF,NSNOW_ROOF,CSNOW_ROAD,NSNOW_ROAD)
00060 IF (LHOOK) CALL DR_HOOK('READ_NAM_PREP_TEB_N',1,ZHOOK_HANDLE)
00061 !
00062 !------------------------------------
00063 !
00064 END SUBROUTINE READ_NAM_PREP_TEB_n