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 1202 – NEMO

Changeset 1202


Ignore:
Timestamp:
2008-09-24T15:45:33+02:00 (16 years ago)
Author:
rblod
Message:

Correct a mistake in agrif improvement

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/IOM/iom.F90

    r1200 r1202  
    107107      ! do we read the overlap  
    108108      ! ugly patch SM+JMM+RB to overwrite global definition in some cases 
    109       llnoov = (jpni * jpnj ) == jpni .AND. .NOT. lk_agrif  
     109      llnoov = (jpni * jpnj ) == jpnij .AND. .NOT. lk_agrif  
    110110      ! create the file name by added, if needed, TRIM(Agrif_CFixed()) and TRIM(clsuffix) 
    111111      ! ============= 
    … …  
    449449      ! do we read the overlap  
    450450      ! ugly patch SM+JMM+RB to overwrite global definition in some cases 
    451       llnoov = (jpni * jpnj ) == jpni .AND. .NOT. lk_agrif  
     451      llnoov = (jpni * jpnj ) == jpnij .AND. .NOT. lk_agrif  
    452452      ! check kcount and kstart optionals parameters... 
    453453      IF( PRESENT(kcount) .AND. (.NOT. PRESENT(kstart)) ) CALL ctl_stop(trim(clinfo), 'kcount present needs kstart present') 
Note: See TracChangeset for help on using the changeset viewer.