Ignore:
Timestamp:
01/22/08 11:32:36 (16 years ago)
Author:
bellier
Message:

JB : Adding (for rebuild) a list of names of the dimensions

in order to avoid the problems caused by "malicious" software
that reverses the order of dimensions. (not yet used in rebuild)

File:
1 edited

Legend:

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

    r127 r237  
    46144614  INTEGER,OPTIONAL,INTENT(IN) :: id_dom 
    46154615!- 
    4616   INTEGER :: iw,i_rc 
     4616  INTEGER :: iw,i_rc,i_n 
     4617  CHARACTER(LEN=14) :: c_ddim 
     4618  INTEGER,DIMENSION(nb_fd_mx) :: n_idim 
     4619  CHARACTER(LEN=NF90_MAX_NAME),DIMENSION(nb_fd_mx) :: c_ndim 
    46174620!--------------------------------------------------------------------- 
    46184621  IF (PRESENT(id_dom)) THEN 
     
    46454648          i_rc = NF90_PUT_ATT (f_e,NF90_GLOBAL, & 
    46464649 &          'DOMAIN_type',TRIM(c_d_t(iw))) 
     4650!- 
     4651          CALL flio_inf (f_e,nn_idm=n_idim,cc_ndm=c_ndim) 
     4652          DO i_n=1,nb_fd_mx 
     4653            IF (n_idim(i_n) > 0) THEN 
     4654              WRITE (UNIT=c_ddim,FMT='("DOMAIN_DIM_N",I2.2)') i_n 
     4655              i_rc = NF90_PUT_ATT (f_e,NF90_GLOBAL, & 
     4656 &              c_ddim,TRIM(c_ndim(i_n))) 
     4657            ENDIF 
     4658          ENDDO 
     4659!- 
    46474660        ELSE 
    46484661          CALL ipslerr (3,'flio_dom_att', & 
Note: See TracChangeset for help on using the changeset viewer.