Changeset 5305 for LMDZ6/trunk/libf/phylmd/nuage_mod_h.f90

Timestamp:

Oct 30, 2024, 7:29:21 PM (20 hours ago)

Author:

abarral

Message:

Turn YOMCST2.h.h into module

File:

• LMDZ6/trunk/libf/phylmd/nuage_mod_h.f90 (moved) (moved from LMDZ6/trunk/libf/phylmd/nuage.h) (1 diff)

LMDZ6/trunk/libf/phylmd/nuage_mod_h.f90

@@ -1 @@
-!
-! $Id$
-!
-      REAL rad_froid, rad_chau1, rad_chau2
-      REAL tau_cld_cv,coefw_cld_cv
-      REAL tmax_fonte_cv
-      INTEGER iflag_cld_cv, iflag_ratqs
-      LOGICAL ok_icefra_lscp
+! Replaces nuage.h
 
-      common /nuagecom/ rad_froid,rad_chau1, rad_chau2,                 &
-     &                  tau_cld_cv,coefw_cld_cv,                        &
-     &                  tmax_fonte_cv,iflag_ratqs,                      &
-     &                  iflag_cld_cv,                                   &
-     &                  ok_icefra_lscp                                 
-!$OMP THREADPRIVATE(/nuagecom/)
+MODULE nuage_params_mod_h
+  IMPLICIT NONE; PRIVATE
+  PUBLIC rad_froid, rad_chau1, rad_chau2, &
+          tau_cld_cv, coefw_cld_cv, &
+          tmax_fonte_cv, iflag_ratqs, &
+          iflag_cld_cv, &
+          ok_icefra_lscp
+
+  REAL rad_froid, rad_chau1, rad_chau2
+  REAL tau_cld_cv, coefw_cld_cv
+  REAL tmax_fonte_cv
+  INTEGER iflag_cld_cv, iflag_ratqs
+  LOGICAL ok_icefra_lscp
+
+  !$OMP THREADPRIVATE(rad_froid,rad_chau1, rad_chau2,                 &
+  !$OMP                    tau_cld_cv,coefw_cld_cv,                        &
+  !$OMP                    tmax_fonte_cv,iflag_ratqs,                      &
+  !$OMP                    iflag_cld_cv,                                   &
+  !$OMP                    ok_icefra_lscp)
+
+END MODULE nuage_params_mod_h