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

Changeset 7497 for branches/NERC


Ignore:
Timestamp:
2016-12-14T16:46:28+01:00 (7 years ago)
Author:
jpalmier
Message:

JPALM -- 14-12-2016 -- MEDUSA Diags update ; remove extra lbc-lnk

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

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r7347 r7497  
    25322532               !! 
    25332533               !! AXY (22/07/09): accelerate detrital remineralisation in the bottom box 
    2534                if (jk.eq.jmbathy) .and. jsfd.eq.1) then 
     2534               if ((jk.eq.jmbathy) .and. jsfd.eq.1) then 
    25352535                  fdd  = 1.0  * zdet 
    25362536# if defined key_roam 
     
    25662566               !!---------------------------------------------------------------------- 
    25672567               !! 
    2568                if (jk.eq.jmbathy) .and. jorgben.eq.1) then 
     2568               if ((jk.eq.jmbathy) .and. jorgben.eq.1) then 
    25692569                  !! this is the BOTTOM OCEAN BOX -> into the benthic pool! 
    25702570                  !! 
     
    28812881               !! AXY (10/07/12): amended to only apply sedimentary flux up to ~500 m down 
    28822882               !! if (jk.eq.(mbathy(ji,jj)-1).AND.jk.lt.i1100) then 
    2883                if (jk.eq.jmbathy).AND.jk.le.i0500) then 
     2883               if ((jk.eq.jmbathy).AND.jk.le.i0500) then 
    28842884                  !! Moore et al. (2004) cite a coastal California value of 5 umol/m2/d, but adopt a 
    28852885                  !! global value of 2 umol/m2/d for all areas < 1100 m; here we use this latter value 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

    r6261 r7497  
    2727   USE ldftra_oce      ! lateral diffusion coefficient on tracers 
    2828   USE prtctl_trc      ! Print control 
    29    USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     29   !! USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3030 
    3131   IMPLICIT NONE 
     
    108108      !  
    109109      !! Jpalm -- 14-01-2016 -- restart and proc pb - try this...  
    110       DO jn = 1, jptra 
    111          CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. ) 
    112          CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. ) 
    113       END DO 
     110      !! DO jn = 1, jptra 
     111      !!   CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. ) 
     112      !!   CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. ) 
     113      !! END DO 
    114114      ! 
    115115 
Note: See TracChangeset for help on using the changeset viewer.