Changeset 5089 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common

Timestamp:

Jul 20, 2024, 5:25:07 PM (4 months ago)

Author:

abarral

Message:

Remove unused (2015+) CPP_EARTH
Start refactoring makelmdz_fcm to prepare investigating fcm upgrade

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/diagedyn.F (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/diagedyn.F

@@ -62 +62 @@
       INCLUDE "iniprint.h"
 
-!#ifdef CPP_EARTH
-!      INCLUDE "../phylmd/YOMCST.h"
-!      INCLUDE "../phylmd/YOETHF.h"
-!#endif
 ! Ehouarn: for now set these parameters to what is in Earth physics...
 !          (cf ../phylmd/suphel.h)
@@ -154 +150 @@
 
 
-!#ifdef CPP_EARTH
       IF (planet_type=="earth") THEN
       
@@ -335 +330 @@
       ENDIF ! of if (planet_type=="earth")
 !#endif
-! #endif of #ifdef CPP_EARTH 
-      RETURN 
+      RETURN
       END