Changeset 114 for trunk/NEMO/OPA_SRC/DTA/dtatem.F90

Timestamp:

2004-06-28T16:49:05+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE073 : Correction of typo and control tests just after the flinopen CALL

File:

• trunk/NEMO/OPA_SRC/DTA/dtatem.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DTA/dtatem.F90

@@ -29 +29 @@
    !! * Module variables
    CHARACTER (len=38) ::   &
-      cl_tdata = 'data_1m_potiential_temperature_nomask '
+      cl_tdata = 'data_1m_potential_temperature_nomask '
    INTEGER ::   &
       nlecte =  0,   &  ! switch for the first read
@@ -141 +141 @@
             STOP 'dtatem'
          ENDIF
-         IF( ipi /= jpidta .AND. ipj /= jpjdta .AND. ipk /= jpk ) THEN
+         IF( ipi /= jpidta .OR. ipj /= jpjdta .OR. ipk /= jpk ) THEN
             IF(lwp) THEN
                WRITE(numout,*)