Changeset 4937 for branches/2014/dev_CNRS_CICE

Timestamp:

2014-12-01T14:13:04+01:00 (9 years ago)

Author:

cetlod

Message:

dev_CNRS_CICE : minor corrections

File:

• branches/2014/dev_CNRS_CICE/NEMOGCM/NEMO/OPA_SRC/TRA/tranpc.F90 (modified) (1 diff)

branches/2014/dev_CNRS_CICE/NEMOGCM/NEMO/OPA_SRC/TRA/tranpc.F90

@@ -139 +139 @@
                         WRITE(numout,*) '' ;WRITE(numout,*) '' ;
                        WRITE(numout,'("Time step = ",i6.6," !!!")')  kt
-                        WRITE(numout,'(" *** BEFORE anything, N^2 for point ",i3,",",i3,":" )') , ji,jj
+                        WRITE(numout,'(" *** BEFORE anything, N^2 for point ",i3,",",i3,":" )') ji,jj
                         DO jk = 1, klc1
                            WRITE(numout,*) jk, zvn2(jk)