Changeset 1327 for LMDZ4/trunk/libf/cosp/scops.F

Timestamp:

Mar 16, 2010, 11:23:17 AM (14 years ago)

Author:

yann meurdesoif

Message:

parallelisation COSP
YM

File:

• LMDZ4/trunk/libf/cosp/scops.F (modified) (2 diffs)

LMDZ4/trunk/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