Changeset 977 for IOIPSL/trunk/src/histcom.f90

Timestamp:

04/20/10 16:59:54 (14 years ago)

Author:

bellier

Message:

Misstype suppressed

File:

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

IOIPSL/trunk/src/histcom.f90

@@ -2239 +2239 @@
 END SUBROUTINE histvar_seq
 !===
-SUBROUTINE histsync (file)
+SUBROUTINE histsync (idf)
 !---------------------------------------------------------------------
 !- This subroutine will synchronise all
@@ -2249 +2249 @@
   IMPLICIT NONE
 !-
-! file  : optional argument for fileid
-  INTEGER,INTENT(in),OPTIONAL :: file
+! idf  : optional argument for fileid
+  INTEGER,INTENT(in),OPTIONAL :: idf
 !-
   INTEGER :: ifile,iret,i_s,i_e
@@ -2262 +2262 @@
   ENDIF
 !-
-  IF (PRESENT(file)) THEN
-    IF ( (file >= 1).AND.(file <= nb_files_max) ) THEN
-      IF (W_F(ifile)%ncfid > 0) THEN
-        i_s = file
-        i_e = file
+  IF (PRESENT(idf)) THEN
+    IF ( (idf >= 1).AND.(idf <= nb_files_max) ) THEN
+      IF (W_F(idf)%ncfid > 0) THEN
+        i_s = idf
+        i_e = idf
       ELSE
         i_s = 1
@@ -2319 +2319 @@
   IF (PRESENT(idf)) THEN
     IF ( (idf >= 1).AND.(idf <= nb_files_max) ) THEN
-      IF (W_F(ifile)%ncfid > 0) THEN
+      IF (W_F(idf)%ncfid > 0) THEN
         i_s = idf
         i_e = idf