SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/read_namelists

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE READ_NAMELISTS_SURF(HPROGRAM)
00003 !     #######################################################
00004 !
00005 !---------------------------    
00006 !
00007 USE MODD_SURF_CONF,      ONLY : CPROGNAME
00008 !
00009 USE MODD_SURF_ATM,       ONLY : XCISMIN, XVMODMIN, LALDTHRES,             &
00010                                    LDRAG_COEF_ARP, LALDZ0H, LNOSOF,         &
00011                                    LRW_PRECIP, XEDB, XEDC, XEDD, XEDK,      &
00012                                    XUSURIC, XUSURID, XUSURICL,              &
00013                                    XVCHRNK, XVZ0CM, XRIMAX, XDELTA_MAX,     &
00014                                    XWINDMIN, LVZIUSTAR0_ARP,                &
00015                                    XRZHZ0M, XVZIUSTAR0, LRRGUST_ARP,        &
00016                                    XRRSCALE, XRRGAMMA, XUTILGUST, LCPL_ARP, &
00017                                    LQVNPLUS, LVERTSHIFT,                    &
00018                                    CIMPLICIT_WIND  
00019 !
00020 USE MODD_WRITE_SURF_ATM, ONLY : LNOWRITE_CANOPY, LNOWRITE_TEXFILE                                    
00021 !
00022 USE MODI_DEFAULT_SURF_ATM
00023 USE MODI_DEFAULT_WRITE_SURF_ATM
00024 USE MODI_READ_DEFAULT_SURF_ATM
00025 USE MODI_READ_SURF_ATM_CONF
00026 !
00027 USE MODI_INI_CSTS
00028 USE MODI_READ_NAM_WRITE_COVER_TEX
00029 !
00030 !
00031 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00032 USE PARKIND1  ,ONLY : JPRB
00033 !
00034 IMPLICIT NONE
00035 !
00036  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00037 !
00038 REAL    :: ZOUT_TSTEP
00039 INTEGER :: ILUNAM         ! logical unit of namelist file
00040 INTEGER :: ILUOUT
00041 LOGICAL :: GFOUND         ! Return code when searching namelist
00042 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00043 !
00044 !-----------------------------------------------------------------------------
00045 !
00046 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_SURF',0,ZHOOK_HANDLE)
00047  CALL DEFAULT_SURF_ATM(ZOUT_TSTEP,XCISMIN,XVMODMIN,LALDTHRES,      &
00048                          LDRAG_COEF_ARP, LALDZ0H, LNOSOF,         &
00049                          LRW_PRECIP, XEDB, XEDC, XEDD, XEDK,      &
00050                          XUSURIC, XUSURID, XUSURICL,              &
00051                          XVCHRNK, XVZ0CM, XRIMAX, XDELTA_MAX,     &
00052                          XWINDMIN,                                &
00053                          LVZIUSTAR0_ARP,                          &
00054                          XRZHZ0M, XVZIUSTAR0, LRRGUST_ARP,        &
00055                          XRRSCALE, XRRGAMMA,XUTILGUST, LCPL_ARP,  &
00056                          LQVNPLUS, LVERTSHIFT, CIMPLICIT_WIND     )
00057 !                       
00058  CALL DEFAULT_WRITE_SURF_ATM(LNOWRITE_CANOPY, LNOWRITE_TEXFILE)
00059 !
00060  CALL READ_DEFAULT_SURF_ATM(HPROGRAM)
00061 !
00062  CALL READ_SURF_ATM_CONF(HPROGRAM)
00063 !
00064 !
00065 CPROGNAME=HPROGRAM
00066  CALL INI_CSTS
00067 !
00068  CALL READ_NAM_WRITE_COVER_TEX(HPROGRAM)
00069 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_SURF',1,ZHOOK_HANDLE)
00070 !
00071 !
00072 END SUBROUTINE READ_NAMELISTS_SURF