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_n(HPROGRAM,HINIT)
00003 !     #######################################################
00004 !
00005 !---------------------------    
00006 !
00007 USE MODN_SURF_ATM_n
00008 !
00009 USE MODN_SSO_n
00010 !
00011 USE MODI_DEFAULT_SSO
00012 !
00013 USE MODI_DEFAULT_CH_SURF_ATM
00014 !
00015 USE MODI_DEFAULT_DIAG_SURF_ATM
00016 !
00017 USE MODI_READ_DEFAULT_SURF_ATM_n
00018 !
00019 USE MODI_READ_SURF_ATM_CONF_n
00020 !
00021 USE MODI_READ_NAM_PREP_SURF_n
00022 !
00023 !------------------------------------
00024 !
00025 !
00026 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00027 USE PARKIND1  ,ONLY : JPRB
00028 !
00029 IMPLICIT NONE
00030 !
00031  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM    ! program calling surf. schemes
00032  CHARACTER(LEN=3),   INTENT(IN)  :: HINIT     ! choice of fields to initialize
00033 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00034 !
00035 !---------------------------------------------------------------------------
00036 !
00037 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_SURF_N',0,ZHOOK_HANDLE)
00038  CALL DEFAULT_SSO(CROUGH,XFRACZ0,XCOEFBE)
00039 !
00040  CALL DEFAULT_CH_SURF_ATM(CCHEM_SURF_FILE,LCH_SURF_EMIS)
00041 !
00042  CALL DEFAULT_DIAG_SURF_ATM(N2M,LSURF_BUDGET,L2M_MIN_ZS,LRAD_BUDGET,  &
00043                             LCOEF,LSURF_VARS,LSURF_BUDGETC,          &
00044                             LRESET_BUDGETC,LSELECT, LPROVAR_TO_DIAG, &
00045                             LDIAG_GRID,LFRAC, XDIAG_TSTEP, CSELECT   )   
00046 !      
00047  CALL READ_DEFAULT_SURF_ATM_n(HPROGRAM) 
00048 !
00049  CALL READ_SURF_ATM_CONF_n(HPROGRAM)    
00050 !       
00051 !---------------------------------------------------------------------------
00052 !PREP
00053 IF (HINIT=='PRE') CALL READ_NAM_PREP_SURF_n(HPROGRAM)
00054 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_SURF_N',1,ZHOOK_HANDLE)
00055 !
00056 !------------------------------------------------------------------------------------
00057 END SUBROUTINE READ_NAMELISTS_SURF_n