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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE READ_NAMELISTS_ASSIM(HPROGRAM)
00003 !     #######################################################
00004 !
00005 !---------------------------    
00006 !
00007 USE MODD_ASSIM,           ONLY : LASSIM,CASSIM,CASSIM_ISBA,LPRINT,LAROME,LECSST,    &
00008                                  LAESST,LAESNM,LALADSURF,LREAD_SST_FROM_FILE,       &
00009                                  LEXTRAP_SEA,LEXTRAP_WATER,LEXTRAP_NATURE,LWATERTG2
00010 USE MODI_DEFAULT_ASSIM
00011 USE MODI_READ_ASSIM_CONF
00012 USE MODI_INI_ASSIM
00013 !
00014 !
00015 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00016 USE PARKIND1  ,ONLY : JPRB
00017 !
00018 IMPLICIT NONE
00019 !
00020  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM      ! program calling surf. schemes
00021 REAL(KIND=JPRB)                 :: ZHOOK_HANDLE
00022 
00023 !---------------------------------------------------
00024 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_ASSIM',0,ZHOOK_HANDLE)
00025 
00026 ! Set default assimilation options/schemes
00027  CALL DEFAULT_ASSIM(LASSIM,CASSIM,CASSIM_ISBA,LPRINT,        &
00028                    LAROME,LECSST,LAESST,LAESNM,             &
00029                    LALADSURF,LREAD_SST_FROM_FILE,           &
00030                    LEXTRAP_SEA,LEXTRAP_WATER,LEXTRAP_NATURE,&
00031                    LWATERTG2)
00032 
00033 ! Set default assimilations values/constants
00034  CALL INI_ASSIM
00035 
00036 ! Override with namelist values
00037  CALL READ_ASSIM_CONF(HPROGRAM)
00038 
00039 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_ASSIM',1,ZHOOK_HANDLE)
00040 !---------------------------------------------------------
00041 END SUBROUTINE READ_NAMELISTS_ASSIM