Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/abor1.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/phylmd/ecrad.v1.5.1/abor1.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/abor1.F90

@@ -23 +23 @@
   ! FLUSH not understood by NAG compiler
   !CALL FLUSH(NULOUT)
-  IF (NULOUT /= 0 .and. NULOUT /= 6) CLOSE(NULOUT)
+  IF (NULOUT /= 0 .AND. NULOUT /= 6) CLOSE(NULOUT)
 ENDIF