Changeset 2496 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/nemo.f90
- Timestamp:
- 2010-12-20T16:28:20+01:00 (13 years ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/nemo.f90
r2482 r2496 1 PROGRAM model 1 PROGRAM 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 2 10 !!---------------------------------------------------------------------- 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) 13 12 !!---------------------------------------------------------------------- 14 13 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 15 14 !! $Id$ 16 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)15 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 17 16 !!---------------------------------------------------------------------- 18 19 CALL opa_model ! OPA system 20 21 END PROGRAM model 17 ! 18 CALL nemo_gcm ! NEMO direct code 19 ! 20 !!====================================================================== 21 END PROGRAM nemo
Note: See TracChangeset
for help on using the changeset viewer.