Changeset 12941


Ignore:
Timestamp:
2020-05-18T12:53:30+02:00 (7 days ago)
Author:
hadcv
Message:

Correction

File:
1 edited

Legend:

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

    r12906 r12941  
    197197         !!---------------------------------------------------------------------- 
    198198!!gm : bug.... why (x,:,:)?   (1,jpj,:) and (jpi,1,:) should be sufficient.... 
    199          zdit (1,:,:) = 0._wp     ;     zdit (jpi,:,:) = 0._wp 
    200          zdjt (1,:,:) = 0._wp     ;     zdjt (jpi,:,:) = 0._wp 
     199         zdit (Ntis2,:,:) = 0._wp     ;     zdit (Ntie2,:,:) = 0._wp 
     200         zdjt (Ntis2,:,:) = 0._wp     ;     zdjt (Ntie2,:,:) = 0._wp 
    201201         !!end 
    202202 
     
    322322         ! 
    323323         IF( ntile == nijtile )  THEN                          ! Do only after all tiles finish 
    324             IF( ( kpass == 1 .AND. ln_traldf_lap ) .OR.  &     !==  first pass only (  laplacian)  ==! 
    325                 ( kpass == 2 .AND. ln_traldf_blp ) ) THEN      !==  2nd   pass      (bilaplacian)  ==! 
    326                ! 
    327                !                             ! "Poleward" diffusive heat or salt transports (T-S case only) 
    328                   ! note sign is reversed to give down-gradient diffusive transports ) 
     324         IF( ( kpass == 1 .AND. ln_traldf_lap ) .OR.  &     !==  first pass only (  laplacian)  ==! 
     325             ( kpass == 2 .AND. ln_traldf_blp ) ) THEN      !==  2nd   pass      (bilaplacian)  ==! 
     326            ! 
     327            !                             ! "Poleward" diffusive heat or salt transports (T-S case only) 
     328               ! note sign is reversed to give down-gradient diffusive transports ) 
    329329               ! TODO: TO BE TILED 
    330                IF( l_ptr )  CALL dia_ptr_hst( jn, 'ldf', -zftv(:,:,:)  ) 
    331                !                          ! Diffusive heat transports 
     330            IF( l_ptr )  CALL dia_ptr_hst( jn, 'ldf', -zftv(:,:,:)  ) 
     331            !                          ! Diffusive heat transports 
    332332               ! TODO: TO BE TILED 
    333                IF( l_hst )  CALL dia_ar5_hst( jn, 'ldf', -zftu(:,:,:), -zftv(:,:,:) ) 
    334                ! 
    335             ENDIF                                                    !== end pass selection  ==! 
     333            IF( l_hst )  CALL dia_ar5_hst( jn, 'ldf', -zftu(:,:,:), -zftv(:,:,:) ) 
     334            ! 
     335         ENDIF                                                    !== end pass selection  ==! 
    336336         ENDIF 
    337337         ! 
Note: See TracChangeset for help on using the changeset viewer.