Changeset 1445

Timestamp:

Oct 22, 2010, 10:49:17 AM (14 years ago)

Author:

jghattas

Message:

Deleted call flush : this function should not be used, does not exist
at vargas.

Location:

LMDZ5/branches/LMDZ5V1.0-dev/libf

Files:

• cosp/icarus.F (modified) (1 diff)
• phylmd/read_map2D.F90 (modified) (1 diff)

LMDZ5/branches/LMDZ5V1.0-dev/libf/cosp/icarus.F

@@ -450 +450 @@
               write (6,*) 'rangevec:'
               write (6,*) rangevec
-              call flush(6)
               STOP
         endif

LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/read_map2D.F90

@@ -59 +59 @@
      WRITE(lunout,*) 'in read_map2D, varname  = ', trim(varname)
      WRITE(lunout,*) 'in read_map2D, timestep = ', timestep
-     CALL flush(lunout)
   ENDIF