Changeset 856 for codes/icosagcm/devel/src/transport

Timestamp:

05/06/19 01:49:12 (5 years ago)

Author:

dubos

Message:

devel : towards Fortran driver for unstructured/LAM meshes

File:

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

codes/icosagcm/devel/src/transport/advect_tracer.f90

@@ -27 +27 @@
   SUBROUTINE init_advect_tracer
     USE omp_para
+    USE grid_param
     REAL(rstd),POINTER :: tangent(:,:)
     REAL(rstd),POINTER :: normal(:,:)
@@ -42 +43 @@
     CALL allocate_field(f_wq, field_t, type_real, llm+1, name='wq')
     
-    DO ind=1,ndomain
-       IF (.NOT. assigned_domain(ind)) CYCLE
-       CALL swap_dimensions(ind)
-       CALL swap_geometry(ind)
-       normal=f_normal(ind)
-       tangent=f_tangent(ind)
-       sqrt_leng=f_sqrt_leng(ind)
-       IF (is_omp_level_master) CALL init_advect(normal,tangent,sqrt_leng)
-    END DO
+    IF(grid_type == grid_ico) THEN
+       DO ind=1,ndomain
+          IF (.NOT. assigned_domain(ind)) CYCLE
+          CALL swap_dimensions(ind)
+          CALL swap_geometry(ind)
+          normal=f_normal(ind)
+          tangent=f_tangent(ind)
+          sqrt_leng=f_sqrt_leng(ind)
+          IF (is_omp_level_master) CALL init_advect(normal,tangent,sqrt_leng)
+       END DO
+    END IF
 
   END SUBROUTINE init_advect_tracer