Changeset 23 for codes/icosagcm/trunk/src/advect_tracer.f90

Timestamp:

07/18/12 18:54:00 (12 years ago)

Author:

dubos

Message:

Fixed mistakes in transport code - now compiles and runs

File:

• codes/icosagcm/trunk/src/advect_tracer.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/advect_tracer.f90

@@ -19 +19 @@
     REAL(rstd),POINTER :: tangent(:,:)
     REAL(rstd),POINTER :: normal(:,:)
+    INTEGER :: ind
 
     dt=dt_in
@@ -234 +235 @@
        DO k = 1,nqtot
           CALL compute_gradq3d(zq(:,:,k),gradq3d)
-          CALL compute_advect_horiz(zq(:,:,k),zm,u,massflx,bigt) 
+          CALL compute_advect_horiz(tangent,normal,zq(:,:,k),gradq3d,zm,u,massflx,bigt) 
        END DO
     END DO