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

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -408 +408 @@
     LOGICAL, INTENT(IN) :: comp ! .TRUE. to compute, .FALSE. to check
     REAL(rstd), INTENT(IN) :: ps(iim*jjm)
-    REAL(rstd), INTENT(OUT) :: rhodz(iim*jjm,llm)
+    REAL(rstd), INTENT(INOUT) :: rhodz(iim*jjm,llm)
     REAL(rstd) :: m, err
     INTEGER :: l,i,j,ij,dd