Ignore:
Timestamp:
2018-01-18T12:24:31+01:00 (3 years ago)
Author:
marc
Message:

Adding Julien's GMED ticket 365 for DMS constants for Anderson scheme (incl fixes to a couple of other tickets)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

    r9114 r9258  
    8787      &  xsdiss,                                              & 
    8888      &  sedlam,sedlostpoc,jpkb,jdms,jdms_input,jdms_model,   & 
    89       &  scl_chl, chl_out 
     89      &  scl_chl, chl_out, dmsmin, dmscut, dmsslp 
    9090#if defined key_roam 
    9191      NAMELIST/natroam/ xthetaphy,xthetazoo,xthetanit,        & 
     
    127127      ! 1.4 namelist natbio : biological parameters 
    128128      ! ------------------------------------------- 
     129      !! Note: the default values below will all be overwritten by the 
     130      !!       input in the namelist natbio. 
    129131       
    130132      xxi         = 0. 
     
    250252      scl_chl     = 1. 
    251253      chl_out     = 1 
     254      dmsmin      = 2.29 !! Anderson DMS default 
     255      dmscut      = 1.72 !! Anderson DMS default 
     256      dmsslp      = 8.24 !! Anderson DMS default 
    252257             
    253258      !REWIND(numnatm) 
     
    403408!!       jdms_model  :  choice of DMS model passed to atmosphere 
    404409!!                      1 = ANDR, 2 = SIMO, 3 = ARAN, 4 = HALL, 5 = ANDM 
    405 !! 
     410!!       dmsmin      : DMS minimum value for DMS Anderson (ANDR) sheme ONLY 
     411!!       dmscut      : DMS cutoff value for DMS Anderson (ANDR) sheme ONLY 
     412!!       dmsslp      : DMS slope value for DMS Anderson (ANDR) sheme ONLY 
    406413!! UKESM1 - exported Chl to UM 
    407414!!       scl_chl     : scaling factor to tune the chl field sent to the UM 
     
    948955               &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Anderson et al. (2001; modified)' 
    949956            endif 
    950           
     957            if (jdms_model .eq. 1) then 
     958               WRITE(numout,*)     & 
     959               &   ' Anderson DMS model tuned parameters:                       DMS minimum = ',dmsmin,'. -- Default = 2.29 ' 
     960               WRITE(numout,*)     & 
     961               &   ' Anderson DMS model tuned parameters:                       DMS cutoff  = ',dmscut,'. -- Default = 1.72 ' 
     962               WRITE(numout,*)     & 
     963               &   ' Anderson DMS model tuned parameters:                       DMS slope   = ',dmsslp,'. -- Default = 8.24 ' 
     964            endif 
     965 
    951966            WRITE(numout,*) '=== UKESM1 --  coupled Chl to the atmosphere' 
    952967            WRITE(numout,*)        & 
Note: See TracChangeset for help on using the changeset viewer.