Changeset 237 for IOIPSL/trunk/src

Timestamp:

01/22/08 11:32:36 (17 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:

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

IOIPSL/trunk/src/fliocom.f90

@@ -4614 +4614 @@
   INTEGER,OPTIONAL,INTENT(IN) :: id_dom
 !-
-  INTEGER :: iw,i_rc
+  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
 !---------------------------------------------------------------------
   IF (PRESENT(id_dom)) THEN
@@ -4645 +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
+          ENDDO
+!-
         ELSE
           CALL ipslerr (3,'flio_dom_att', &