- Timestamp:
- 2016-10-19T12:55:07+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcsms.F90
r5656 r7041 16 16 USE trc ! 17 17 USE trcsms_pisces ! PISCES biogeo-model 18 USE trcsms_cfc ! CFC 11 & 12 19 USE trcsms_c14b ! C14b tracer 18 USE trcsms_cfc ! CFC 11 &/or 12 19 USE trcsms_c14 ! C14 20 USE trcsms_age ! AGE 20 21 USE trcsms_my_trc ! MY_TRC tracers 21 22 USE prtctl_trc ! Print control for debbuging … … 49 50 ! 50 51 IF( lk_pisces ) CALL trc_sms_pisces ( kt ) ! main program of PISCES 51 IF( lk_cfc ) CALL trc_sms_cfc ( kt ) ! surface fluxes of CFC 52 IF( lk_c14b ) CALL trc_sms_c14b ( kt ) ! surface fluxes of C14 52 IF( ll_cfc ) CALL trc_sms_cfc ( kt ) ! surface fluxes of CFC 53 IF( ln_c14 ) CALL trc_sms_c14 ( kt ) ! surface fluxes of C14 54 IF( ln_age ) CALL trc_sms_age ( kt ) ! Age tracer 53 55 IF( lk_my_trc ) CALL trc_sms_my_trc ( kt ) ! MY_TRC tracers 54 56
Note: See TracChangeset
for help on using the changeset viewer.