Changeset 5224 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat

Timestamp:

Sep 24, 2024, 10:47:17 AM (2 months ago)

Author:

abarral

Message:

Merge r5204 r5205
Light lint
Correct missing IOIPSL includes

File:

• LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

@@ -48 +48 @@
           prw_ancien, u10m, v10m, treedrg, u_ancien, v_ancien, wake_delta_pbl_TKE, wake_dens, &
           ale_bl, ale_bl_trig, alp_bl, &
-          ale_wake, ale_bl_stat, AWAKE_S
+          ale_wake, ale_bl_stat, AWAKE_S, &
+          cf_ancien, rvc_ancien
 
   USE comconst_mod, ONLY: pi, dtvr
@@ -94 +95 @@
     USE init_ssrf_m, ONLY: start_init_subsurf
     USE phys_state_var_mod, ONLY: beta_aridity, delta_tsurf, awake_dens, cv_gen, &
-            ratqs_inter_, rneb_ancien
+            ratqs_inter_
     USE lmdz_alpale
     USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
@@ -246 +247 @@
     ale_bl_stat = 0.
 
+    cf_ancien = 0.
+    rvc_ancien = 0.
+
     z0m(:, :) = 0 ! ym missing 5th subsurface initialization
 
@@ -290 +294 @@
 
     ratqs_inter_ = 0.002
-    rneb_ancien = 0.
     CALL phyredem("startphy.nc")