Changeset 141

Timestamp:

02/18/13 18:35:17 (11 years ago)

Author:

dubos

Message:

caldyn_adv works with dcmip2012/test1

File:

• codes/icosagcm/trunk/src/advect.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/advect.f90

@@ -269 +269 @@
       REAL(rstd),INTENT(IN):: a1(3), a2(3)
       sum2 = a1(1)*a2(1)+a1(2)*a2(2)+a1(3)*a2(3)
-      sum2 = 0. ! Godunov scheme
+      ! sum2 = 0. ! Godunov scheme
     END FUNCTION sum2