read_all_namelists.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #########
SUBROUTINE read_all_namelists (YSC, HPROGRAM,HINIT,ONAM_READ)
!
!
!
USE modd_surfex_n, ONLY : surfex_t
!
USE modd_read_namelist, ONLY : lnam_read
!
USE modi_init_read_data_cover
!
USE modi_read_namelists_surf_n
USE modi_read_namelists_surf
USE modi_read_namelists_flake_n
USE modi_read_namelists_watflux_n
USE modi_read_namelists_seaflux_n
USE modi_read_namelists_isba_n
USE modi_read_namelists_isba
USE modi_read_namelists_teb_n
USE modi_read_namelists_ideal_n
USE modi_read_namelists_ideal
USE modi_read_namelists_slt
USE modi_read_namelists_dst
USE modi_read_namelists_assim
USE modi_read_namelists_topd
#ifdef SFX_ARO
USE modi_read_namelists_io
#endif
!
USE modi_read_nam_prep_flake_n
USE modi_read_nam_prep_garden_n
USE modi_read_nam_prep_greenroof_n
USE modi_read_nam_prep_isba_n
USE modi_read_nam_prep_seaflux_n
USE modi_read_nam_prep_surf_n
USE modi_read_nam_prep_teb_n
USE modi_read_nam_prep_watflux_n
!
!--------------------------------------------------
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
TYPE(surfex_t), INTENT(INOUT) :: YSC
!
 CHARACTER(LEN=6),  INTENT(IN)   :: HPROGRAM  ! program calling surf. schemes
 CHARACTER(LEN=3),   INTENT(IN)  :: HINIT     ! choice of fields to initialize
LOGICAL,INTENT(IN)              :: ONAM_READ
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!----------------------------------------
!namelists always read here
!
IF (lhook) CALL dr_hook('READ_ALL_NAMELISTS',0,zhook_handle)
lnam_read=.true.
!
 CALL init_read_data_cover(hprogram)
!
 CALL read_namelists_surf(hprogram)
 CALL read_namelists_isba(hprogram)
 CALL read_namelists_slt(hprogram)
 CALL read_namelists_dst(hprogram)
 CALL read_namelists_ideal(hprogram)
 CALL read_namelists_assim(hprogram)
 CALL read_namelists_topd(hprogram)
!
IF (hprogram=='AROME ') THEN
#ifdef SFX_ARO
  CALL read_namelists_io(hprogram)
#endif
ENDIF
!
lnam_read = onam_read
!
!namelists that can be reread in surfex code
!
IF (.NOT.lnam_read) THEN
! 
  lnam_read=.true.
  !
  CALL read_namelists_surf_n(ysc%CHU, ysc%DUO, ysc%USS, hprogram,hinit)
  !
  CALL read_namelists_flake_n(ysc%FM, hprogram,hinit)
  CALL read_namelists_watflux_n(ysc%WM, hprogram,hinit)
  CALL read_namelists_seaflux_n(ysc%SM, hprogram,hinit)
  CALL read_namelists_isba_n(ysc%IM, hprogram,hinit)
  CALL read_namelists_teb_n(ysc%TM, ysc%GRM%O, ysc%GDM%O, hprogram, hinit)
  CALL read_namelists_ideal_n(ysc%DLO, hprogram)
  !
  lnam_read=.false.
  !
  !prep namelists, to be read even if reread in surfex code, 
  !because only partially reread
  !
ELSEIF (hinit=='PRE') THEN
  !
  CALL read_nam_prep_surf_n(hprogram)
  CALL read_nam_prep_flake_n(hprogram)
  CALL read_nam_prep_watflux_n(hprogram)
  CALL read_nam_prep_seaflux_n(hprogram) 
  CALL read_nam_prep_isba_n(hprogram)
  CALL read_nam_prep_garden_n(hprogram)
  CALL read_nam_prep_greenroof_n(hprogram)
  CALL read_nam_prep_teb_n(hprogram)
  !
ENDIF
!
IF (lhook) CALL dr_hook('READ_ALL_NAMELISTS',1,zhook_handle)
!-------------------------------------------
END SUBROUTINE read_all_namelists