Changeset 91 for codes/icosagcm

Timestamp:

08/03/12 22:23:29 (12 years ago)

Author:

dubos

Message:

Minor changes for test case DCMIP1

Location:

codes/icosagcm/trunk

Files:

• param_sets/dcmip2012/test1 (added)
• src/etat0_dcmip2.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/etat0_dcmip2.f90

@@ -71 +71 @@
     REAL(rstd), INTENT(OUT) :: u(3*iim*jjm,llm)
     REAL(rstd), INTENT(OUT) :: theta_rhodz(iim*jjm,llm)
-    REAL(rstd), INTENT(OUT) :: q(iim*jjm)
+    REAL(rstd), INTENT(OUT) :: q(iim*jjm,llm)
     REAL(rstd) :: ulon(3*iim*jjm,llm), ulat(3*iim*jjm,llm), temp(iim*jjm,llm)
     
@@ -107 +107 @@
     CALL compute_wind_perp_from_lonlat_compound(ulon,ulat,u)
 
+    q=1.
+
     CONTAINS