Changeset 5139 for LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_nuage_params.f90

Timestamp:

Jul 29, 2024, 9:59:33 AM (8 weeks ago)

Author:

abarral

Message:

Put nuage.h, flux_arp.h, compbl.h into modules
Move unused phylmd/ini_hist* to obsolete

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_nuage_params.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phylmd/nuage.h) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_nuage_params.f90

@@ +1 @@
+! Replaces nuage.h
 
-! $Id$
+MODULE lmdz_nuage_params
+  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
+  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
 
-      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/)
+  !$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 lmdz_nuage_params