Changeset 257 for branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/data_para.f90

Timestamp:

2011-06-17T14:02:17+02:00 (13 years ago)

Author:

didier.solyga

Message:

Externalized version merged with the trunk

File:

• branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/data_para.f90 (modified) (3 diffs)

branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/data_para.f90

@@ -11 +11 @@
 !-
   USE defprec
-  USE constantes
   USE ioipsl
 !-
 #include "src_parallel.h"
 !-
+!-
+! Unit for output messages
+  INTEGER(i_std), SAVE :: numout = 6
+
   INTEGER, SAVE :: mpi_size                                           !! Number of parallel processes
   INTEGER, SAVE :: mpi_rank                                           !! my rank num
@@ -203 +206 @@
  
   SUBROUTINE init_data_para(iim,jjm,nbpoints,index_x)
-    USE constantes
+
     IMPLICIT NONE
 #ifdef CPP_PARA
@@ -457 +460 @@
   SUBROUTINE Write_Load_balance(times)
     IMPLICIT NONE
-    REAL,INTENT(IN) :: times
+    REAL(r_std),INTENT(IN) :: times
   
 #ifdef CPP_PARA