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 9008 for branches/NERC – NEMO

Changeset 9008 for branches/NERC


Ignore:
Timestamp:
2017-12-13T12:45:55+01:00 (5 years ago)
Author:
frrh
Message:

Apply minor code and text corrections as discussed with
JP during review process. In ptic, we protect write statements
which are only pertinent to coupled models behind a
IF (lk_oasis) test.

Location:
branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

    r8807 r9008  
    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 
     
    919920         WRITE(numout,*) '=== UKESM1-related parameters ===' 
    920921         WRITE(numout,*) ' ---- --- ---' 
    921          WRITE(numout,*) '=== UKESM1 --  coupled DMS to the UM' 
    922          WRITE(numout,*)     & 
    923          &   ' include DMS diagnostic?,                                   jdms        = ', jdms 
    924          if (jdms_input .eq. 0) then 
    925             WRITE(numout,*)     & 
    926             &   ' use instant (0) or diel-avg (1) inputs,                    jdms_input  = instantaneous' 
    927          else 
    928             WRITE(numout,*)     & 
    929             &   ' use instant (0) or diel-avg (1) inputs,                    jdms_input  = diel-average' 
    930          endif 
    931     if (jdms_model .eq. 1) then 
    932             WRITE(numout,*)     & 
    933             &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Anderson et al. (2001)' 
    934     elseif (jdms_model .eq. 2) then 
    935             WRITE(numout,*)     & 
    936             &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Simo & Dachs (2002)' 
    937     elseif (jdms_model .eq. 3) then 
    938             WRITE(numout,*)     & 
    939             &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Aranami & Tsunogai (2004)' 
    940     elseif (jdms_model .eq. 4) then 
    941             WRITE(numout,*)     & 
    942             &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Halloran et al. (2010)' 
    943     elseif (jdms_model .eq. 5) then 
    944             WRITE(numout,*)     & 
    945             &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Anderson et al. (2001; modified)' 
    946          endif 
    947          WRITE(numout,*) '=== UKESM1 --  coupled Chl to the UM' 
    948          WRITE(numout,*)        & 
    949             &   ' Scaling factor to export tuned Chl to the UM               scl_chl  = ', scl_chl 
    950          IF (chl_out .eq. 1) THEN 
     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' 
    951952            WRITE(numout,*)        & 
    952             &   ' Chl field to be scaled and sent to the UM:                 chl_out  = Surface Chl field ' 
    953          ELSEIF (chl_out .eq. 2) THEN 
    954             WRITE(numout,*)        & 
    955             &   ' Chl field to be scaled and sent to the UM:                 chl_out  = MLD Chl field ' 
    956          ENDIF 
     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 
    957962!! 
    958963      ENDIF 
  • branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r8955 r9008  
    277277      !!                     as proxy of org matter from the ocean 
    278278      !!                  -- needed for the coupling with atm 
    279       !!       07-12-2017 -- To make things cleaner we want to pass ans read an  
    280       !!                     unscaled Chl field to the restart and scale it when 
    281       !!                     reading it. 
     279      !!       07-12-2017 -- To make things cleaner, we want to store an   
     280      !!                     unscaled Chl field in the restart and only  
     281      ||                     scale it when reading it in. 
     282 
    282283      IF( iom_varid( numrtr, 'N_CHL_srf', ldstop = .FALSE. ) > 0 ) THEN 
    283284         IF(lwp) WRITE(numout,*) 'Chl cpl concentration - reading in ... - scale by ', scl_chl 
     
    461462      CALL iom_rstput( kt, nitrst, numrtw, 'B_CO2_flx',  zb_co2_flx(:,:)  ) 
    462463      CALL iom_rstput( kt, nitrst, numrtw, 'N_CO2_flx',  zn_co2_flx(:,:)  ) 
    463       !! JPALM 07-12-2017 -- To make things cleaner we want to pass ans read an  
    464       !!                     unscaled Chl field to the restart and scale it when 
    465       !!                     reading it. 
     464      !! JPALM 07-12-2017 -- To make things cleaner, we want to store an  
     465      !!                     unscaled Chl field in the restart and only  
     466      ||                     scale it when reading it in. 
    466467      zn_chl_srf(:,:) = zn_chl_srf(:,:) / scl_chl  
    467468      CALL iom_rstput( kt, nitrst, numrtw, 'N_CHL_srf',  zn_chl_srf(:,:)  ) 
Note: See TracChangeset for help on using the changeset viewer.