MODULE trclsm_my_trc !!====================================================================== !! *** MODULE trclsm_my_trc *** !! TOP : initialisation of some run parameters for LOBSTER 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_lsm_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_lsm_my_trc ! called by trclsm.F90 module !!---------------------------------------------------------------------- !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) !! $Id$ !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- CONTAINS SUBROUTINE trc_lsm_my_trc !!---------------------------------------------------------------------- !! *** trc_lsm_my_trc *** !! !! ** Purpose : read MY_TRC namelist !! !! ** input : file 'namelist.trc.sms' containing the following !! namelist: natbio, natopt, and natdbi ("key_trc_diabio") !!---------------------------------------------------------------------- !!---------------------------------------------------------------------- ! IF(lwp) WRITE(numout,*) IF(lwp) WRITE(numout,*) ' trc_lsm_my_trc : read MY_TRC namelists' IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~' ! END SUBROUTINE trc_lsm_my_trc #else !!---------------------------------------------------------------------- !! Dummy module : No MY_TRC !!---------------------------------------------------------------------- CONTAINS SUBROUTINE trc_lsm_my_trc ! Empty routine END SUBROUTINE trc_lsm_my_trc #endif !!====================================================================== END MODULE trclsm_my_trc