Changeset 5139 for LMDZ6/branches/Amaury_dev/libf/phylmd/pbl_surface_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/phylmd/pbl_surface_mod.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/pbl_surface_mod.F90

@@ -415 +415 @@
     USE netcdf, ONLY: missing_val_netcdf => nf90_fill_real
   USE lmdz_clesphys
+  USE lmdz_flux_arp, ONLY: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
+  USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
 
     IMPLICIT NONE
@@ -422 +424 @@
     INCLUDE "YOETHF.h"
     INCLUDE "FCTTRE.h"
-    INCLUDE "compbl.h"
-    INCLUDE "flux_arp.h"
     !FC
     INCLUDE "dimpft.h"
@@ -4273 +4273 @@
     USE config_ocean_skin_m, ONLY: activate_ocean_skin
   USE lmdz_clesphys
+  USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
 
     INCLUDE "dimsoil.h"
-    INCLUDE "compbl.h"
 
     ! Input variables