Changeset 2137 for LMDZ5/trunk/libf/bibio

Timestamp:

Oct 29, 2014, 8:47:46 PM (10 years ago)

Author:

idelkadi

Message:

Implementation de XIOS pour les sorties du simulateur COSP

File:

• LMDZ5/trunk/libf/bibio/wxios.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/bibio/wxios.F90

@@ -432 +432 @@
     ! Pour déclarer un champ      !!!!!!!!!!!!!!!!!
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-    SUBROUTINE wxios_add_field_to_file(fieldname, fdim, fid, fname, fieldlongname, fieldunit, field_level, op)
+    SUBROUTINE wxios_add_field_to_file(fieldname, fdim, fid, fname, fieldlongname, fieldunit, field_level, op, nam_axvert)
         IMPLICIT NONE
         INCLUDE 'iniprint.h'
@@ -445 +445 @@
         
         CHARACTER(len=20) :: axis_id ! Ehouarn: dangerous...
+        CHARACTER(len=20), INTENT(IN), OPTIONAL :: nam_axvert
         CHARACTER(len=100) :: operation
         TYPE(xios_file) :: f
@@ -458 +459 @@
         ELSE
           axis_id="plev"
+        ENDIF
+ 
+        IF (PRESENT(nam_axvert)) THEN
+           axis_id=nam_axvert
+           print*,'nam_axvert=',axis_id
         ENDIF