prismdrv_main.F90

Go to the documentation of this file.

!------------------------------------------------------------------------
! Copyright 2006-2010, CERFACS, Toulouse, France.
! All rights reserved. Use is subject to OASIS4 license terms.
!-----------------------------------------------------------------------
!BOP
!
! Copyright 2004, 2005 by CERFACS, NEC-CCRLE, SGI Germany, NEC HPCE, and CNRS
!
! This software and ancillary information called OASIS4 is free
! software.  The public may copy, distribute, use, prepare derivative
! works and publicly display OASIS4 under the terms of the Lesser GNU
! General Public License (LGPL) as published by the Free Software
! Foundation, provided that this notice and any statement of authorship
! are reproduced on all copies. If OASIS4 is modified to produce
! derivative works, such modified software should be clearly marked, so
! as not to confuse it with the current OASIS4 version.

! The developers of the OASIS4 software attempt to build a parallel,
! modular, and user-friendly coupler accessible to the climate modelling
! community. Although we use the tool ourselves and have made every
! effort to ensure its accuracy, we can not make any guarantees. The
! software is provided for free; in return, the user assume full
! responsibility for use of the software. The OASIS4 software comes
! without any warranties (implied or expressed) and is not guaranteed to
! work for you or on your computer.  CERFACS, NEC-CCRLE, SGI Germany,
! and NEC HPCE and the various individuals involved in development and
! maintenance of the OASIS4 software are not responsible for any damage
! that may result from correct or incorrect use of this software.
!
!
! !ROUTINE: PRISMDrv_main
!
! !INTERFACE
PROGRAM PRISMDrv_main

!
! !USES:
!
  USE PRISMDrv

! !RETURN VALUE

! !DESCRIPTION
! main program of the driver
!
! !REVISED HISTORY
!   Date      Programmer   Description
! ----------  ----------   -----------
! 03/10/2002  D. Declat    Creation
!
! EOP
!----------------------------------------------------------------------
! $Id: prismdrv_main.F90 2325 2010-04-21 15:00:07Z valcke $
! $Author: valcke $
!----------------------------------------------------------------------
!
! 0. Local declarations
!
  CHARACTER(LEN=len_cvs_string), SAVE  :: mycvs = 
     '$Id: prismdrv_main.F90 2325 2010-04-21 15:00:07Z valcke $'

  INTEGER :: il_err

! ---------------------------------------------------------------------
!
! 1. Initialization
!
! 1.1. Initialize the driver context

  call prismdrv_init (il_err)

! 1.2. Get the information of the scc file

  call prismdrv_set_scc_info (il_err)

! 1.3. Initialize the coupled system applications

  call prismdrv_init_appl (il_err)

! 1.4. Get the information of the smioc file

  call prismdrv_set_smioc_info (il_err)

!
! 2. Start the transformer
!
  call prismtrs_main (il_err)

!
! 3. Finalization
!
  call prismdrv_finalize (il_err)



END PROGRAM PRISMDrv_main