MODULE trcnam_my_trc !!====================================================================== !! *** MODULE trcnam_my_trc *** !! TOP : initialisation of some run parameters for MY_TRC bio-model !!====================================================================== !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) Original code !!---------------------------------------------------------------------- #if defined key_my_trc !!---------------------------------------------------------------------- !! 'key_my_trc' : MY_TRC model !!---------------------------------------------------------------------- !! trc_nam_my_trc : MY_TRC model initialisation !!---------------------------------------------------------------------- USE oce_trc ! Ocean variables USE par_trc ! TOP parameters USE trc ! TOP variables IMPLICIT NONE PRIVATE PUBLIC trc_nam_my_trc ! called by trcnam.F90 module !!---------------------------------------------------------------------- !! NEMO/TOP 3.3 , NEMO Consortium (2010) !! $Id$ !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- CONTAINS SUBROUTINE trc_nam_my_trc !!---------------------------------------------------------------------- !! *** trc_nam_my_trc *** !! !! ** Purpose : read MY_TRC namelist !! !!---------------------------------------------------------------------- ! IF(lwp) WRITE(numout,*) IF(lwp) WRITE(numout,*) ' trc_nam_my_trc : read MY_TRC namelists' IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~' ! END SUBROUTINE trc_nam_my_trc #else !!---------------------------------------------------------------------- !! Dummy module : No MY_TRC !!---------------------------------------------------------------------- CONTAINS SUBROUTINE trc_nam_my_trc ! Empty routine END SUBROUTINE trc_nam_my_trc #endif !!====================================================================== END MODULE trcnam_my_trc