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 10045 for branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90 – NEMO

Ignore:
Timestamp:
2018-08-07T14:19:25+02:00 (6 years ago)
Author:
jpalmier
Message:

Andrew's changes to add the OMIP double_DIC (activated with key_omip_dic)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90

    r9385 r10045  
    99   !!              -   !  2010-03  (A. Yool) updated for branch inclusion 
    1010   !!              -   !  2011-04  (A. Yool) updated for ROAM project 
     11   !!              -   !  2018-08  (A. Yool) add OMIP preindustrial DIC 
    1112   !!---------------------------------------------------------------------- 
    1213#if defined key_medusa 
    … …  
    207208      !! dissolved oxygen                 (nominal average value; typically initialised from climatology) 
    208209      trn(:,:,:,jpoxy) = 175. 
     210#  if defined key_omip_dic 
     211      !! 
     212      !! OMIP preindustrial DIC           (nominal average value; typically initialised from climatology) 
     213      trn(:,:,:,jpomd) = 2330. 
     214#  endif 
    209215      !! 
    210216      IF(lwp) WRITE(numout,*) ' trc_ini_medusa: MEDUSA-2 fields initialised to defaults' 
Note: See TracChangeset for help on using the changeset viewer.