Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/ini_histREGDYN.h

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ini_histREGDYN.h (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ini_histREGDYN.h

@@ -4 +4 @@
       IF (ok_regdyn) THEN
       
-        if (is_sequential) THEN
+        IF (is_sequential) THEN
 c
 cIM      PRINT*, 'La frequence de sortie REGDYN est de ', ecrit_mth
@@ -122 +122 @@
          CALL histend(nid_regdyn)
          
-         endif ! is_sequential
+         END IF ! is_sequential
 
       endif ! ok_regdyn