Ignore:
Timestamp:
02/16/09 14:24:05 (15 years ago)
Author:
ymipsl
Message:

Correction de bugs pour portage sur Mercure

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XMLIO_SERVER/trunk/src/XMLIO/mod_grid_group.f90

    r8 r17  
    113113   
    114114   
    115   SUBROUTINE grid_group__get_default_attribut(Pt_gg,Pt_g) 
     115  SUBROUTINE grid_group__get_default_attrib(Pt_gg,Pt_g) 
    116116  IMPLICIT NONE 
    117117    TYPE(grid_group),POINTER  :: Pt_gg 
     
    119119     
    120120    Pt_g=>Pt_gg%default_attribut 
    121   END SUBROUTINE grid_group__get_default_attribut 
     121  END SUBROUTINE grid_group__get_default_attrib 
    122122   
    123123  RECURSIVE SUBROUTINE grid_group__apply_default(Pt_gg,default) 
Note: See TracChangeset for help on using the changeset viewer.