init_output_oln.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #########
      SUBROUTINE init_output_ol_n (YSC)
!     ######################
!
!!****  *INIT_OUTPUT_OL* Keep in memory the netcdf ID of the output files
!!
!!    PURPOSE
!!    -------
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      F. Habets   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      modified 05/04 by P. LeMoigne *Meteo France*
!!      modified 06/10 by S. Faroux *Meteo France*
!!=================================================================
!
!*       0.   DECLARATIONS
!             ------------
!
USE modd_surfex_n, ONLY : surfex_t
!
USE modd_surfex_mpi, ONLY : nrank, npio
!
USE modi_init_outfn_flake_n
USE modi_init_outfn_isba_n
USE modi_init_outfn_sea_n
USE modi_init_outfn_surf_atm_n
USE modi_init_outfn_teb_n
USE modi_init_outfn_water_n
!
USE modd_surfex_mpi, ONLY : wlog_mpi
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!
TYPE(surfex_t), INTENT(INOUT) :: YSC
!
!
INTEGER           :: IRET
INTEGER           :: ILUOUT
REAL(KIND=JPRB)  :: ZHOOK_HANDLE
!------------------------------------------------------------------------------ 
IF (lhook) CALL dr_hook('INIT_OUTPUT_OL_N',0,zhook_handle)
!
iluout = 0
!
IF (nrank==npio) THEN
  !       
  CALL init_outfn_surf_atm_n(ysc%DUO, ysc%UG, ysc%U, ysc%CHE, ysc%CHU, ysc%SV, ysc%DUO%CSELECT, "NC    ",iluout)
  !
  IF (ysc%U%NDIM_NATURE>0) THEN
    IF (ysc%U%CNATURE=='ISBA  '.OR.ysc%U%CNATURE=='TSZ0  ') THEN 
      CALL init_outfn_isba_n(ysc%IM, ysc%UG, ysc%U, ysc%DUO%CSELECT, ysc%DUO%LSNOWDIMNC, "NC    ",iluout)
    ENDIF
  ENDIF
  !
  IF (ysc%U%NDIM_SEA>0) THEN
    IF (ysc%U%CSEA=='SEAFLX') THEN 
      CALL init_outfn_sea_n(ysc%SM, ysc%UG, ysc%U, ysc%DUO%CSELECT, "NC    ",iluout)
    ENDIF
  ENDIF
  !
  IF (ysc%U%NDIM_WATER>0) THEN
    IF (ysc%U%CWATER=='WATFLX') CALL init_outfn_water_n(ysc%WM, ysc%UG, ysc%U, ysc%DUO%CSELECT, "NC    ",iluout)
    IF (ysc%U%CWATER=='FLAKE ') CALL init_outfn_flake_n(ysc%FM, ysc%UG, ysc%U, ysc%DUO%CSELECT, "NC    ",iluout)
  ENDIF
  !
  IF (ysc%U%NDIM_TOWN>0) THEN
    IF (ysc%U%CTOWN=='TEB   ') THEN 
      CALL init_outfn_teb_n(ysc%TM, ysc%GDM, ysc%GRM, ysc%UG, ysc%U, ysc%DUO%CSELECT, "NC    ",iluout)
    ENDIF
  ENDIF
  !
ENDIF
!
!------------------------------------------------------------------------------
IF (lhook) CALL dr_hook('INIT_OUTPUT_OL_N',1,zhook_handle)
!------------------------------------------------------------------------------
!
END SUBROUTINE init_output_ol_n