Changeset 749 for codes/icosagcm/devel/src/unstructured/data_unstructured.F90

Timestamp:

10/08/18 10:49:07 (6 years ago)

Author:

dubos

Message:

devel/unstructured : fix recently introduced bugs

File:

• codes/icosagcm/devel/src/unstructured/data_unstructured.F90 (modified) (1 diff)

codes/icosagcm/devel/src/unstructured/data_unstructured.F90

@@ -12 +12 @@
   INDEX,  BIND(C) :: caldyn_thermo=thermo_theta, caldyn_eta=eta_lag, &
        caldyn_vert_variant=caldyn_vert_cons, nb_threads=0, nb_stage=0
-  LOGICAL(C_BOOL), BIND(C) :: hydrostatic=.TRUE., debug_hevi_solver=.TRUE.
+  LOGICAL(C_BOOL), BIND(C) :: hydrostatic=.TRUE.
+  LOGICAL(C_BOOL), BIND(C, NAME='debug_hevi_solver') :: debug_hevi_solver_=.TRUE.
 
 #ifdef CPP_MIXED_PREC