Changeset 5139 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_routines_mod.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/phylmdiso/isotopes_routines_mod.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_routines_mod.F90

@@ -15720 +15720 @@
         iso_HTO
         USE lmdz_clesphys
+        USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
 #ifdef ISOVERIF
   USE isotopes_verif_mod
@@ -15728 +15729 @@
 
  include "dimsoil.h"
- include "compbl.h"
 
 !#ifdef ISOVERIF
@@ -15894 +15894 @@
 &       Rdefault,iso_O17,ridicule,ridicule_qsol
 USE lmdz_clesphys
+USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
 #ifdef ISOVERIF
   USE isotopes_verif_mod
@@ -15903 +15904 @@
 
  include "dimsoil.h"
- include "compbl.h"
 
         ! arguments  
@@ -16275 +16275 @@
 #endif
 USE lmdz_clesphys
+USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
+
    IMPLICIT NONE
 
  include "dimsoil.h"
- include "compbl.h"
 
    REAL, INTENT(IN) ::             snow     (klon,nbsrf)