Changeset 2694


Ignore:
Timestamp:
2011-03-16T08:10:07+01:00 (10 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.