Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/clesphys_mod_h.f90

Timestamp:

Jul 28, 2025, 7:23:15 PM (6 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/clesphys_mod_h.f90 (modified) (4 diffs)

LMDZ6/branches/contrails/libf/phylmd/clesphys_mod_h.f90

@@ -34 +34 @@
           , ok_suntime_rrtm                                            &
           , overlap                                                    &
-          , ok_kzmin                                                   &
+          , ok_kzmin, ok_advtke                                        &
           , lev_histhf, lev_histday, lev_histmth                       &
-          , lev_histins, lev_histLES, lev_histdayNMC, levout_histNMC   &
-          , ok_histNMC                                                 &
+          , lev_histins, lev_histLES                                   &
           , type_run, ok_regdyn, ok_cosp, ok_airs                      &
           , ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP                     &
@@ -117 +116 @@
   !IM lev_histday : niveau sorties journalieres
   !IM lev_histmth : niveau sorties mensuelles
-  !IM lev_histdayNMC : on peut sortir soit sur 8 (comme AR5) ou bien
-  !                    sur 17 niveaux de pression
   INTEGER lev_histhf, lev_histday, lev_histmth
-  INTEGER lev_histdayNMC
   Integer lev_histins, lev_histLES
-  !IM ok_histNMC  : sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
   !IM freq_outNMC : frequences de sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
   !IM freq_calNMC : frequences de calcul fis. hist*NMC.nc
-  LOGICAL ok_histNMC(3)
-  INTEGER levout_histNMC(3)
-  REAL freq_outNMC(3), freq_calNMC(3)
+  REAL freq_outNMC(10), freq_calNMC(10)
   CHARACTER(len = 4) type_run
   ! aer_type: pour utiliser un fichier constant dans readaerosol
@@ -152 +145 @@
   LOGICAL :: ok_new_lscp
   LOGICAL :: ok_bs, ok_rad_bs
+  LOGICAL :: ok_advtke
   ! flag to bypass or not the phytrac module
   INTEGER :: iflag_phytrac
@@ -196 +190 @@
   !$OMP      , ok_suntime_rrtm                                            &
   !$OMP      , overlap                                                    &
-  !$OMP      , ok_kzmin                                                   &
+  !$OMP      , ok_kzmin, ok_advtke                                        &
   !$OMP      , lev_histhf, lev_histday, lev_histmth                       &
-  !$OMP      , lev_histins, lev_histLES, lev_histdayNMC, levout_histNMC   &
-  !$OMP      , ok_histNMC                                                 &
+  !$OMP      , lev_histins, lev_histLES                                   &
   !$OMP      , type_run, ok_regdyn, ok_cosp, ok_airs                      &
   !$OMP      , ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP                     &