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

Timestamp:

Apr 4, 2014, 2:39:54 PM (11 years ago)

Author:

Ehouarn Millour

Message:

Further cleanup concerning XIOS (mainly about axes being defined as axes and not as groups of axes).
EM

File:

• LMDZ5/trunk/libf/phylmd/iophy.F90 (modified) (10 diffs)

LMDZ5/trunk/libf/phylmd/iophy.F90

@@ -883 +883 @@
                                  nid_files
 #ifdef CPP_XIOS
-  USE wxios, only: wxios_write_2D
+  USE xios, only: xios_send_field
 #endif
 
@@ -952 +952 @@
                      write(lunout,*)'Dans iophy histwrite2D,iff,var%name ',&
                                     iff,trim(var%name)                       
-                     write(lunout,*)"histwrite2d_phy:.NOT.clef_stations(iff)and iff==iff_beg, call wxios_write_2D"
+                     write(lunout,*)"histwrite2d_phy:.NOT.clef_stations(iff)and iff==iff_beg, call xios_send_field"
                   endif
-                  CALL wxios_write_2D(var%name, Field2d)
+                  CALL xios_send_field(var%name, Field2d)
                   firstx=.false.
                ENDIF
@@ -968 +968 @@
 !                        IF (iff == iff_beg) THEN
 !                          if (prt_level >= 10) then
-!                            write(lunout,*)"histwrite2d_phy: .NOT.clef_stations(iff) and iff==iff_beg, call wxios_write_2D"
+!                            write(lunout,*)"histwrite2d_phy: .NOT.clef_stations(iff) and iff==iff_beg, call xios_send_field"
 !                          endif
-!                          CALL wxios_write_2D(var%name, Field2d)
+!                          CALL xios_send_field(var%name, Field2d)
 !                        ENDIF
 !#endif
@@ -1019 +1019 @@
                                  nid_files
 #ifdef CPP_XIOS
-  USE wxios, only: wxios_write_3D
+  USE xios, only: xios_send_field
 #endif
 
@@ -1085 +1085 @@
                   write(lunout,*)'Dans iophy, histwrite3D iff nlev klev firstx', &
                                   iff,nlev,klev, firstx                       
-                  write(lunout,*)'histwrite3d_phy: call wxios_write_3D for ', &
+                  write(lunout,*)'histwrite3d_phy: call xios_send_field for ', &
                                   trim(var%name), ' with iim jjm nlevx = ', &
                                   iim,jj_nb,nlevx
                 endif
-                CALL wxios_write_3D(var%name, Field3d(:,:,1:nlevx))
+                CALL xios_send_field(var%name, Field3d(:,:,1:nlevx))
                             firstx=.false.
               ENDIF
@@ -1103 +1103 @@
 !#ifdef CPP_XIOS
 !                        IF (iff == 1) THEN
-!                              CALL wxios_write_3D(var%name, Field3d(:,:,1:klev))
+!                              CALL xios_send_field(var%name, Field3d(:,:,1:klev))
 !                        ENDIF
 !#endif
@@ -1149 +1149 @@
                                 is_sequential, klon_mpi_begin, klon_mpi_end, &
                                 jj_nb, klon_mpi
-  USE wxios, only: wxios_write_2D
+  USE xios, only: xios_send_field
 
 
@@ -1184 +1184 @@
 
 
-        CALL wxios_write_2D(field_name, Field2d)
+        CALL xios_send_field(field_name, Field2d)
 
     ELSE 
@@ -1220 +1220 @@
                                 is_sequential, klon_mpi_begin, klon_mpi_end, &
                                 jj_nb, klon_mpi
-  USE wxios, only: wxios_write_3D
+  USE xios, only: xios_send_field
 
 
@@ -1254 +1254 @@
         ALLOCATE(index3d(iim*jj_nb*nlev))
         ALLOCATE(fieldok(iim*jj_nb,nlev))
-        CALL wxios_write_3D(field_name, Field3d(:,:,1:nlev))
+        CALL xios_send_field(field_name, Field3d(:,:,1:nlev))
                         
     ELSE