Changeset 4613 for LMDZ6/trunk/libf/dynphy_lonlat

Timestamp:

Jul 7, 2023, 4:01:37 AM (15 months ago)

Author:

fhourdin

Message:

Integration/replay_isation travail Louis (ratqs)

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90 (modified) (3 diffs)

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

@@ -94 +94 @@
   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_, rneb_ancien
   !use ioipsl_getincom
   IMPLICIT NONE
@@ -143 +143 @@
                    fact_cldcon, facttemps,ok_newmicro,iflag_radia,      &
                    iflag_cldcon,                                        &
-                   iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs,            &
+                   ratqsbas,ratqshaut,tau_ratqs,            &
                    ok_ade, ok_aie, ok_alw, ok_cdnc, ok_volcan, flag_volc_surfstrat,     &
                    aerosol_couple, chemistry_couple, flag_aerosol, flag_aerosol_strat,  & 
@@ -285 +285 @@
   end IF
 
-  ratqs_inter = 0.002
+  ratqs_inter_ = 0.002
   rneb_ancien = 0.
   CALL phyredem( "startphy.nc" )