read_namelists_surf.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_namelists_surf(HPROGRAM)
!     #######################################################
!
!---------------------------    
!
USE modd_surf_conf,      ONLY : cprogname
!
USE modd_surf_atm,       ONLY : xcismin, xvmodmin, laldthres,               &
                                   ldrag_coef_arp, laldz0h, lnosof,         &
                                   lcpl_gcm, xedb, xedc, xedd, xedk,        &
                                   xusuric, xusurid, xusuricl,              &
                                   xvchrnk, xvz0cm, xrimax, xdelta_max,     &
                                   xwindmin, lvziustar0_arp,                &
                                   xrzhz0m, xvziustar0, lrrgust_arp,        &
                                   xrrscale, xrrgamma, xutilgust, lcpl_arp, &
                                   lqvnplus, lvertshift, lvshift_lw,        &
                                   lvshift_prcp,                            &
                                   xco2uncpl   
!
USE modd_write_surf_atm, ONLY : lnowrite_canopy, lnowrite_texfile                                    
!
USE modi_default_surf_atm
USE modi_default_write_surf_atm
USE modi_read_default_surf_atm
USE modi_read_surf_atm_conf
!
USE modi_ini_csts
USE modi_read_nam_write_cover_tex
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
 CHARACTER(LEN=6),  INTENT(IN)  :: hprogram  ! program calling surf. schemes
!
REAL    :: zout_tstep
INTEGER :: ilunam         ! logical unit of namelist file
INTEGER :: iluout
LOGICAL :: gfound         ! Return code when searching namelist
REAL(KIND=JPRB) :: zhook_handle
!
!-----------------------------------------------------------------------------
!
IF (lhook) CALL dr_hook('READ_NAMELISTS_SURF',0,zhook_handle)
 CALL default_surf_atm(zout_tstep,xcismin,xvmodmin,laldthres,     &
                         ldrag_coef_arp, laldz0h, lnosof,         &
                         lcpl_gcm, xedb, xedc, xedd, xedk,        &
                         xusuric, xusurid, xusuricl,              &
                         xvchrnk, xvz0cm, xrimax, xdelta_max,     &
                         xwindmin,                                &
                         lvziustar0_arp,                          &
                         xrzhz0m, xvziustar0, lrrgust_arp,        &
                         xrrscale, xrrgamma,xutilgust, lcpl_arp,  &
                         lqvnplus, lvertshift, lvshift_lw,        &
                         lvshift_prcp, xco2uncpl                  )
!                       
 CALL default_write_surf_atm(lnowrite_canopy, lnowrite_texfile)
!
 CALL read_default_surf_atm(hprogram)
!
 CALL read_surf_atm_conf(hprogram)
!
!
 cprogname=hprogram
 CALL ini_csts
!
 CALL read_nam_write_cover_tex(hprogram)
IF (lhook) CALL dr_hook('READ_NAMELISTS_SURF',1,zhook_handle)
!
!
END SUBROUTINE read_namelists_surf