Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/mod_hallo.F90

Timestamp:

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

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/mod_hallo.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/mod_hallo.F90

@@ -146 +146 @@
     IF (Buffer_pos(Index_pos) + Size>MaxBufferSize_Used) MaxBufferSize_Used = Buffer_pos(Index_pos) + Size
     IF (Buffer_pos(Index_pos) + Size>MaxBufferSize) THEN
-      print *, 'STOP :: La taille de MaxBufferSize dans mod_hallo.F90 est trop petite !!!!'
+      PRINT *, 'STOP :: La taille de MaxBufferSize dans mod_hallo.F90 est trop petite !!!!'
       CALL abort_gcm("mod_hallo", "stopped", 1)
     endif
 
     IF (Index_pos>=ListSize) THEN
-      print *, 'STOP :: La taille de ListSize dans mod_hallo.F90 est trop petite !!!!'
+      PRINT *, 'STOP :: La taille de ListSize dans mod_hallo.F90 est trop petite !!!!'
       CALL abort_gcm("mod_hallo", "stopped", 1)
     endif