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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE READ_NAMELISTS_TOPD(HPROGRAM)
00003 !     #######################################################
00004 !
00005 !--------------------------------------------------------------------------
00006 !
00007 USE MODI_READ_NAM_PGD_TOPD
00008 USE MODI_READ_NAM_TOPD
00009 !
00010 USE MODD_TOPODYN, ONLY : CCAT,XTOPD_STEP,NNB_TOPD_STEP,& 
00011                            XSPEEDR,XQINIT,XRTOP_D2,XSPEEDG
00012 USE MODD_COUPLING_TOPD, ONLY : LCOUPL_TOPD, NNB_TOPD,&
00013                                  LBUDGET_TOPD,LSTOCK_TOPD,&
00014                                  NNB_STP_STOCK,NNB_STP_RESTART
00015 
00016 USE MODD_DUMMY_EXP_PROFILE,ONLY:XF_PARAM_BV,XC_DEPTH_RATIO_BV
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 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00025 !
00026 !----------------------------------------------------------
00027 !
00028 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_TOPD',0,ZHOOK_HANDLE)
00029 !
00030  CALL READ_NAM_PGD_TOPD(HPROGRAM,LCOUPL_TOPD,CCAT,&
00031                         XF_PARAM_BV,XC_DEPTH_RATIO_BV)
00032 IF (LCOUPL_TOPD) &
00033   CALL READ_NAM_TOPD(HPROGRAM,LBUDGET_TOPD,NNB_TOPD,&
00034                      LSTOCK_TOPD,NNB_STP_STOCK,NNB_STP_RESTART,&
00035                      XSPEEDR,XSPEEDG,XQINIT,XRTOP_D2)
00036 !
00037 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_TOPD',1,ZHOOK_HANDLE)
00038 !
00039 END SUBROUTINE READ_NAMELISTS_TOPD