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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE READ_NAMELISTS_FLAKE_n(HPROGRAM, HINIT)
00003 !     #######################################################
00004 !
00005 !---------------------------    
00006 !
00007 USE MODN_FLAKE_n
00008 !
00009 USE MODI_DEFAULT_FLAKE
00010 USE MODI_DEFAULT_CH_DEP
00011 USE MODI_DEFAULT_DIAG_FLAKE
00012 USE MODI_READ_DEFAULT_FLAKE_n
00013 USE MODI_READ_FLAKE_CONF_n
00014 !
00015 USE MODI_READ_NAM_PREP_FLAKE_n
00016 !
00017 !
00018 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00019 USE PARKIND1  ,ONLY : JPRB
00020 !
00021 IMPLICIT NONE
00022 !
00023  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00024  CHARACTER(LEN=3),   INTENT(IN)  :: HINIT     ! choice of fields to initialize
00025 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00026 !
00027 !--------------------------------------------------------------
00028 !
00029 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_FLAKE_N',0,ZHOOK_HANDLE)
00030  CALL DEFAULT_FLAKE(XTSTEP,XOUT_TSTEP,LSEDIMENTS,CSNOW_FLK,CFLK_FLUX,CFLK_ALB,&
00031                    XICHCE, LPRECIP, LPWEBB)
00032 !
00033  CALL DEFAULT_CH_DEP(CCH_DRY_DEP)
00034 !
00035  CALL DEFAULT_DIAG_FLAKE(N2M,LSURF_BUDGET,L2M_MIN_ZS,LRAD_BUDGET,LCOEF,LSURF_VARS, &
00036                          LWATER_PROFILE,LSURF_BUDGETC,LRESET_BUDGETC,XDIAG_TSTEP,  &
00037                          XZWAT_PROFILE             )  
00038 !
00039  CALL READ_DEFAULT_FLAKE_n(HPROGRAM)
00040 !
00041  CALL READ_FLAKE_CONF_n(HPROGRAM)
00042 !
00043 !----------------------------------------------------------------------------
00044 !
00045 IF (HINIT=='PRE') CALL READ_NAM_PREP_FLAKE_n(HPROGRAM)
00046 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_FLAKE_N',1,ZHOOK_HANDLE)
00047 !
00048 !----------------------
00049 
00050 END SUBROUTINE READ_NAMELISTS_FLAKE_n