Changeset 146 for codes/icosagcm/trunk/src/kinetic.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/kinetic.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/kinetic.f90

@@ -14 +14 @@
     INTEGER :: ind
   
-    CALL transfert_request(f_ue,req_e1)
-    CALL transfert_request(f_ue,req_e1)
+    CALL transfert_request(f_ue,req_e1_vect)
+    CALL transfert_request(f_ue,req_e1_vect)
 
     DO ind=1,ndomain