Changeset 950 for codes/icosagcm/devel/src/dissip/dissip_gcm.f90

Timestamp:

07/14/19 14:40:34 (5 years ago)

Author:

dubos

Message:

devel/unstructured : towards Fortran driver for DYNAMICO-unstructured

File:

• codes/icosagcm/devel/src/dissip/dissip_gcm.f90 (modified) (1 diff)

codes/icosagcm/devel/src/dissip/dissip_gcm.f90

@@ -127 +127 @@
        CALL dissip_profile
        CALL dissip_timescale
+    ELSE ! FIXME unstructured
+       itau_dissip=1000000000
     END IF