MODULE trcice_cfc !!====================================================================== !! *** MODULE trcice_cfc *** !! TOP : Main module of the MY_TRC tracers !!====================================================================== !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) Original code !!---------------------------------------------------------------------- #if defined key_cfc !!---------------------------------------------------------------------- !! 'key_cfc' CFC tracers !!---------------------------------------------------------------------- !! trc_ice_cfc : MY_TRC model main routine !!---------------------------------------------------------------------- USE par_trc ! TOP parameters USE oce_trc ! Ocean variables USE trc ! TOP variables IMPLICIT NONE PRIVATE PUBLIC trc_ice_ini_cfc ! called by trcice.F90 module !!---------------------------------------------------------------------- !! NEMO/TOP 3.3 , NEMO Consortium (2010) !! $Id$ !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- CONTAINS SUBROUTINE trc_ice_ini_cfc !!---------------------------------------------------------------------- !! *** trc_ice_cfc *** !! !! ** Purpose : main routine of MY_TRC model !! !! ** Method : - !!---------------------------------------------------------------------- ! ! END SUBROUTINE trc_ice_ini_cfc #else !!---------------------------------------------------------------------- !! Dummy module No MY_TRC model !!---------------------------------------------------------------------- CONTAINS SUBROUTINE trc_ice_ini_cfc ! Empty routine END SUBROUTINE trc_ice_ini_cfc #endif !!====================================================================== END MODULE trcice_cfc