PROGRAM model !!---------------------------------------------------------------------- !! *** PROGRAM model *** !! !! ** Purpose : encapsulate the opa model so that opa can also be !! called together with the adjoint and linear tangent models !! !! History : !! 8.0 ! 01-02 (M. Imbard, A. Weaver) Original code !! 9.0 ! 03-10 (G. Madec) F90 !!---------------------------------------------------------------------- USE opa ! OPA system (opa_model routine) !!---------------------------------------------------------------------- !! NEMO/OPA 3.3 , NEMO Consortium (2010) !! $Id$ !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- CALL opa_model ! OPA system END PROGRAM model