Changeset 17 for XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90

Timestamp:

02/16/09 14:24:05 (15 years ago)

Author:

ymipsl

Message:

Correction de bugs pour portage sur Mercure

File:

• XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90 (modified) (2 diffs)

XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90

@@ -274 +274 @@
       
       IF (pt_field%axis%name/="none") THEN
+        CALL write_ioipsl_3d(varname,Field_buffer(1:ni,1:nj,1:nk))
+      ELSE 
         CALL write_ioipsl_2d(varname,Field_buffer(1:ni,1:nj,1))
-      ELSE 
-        CALL write_ioipsl_3d(varname,Field_buffer(1:ni,1:nj,1:nk))
       ENDIF
     
@@ -296 +296 @@
     INTEGER :: ni,nj,nk,ibegin,jbegin
     INTEGER :: id_rank
-    
+
     CALL field__get(varname,pt_field)
     id_rank=pt_field%grid%ranks(current_rank)