Ignore:
Timestamp:
2020-05-06T14:38:01+02:00 (9 months ago)
Author:
hadcv
Message:

Changes following feedback

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/TRA/traldf_iso.F90

    r12765 r12879  
    109109      REAL(wp) ::  zmskv, zahv_w, zabe2, zcof2, zcoef4   !   -      - 
    110110      REAL(wp) ::  zcoef0, ze3w_2, zsign                 !   -      - 
    111       REAL(wp), DIMENSION(IND_2D)     ::   zdkt, zdk1t, z2d 
    112       REAL(wp), DIMENSION(IND_2D,jpk) ::   zdit, zdjt, zftu, zftv, ztfw 
     111      REAL(wp), DIMENSION(A2D)     ::   zdkt, zdk1t, z2d 
     112      REAL(wp), DIMENSION(A2D,jpk) ::   zdit, zdjt, zftu, zftv, ztfw 
    113113      !!---------------------------------------------------------------------- 
    114114      ! 
     
    321321         END_3D 
    322322         ! 
    323          IF( ntile == jpnijtile )  THEN                        ! Do only after all tiles finish 
     323         IF( ntile == nijtile )  THEN                          ! Do only after all tiles finish 
    324324            IF( ( kpass == 1 .AND. ln_traldf_lap ) .OR.  &     !==  first pass only (  laplacian)  ==! 
    325325                ( kpass == 2 .AND. ln_traldf_blp ) ) THEN      !==  2nd   pass      (bilaplacian)  ==! 
Note: See TracChangeset for help on using the changeset viewer.