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_SEAFLUX_n(HPROGRAM)
00003 !     #######################################################
00004 !
00005 !---------------------------------------
00006 !
00007 USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
00008 USE MODN_PREP_SEAFLUX
00009 
00010 USE MODI_DEFAULT_PREP_SEAFLUX
00011 !
00012 USE MODI_TEST_NAM_VAR_SURF
00013 USE MODI_GET_LUOUT
00014 USE MODI_OPEN_NAMELIST
00015 USE MODI_CLOSE_NAMELIST
00016 USE MODE_POS_SURF
00017 !
00018 !
00019 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00020 USE PARKIND1  ,ONLY : JPRB
00021 !
00022 IMPLICIT NONE
00023 !
00024  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00025 !
00026 INTEGER :: ILUNAM         ! logical unit of namelist file
00027 INTEGER :: ILUOUT
00028 LOGICAL :: GFOUND         ! Return code when searching namelist
00029 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00030 !
00031 !---------------------------------------
00032 !
00033 IF (LHOOK) CALL DR_HOOK('READ_NAM_PREP_SEAFLUX_N',0,ZHOOK_HANDLE)
00034 NYEAR=NUNDEF
00035 NMONTH=NUNDEF
00036 NDAY=NUNDEF
00037 XTIME=XUNDEF
00038 !
00039  CALL GET_LUOUT(HPROGRAM,ILUOUT)
00040 !
00041 !
00042  CALL DEFAULT_PREP_SEAFLUX
00043 !
00044  CALL OPEN_NAMELIST(HPROGRAM,ILUNAM)
00045  CALL POSNAM(ILUNAM,'NAM_PREP_SEAFLUX',GFOUND,ILUOUT)
00046 IF (GFOUND) READ(UNIT=ILUNAM,NML=NAM_PREP_SEAFLUX)
00047  CALL CLOSE_NAMELIST(HPROGRAM,ILUNAM)
00048 !
00049  CALL TEST_NAM_VAR_SURF(ILUOUT,'CTYPE',   CTYPE,   '      ','GRIB  ','MESONH',&
00050                           'ASCII ','NETCDF','LFI   ')   
00051  CALL TEST_NAM_VAR_SURF(ILUOUT,'CTYPEPGD',   CTYPEPGD,   '      ','GRIB  ','MESONH','ASCII ','LFI   ')
00052 IF (LHOOK) CALL DR_HOOK('READ_NAM_PREP_SEAFLUX_N',1,ZHOOK_HANDLE)
00053 !------------------------------------
00054 !
00055 END SUBROUTINE READ_NAM_PREP_SEAFLUX_n