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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE READ_NAMELISTS_IDEAL(HPROGRAM)
00003 !     #######################################################
00004 !
00005 !---------------------------    
00006 !
00007 USE MODN_IDEAL_FLUX, ONLY : NFORCF, NFORCT, XTIMEF, XTIMET, XSFTH, XSFTQ, XSFCO2, &
00008                             CUSTARTYPE, XUSTAR, XZ0, XALB, XEMIS, XTSRAD
00009 !
00010 USE MODI_DEFAULT_IDEAL_FLUX
00011 USE MODI_READ_IDEAL_FLUX_CONF
00012 !
00013 !--------------------------------------------
00014 !
00015 !
00016 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00017 USE PARKIND1  ,ONLY : JPRB
00018 !
00019 IMPLICIT NONE
00020 !
00021  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00022 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00023 !
00024 !---------------------------------------------------
00025 !                  
00026 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_IDEAL',0,ZHOOK_HANDLE)
00027  CALL DEFAULT_IDEAL_FLUX(NFORCF, NFORCT, XTIMEF, XTIMET, XSFTH, XSFTQ, XSFCO2, &
00028                         CUSTARTYPE, XUSTAR, XZ0, XALB, XEMIS, XTSRAD)
00029 !
00030  CALL READ_IDEAL_FLUX_CONF(HPROGRAM)
00031 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_IDEAL',1,ZHOOK_HANDLE)
00032 !
00033 !---------------------------------------------------------
00034 !
00035 END SUBROUTINE READ_NAMELISTS_IDEAL