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

Changeset 6259 for branches/NERC


Ignore:
Timestamp:
2016-01-15T16:47:16+01:00 (8 years ago)
Author:
jpalmier
Message:

JPALM --15-01-2016 -- bugfix lbc_lnk before trcadv is called

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

Legend:

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

    r5729 r6259  
    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) 
    2930 
    3031   IMPLICIT NONE 
     
    7172      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 
    7273      ! 
    73       INTEGER ::   jk  
     74      INTEGER ::   jk, jn  
    7475      CHARACTER (len=22) ::   charout 
    7576      REAL(wp), POINTER, DIMENSION(:,:,:) :: zun, zvn, zwn  ! effective velocity 
     
    105106      zvn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom 
    106107      zwn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom 
     108      !  
     109      !! 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. ) 
     113      DO jn = 1, jptra 
     114         CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. ) 
     115         CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. ) 
     116      END DO 
     117      ! 
    107118 
    108119      IF( lk_traldf_eiv .AND. .NOT. ln_traldf_grif )   &  ! add the eiv transport (if necessary) 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r5729 r6259  
    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. )    
    107109      END DO 
    108110 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r6245 r6259  
    4040   USE trcsms_cfc 
    4141#endif 
     42   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     43 
    4244   IMPLICIT NONE 
    4345   PRIVATE 
     
    155157         trb(:,:,:,jn) = trb(:,:,:,jn) * tmask(:,:,:) 
    156158      END DO 
    157  
     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. ) 
     167      END DO 
     168      ! 
    158169      !! AXY (09/06/14): the ARCHER version of MEDUSA-2 does not include an equivalent 
    159170      !!                 call to MEDUSA-2 at this point; this suggests that the FCM 
Note: See TracChangeset for help on using the changeset viewer.