Changeset 1318 for LMDZ4/branches/LMDZ4V5.0-dev/libf/cosp/scops.F

Timestamp:

Feb 23, 2010, 9:12:08 PM (14 years ago)

Author:

yann meurdesoif

Message:

YM : Parallelisation COSP MPI+OpenMP

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/cosp/scops.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/cosp/scops.F

@@ -39 +39 @@
 ! *****************************COPYRIGHT*******************************
 
+      USE mod_phys_lmdz_para
+      USE mod_grid_phy_lmdz
+
       implicit none
 
@@ -175 +178 @@
           ELSE
               DO ibox=1,ncol
-                include 'congvec.h'
+!                include 'congvec_para.h'
+                 include 'congvec.h'
                 ! select random pixels from the non-convective
                 ! part the gridbox ( some will be converted into