Changeset 7073 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90
- Timestamp:
- 2016-10-24T12:36:50+02:00 (7 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
r6140 r7073 6 6 !! History : 1.0 ! 2009-05 (C. Ethe) Original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_top && defined key_my_trc && defined key_iomput 9 !!---------------------------------------------------------------------- 10 !! 'key_my_trc' my_trc model 8 #if defined key_top && defined key_iomput 11 9 !!---------------------------------------------------------------------- 12 10 !! trc_wri_my_trc : outputs of concentration fields 13 11 !!---------------------------------------------------------------------- 12 USE par_trc ! passive tracers common variables 14 13 USE trc ! passive tracers common variables 15 14 USE iom ! I/O manager … … 36 35 DO jn = jp_myt0, jp_myt1 37 36 cltra = TRIM( ctrcnm(jn) ) ! short title for tracer 38 IF( ln_trc_wri(jn) )CALL iom_put( cltra, trn(:,:,:,jn) )37 CALL iom_put( cltra, trn(:,:,:,jn) ) 39 38 END DO 40 39 ! … … 42 41 43 42 #else 44 !!---------------------------------------------------------------------- 45 !! Dummy module : No passive tracer 46 !!---------------------------------------------------------------------- 47 PUBLIC trc_wri_my_trc 43 48 44 CONTAINS 49 SUBROUTINE trc_wri_my_trc ! Empty routine 45 46 SUBROUTINE trc_wri_my_trc 47 ! 50 48 END SUBROUTINE trc_wri_my_trc 49 51 50 #endif 52 51 53 !!----------------------------------------------------------------------54 !! NEMO/TOP 3.3 , NEMO Consortium (2010)55 !! $Id: trcwri_my_trc.F90 3160 2011-11-20 14:27:18Z cetlod $56 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)57 !!======================================================================58 52 END MODULE trcwri_my_trc
Note: See TracChangeset
for help on using the changeset viewer.