Ignore:
Timestamp:
2017-12-18T13:16:44+01:00 (3 years ago)
Author:
frrh
Message:

Apply changes developed under Met Office GMED ticket number 351 in development
branch branches/NERC/dev_r5518_GO6_ScalingCoupledChl.

The command issued to perform the merge is:

svn merge -r 8590:9053 svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/branches/NERC/dev_r5518_GO6_ScalingCoupledChl

File:
1 edited

Legend:

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

    r8521 r9114  
    2424   USE sms_medusa      ! sms trends 
    2525   USE iom             ! I/O manager 
     26   USE sbc_oce, ONLY: lk_oasis 
    2627   !!USE trc_nam_dia     ! JPALM 13-11-2015 -- if iom_use for diag 
    2728 
     
    8586      &  jriver_n,jriver_si,jriver_c,jriver_alk,jriver_dep,   & 
    8687      &  xsdiss,                                              & 
    87       &  sedlam,sedlostpoc,jpkb,jdms,jdms_input,jdms_model 
     88      &  sedlam,sedlostpoc,jpkb,jdms,jdms_input,jdms_model,   & 
     89      &  scl_chl, chl_out 
    8890#if defined key_roam 
    8991      NAMELIST/natroam/ xthetaphy,xthetazoo,xthetanit,        & 
     
    246248      jdms_input  = 0 
    247249      jdms_model  = 0 
     250      scl_chl     = 1. 
     251      chl_out     = 1 
    248252             
    249253      !REWIND(numnatm) 
     
    400404!!                      1 = ANDR, 2 = SIMO, 3 = ARAN, 4 = HALL, 5 = ANDM 
    401405!! 
     406!! UKESM1 - exported Chl to UM 
     407!!       scl_chl     : scaling factor to tune the chl field sent to the UM 
     408!!       chl_out     : select the chl field to send at the UM: 
     409!!                     1- Surf Chl ; 2- MLD Chl  
     410 
    402411      IF(lwp) THEN 
    403412!! 
     
    909918!! 
    910919!! UKESM1 - new diagnostics  !! Jpalm; AXY (08/07/15) 
    911          WRITE(numout,*) '=== UKESM1-related parameters' 
    912          WRITE(numout,*)     & 
    913          &   ' include DMS diagnostic?,                                   jdms        = ', jdms 
    914          if (jdms_input .eq. 0) then 
    915             WRITE(numout,*)     & 
    916             &   ' use instant (0) or diel-avg (1) inputs,                    jdms_input  = instantaneous' 
    917          else 
    918             WRITE(numout,*)     & 
    919             &   ' use instant (0) or diel-avg (1) inputs,                    jdms_input  = diel-average' 
    920          endif 
    921     if (jdms_model .eq. 1) then 
    922             WRITE(numout,*)     & 
    923             &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Anderson et al. (2001)' 
    924     elseif (jdms_model .eq. 2) then 
    925             WRITE(numout,*)     & 
    926             &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Simo & Dachs (2002)' 
    927     elseif (jdms_model .eq. 3) then 
    928             WRITE(numout,*)     & 
    929             &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Aranami & Tsunogai (2004)' 
    930     elseif (jdms_model .eq. 4) then 
    931             WRITE(numout,*)     & 
    932             &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Halloran et al. (2010)' 
    933     elseif (jdms_model .eq. 5) then 
    934             WRITE(numout,*)     & 
    935             &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Anderson et al. (2001; modified)' 
    936          endif 
     920         WRITE(numout,*) '=== UKESM1-related parameters ===' 
     921         WRITE(numout,*) ' ---- --- ---' 
     922 
     923         IF (lk_oasis) THEN 
     924            WRITE(numout,*) '=== UKESM1 --  coupled DMS to the atmosphere' 
     925            WRITE(numout,*)     & 
     926            &   ' include DMS diagnostic?,                                   jdms        = ', jdms 
     927            if (jdms_input .eq. 0) then 
     928               WRITE(numout,*)     & 
     929               &   ' use instant (0) or diel-avg (1) inputs,                    jdms_input  = instantaneous' 
     930            else 
     931               WRITE(numout,*)     & 
     932               &   ' use instant (0) or diel-avg (1) inputs,                    jdms_input  = diel-average' 
     933            endif 
     934          if (jdms_model .eq. 1) then 
     935               WRITE(numout,*)     & 
     936               &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Anderson et al. (2001)' 
     937       elseif (jdms_model .eq. 2) then 
     938               WRITE(numout,*)     & 
     939               &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Simo & Dachs (2002)' 
     940       elseif (jdms_model .eq. 3) then 
     941               WRITE(numout,*)     & 
     942               &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Aranami & Tsunogai (2004)' 
     943       elseif (jdms_model .eq. 4) then 
     944               WRITE(numout,*)     & 
     945               &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Halloran et al. (2010)' 
     946       elseif (jdms_model .eq. 5) then 
     947               WRITE(numout,*)     & 
     948               &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Anderson et al. (2001; modified)' 
     949            endif 
     950          
     951            WRITE(numout,*) '=== UKESM1 --  coupled Chl to the atmosphere' 
     952            WRITE(numout,*)        & 
     953               &   ' Scaling factor to export tuned Chl to the atmosphere       scl_chl  = ', scl_chl 
     954            IF (chl_out .eq. 1) THEN 
     955               WRITE(numout,*)        & 
     956               &   ' Chl field to be scaled and sent to the atmosphere:         chl_out  = Surface Chl field ' 
     957            ELSEIF (chl_out .eq. 2) THEN 
     958               WRITE(numout,*)        & 
     959               &   ' Chl field to be scaled and sent to the atmosphere:         chl_out  = MLD Chl field ' 
     960            ENDIF 
     961         ENDIF ! IF lk_oasis=true 
    937962!! 
    938963      ENDIF 
     
    20592084          med_diag%CHL_MLD%dgsave = .FALSE. 
    20602085      ENDIF 
     2086      IF  (iom_use("CHL_CPL")) THEN  
     2087          med_diag%CHL_CPL%dgsave = .TRUE. 
     2088      ELSE  
     2089          med_diag%CHL_CPL%dgsave = .FALSE. 
     2090      ENDIF 
    20612091      !! 3D 
    20622092      IF  (iom_use("TPP3")) THEN  
Note: See TracChangeset for help on using the changeset viewer.