Changeset 5284 for LMDZ6/trunk/libf/phylmd/lmdz_thermcell_alp.f90

Timestamp:

Oct 28, 2024, 2:12:55 PM (6 hours ago)

Author:

abarral

Message:

Turn alpale.h alpale.f90 YOETHF.h into modules

File:

• LMDZ6/trunk/libf/phylmd/lmdz_thermcell_alp.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_thermcell_alp.f90

@@ -19 +19 @@
      &)
 
-      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
+USE yoethf_mod_h
+      USE alpale_mod
+            USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
           , R_ecc, R_peri, R_incl                                      &
@@ -49 +51 @@
 !   -------------
 
-      INCLUDE "YOETHF.h"
       INCLUDE "FCTTRE.h"
-      INCLUDE "alpale.h"
 
 !   arguments: