read_namelists_assim.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_assim(HPROGRAM)
!     #######################################################
!
!---------------------------    
!
USE modd_assim,           ONLY : lassim,cassim,cassim_isba,nprintlev,larome,lecsst,   &
                                 laesst,laesnm,laladsurf,lread_sst_from_file,         &
                                 cfile_format_sst,lextrap_sea,lextrap_water,          &
                                 lextrap_nature,lwatertg2,nboutput,nechgu,xrclimca,   &
                                 xrclisst,xsigh2mo,xsigt2mo, xsigwgo,xsigwgb,xsigw2b, &
                                 lobswg,lobs2m,limveg,xsprecip2,xrthr_qc,xsigwgo_max, &
                                 xrscal_jac,lprt,lsim,lbev,lbfixed,nobstype,          &
                                 lobsheader,cfile_format_lsm,cfile_format_obs,        &
                                 cfile_format_fg,cfile_format_clim,xerrobs_m,xqcobs_m,&
                                 nnco,nivar,nvar,cvar_m,cprefix_m,xsigma_m,xtprt_m,   &
                                 nncv,xscale_q,xscale_qlai,cbio,cprefix_bio,xalph,    &
                                 nens,nie,xinfl_m,xaddinfl_m,xassim_winh,lobsnat,     &
                                 xaddtimecorr_m,lens_gen,lpb_correlations,            &
                                 lperturbation_run,lbias_correction,lenkf,ldenkf
!
USE modi_default_assim
USE modi_read_assim_conf
USE modi_ini_assim
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
 CHARACTER(LEN=6),   INTENT(IN)  :: hprogram      ! program calling surf. schemes
REAL(KIND=JPRB)                 :: zhook_handle

!---------------------------------------------------
IF (lhook) CALL dr_hook('READ_NAMELISTS_ASSIM',0,zhook_handle)

! Set default assimilation options/schemes
 CALL default_assim(lassim,cassim,cassim_isba,nprintlev,      &
                   larome,lecsst,laesst,laesnm,              &
                   laladsurf,lread_sst_from_file,            &
                   cfile_format_sst,lextrap_sea,             &
                   lextrap_water,lextrap_nature,lwatertg2,   &
                   nboutput,nechgu,xrclimca,xrclisst,        &
                   xsigh2mo,xsigt2mo,xsigwgo,xsigwgb,        &
                   xsigw2b,lobswg,lobs2m,limveg,xsprecip2,   &
                   xrthr_qc,xsigwgo_max,xrscal_jac,lprt,     &
                   lsim,lbev,lbfixed,nobstype,lobsheader,    &
                   cfile_format_obs,lobsnat,cfile_format_fg, &
                   cfile_format_lsm,cfile_format_clim,       &
                   xerrobs_m,xqcobs_m,nnco,nivar,nvar,cvar_m,&
                   cprefix_m,xsigma_m,xtprt_m,nncv,xscale_q, &
                   xscale_qlai,cbio,cprefix_bio,xalph,       &
                   nens,nie,xinfl_m,xaddinfl_m,xassim_winh,  &
                   xaddtimecorr_m,lens_gen,lpb_correlations, &
                   lperturbation_run,lbias_correction,       &
                   lenkf,ldenkf,'OK')
!
! Set default assimilations values/constants
 CALL ini_assim
!
! Override with namelist values
 CALL read_assim_conf(hprogram)

IF (lhook) CALL dr_hook('READ_NAMELISTS_ASSIM',1,zhook_handle)
!---------------------------------------------------------
END SUBROUTINE read_namelists_assim