Changeset 2137 for LMDZ5/trunk/libf/phylmd/iophy.F90

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/phylmd/iophy.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/iophy.F90

@@ -1117 +1117 @@
                              trim(var%name)                       
           endif
-          CALL xios_send_field(var%name, Field3d)
+          CALL xios_send_field(var%name, Field3d(:,:,1:nlevx))
 #else
         CALL abort_gcm ('iophy','cannot have ok_all_xml = .T. without CPP_XIOS defined' ,1)