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

Changeset 6261 for branches/NERC


Ignore:
Timestamp:
2016-01-18T16:49:26+01:00 (9 years ago)
Author:
jpalmier
Message:

JPALM -- 18-01-2016 -- bugfix MEDUSA-TOP by calling lbc_lnk(trn) and (trb) before advection

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

Legend:

Unmodified
Added
Removed

  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

    r6259 r6261  
    108108      !  
    109109      !! Jpalm -- 14-01-2016 -- restart and proc pb - try this...  
    110       CALL lbc_lnk( zun(:,:,:), 'U', -1. ) 
    111       CALL lbc_lnk( zvn(:,:,:), 'V', -1. ) 
    112       CALL lbc_lnk( zwn(:,:,:), 'W', -1. ) 
    113110      DO jn = 1, jptra 
    114111         CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. ) 

  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r6259 r6261  
    105105      DO jn = 1, jptra 
    106106         CALL lbc_lnk( tra(:,:,:,jn), 'T', 1. )    
    107          CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. )    
    108          CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. )    
    109107      END DO 
    110108 

  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r6259 r6261  
    156156         CALL iom_get( numrtr, jpdom_autoglo, 'TRB'//ctrcnm(jn), trb(:,:,:,jn) ) 
    157157         trb(:,:,:,jn) = trb(:,:,:,jn) * tmask(:,:,:) 
    158       END DO 
    159       ! 
    160       !! JPALM -- 14-01-2016 -- problem in TOP after a restart, proc edge 
    161       !!                        appear with abherent values. 
    162       !!                     -- add lbc_lnk(trn and trb) may solve this 
    163       ! Update after tracer on domain lateral boundaries 
    164       DO jn = 1, jptra 
    165          CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. ) 
    166          CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. ) 
    167158      END DO 
    168159      ! 

  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

    r6201 r6261  
    4545      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index       
    4646      !! 
     47      INTEGER            ::  jn 
    4748      CHARACTER (len=25) :: charout 
    4849      !!--------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.