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

Timestamp:

Jul 24, 2024, 4:23:34 PM (3 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/alpale.h (modified) (1 diff)

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

@@ -5 +5 @@
 
 ! dans alealp_th, thermcell_alp, physiq_mod, conf_phys
-      integer            :: iflag_trig_bl,iflag_clos_bl,iflag_strig
-      integer            :: tau_trig_shallow,tau_trig_deep
+      INTEGER            :: iflag_trig_bl,iflag_clos_bl,iflag_strig
+      INTEGER            :: tau_trig_shallow,tau_trig_deep
       real               :: s_trig, h_trig
 ! thermcell_alp et convection ...
-      integer            :: iflag_coupl,iflag_clos,iflag_wake
+      INTEGER            :: iflag_coupl,iflag_clos,iflag_wake
 ! thermcell_alp
       real               :: alp_bl_k