Changeset 9924


Ignore:
Timestamp:
2018-07-11T10:28:40+02:00 (2 years ago)
Author:
timgraham
Message:

Correction to last commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_merge_2017_GC_couple_pkg/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r9918 r9924  
    335335      INTEGER                   , INTENT(  out) ::   kinfo     ! OASIS3 info argument 
    336336      INTEGER                   , INTENT(in   ) ::   kstep     ! ocean time-step in seconds 
    337       REAL(wp), DIMENSION(:,:,:), INTENT(in   ) ::   pdata 
     337      REAL(wp), DIMENSION(:,:,:), INTENT(inout) ::   pdata 
    338338      !! 
    339339      INTEGER                                   ::   jc,jm     ! local loop index 
     
    343343      ! 
    344344      ! snd data to OASIS3 
    345       ! 
     345       
     346      CALL lbc_lnk(pdata(:,:,:), ssnd(kid)%clgrid, ssnd(kid)%nsgn) 
    346347 
    347348      nldi_save = nldi   ;   nlei_save = nlei 
     
    397398      INTEGER                                   ::   jc,jm     ! local loop index 
    398399      LOGICAL                                   ::   llaction, llfisrt 
     400      INTEGER                                   ::   nldi_save, nlei_save 
     401      INTEGER                                   ::   nldj_save, nlej_save 
    399402      !!-------------------------------------------------------------------- 
    400403      ! 
     
    456459         !--- check periodicity conditions (all cases) 
    457460         IF( .not. llfisrt )   CALL lbc_lnk( pdata(:,:,jc), srcv(kid)%clgrid, srcv(kid)%nsgn )    
     461 
     462         IF( nimpp           ==      1 ) nldi = 1 
     463         IF( nimpp + jpi - 1 == jpiglo ) nlei = jpi 
     464         IF( njmpp           ==      1 ) nldj = 1 
     465         IF( njmpp + jpj - 1 == jpjglo ) nlej = jpj 
    458466  
    459467      ENDDO 
Note: See TracChangeset for help on using the changeset viewer.