Changeset 3750 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2013-01-14T17:25:10+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/trcwri.F90
r3680 r3750 38 38 !! ** Purpose : output passive tracers fields and dynamical trends 39 39 !!--------------------------------------------------------------------- 40 INTEGER, INTENT( in ) :: kt 41 !!--------------------------------------------------------------------- 40 INTEGER, INTENT( in ) :: kt 42 41 ! 43 IF( nn_timing == 1 ) CALL timing_start('trc_wri')44 !45 CALL iom_setkt ( kt + nn_dttrc - 1 ) ! set the passive tracer time step46 CALL trc_wri_trc( kt ) ! outputs for tracer concentration47 CALL iom_setkt ( kt ) ! set the model time step48 !49 IF( nn_timing == 1 ) CALL timing_stop('trc_wri')50 !51 END SUBROUTINE trc_wri52 53 SUBROUTINE trc_wri_trc( kt )54 !!---------------------------------------------------------------------55 !! *** ROUTINE trc_wri_trc ***56 !!57 !! ** Purpose : output passive tracers fields58 !!---------------------------------------------------------------------59 INTEGER, INTENT( in ) :: kt ! ocean time-step60 42 INTEGER :: jn 61 43 CHARACTER (len=20) :: cltra … … 63 45 INTEGER :: inum = 11 ! temporary logical unit 64 46 !!--------------------------------------------------------------------- 65 47 ! 48 IF( nn_timing == 1 ) CALL timing_start('trc_wri') 49 ! 66 50 IF( lk_offline .AND. kt == nittrc000 .AND. lwp ) THEN ! WRITE root name in date.file for use by postpro 67 51 CALL dia_nam( clhstnam, nn_writetrc,' ' ) … … 77 61 IF( lk_my_trc ) CALL trc_wri_my_trc ! MY_TRC tracers 78 62 ! 79 END SUBROUTINE trc_wri_trc 63 IF( nn_timing == 1 ) CALL timing_stop('trc_wri') 64 ! 65 END SUBROUTINE trc_wri 80 66 81 67 #else
Note: See TracChangeset
for help on using the changeset viewer.