Changeset 3907 for LMDZ5/branches/IPSLCM5A2.1/libf/phylmd

Timestamp:

May 19, 2021, 2:59:23 PM (4 years ago)

Author:

Sebastien Nguyen

Message:

added #ifdef CPP_MPI for sequential compilation

File:

• LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/cpl_mod.F90 (modified) (2 diffs)

LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/cpl_mod.F90

@@ -1223 +1223 @@
         ENDDO
       ENDDO
-     
+
+#ifdef CPP_MPI
+ 
       CALL MPI_ALLREDUCE(calving, calving_glo, nb_zone_calving, MPI_REAL_LMDZ, MPI_SUM, COMM_LMDZ_PHY, error)
      
+#endif
+
       tab_flds(:,:,ids_calvin) = 0
       DO k=1,nb_zone_calving
@@ -1231 +1235 @@
           j=(ind_calving(k)-1)/nbp_lon + 1
           i=MOD(ind_calving(k)-1,nbp_lon)+1
+#ifdef CPP_MPI
           tab_flds(i,j,ids_calvin) = calving_glo(k)
+#else
+          tab_flds(i,j,ids_calvin) = calving(k)
+#endif
         ENDIF
       ENDDO