Changeset 4613 for LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

Timestamp:

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

Author:

fhourdin

Message:

Integration/replay_isation travail Louis (ratqs)

File:

• LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

@@ -36 +36 @@
        zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, u10m, v10m, treedrg, &
        ale_wake, ale_bl_stat, ds_ns, dt_ns, delta_sst, delta_sal, dter, dser, &
-       dt_ds, ratqs_inter
+       dt_ds, ratqs_inter_
 !FC
   USE geometry_mod,     ONLY: longitude_deg, latitude_deg
@@ -510 +510 @@
 
 ! fisrtilp/Clouds 0.002 could be ratqsbas. But can stay like this as well
-  found=phyetat0_get(ratqs_inter,"RATQS_INTER","Relative width of the lsc sugrid scale water",0.002)
+  found=phyetat0_get(ratqs_inter_,"RATQS_INTER","Relative width of the lsc sugrid scale water",0.002)
 
 !===========================================