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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE READ_NAMELISTS_SEAFLUX_n(HPROGRAM,HINIT)
00003 !     #######################################################
00004 !
00005 !---------------------------------------------------------------------------   
00006 !
00007 USE MODN_SEAFLUX_n
00008 !
00009 USE MODI_DEFAULT_SEAFLUX
00010 USE MODI_DEFAULT_CH_DEP
00011 USE MODI_DEFAULT_DIAG_SEAFLUX
00012 USE MODI_READ_DEFAULT_SEAFLUX_n
00013 USE MODI_READ_SEAFLUX_CONF_n
00014 !
00015 USE MODI_READ_NAM_PREP_SEAFLUX_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_SEAFLUX_N',0,ZHOOK_HANDLE)
00030  CALL DEFAULT_SEAFLUX(XTSTEP,XOUT_TSTEP,CSEA_ALB,CSEA_FLUX,LPWG,       &
00031                         LPRECIP,LPWEBB,NGRVWAVES,LPROGSST,NTIME_COUPLING,&
00032                         XICHCE,CINTERPOL_SST          )   
00033 !               
00034  CALL DEFAULT_CH_DEP(CCH_DRY_DEP)
00035 !
00036  CALL DEFAULT_DIAG_SEAFLUX(N2M,LSURF_BUDGET,L2M_MIN_ZS,LRAD_BUDGET,LCOEF,LSURF_VARS,&
00037                           LDIAG_OCEAN,LSURF_BUDGETC,LRESET_BUDGETC,XDIAG_TSTEP     )  
00038 !
00039  CALL READ_DEFAULT_SEAFLUX_n(HPROGRAM)
00040 !
00041  CALL READ_SEAFLUX_CONF_n(HPROGRAM)
00042 !
00043 !---------------------------------------------------------------------------
00044 !
00045 IF (HINIT=='PRE') CALL READ_NAM_PREP_SEAFLUX_n(HPROGRAM)
00046 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_SEAFLUX_N',1,ZHOOK_HANDLE)
00047 !
00048 !
00049 END SUBROUTINE READ_NAMELISTS_SEAFLUX_n