Changeset 964 for IOIPSL


Ignore:
Timestamp:
04/07/10 10:05:55 (12 years ago)
Author:
bellier
Message:

Reinitialize some elements at the closure of a file

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/histcom.f90

    r962 r964  
    278278!- One pair (x_1d,y_1d) or (x_2d,y_2d) must be supplied. 
    279279!- 
    280 !- For regular grid (reg1d or reg2d),                    
     280!- For regular grid (reg1d or reg2d), 
    281281!- the next 4 arguments allow to define a horizontal zoom 
    282282!- for this file. It is assumed that all variables to come 
     
    23782378          DEALLOCATE(W_F(ifile)%W_V(iv)%t_bf) 
    23792379        ENDIF 
     2380!------ Reinitialize the sizes 
     2381        W_F(ifile)%W_V(iv)%datasz_in(:) = -1 
     2382        W_F(ifile)%W_V(iv)%datasz_max = -1 
    23802383      ENDDO 
    23812384!----- 
     
    23852388      iret = NF90_CLOSE(nfid) 
    23862389      W_F(ifile)%ncfid = -1 
     2390      W_F(ifile)%dom_id_svg = -1 
    23872391    ENDIF 
    23882392  ENDDO 
Note: See TracChangeset for help on using the changeset viewer.