Changeset 5204 for LMDZ6/trunk/libf/dynphy_lonlat

Timestamp:

Sep 20, 2024, 1:28:24 PM (3 months ago)

Author:

Laurent Fairhead

Message:

Integrating A.Borella's work on cirrus in the trunk

Location:

LMDZ6/trunk

Files:

• . (modified) (1 prop)
• libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

@@ -49 +49 @@
     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 ioipsl_getincom
   IMPLICIT NONE
@@ -242 +243 @@
   ale_wake=0.
   ale_bl_stat=0.
+
+  cf_ancien = 0.
+  rvc_ancien = 0.
   
   z0m(:,:)=0 ! ym missing 5th subsurface initialization
@@ -287 +291 @@
 
   ratqs_inter_ = 0.002
-  rneb_ancien = 0.
   CALL phyredem( "startphy.nc" )