| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253 |
- 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: trcice_cfc.F90 4990 2014-12-15 16:42:49Z timgraham $
- !! 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
|
