Changeset 8213 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

Timestamp:

2017-06-25T11:27:43+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- split trcbio - mergeable-ish MEDUSA branch

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90 (modified) (2 diffs)

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

@@ -27 +27 @@
    USE ldftra_oce      ! lateral diffusion coefficient on tracers
    USE prtctl_trc      ! Print control
-   !! USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
 
    IMPLICIT NONE
@@ -106 +105 @@
       zvn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom
       zwn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom
-      ! 
-      !! Jpalm -- 14-01-2016 -- restart and proc pb - try this... 
-      !! DO jn = 1, jptra
-      !!   CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. )
-      !!   CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. )
-      !! END DO
-      !
 
       IF( lk_traldf_eiv .AND. .NOT. ln_traldf_grif )   &  ! add the eiv transport (if necessary)