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

codes/icosagcm/trunk/src/caldyn_wave.f90

@@ -58 +58 @@
   
     CALL transfert_request(f_h,req_i1) 
-    CALL transfert_request(f_u,req_e1)
+    CALL transfert_request(f_u,req_e1_vect)
     CALL transfert_request(f_u,req_e1)