Changeset 5516

Timestamp:

Jan 29, 2025, 12:19:38 PM (30 hours ago)

Author:

yann meurdesoif

Message:

Report modification in phylmd to phylmd iso
YM

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• calltherm.F90 (deleted)
• calltherm_mod.F90 (added)
• physiq_mod.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -20 +20 @@
 ! PLEASE try to follow this rule 
 
-    USE ACAMA_GWD_rando_m, only: ACAMA_GWD_rando
+    USE ACAMA_GWD_rando_m, only: ACAMA_GWD_rando, ACAMA_GWD_rando_first
     USE aero_mod
     USE add_phys_tend_mod, only : add_pbl_tend, add_phys_tend, diag_phys_tend, prt_enerbil, &
@@ -32 +32 @@
     USE dimphy
     USE etat0_limit_unstruct_mod
-    USE FLOTT_GWD_rando_m, only: FLOTT_GWD_rando
+    USE FLOTT_GWD_rando_m, only: FLOTT_GWD_rando, FLOTT_GWD_rando_first
     USE fonte_neige_mod, ONLY  : fonte_neige_get_vars
     USE geometry_mod, ONLY: cell_area, latitude_deg, longitude_deg
@@ -83 +83 @@
     USE lmdz_atke_turbulence_ini, ONLY : atke_ini
     USE lmdz_thermcell_ini, ONLY : thermcell_ini, iflag_thermals_tenv
+    USE calltherm_mod, ONLY : calltherm
     USE lmdz_thermcell_dtke, ONLY : thermcell_dtke
     USE lmdz_blowing_snow_ini, ONLY : blowing_snow_ini , qbst_bs 
@@ -4732 +4733 @@
           endif
 
-          CALL calltherm(pdtphys &
+          CALL calltherm(itap, pdtphys &
                ,pplay,paprs,pphi,weak_inversion &
                         ! ,u_seri,v_seri,t_seri,q_seri,zqsat,debut & !jyg
@@ -6409 +6410 @@
     IF (.not. ok_hines .and. ok_gwd_rando) then
        ! ym missing init for east_gwstress & west_gwstress -> added in phys_local_var_mod
+       CALL acama_GWD_rando_first()
        CALL acama_GWD_rando(PHYS_TSTEP, pplay, latitude_deg, t_seri, u_seri, &
             v_seri, rot, zustr_gwd_front, zvstr_gwd_front, du_gwd_front, &
@@ -6431 +6433 @@
 
     IF (ok_gwd_rando) THEN
+       CALL FLOTT_GWD_rando_first()
        CALL FLOTT_GWD_rando(PHYS_TSTEP, pplay, t_seri, u_seri, v_seri, &
             rain_fall + snow_fall, zustr_gwd_rando, zvstr_gwd_rando, &