Changeset 953

Timestamp:

03/19/10 16:04:09 (14 years ago)

Author:

bellier

Message:

Suppress a little misstype in debug mode

File:

• IOIPSL/trunk/src/histcom.f90 (modified) (2 diffs)

IOIPSL/trunk/src/histcom.f90

@@ -1811 +1811 @@
   ELSE IF (l3d) THEN
     c_nam = 'histwrite_r3d'
+  ENDIF
+!-
+  IF (l_dbg) THEN
+    WRITE(*,*) "histwrite : ",c_nam
   ENDIF
 !-
@@ -2430 +2434 @@
     IF (file_exists) THEN
       IF (l_dbg) THEN
-        WRITE(*,*) 'Synchronising specified file number :',file
+        WRITE(*,*) 'Synchronising specified file number :',ifile
       ENDIF
       nfid = W_F(ifile)%ncfid