Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfc_new.f90

Timestamp:

Aug 3, 2024, 2:56:58 PM (7 weeks ago)

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfc_new.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfc_new.f90

@@ -39 +39 @@
   IF (jour<0 .OR. jour>366) THEN
     PRINT*, 'Le jour demande n est pas correcte:', jour
-    print *, 'JE: FORCED TO CONTINUE (emissions have&
+    PRINT *, 'JE: FORCED TO CONTINUE (emissions have&
             & to be longer than 1 year!!!! )'
     !JE         CALL ABORT
@@ -73 +73 @@
       CALL exit(1)
     ENDIF
-    !print *,'lmt_bcff = ',lmt_bcff
+    !PRINT *,'lmt_bcff = ',lmt_bcff
     !stop