Changeset 146 for codes/icosagcm/trunk/src/transfert.F90

Timestamp:

03/12/13 16:34:45 (11 years ago)

Author:

ymipsl

Message:

Set constant sign for wind way :
ne(ij,right)==ne_right=1
ne(ij,rup)==ne_rup=-1
ne(ij,lup)==ne_lup=1
ne(ij,left)==ne_left=-1
ne(ij,ldown)==ne_ldown=1
ne(ij,rdown)==ne_rdown=-1

Modified transfert function to be compliant for this convention.

YM

File:

• codes/icosagcm/trunk/src/transfert.F90 (modified) (1 diff)

codes/icosagcm/trunk/src/transfert.F90

@@ -2 +2 @@
 
 #ifdef CPP_USING_MPI
-  USE transfert_mpi_mod, ONLY : init_transfert, transfert_request=>transfert_request_mpi, req_i1,req_e1, &
-                                request_add_point, create_request, gather_field
+  USE transfert_mpi_mod, ONLY : init_transfert, transfert_request=>transfert_request_mpi, req_i1,req_e1_vect, &
+                                req_e1_scal,request_add_point, create_request, gather_field
 #else 
-  USE transfert_mpi_mod, ONLY : init_transfert, transfert_request, req_i1,req_e1, &
-                                request_add_point, create_request, gather_field
+  USE transfert_mpi_mod, ONLY : init_transfert, transfert_request, req_i1,req_e1_vect, &
+                                req_e1_scal,request_add_point, create_request, gather_field
 #endif