Changeset 239 for IOIPSL/trunk/src
- Timestamp:
- 01/25/08 10:20:21 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/fliocom.f90
r237 r239 4615 4615 !- 4616 4616 INTEGER :: iw,i_rc,i_n 4617 CHARACTER(LEN=1 4) :: c_ddim4618 INTEGER ,DIMENSION(nb_fd_mx):: n_idim4619 CHARACTER(LEN=NF90_MAX_NAME) ,DIMENSION(nb_fd_mx):: c_ndim4617 CHARACTER(LEN=15) :: c_ddim 4618 INTEGER :: n_idim 4619 CHARACTER(LEN=NF90_MAX_NAME) :: c_ndim 4620 4620 !--------------------------------------------------------------------- 4621 4621 IF (PRESENT(id_dom)) THEN … … 4648 4648 i_rc = NF90_PUT_ATT (f_e,NF90_GLOBAL, & 4649 4649 & '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)) 4658 4655 ENDDO 4659 !-4660 4656 ELSE 4661 4657 CALL ipslerr (3,'flio_dom_att', &
Note: See TracChangeset
for help on using the changeset viewer.