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

codes/icosagcm/trunk/src/geometry.f90

@@ -49 +49 @@
      
 
-
+  INTEGER, PARAMETER :: ne_right=1
+  INTEGER, PARAMETER :: ne_rup=-1
+  INTEGER, PARAMETER :: ne_lup=1
+  INTEGER, PARAMETER :: ne_left=-1
+  INTEGER, PARAMETER :: ne_ldown=1
+  INTEGER, PARAMETER :: ne_rdown=-1
+  
 CONTAINS