New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13295 for NEMO/trunk/src/SWE/dommsk.F90 – NEMO

Ignore:
Timestamp:
2020-07-10T20:24:21+02:00 (4 years 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/SWE/dommsk.F90

    r12983 r13295  
    131131      ! 
    132132      tmask(:,:,:) = 0._wp 
    133       DO_2D_11_11 
     133      DO_2D( 1, 1, 1, 1 ) 
    134134         iktop = k_top(ji,jj) 
    135135         ikbot = k_bot(ji,jj) 
     
    153153         CALL iom_get ( inum, jpdom_data, 'bdy_msk', bdytmask(:,:) ) 
    154154         CALL iom_close( inum ) 
    155          DO_3D_11_11( 1, jpkm1 ) 
     155         DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 
    156156            tmask(ji,jj,jk) = tmask(ji,jj,jk) * bdytmask(ji,jj) 
    157157         END_3D 
     
    194194!!an  
    195195      ! ssfmask(:,:) = MAXVAL( fmask(:,:,:), DIM=3 ) 
    196       DO_2D_10_10 
     196      DO_2D( 1, 0, 1, 0 ) 
    197197         ssfmask(ji,jj) = MAX(  tmask(ji,jj+1,1), tmask(ji+1,jj+1,1),  &  
    198198            &                   tmask(ji,jj  ,1), tmask(ji+1,jj  ,1)   ) 
     
    245245         DO jk = 1, jpk 
    246246            zwf(:,:) = fmask(:,:,jk)          
    247             DO_2D_00_00 
     247            DO_2D( 0, 0, 0, 0 ) 
    248248               IF( fmask(ji,jj,jk) == 0._wp ) THEN 
    249249                  fmask(ji,jj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(ji+1,jj), zwf(ji,jj+1),   & 
Note: See TracChangeset for help on using the changeset viewer.