Changeset 342

Timestamp:

07/31/15 16:26:50 (9 years ago)

Author:

dubos

Message:

Minor Fix

File:

• codes/icosagcm/trunk/src/xios_mod.F90 (modified) (2 diffs)

codes/icosagcm/trunk/src/xios_mod.F90

@@ -57 +57 @@
    lev_valuep1(:) = (/ (l,l=1,llm+1) /)     
    CALL xios_set_axis_attr("lev",size=llm ,value=lev_value) ;
-   CALL xios_set_axis_attr("levp1",size=llm+1 ,value=lev_value) ;
+   CALL xios_set_axis_attr("levp1",size=llm+1 ,value=lev_valuep1) ;
    
    ncell=0
@@ -309 +309 @@
    
    CALL xios_send_field(name,field_tmp)
- 
+
  END SUBROUTINE xios_write_field_scalar