Changeset 239 for IOIPSL/trunk

Timestamp:

01/25/08 10:20:21 (16 years ago)

Author:

bellier

Message:

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

File:

• IOIPSL/trunk/src/fliocom.f90 (modified) (2 diffs)

IOIPSL/trunk/src/fliocom.f90

@@ -4615 +4615 @@
 !-
   INTEGER :: iw,i_rc,i_n
-  CHARACTER(LEN=14) :: c_ddim
-  INTEGER,DIMENSION(nb_fd_mx) :: n_idim
-  CHARACTER(LEN=NF90_MAX_NAME),DIMENSION(nb_fd_mx) :: c_ndim
+  CHARACTER(LEN=15) :: c_ddim
+  INTEGER :: n_idim
+  CHARACTER(LEN=NF90_MAX_NAME) :: c_ndim
 !---------------------------------------------------------------------
   IF (PRESENT(id_dom)) THEN
@@ -4648 +4648 @@
           i_rc = NF90_PUT_ATT (f_e,NF90_GLOBAL, &
  &          'DOMAIN_type',TRIM(c_d_t(iw)))
-!-
-          CALL flio_inf (f_e,nn_idm=n_idim,cc_ndm=c_ndim)
-          DO i_n=1,nb_fd_mx
-            IF (n_idim(i_n) > 0) THEN
-              WRITE (UNIT=c_ddim,FMT='("DOMAIN_DIM_N",I2.2)') i_n
-              i_rc = NF90_PUT_ATT (f_e,NF90_GLOBAL, &
- &              c_ddim,TRIM(c_ndim(i_n)))
-            ENDIF
+          i_rc = NF90_INQUIRE (f_e,nDimensions=n_idim)
+          DO i_n=1,n_idim
+            i_rc = NF90_INQUIRE_DIMENSION (f_e,i_n,name=c_ndim)
+            WRITE (UNIT=c_ddim,FMT='("DOMAIN_DIM_N",I3.3)') i_n
+            i_rc = NF90_PUT_ATT (f_e,NF90_GLOBAL,c_ddim,TRIM(c_ndim))
           ENDDO
-!-
         ELSE
           CALL ipslerr (3,'flio_dom_att', &