SURFEX v7.3
General documentation of Surfex
|
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