Changeset 114 for trunk/NEMO/OPA_SRC/DTA/dtasal.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/dtasal.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DTA/dtasal.F90

@@ -134 +134 @@
             STOP 'dta_sal'
          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,*)
@@ -269 +269 @@
             WRITE(numout,*)' salinity Levitus month ',nsal1,nsal2
             WRITE(numout,*)
-            WRITE(numout,*) ' Levitus mounth = ',nsal1,'  level = 1'
+            WRITE(numout,*) ' Levitus month = ',nsal1,'  level = 1'
             CALL prihre(saldta(1,1,1,1),jpi,jpj,1,jpi,20,1,jpj,20,1.,numout)
-            WRITE(numout,*) ' Levitus mounth = ',nsal1,'  level = ',jpk/2
+            WRITE(numout,*) ' Levitus month = ',nsal1,'  level = ',jpk/2
             CALL prihre(saldta(1,1,jpk/2,1),jpi,jpj,1,jpi,20,1,jpj,20,1.,numout)
-            WRITE(numout,*) ' Levitus mounth = ',nsal1,'  level = ',jpkm1
+            WRITE(numout,*) ' Levitus month = ',nsal1,'  level = ',jpkm1
             CALL prihre(saldta(1,1,jpkm1,1),jpi,jpj,1,jpi,20,1,jpj,20,1.,numout)
          ENDIF