Changeset 745 for trunk/NEMO/OPA_SRC/IOM/iom_ioipsl.F90

Timestamp:

2007-12-06T18:02:32+01:00 (16 years ago)

Author:

smasson

Message:

by default stop if variable doesn't exist, see ticket:21

File:

• trunk/NEMO/OPA_SRC/IOM/iom_ioipsl.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/IOM/iom_ioipsl.F90

@@ -195 +195 @@
                   &                       'increase the parameter jpmax_vars')
          ENDIF
-!!$                  ELSE  
-!!$                     CALL ctl_warn( trim(clinfo), 'Variable '//trim(cdvar)// &
-!!$                        &                         ' is not found in the file '//trim(iom_file(kiomid)%name) )
+      ELSE  
+         iom_ioipsl_varid = -1   !   variable not found, return error code: -1
       ENDIF
       !