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 7760 for branches – NEMO

Changeset 7760 for branches


Ignore:
Timestamp:
2017-03-06T18:41:31+01:00 (7 years ago)
Author:
clem
Message:

correct unrecognized piece of Fortran code in SAS_SRC/nemogcm when using AGRIF

Location:
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r7515 r7760  
    727727      ! ilfax contains the set of allowed factors. 
    728728      ilfax(:) = (/(2**jl,jl=ntest,1,-1)/) 
    729       !!---------------------------------------------------------------------- 
    730       ! ilfax contains the set of allowed factors. 
    731       ilfax(:) = (/(2**jl,jl=ntest,1,-1)/) 
    732729 
    733730      ! Clear the error flag and initialise output vars 

  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

    r6204 r7760  
    621621      ! 
    622622      ! lfax contains the set of allowed factors. 
    623       data (ilfax(jl),jl=1,ntest) / 16384, 8192, 4096, 2048, 1024, 512, 256,  & 
    624          &                            128,   64,   32,   16,    8,   4,   2  / 
    625       !!---------------------------------------------------------------------- 
     623      ilfax(:) = (/(2**jl,jl=ntest,1,-1)/) 
    626624 
    627625      ! Clear the error flag and initialise output vars 
Note: See TracChangeset for help on using the changeset viewer.