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 2694 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90 – NEMO

Ignore:
Timestamp:
2011-03-16T08:10:07+01:00 (12 years ago)
Author:
rblod
Message:

Correct a bug in wrk_nemo to get correct argument for check

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90

    r2688 r2694  
    761761         ENDIF 
    762762      CASE ( 8 ) 
    763          IF( .NOT. PRESENT(index2 ) ) THEN   ;   iargidx = -1 
     763         IF( .NOT. PRESENT(index9 ) ) THEN   ;   iargidx = -1 
    764764         ELSE                                ;   iargidx =  9   ;   iargval = index9 
    765765         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.