SURFEX v7.3
General documentation of Surfex
 All Classes Files Functions Variables Typedefs
/home/dasprezs/EXPORT_v7_3/src/SURFEX/read_isba_conf.F90
Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE READ_ISBA_CONF(HPROGRAM)
00003 !     #######################################################
00004 !
00005 !!****  *READ_ISBA_CONF* - routine to read the configuration for ISBA
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!**  METHOD
00011 !!    ------
00012 !!
00013 !!    EXTERNAL
00014 !!    --------
00015 !!
00016 !!
00017 !!    IMPLICIT ARGUMENTS
00018 !!    ------------------
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!
00024 !!    AUTHOR
00025 !!    ------
00026 !!      V. Masson   *Meteo France*      
00027 !!
00028 !!    MODIFICATIONS
00029 !!    -------------
00030 !!      Original    01/2003 
00031 !!      P Le Moigne 09/2005 AGS modifs of L. Jarlan
00032 !!      P Le Moigne 09/2005 CSNOWRES option
00033 !!      Modified by P. Le Moigne (06/2006): seeding and irrigation
00034 !!      Modified by P. Le Moigne (05/2008): deep soil characteristics
00035 !!      Modified by P. Aumond    (07/2011): tree drag replaced by grass
00036 !!      Modified by T. Aspelien  (04/2012): Separated assimilation
00037 !-------------------------------------------------------------------------------
00038 !
00039 !*       0.    DECLARATIONS
00040 !              ------------
00041 !
00042 USE MODE_POS_SURF
00043 !
00044 USE MODI_GET_LUOUT
00045 USE MODI_OPEN_NAMELIST
00046 USE MODI_CLOSE_NAMELIST
00047 !
00048 USE MODN_AGRI
00049 USE MODN_DEEPSOIL
00050 USE MODN_TREEDRAG
00051 !
00052 USE MODD_SURF_PAR,   ONLY : XUNDEF
00053 !
00054 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00055 USE PARKIND1  ,ONLY : JPRB
00056 !
00057 IMPLICIT NONE
00058 !
00059 !*       0.1   Declarations of arguments
00060 !              -------------------------
00061 !
00062  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM ! program calling ISBA
00063 
00064 !
00065 !*       0.2   Declarations of local variables
00066 !              -------------------------------
00067 !
00068 !
00069 LOGICAL           :: GFOUND         ! Return code when searching namelist
00070 INTEGER           :: ILUOUT         ! logical unit of output file
00071 INTEGER           :: INAM           ! logical unit of namelist file
00072 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00073 !-------------------------------------------------------------------------------
00074 !
00075 !* get output listing file logical unit
00076 !
00077 IF (LHOOK) CALL DR_HOOK('READ_ISBA_CONF',0,ZHOOK_HANDLE)
00078  CALL GET_LUOUT(HPROGRAM,ILUOUT)
00079 !
00080 !* open namelist file
00081 !
00082  CALL OPEN_NAMELIST(HPROGRAM,INAM)
00083 !
00084 !* reading of namelist
00085 !  -------------------
00086 !
00087  CALL POSNAM(INAM,'NAM_AGRI',GFOUND,ILUOUT)
00088 IF (GFOUND) READ(UNIT=INAM,NML=NAM_AGRI)
00089  CALL POSNAM(INAM,'NAM_DEEPSOIL',GFOUND,ILUOUT)
00090 IF (GFOUND) READ(UNIT=INAM,NML=NAM_DEEPSOIL)
00091  CALL POSNAM(INAM,'NAM_TREEDRAG',GFOUND,ILUOUT)
00092 IF (GFOUND) READ(UNIT=INAM,NML=NAM_TREEDRAG)
00093 !
00094 !* close namelist file
00095 !
00096  CALL CLOSE_NAMELIST(HPROGRAM,INAM)
00097 IF (LHOOK) CALL DR_HOOK('READ_ISBA_CONF',1,ZHOOK_HANDLE)
00098 !
00099 ! 
00100 !-------------------------------------------------------------------------------
00101 !
00102 !* surface time-step forced by the atmosphere
00103 !
00104 !XTSTEP = XUNDEF
00105 !
00106 !-------------------------------------------------------------------------------
00107 !
00108 END SUBROUTINE READ_ISBA_CONF