Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_infotrac.f90

Timestamp:

Sep 11, 2024, 4:27:07 PM (2 months ago)

Author:

abarral

Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_infotrac.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_infotrac.f90

@@ -200 +200 @@
       END IF
     CASE('repr')
-      IF (.NOT. CPPKEY_REPROBUS)
+      IF (.NOT. CPPKEY_REPROBUS) THEN
         CALL abort_gcm(modname, 'You must add cpp key REPROBUS and compile with REPROBUS code', 1)
       END IF