Skip to content
Snippets Groups Projects
Normal view History Permalink
nemo.f90 1.06 KiB
Newer Older
Guillaume Samson's avatar
Initial commit
Guillaume Samson committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 
PROGRAM nemo
   !!======================================================================
   !!                     ***  PROGRAM nemo  ***
   !!
   !! ** Purpose :   encapsulate nemo_gcm so that it can also be called
   !!              together with the linear tangent and adjoint models
   !!======================================================================
   !! History :   OPA  ! 2001-02  (M. Imbard, A. Weaver)  Original code
   !!   NEMO      1.0  ! 2003-10  (G. Madec) F90
   !!----------------------------------------------------------------------
   USE nemogcm   ! NEMO system   (nemo_gcm routine)
   !!----------------------------------------------------------------------
   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
   !! $Id: nemo.f90 10068 2018-08-28 14:09:04Z nicolasmartin $ 
   !! Software governed by the CeCILL license (see ./LICENSE)
   !!----------------------------------------------------------------------
   !
   CALL nemo_gcm           ! NEMO direct code
   ! 
   !!======================================================================
END PROGRAM nemo