- Timestamp:
- 2017-08-11T12:47:19+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_GO6_split_trcbiomedusa/NEMOGCM/NEMO/TOP_SRC/trcsms.F90
r8280 r8434 16 16 USE trc ! 17 17 USE trcsms_pisces ! PISCES biogeo-model 18 USE trcsms_medusa ! MEDUSA tracers19 USE trcsms_idtra ! Idealize Tracer20 18 USE trcsms_cfc ! CFC 11 & 12 21 19 USE trcsms_c14b ! C14b tracer 22 20 USE trcsms_age ! AGE tracer 23 21 USE trcsms_my_trc ! MY_TRC tracers 22 USE trcsms_idtra ! Idealize Tracer 23 USE trcsms_medusa ! MEDUSA tracers 24 24 USE prtctl_trc ! Print control for debbuging 25 25 … … 46 46 INTEGER, INTENT( in ) :: kt ! ocean time-step index 47 47 !! 48 INTEGER :: jn49 48 CHARACTER (len=25) :: charout 50 49 !!--------------------------------------------------------------------- … … 53 52 ! 54 53 IF( lk_pisces ) CALL trc_sms_pisces ( kt ) ! main program of PISCES 54 IF( lk_cfc ) CALL trc_sms_cfc ( kt ) ! surface fluxes of CFC 55 IF( lk_c14b ) CALL trc_sms_c14b ( kt ) ! surface fluxes of C14 56 IF( lk_age ) CALL trc_sms_age ( kt ) ! AGE tracer 57 IF( lk_my_trc ) CALL trc_sms_my_trc ( kt ) ! MY_TRC tracers 58 IF( lk_idtra ) CALL trc_sms_idtra ( kt ) ! radioactive decay of Id. tracer 55 59 IF( lk_medusa ) CALL trc_sms_medusa ( kt ) ! MEDUSA tracers 56 # if defined key_debug_medusa57 IF(lwp) WRITE(numout,*) '--trcsms : MEDUSA OK -- next IDTRA -- '58 CALL flush(numout)59 # endif60 IF( lk_idtra ) CALL trc_sms_idtra ( kt ) ! radioactive decay of Id. tracer61 # if defined key_debug_medusa62 IF(lwp) WRITE(numout,*) '--trcsms : IDTRA OK -- next CFC -- '63 CALL flush(numout)64 # endif65 IF( lk_cfc ) CALL trc_sms_cfc ( kt ) ! surface fluxes of CFC66 # if defined key_debug_medusa67 IF(lwp) WRITE(numout,*) '--trcsms : CFC OK -- next C14 -- '68 CALL flush(numout)69 # endif70 IF( lk_c14b ) CALL trc_sms_c14b ( kt ) ! surface fluxes of C1471 # if defined key_debug_medusa72 IF(lwp) WRITE(numout,*) '--trcsms : C14 OK -- next C14 -- '73 CALL flush(numout)74 # endif75 IF( lk_age ) CALL trc_sms_age ( kt ) ! AGE tracer76 # if defined key_debug_medusa77 IF(lwp) WRITE(numout,*) '--trcsms : Age OK -- Continue -- '78 CALL flush(numout)79 # endif80 IF( lk_my_trc ) CALL trc_sms_my_trc ( kt ) ! MY_TRC tracers81 60 82 61 IF(ln_ctl) THEN ! print mean trends (used for debugging)
Note: See TracChangeset
for help on using the changeset viewer.