Changeset 7497 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP

Timestamp:

2016-12-14T16:46:28+01:00 (8 years ago)

Author:

jpalmier

Message:

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

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)
+   !! USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
 
    IMPLICIT NONE
@@ -108 +108 @@
       ! 
       !! 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
+      !! DO jn = 1, jptra
+      !!   CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. )
+      !!   CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. )
+      !! END DO
       !