Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/phylmd/alpale_th.F90

Timestamp:

Jul 26, 2024, 5:56:37 PM (4 months ago)

Author:

abarral

Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/alpale_th.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/alpale_th.F90

@@ -21 +21 @@
   USE lmdz_print_control, ONLY: mydebug=>debug , lunout, prt_level
   USE lmdz_abort_physic, ONLY: abort_physic
+  USE lmdz_alpale
 
   IMPLICIT NONE
@@ -47 +48 @@
 
   REAL, DIMENSION(klon), INTENT(OUT)                         :: birth_rate
-
-  include "alpale.h"
 
 ! Local variables