Changeset 7646 for trunk/NEMOGCM/NEMO/TOP_SRC/trcwri.F90
- Timestamp:
- 2017-02-06T10:25:03+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/trcwri.F90
r5836 r7646 19 19 USE trcwri_pisces 20 20 USE trcwri_cfc 21 USE trcwri_c14b 21 USE trcwri_c14 22 USE trcwri_age 22 23 USE trcwri_my_trc 23 24 … … 45 46 IF( nn_timing == 1 ) CALL timing_start('trc_wri') 46 47 ! 47 IF( l k_offline .AND. kt == nittrc000 .AND. lwp ) THEN ! WRITE root name in date.file for use by postpro48 IF( l_offline .AND. kt == nittrc000 .AND. lwp ) THEN ! WRITE root name in date.file for use by postpro 48 49 CALL dia_nam( clhstnam, nn_writetrc,' ' ) 49 50 CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) … … 53 54 ! write the tracer concentrations in the file 54 55 ! --------------------------------------- 55 IF( lk_pisces ) CALL trc_wri_pisces ! PISCES 56 IF( lk_cfc ) CALL trc_wri_cfc ! surface fluxes of CFC 57 IF( lk_c14b ) CALL trc_wri_c14b ! surface fluxes of C14 58 IF( lk_my_trc ) CALL trc_wri_my_trc ! MY_TRC tracers 56 IF( ln_pisces ) CALL trc_wri_pisces ! PISCES 57 IF( ll_cfc ) CALL trc_wri_cfc ! surface fluxes of CFC 58 IF( ln_c14 ) CALL trc_wri_c14 ! surface fluxes of C14 59 IF( ln_age ) CALL trc_wri_age ! AGE tracer 60 IF( ln_my_trc ) CALL trc_wri_my_trc ! MY_TRC tracers 59 61 ! 60 62 IF( nn_timing == 1 ) CALL timing_stop('trc_wri')
Note: See TracChangeset
for help on using the changeset viewer.