- Timestamp:
- 2016-06-16T18:58:14+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcwri.F90
r6047 r6715 24 24 USE trcwri_medusa 25 25 USE trcwri_idtra 26 USE trcwri_age 26 27 27 28 IMPLICIT NONE … … 60 61 ! --------------------------------------- 61 62 IF( lk_pisces ) CALL trc_wri_pisces ! PISCES 63 IF( lk_medusa ) CALL trc_wri_medusa ! MESDUSA 64 IF( lk_idtra ) CALL trc_wri_idtra ! Idealize tracers 62 65 IF( lk_cfc ) CALL trc_wri_cfc ! surface fluxes of CFC 63 66 IF( lk_c14b ) CALL trc_wri_c14b ! surface fluxes of C14 67 IF( lk_age ) CALL trc_wri_age ! AGE tracer 64 68 IF( lk_my_trc ) CALL trc_wri_my_trc ! MY_TRC tracers 65 !66 # if defined key_debug_medusa67 CALL flush(numout)68 IF (lwp) write (numout,*) '------------------------------'69 IF (lwp) write (numout,*) 'Jpalm - debug'70 IF (lwp) write (numout,*) 'Just before call trc_wri_medusa'71 IF (lwp) write (numout,*) ' '72 CALL flush(numout)73 # endif74 !75 IF( lk_medusa ) CALL trc_wri_medusa ! MESDUSA76 !77 # if defined key_debug_medusa78 CALL flush(numout)79 IF (lwp) write (numout,*) '------------------------------'80 IF (lwp) write (numout,*) 'Jpalm - debug'81 IF (lwp) write (numout,*) 'CALL trc_wri_medusa -- OK'82 IF (lwp) write (numout,*) ' '83 CALL flush(numout)84 # endif85 !86 IF( lk_idtra ) CALL trc_wri_idtra ! Idealize tracers87 !88 # if defined key_debug_medusa89 CALL flush(numout)90 IF (lwp) write (numout,*) '------------------------------'91 IF (lwp) write (numout,*) 'Jpalm - debug'92 IF (lwp) write (numout,*) 'CALL trc_wri_idtra -- OK'93 IF (lwp) write (numout,*) ' '94 CALL flush(numout)95 # endif96 69 ! 97 70 IF( nn_timing == 1 ) CALL timing_stop('trc_wri')
Note: See TracChangeset
for help on using the changeset viewer.