Changeset 6332 for branches/UKMO/CO6_KD490/NEMOGCM/NEMO/TOP_SRC/trcwri.F90
- Timestamp:
- 2016-02-19T08:20:00+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/CO6_KD490/NEMOGCM/NEMO/TOP_SRC/trcwri.F90
r6331 r6332 32 32 CONTAINS 33 33 34 #if defined key_tracer_budget 35 SUBROUTINE trc_wri( kt , fl) !slwa 36 #else 34 37 SUBROUTINE trc_wri( kt ) 38 #endif 35 39 !!--------------------------------------------------------------------- 36 40 !! *** ROUTINE trc_wri *** … … 39 43 !!--------------------------------------------------------------------- 40 44 INTEGER, INTENT( in ) :: kt 45 #if defined key_tracer_budget 46 INTEGER, INTENT( in ), OPTIONAL :: fl ! slwa 47 #endif 41 48 ! 42 49 INTEGER :: jn … … 59 66 IF( lk_cfc ) CALL trc_wri_cfc ! surface fluxes of CFC 60 67 IF( lk_c14b ) CALL trc_wri_c14b ! surface fluxes of C14 68 #if defined key_tracer_budget 69 IF( .NOT.PRESENT(fl) .AND. lk_my_trc ) CALL trc_wri_my_trc (kt) ! MY_TRC tracers slwa 70 IF( PRESENT(fl) .AND. lk_my_trc ) CALL trc_wri_my_trc (kt, fl) ! MY_TRC tracers for budget slwa 71 #else 61 72 IF( lk_my_trc ) CALL trc_wri_my_trc ! MY_TRC tracers 73 #endif 62 74 ! 63 75 IF( nn_timing == 1 ) CALL timing_stop('trc_wri')
Note: See TracChangeset
for help on using the changeset viewer.