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/OFF_SRC – NEMO

source: trunk/NEMO/OFF_SRC/model.f90 @ 973

Last change on this file since 973 was 719, checked in by ctlod, 16 years ago

get back to the nemo_v2_3 version for trunk

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 904 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   !! $Header$
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.