source: trunk/NEMOGCM/NEMO/OPA_SRC/nemo.f90 @ 37

Last change on this file since 37 was 1, checked in by cholod, 12 years ago

importing initial nemo vendor drop (v3.4_r_3220)
File size: 1.1 KB
Line 
1PROGRAM nemo
2   !!======================================================================
3   !!                     ***  PROGRAM nemo  ***
4   !!
5   !! ** Purpose :   encapsulate nemo_gcm so that it can also be called
6   !!              together with the linear tangent and adjoint models
7   !!======================================================================
8   !! History :   OPA  ! 2001-02  (M. Imbard, A. Weaver)  Original code
9   !!   NEMO      1.0  ! 2003-10  (G. Madec) F90
10   !!----------------------------------------------------------------------
11   USE nemogcm   ! NEMO system   (nemo_gcm routine)
12   !!----------------------------------------------------------------------
13   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
14   !! $Id: nemo.f90 2528 2010-12-27 17:33:53Z rblod $
15   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
16   !!----------------------------------------------------------------------
17   !
18   CALL nemo_gcm           ! NEMO direct code
19   !
20   !!======================================================================
21END PROGRAM nemo
Note: See TracBrowser for help on using the repository browser.