Changeset 9924

Timestamp:

2018-07-11T10:28:40+02:00 (6 years ago)

Author:

timgraham

Message:

Correction to last commit

File:

• branches/UKMO/dev_merge_2017_GC_couple_pkg/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 (modified) (4 diffs)

branches/UKMO/dev_merge_2017_GC_couple_pkg/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

@@ -335 +335 @@
       INTEGER                   , INTENT(  out) ::   kinfo     ! OASIS3 info argument
       INTEGER                   , INTENT(in   ) ::   kstep     ! ocean time-step in seconds
-      REAL(wp), DIMENSION(:,:,:), INTENT(in   ) ::   pdata
+      REAL(wp), DIMENSION(:,:,:), INTENT(inout) ::   pdata
       !!
       INTEGER                                   ::   jc,jm     ! local loop index
@@ -343 +343 @@
       !
       ! snd data to OASIS3
-      !
+      
+      CALL lbc_lnk(pdata(:,:,:), ssnd(kid)%clgrid, ssnd(kid)%nsgn)
 
       nldi_save = nldi   ;   nlei_save = nlei
@@ -397 +398 @@
       INTEGER                                   ::   jc,jm     ! local loop index
       LOGICAL                                   ::   llaction, llfisrt
+      INTEGER                                   ::   nldi_save, nlei_save
+      INTEGER                                   ::   nldj_save, nlej_save
       !!--------------------------------------------------------------------
       !
@@ -456 +459 @@
          !--- check periodicity conditions (all cases)
          IF( .not. llfisrt )   CALL lbc_lnk( pdata(:,:,jc), srcv(kid)%clgrid, srcv(kid)%nsgn )   
+
+         IF( nimpp           ==      1 ) nldi = 1
+         IF( nimpp + jpi - 1 == jpiglo ) nlei = jpi
+         IF( njmpp           ==      1 ) nldj = 1
+         IF( njmpp + jpj - 1 == jpjglo ) nlej = jpj
  
       ENDDO