Changeset 239 for IOIPSL/trunk/src


Ignore:
Timestamp:
01/25/08 10:20:21 (17 years ago)
Author:
bellier
Message:

Fixed an error in defining the attributes to rebuild.
Thanks to Anne for her assistance.
JB

File:
1 edited

Legend:

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

    r237 r239  
    46154615!- 
    46164616  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 
     4617  CHARACTER(LEN=15) :: c_ddim 
     4618  INTEGER :: n_idim 
     4619  CHARACTER(LEN=NF90_MAX_NAME) :: c_ndim 
    46204620!--------------------------------------------------------------------- 
    46214621  IF (PRESENT(id_dom)) THEN 
     
    46484648          i_rc = NF90_PUT_ATT (f_e,NF90_GLOBAL, & 
    46494649 &          '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 
     4650          i_rc = NF90_INQUIRE (f_e,nDimensions=n_idim) 
     4651          DO i_n=1,n_idim 
     4652            i_rc = NF90_INQUIRE_DIMENSION (f_e,i_n,name=c_ndim) 
     4653            WRITE (UNIT=c_ddim,FMT='("DOMAIN_DIM_N",I3.3)') i_n 
     4654            i_rc = NF90_PUT_ATT (f_e,NF90_GLOBAL,c_ddim,TRIM(c_ndim)) 
    46584655          ENDDO 
    4659 !- 
    46604656        ELSE 
    46614657          CALL ipslerr (3,'flio_dom_att', & 
Note: See TracChangeset for help on using the changeset viewer.