Ignore:
Timestamp:
2010-12-20T16:28:20+01:00 (10 years ago)
Author:
gm
Message:

v3.3beta: cosmetic changes: model.f90 and opa.F90 changed into nemo.f90 and nemogcm.F90, resp.

File:
1 moved

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/nemo.f90

    r2482 r2496  
    1 PROGRAM model 
     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 
    210   !!---------------------------------------------------------------------- 
    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) 
     11   USE nemogcm   ! NEMO system   (nemo_gcm routine) 
    1312   !!---------------------------------------------------------------------- 
    1413   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    1514   !! $Id$  
    16    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
     15   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    1716   !!---------------------------------------------------------------------- 
    18   
    19    CALL opa_model           ! OPA system 
    20   
    21 END PROGRAM model 
     17   ! 
     18   CALL nemo_gcm           ! NEMO direct code 
     19   !  
     20   !!====================================================================== 
     21END PROGRAM nemo 
Note: See TracChangeset for help on using the changeset viewer.