Changeset 5301 for LMDZ6/trunk/libf/phylmd/screenc_mod.f90

Timestamp:

Oct 30, 2024, 2:54:51 PM (34 hours ago)

Author:

abarral

Message:

Turn tsoilnudge.h fcg_gcssold.h flux_arp.h into module

File:

• LMDZ6/trunk/libf/phylmd/screenc_mod.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/screenc_mod.f90

@@ -20 +20 @@
                          pref, delu, delte, delq, s_pblh, prain, tsol, pat1)
       USE yomcst_mod_h
+      USE flux_arp_mod_h
 IMPLICIT NONE
 !-----------------------------------------------------------------------
@@ -73 +74 @@
       REAL, dimension(klon), intent(out) :: pref, delu, delte, delq
 !-----------------------------------------------------------------------
-
-      include "flux_arp.h"
 !
 ! Variables locales  
@@ -124 +123 @@
                          pref, delm, delh, zri1, s_pblh, prain, tsol, pat1)
       USE yomcst_mod_h
+      USE flux_arp_mod_h
 IMPLICIT NONE
 !-----------------------------------------------------------------------
@@ -178 +178 @@
       REAL, dimension(klon) :: cdram, cdrah
 !-----------------------------------------------------------------------
-
-      include "flux_arp.h"
-!
+      !
 ! Variables locales  
       INTEGER :: i