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_ISBA_n(HPROGRAM)
00003 !     #######################################################
00004 !
00005 !---------------------------------------
00006 !
00007 USE MODN_PREP_ISBA
00008 USE MODN_PREP_ISBA_SNOW
00009 USE MODN_PREP_ISBA_CARBON
00010 !
00011 USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
00012 !
00013 USE MODI_DEFAULT_PREP_ISBA
00014 USE MODI_READ_PREP_ISBA_SNOW
00015 USE MODI_READ_PREP_ISBA_CARBON
00016 !
00017 USE MODI_TEST_NAM_VAR_SURF
00018 USE MODI_GET_LUOUT
00019 USE MODI_OPEN_NAMELIST
00020 USE MODI_CLOSE_NAMELIST
00021 USE MODE_POS_SURF
00022 !
00023 !
00024 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00025 USE PARKIND1  ,ONLY : JPRB
00026 !
00027 IMPLICIT NONE
00028 !
00029  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00030 !
00031 INTEGER :: ILUNAM         ! logical unit of namelist file
00032 INTEGER :: ILUOUT
00033 LOGICAL :: GFOUND         ! Return code when searching namelist
00034 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00035 !
00036 !---------------------------------------
00037 !
00038 IF (LHOOK) CALL DR_HOOK('READ_NAM_PREP_ISBA_N',0,ZHOOK_HANDLE)
00039 NYEAR=NUNDEF
00040 NMONTH=NUNDEF
00041 NDAY=NUNDEF
00042 XTIME=XUNDEF
00043 !
00044  CALL GET_LUOUT(HPROGRAM,ILUOUT)
00045 !
00046 !
00047  CALL DEFAULT_PREP_ISBA
00048 !
00049  CALL OPEN_NAMELIST(HPROGRAM,ILUNAM)
00050  CALL POSNAM(ILUNAM,'NAM_PREP_ISBA',GFOUND,ILUOUT)
00051 IF (GFOUND) READ(UNIT=ILUNAM,NML=NAM_PREP_ISBA)
00052  CALL CLOSE_NAMELIST(HPROGRAM,ILUNAM)
00053 !
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_HUG',CTYPE_HUG,'      ','GRIB  ','MESONH','ASCII ','ASCLLV','LFI   ','NETCDF')
00057  CALL TEST_NAM_VAR_SURF(ILUOUT,'CTYPE_TG', CTYPE_TG,'      ', 'GRIB  ','MESONH','ASCII ','ASCLLV','LFI   ','NETCDF')
00058 !
00059  CALL READ_PREP_ISBA_SNOW(HPROGRAM,CSNOW,NSNOW_LAYER)
00060 !
00061  CALL READ_PREP_ISBA_CARBON(HPROGRAM,CRESPSL)
00062 IF (LHOOK) CALL DR_HOOK('READ_NAM_PREP_ISBA_N',1,ZHOOK_HANDLE)
00063 !
00064 !------------------------------------
00065 !
00066 END SUBROUTINE READ_NAM_PREP_ISBA_n