Changeset 3436 for LMDZ6/trunk/libf/phylmd/regr_horiz_time_climoz_m.F90

Timestamp:

Jan 22, 2019, 5:26:21 PM (5 years ago)

Author:

Ehouarn Millour

Message:

Additional modifications wrt previous commit to enable working without XIOS.
EM+LF

File:

• LMDZ6/trunk/libf/phylmd/regr_horiz_time_climoz_m.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/regr_horiz_time_climoz_m.F90

@@ -66 +66 @@
   USE regular_lonlat_mod, ONLY: boundslon_reg, boundslat_reg, south, west, east
   USE slopes_m,           ONLY: slopes
+#ifdef CPP_XIOS
   USE xios
+#endif
   USE mod_phys_lmdz_para, ONLY: is_mpi_root, is_master, is_omp_master, gather, gather_mpi, bcast_mpi, klon_mpi
   USE geometry_mod, ONLY : latitude_deg, ind_cell_glo
@@ -377 +379 @@
     !=============================================================================
      IF (grid_type==unstructured) THEN
+#ifdef CPP_XIOS
        nlat_ou=klon_mpi
        
@@ -389 +392 @@
        CALL xios_send_field("tro3_in",o3_in3bis(:,:,:,:,:))
        CALL xios_recv_field("tro3_out",o3_regr_lonlat(1,:,:,:,:))
-
+#endif
      ELSE
           
@@ -423 +426 @@
      nlat_ou=nbp_lat
      IF (grid_type==unstructured) THEN
+#ifdef CPP_XIOS
        CALL xios_send_field('o3_out',o3_out3)
        ndims=3 
        ALLOCATE(o3_out3_glo(nlat_ou, nlev_in, ntim_ou, read_climoz))
        CALL gather_mpi(o3_out3(1,:,:,:,:), o3_out3_glo)
+#endif
      ENDIF
 
@@ -467 +472 @@
    
      IF (grid_type==unstructured) THEN
+#ifdef CPP_XIOS
        nlat_ou=klon_mpi
 
@@ -480 +486 @@
        IF(.NOT.lprev) o3_regr_lat(:,:, 0, :) = o3_regr_lat(:,:,12,:)
        IF(.NOT.lnext) o3_regr_lat(:,:,13, :) = o3_regr_lat(:,:, 1,:)
-       
+#endif       
      
      ELSE