Ignore:
Timestamp:
2009-01-15T09:12:00+01:00 (12 years ago)
Author:
rblod
Message:

Addapt AGRIF routines to the new TOP organization, clean some routines and add a sponge layer for passive tracers, see ticket #293

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DOM/dommsk.F90

    r1152 r1271  
    229229               umask(ji,jj,jk) = tmask(ji,jj  ,jk) * tmask(ji+1,jj  ,jk) 
    230230               vmask(ji,jj,jk) = tmask(ji,jj  ,jk) * tmask(ji  ,jj+1,jk) 
     231            END DO 
     232            DO ji = 1, jpim1  
    231233               fmask(ji,jj,jk) = tmask(ji,jj  ,jk) * tmask(ji+1,jj  ,jk)   & 
    232234                  &            * tmask(ji,jj+1,jk) * tmask(ji+1,jj+1,jk) 
Note: See TracChangeset for help on using the changeset viewer.