Changeset 7303 for branches/2016

Timestamp:

2016-11-22T14:17:00+01:00 (7 years ago)

Author:

flavoni

Message:

fix input variables name

File:

• branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 (modified) (1 diff)

branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -522 +522 @@
       !
       !                                   !- ORCA family specificity
-      IF(  iom_varid( inum, 'ORCA'           , ldstop = .FALSE. ) > 0  .AND.  &
-         & iom_varid( inum, 'ORCA_resolution', ldstop = .FALSE. ) > 0    ) THEN
+      IF(  iom_varid( inum, 'ORCA'       , ldstop = .FALSE. ) > 0  .AND.  &
+         & iom_varid( inum, 'ORCA_index' , ldstop = .FALSE. ) > 0    ) THEN
          !
          cd_cfg = 'ORCA'
-         CALL iom_get( inum, 'ORCA_resolution', zorca_res )   ;   kk_cfg = INT( zorca_res )
+         CALL iom_get( inum, 'ORCA_index', zorca_res )   ;   kk_cfg = INT( zorca_res )
          !
          WRITE(ldtxt(ii),*) '       '                                                    ;   ii = ii+1