New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6715 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcwri.F90 – NEMO

Ignore:
Timestamp:
2016-06-16T18:58:14+02:00 (8 years ago)
Author:
jpalmier
Message:

JPALM -- 16-06-2016 -- MEDUSA branch update :

-- pass co2 flux and dms_surf through restart for atm coupling.
-- introduce CFC cycle for dynamic evolution comparison
-- add Tim Graham Age tracer
-- include MEDUSA Q10 modif
-- svn-key removed
-- still need debug stage

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

    r6047 r6715  
    2424   USE trcwri_medusa 
    2525   USE trcwri_idtra 
     26   USE trcwri_age 
    2627 
    2728   IMPLICIT NONE 
     
    6061      ! --------------------------------------- 
    6162      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 
    6265      IF( lk_cfc     )   CALL trc_wri_cfc        ! surface fluxes of CFC 
    6366      IF( lk_c14b    )   CALL trc_wri_c14b       ! surface fluxes of C14 
     67      IF( lk_age     )   CALL trc_wri_age        ! AGE tracer 
    6468      IF( lk_my_trc  )   CALL trc_wri_my_trc     ! MY_TRC  tracers 
    65       ! 
    66 # if defined key_debug_medusa 
    67       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 # endif 
    74       ! 
    75       IF( lk_medusa  )   CALL trc_wri_medusa     ! MESDUSA 
    76       ! 
    77 # if defined key_debug_medusa 
    78       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 # endif 
    85       ! 
    86       IF( lk_idtra   )   CALL trc_wri_idtra       ! Idealize tracers 
    87       ! 
    88 # if defined key_debug_medusa 
    89       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 # endif 
    9669      ! 
    9770      IF( nn_timing == 1 )  CALL timing_stop('trc_wri') 
Note: See TracChangeset for help on using the changeset viewer.