Ignore:
Timestamp:
2020-07-10T20:24:21+02:00 (10 months ago)
Author:
acc
Message:

Replace do-loop macros in the trunk with alternative forms with greater flexibility for extra halo applications. This alters a lot of routines but does not change any behaviour or results. do_loop_substitute.h90 is greatly simplified by this change. SETTE results are identical to those with the previous revision

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/ASM/asminc.F90

    r13286 r13295  
    414414            DO jk = 1, jpkm1           ! zhdiv = e1e1 * div 
    415415               zhdiv(:,:) = 0._wp 
    416                DO_2D_00_00 
     416               DO_2D( 0, 0, 0, 0 ) 
    417417                  zhdiv(ji,jj) = (  e2u(ji  ,jj) * e3u(ji  ,jj,jk,Kmm) * u_bkginc(ji  ,jj,jk)    & 
    418418                     &            - e2u(ji-1,jj) * e3u(ji-1,jj,jk,Kmm) * u_bkginc(ji-1,jj,jk)    & 
     
    423423               CALL lbc_lnk( 'asminc', zhdiv, 'T', 1.0_wp )   ! lateral boundary cond. (no sign change) 
    424424               ! 
    425                DO_2D_00_00 
     425               DO_2D( 0, 0, 0, 0 ) 
    426426                  u_bkginc(ji,jj,jk) = u_bkginc(ji,jj,jk)                         & 
    427427                     &               + 0.2_wp * ( zhdiv(ji+1,jj) - zhdiv(ji  ,jj) ) * r1_e1u(ji,jj) * umask(ji,jj,jk) 
Note: See TracChangeset for help on using the changeset viewer.