- Timestamp:
- 2017-03-24T16:06:42+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/CO6_shelfclimate_fabm/NEMOGCM/NEMO/TOP_SRC/trcwri.F90
r7567 r7835 21 21 USE trcwri_c14b 22 22 USE trcwri_my_trc 23 ! +++>>> FABM 24 USE trcwri_fabm 25 ! FABM <<<+++ 23 26 24 27 IMPLICIT NONE … … 72 75 IF( lk_my_trc ) CALL trc_wri_my_trc ! MY_TRC tracers 73 76 #endif 77 ! +++>>>FABM 78 IF( lk_fabm ) CALL trc_wri_fabm ! FABM tracers 79 ! FABM <<<+++ 74 80 ! 75 81 IF( nn_timing == 1 ) CALL timing_stop('trc_wri')
Note: See TracChangeset
for help on using the changeset viewer.