Skip to content
Snippets Groups Projects
Normal view History Permalink
trcice_c14.F90 1.15 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 22 23 24 25 26 27 28 29 30 31 
MODULE trcice_c14
   !!======================================================================
   !!                         ***  MODULE trcice_c14  ***
   !!======================================================================
   USE par_trc         ! TOP parameters
   USE oce_trc         ! Ocean variables
   USE trc             ! TOP variables

   IMPLICIT NONE
   PRIVATE

   PUBLIC   trc_ice_ini_c14       ! called by trcice.F90 module

   !!----------------------------------------------------------------------
   !! NEMO/TOP 4.0 , NEMO Consortium (2018)
   !! $Id: trcice_c14.F90 10069 2018-08-28 14:12:24Z nicolasmartin $
   !! Software governed by the CeCILL license (see ./LICENSE)
   !!----------------------------------------------------------------------
CONTAINS

   SUBROUTINE trc_ice_ini_c14
      !!----------------------------------------------------------------------
      !!                     ***  trc_ice_c14b  ***
      !!
      !!----------------------------------------------------------------------
      !
      !
   END SUBROUTINE trc_ice_ini_c14

   !!======================================================================
END MODULE trcice_c14