Changeset 950 for codes/icosagcm/devel/src/time/timeloop_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/time/timeloop_gcm.f90 (modified) (2 diffs)

codes/icosagcm/devel/src/time/timeloop_gcm.f90

@@ -78 +78 @@
        CALL getin('matsuno_period',matsuno_period)
        nb_stage=matsuno_period+1
+    CASE('ARK1.1')
+       scheme_family=hevi
+       scheme=ark11
+       nb_stage=1
+       CALL set_coefs_ark11(dt)
     CASE('ARK2.3')
        scheme_family=hevi
@@ -91 +96 @@
        nb_stage=0
     CASE default
-       PRINT*,'Bad selector for variable scheme : <', TRIM(def),             &
-            ' > options are <euler>, <runge_kutta>, <leapfrog_matsuno>,<RK2.5>,<ARK2.3>'
+       PRINT*,'Bad selector for variable scheme : <' // TRIM(def) // '>, ', &
+            'options are <euler>, <runge_kutta>, <leapfrog_matsuno>, <RK2.5>,<ARK2.3>, ,<ARK1.1>'
        STOP
     END SELECT