Changeset 5562 for LMDZ6

Timestamp:

Feb 25, 2025, 7:36:06 PM (3 months ago)

Author:

Laurent Fairhead

Message:

forgot isotopic version as usual

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (4 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, ACAMA_GWD_rando_first
+    USE ACAMA_GWD_rando_m, only: ACAMA_GWD_rando
     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, FLOTT_GWD_rando_first
+    USE FLOTT_GWD_rando_m, only: FLOTT_GWD_rando
     USE fonte_neige_mod, ONLY  : fonte_neige_get_vars
     USE geometry_mod, ONLY: cell_area, latitude_deg, longitude_deg
@@ -6413 +6413 @@
     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, &
@@ -6436 +6435 @@
 
     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, &