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/CFC/trcnam_cfc.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/CFC/trcnam_cfc.F90

    r7124 r7211  
    1414   IMPLICIT NONE 
    1515   PRIVATE 
     16 
     17   CHARACTER(len=34), PUBLIC ::   clname ! Input filename of CFCs atm. concentrations 
    1618 
    1719   PUBLIC   trc_nam_cfc   ! called by trcnam.F90 module 
    … …  
    3941      INTEGER :: jl, jn 
    4042      !! 
    41       NAMELIST/namcfc/ ndate_beg, nyear_res 
     43      NAMELIST/namcfc/ ndate_beg, nyear_res, clname 
    4244      !!---------------------------------------------------------------------- 
     45      ! 
     46      jn = jp_cfc0 - 1 
    4347      ! Variables setting 
    4448      IF( ln_cfc11 ) THEN 
    45          ctrcnm    (jp_cfc0) = 'CFC11' 
    46          ctrcln    (jp_cfc0) = 'Chlorofluoro carbon 11 Concentration' 
    47          ctrcun    (jp_cfc0) = 'umolC/L' 
    48          ln_trc_ini(jp_cfc0) = .false. 
    49          ln_trc_sbc(jp_cfc0) = .false. 
    50          ln_trc_cbc(jp_cfc0) = .false. 
    51          ln_trc_obc(jp_cfc0) = .false. 
     49         jn = jn + 1 
     50         ctrcnm    (jn) = 'CFC11' 
     51         ctrcln    (jn) = 'Chlorofluoro carbon 11 Concentration' 
     52         ctrcun    (jn) = 'umolC/L' 
     53         ln_trc_ini(jn) = .false. 
     54         ln_trc_sbc(jn) = .false. 
     55         ln_trc_cbc(jn) = .false. 
     56         ln_trc_obc(jn) = .false. 
    5257      ENDIF 
    5358      ! 
    5459      IF( ln_cfc12 ) THEN 
    55          ctrcnm    (jp_cfc1) = 'CFC12' 
    56          ctrcln    (jp_cfc1) = 'Chlorofluoro carbon 12 Concentration' 
    57          ctrcun    (jp_cfc1) = 'umolC/L' 
    58          ln_trc_ini(jp_cfc1) = .false. 
    59          ln_trc_sbc(jp_cfc1) = .false. 
    60          ln_trc_cbc(jp_cfc1) = .false. 
    61          ln_trc_obc(jp_cfc1) = .false. 
     60         jn = jn + 1 
     61         ctrcnm    (jn) = 'CFC12' 
     62         ctrcln    (jn) = 'Chlorofluoro carbon 12 Concentration' 
     63         ctrcun    (jn) = 'umolC/L' 
     64         ln_trc_ini(jn) = .false. 
     65         ln_trc_sbc(jn) = .false. 
     66         ln_trc_cbc(jn) = .false. 
     67         ln_trc_obc(jn) = .false. 
     68      ENDIF 
     69      ! 
     70      IF( ln_sf6 ) THEN 
     71         jn = jn + 1 
     72         ctrcnm    (jn) = 'SF6' 
     73         ctrcln    (jn) = 'Sulfur hexafluoride Concentration' 
     74         ctrcun    (jn) = 'umol/L' 
     75         ln_trc_ini(jn) = .false. 
     76         ln_trc_sbc(jn) = .false. 
     77         ln_trc_cbc(jn) = .false. 
     78         ln_trc_obc(jn) = .false. 
    6279      ENDIF 
    6380      ! 
Note: See TracChangeset for help on using the changeset viewer.