Changeset 964 for IOIPSL

Timestamp:

04/07/10 10:05:55 (13 years ago)

Author:

bellier

Message:

Reinitialize some elements at the closure of a file

File:

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

IOIPSL/trunk/src/histcom.f90

@@ -278 +278 @@
 !- One pair (x_1d,y_1d) or (x_2d,y_2d) must be supplied.
 !-
-!- For regular grid (reg1d or reg2d),                   
+!- For regular grid (reg1d or reg2d),
 !- the next 4 arguments allow to define a horizontal zoom
 !- for this file. It is assumed that all variables to come
@@ -2378 +2378 @@
           DEALLOCATE(W_F(ifile)%W_V(iv)%t_bf)
         ENDIF
+!------ Reinitialize the sizes
+        W_F(ifile)%W_V(iv)%datasz_in(:) = -1
+        W_F(ifile)%W_V(iv)%datasz_max = -1
       ENDDO
 !-----
@@ -2385 +2388 @@
       iret = NF90_CLOSE(nfid)
       W_F(ifile)%ncfid = -1
+      W_F(ifile)%dom_id_svg = -1
     ENDIF
   ENDDO