Changeset 7097 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90
- Timestamp:
- 2016-10-25T17:32:50+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90
r7073 r7097 4 4 !! TOP : initialisation of the MY_TRC tracers 5 5 !!====================================================================== 6 !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) Original code 6 !! History : ! 2007 (C. Ethe, G. Madec) Original code 7 !! ! 2016 (C. Ethe, T. Lovato) Revised architecture 7 8 !!---------------------------------------------------------------------- 8 9 !! trc_ini_my_trc : MY_TRC model initialisation … … 11 12 USE oce_trc 12 13 USE trc 14 USE par_my_trc 15 USE trcnam_my_trc ! MY_TRC SMS namelist 13 16 USE trcsms_my_trc 14 17 … … 19 22 20 23 !!---------------------------------------------------------------------- 21 !! NEMO/TOP 3.3 , NEMO Consortium (2010)24 !! NEMO/TOP 4.0 , NEMO Consortium (2016) 22 25 !! $Id$ 23 26 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 33 36 !! ** Method : - Read the namcfc namelist and check the parameter values 34 37 !!---------------------------------------------------------------------- 35 38 ! 39 CALL trc_nam_my_trc 40 ! 36 41 ! ! Allocate MY_TRC arrays 37 42 IF( trc_sms_my_trc_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'trc_ini_my_trc: unable to allocate MY_TRC arrays' ) … … 49 54 END SUBROUTINE trc_ini_my_trc 50 55 51 52 56 !!====================================================================== 53 57 END MODULE trcini_my_trc
Note: See TracChangeset
for help on using the changeset viewer.