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

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/base/dimensions.f90 (modified) (1 diff)

codes/icosagcm/devel/src/base/dimensions.f90

@@ -80 +80 @@
     
     TYPE(t_domain),POINTER :: d
-    
+
+    IF(.NOT. swap_needed) RETURN
+
     d=>domain(ind)