Changeset 7097 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_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/trcwri_my_trc.F90
r7073 r7097 2 2 !!====================================================================== 3 3 !! *** MODULE trcwri *** 4 !! my_trc : Output of my_trc tracers4 !! trc_wri_my_trc : outputs of concentration fields 5 5 !!====================================================================== 6 !! History : 1.0 ! 2009-05 (C. Ethe) Original code7 !!----------------------------------------------------------------------8 6 #if defined key_top && defined key_iomput 9 7 !!---------------------------------------------------------------------- 10 !! trc_wri_my_trc : outputs of concentration fields 8 !! History : ! 2007 (C. Ethe, G. Madec) Original code 9 !! ! 2016 (C. Ethe, T. Lovato) Revised architecture 11 10 !!---------------------------------------------------------------------- 12 USE par_trc ! passive tracers common variables 11 USE par_trc ! passive tracers common variables 13 12 USE trc ! passive tracers common variables 14 13 USE iom ! I/O manager … … 19 18 PUBLIC trc_wri_my_trc 20 19 20 !!---------------------------------------------------------------------- 21 !! NEMO/TOP 4.0 , NEMO Consortium (2016) 22 !! $Id$ 23 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 24 !!---------------------------------------------------------------------- 21 25 CONTAINS 22 26
Note: See TracChangeset
for help on using the changeset viewer.