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 7211 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcnam.F90 – NEMO

Ignore:
Timestamp:
2016-11-08T18:17:26+01:00 (7 years ago)
Author:
lovato
Message:

New top interface : Revisited CFC module with formulations from Wanninkhof (2014) + SF6 tracer

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r7198 r7211  
    145145      INTEGER  ::   ios, ierr, icfc       ! Local integer output status for namelist read 
    146146      !! 
    147       NAMELIST/namtrc/jp_bgc, ln_pisces, ln_my_trc, ln_age, ln_cfc11, ln_cfc12, ln_c14, & 
     147      NAMELIST/namtrc/jp_bgc, ln_pisces, ln_my_trc, ln_age, ln_cfc11, ln_cfc12, ln_sf6, ln_c14, & 
    148148         &            sn_tracer, ln_trcdta, ln_trcdmp, ln_trcdmp_clo, jp_dia3d, jp_dia2d 
    149149      !!--------------------------------------------------------------------- 
    … …  
    168168      IF( ln_pisces .AND. ln_my_trc )   CALL ctl_stop( 'Choose only ONE BGC model - PISCES or MY_TRC' ) 
    169169      IF( .NOT. ln_pisces .AND. .NOT. ln_my_trc )   jp_bgc = 0 
    170       ll_cfc = ln_cfc11 .OR. ln_cfc12 
     170      ll_cfc = ln_cfc11 .OR. ln_cfc12 .OR. ln_sf6 
    171171      ! 
    172172      jptra       =  0 
    … …  
    195195      IF( ln_cfc11 )  jp_cfc = jp_cfc + 1 
    196196      IF( ln_cfc12 )  jp_cfc = jp_cfc + 1 
     197      IF( ln_sf6   )  jp_cfc = jp_cfc + 1 
    197198      IF( ll_cfc )    THEN 
    198199          jptra     = jptra + jp_cfc 
    … …  
    217218         WRITE(numout,*) '   Simulating CFC11 passive tracer              ln_cfc11      = ', ln_cfc11 
    218219         WRITE(numout,*) '   Simulating CFC12 passive tracer              ln_cfc12      = ', ln_cfc12 
     220         WRITE(numout,*) '   Simulating SF6 passive tracer                ln_sf6        = ', ln_sf6 
     221         WRITE(numout,*) '   Total number of CFCs tracers                 jp_cfc        = ', jp_cfc 
    219222         WRITE(numout,*) '   Simulating C14   passive tracer              ln_c14        = ', ln_c14 
    220223         WRITE(numout,*) '   Read inputs data from file (y/n)             ln_trcdta     = ', ln_trcdta 
Note: See TracChangeset for help on using the changeset viewer.