New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
model.f90 in trunk/NEMO/OPA_SRC – NEMO

source: trunk/NEMO/OPA_SRC/model.f90 @ 1629

Last change on this file since 1629 was 1152, checked in by rblod, 16 years ago

Convert cvs header to svn Id, step II

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 900 bytes
Line 
1PROGRAM model
2   !!----------------------------------------------------------------------
3   !!                     ***  PROGRAM model  ***
4   !!
5   !! ** Purpose :   encapsulate the opa model so that opa can also be
6   !!      called together with the adjoint and linear tangent models
7   !!
8   !! History :
9   !!   8.0  !  01-02  (M. Imbard, A. Weaver)  Original code
10   !!   9.0  !  03-10  (G. Madec) F90
11   !!----------------------------------------------------------------------
12   USE opa                  ! OPA system     (opa_model routine)
13   !!----------------------------------------------------------------------
14   !!  OPA 9.0 , LOCEAN-IPSL (2005)
15   !! $Id$
16   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
17   !!----------------------------------------------------------------------
18 
19   CALL opa_model           ! OPA system
20 
21END PROGRAM model
Note: See TracBrowser for help on using the repository browser.