Changeset 1897 for LMDZ5/trunk/libf/phydev/physiq.F90

Timestamp:

Oct 25, 2013, 10:12:38 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Getting XIOS to work in MPI, OpenMP and mixed MPI/OpenMP modes. Use "-io xios" option with makelmdz or makelmdz_fcm to enable XIOS (this doesn't deactivate IOIPSL outputs; to suppress IOIPSL outputs, add cpp flag CPP_NO_IOIPSL).
EM

File:

• LMDZ5/trunk/libf/phydev/physiq.F90 (modified) (5 diffs)

LMDZ5/trunk/libf/phydev/physiq.F90

@@ -21 +21 @@
 
 #ifdef CPP_XIOS
-      USE wxios
+      USE wxios, only: wxios_add_vaxis, wxios_set_timestep, wxios_closedef, &
+                       wxios_update_calendar, histwrite_phy
 #endif
 
@@ -168 +169 @@
 
 
-!print*,'PHYDEV: itau=',itau
+print*,'PHYDEV: itau=',itau
 
 ! write some outputs:
@@ -186 +187 @@
     !Increment XIOS time
     CALL wxios_update_calendar(itau)
+!$OMP END MASTER
+!$OMP BARRIER
 
     !Send fields to XIOS:
@@ -192 +195 @@
     CALL histwrite_phy("v",v)
     CALL histwrite_phy("ps",paprs(:,1))
-!$OMP END MASTER
 #endif
 
@@ -200 +202 @@
 endif
 
-end
+end subroutine physiq