Changeset 846 for codes/icosagcm/devel/src/dynamics/caldyn_gcm.F90

Timestamp:

05/04/19 22:27:37 (5 years ago)

Author:

dubos

Message:

devel : towards Fortran driver for unstructured/LAM meshes

File:

• codes/icosagcm/devel/src/dynamics/caldyn_gcm.F90 (modified) (1 diff)

codes/icosagcm/devel/src/dynamics/caldyn_gcm.F90

@@ -150 +150 @@
     CALL allocate_caldyn
 
-    DO ind=1,ndomain
-       IF (.NOT. assigned_domain(ind)) CYCLE
-       CALL swap_dimensions(ind)
-       CALL swap_geometry(ind)
-       planetvel=f_planetvel(ind)
-       CALL compute_planetvel(planetvel)
-    END DO
+    IF(grid_type==grid_ico) THEN
+       ! NB : unused now, would be useful for non-traditional / deep-atmosphere
+       DO ind=1,ndomain
+          IF (.NOT. assigned_domain(ind)) CYCLE
+          CALL swap_dimensions(ind)
+          CALL swap_geometry(ind)
+          planetvel=f_planetvel(ind)
+          CALL compute_planetvel(planetvel)
+       END DO
+    END IF
 
     compute_pvort_only => compute_pvort_only_hex