Ignore:
Timestamp:
2017-03-06T18:58:35+01:00 (4 years ago)
Author:
clem
Message:

make AGRIF and LIM3 fully compatible

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r7646 r7761  
    540540      ! 
    541541      ! lfax contains the set of allowed factors. 
    542       data (ilfax(jl),jl=1,ntest) / 16384, 8192, 4096, 2048, 1024, 512, 256,  & 
    543          &                            128,   64,   32,   16,    8,   4,   2  / 
    544       !!---------------------------------------------------------------------- 
     542      ilfax(:) = (/(2**jl,jl=ntest,1,-1)/) 
    545543 
    546544      ! Clear the error flag and initialise output vars 
Note: See TracChangeset for help on using the changeset viewer.