Changeset 4613 for LMDZ6/trunk/libf/phylmdiso/phyredem.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/phyredem.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/phyredem.F90

@@ -30 +30 @@
                                 du_gwd_rando, du_gwd_front, u10m, v10m, &
                                 treedrg, solswfdiff, delta_sal, ds_ns, dt_ns, &
-                                delta_sst, ratqs_inter, dter, dser, dt_ds
+                                delta_sst, ratqs_inter_, dter, dser, dt_ds
 #ifdef ISO
   USE phys_state_var_mod, ONLY: xtsol, fxtevap,xtrain_fall, xtsnow_fall,     &
@@ -347 +347 @@
 
     ! fisrtilp/clouds
-    CALL put_field(pass,"RATQS_INTER","Relative width of the lsc sugrid scale water",ratqs_inter)
+    CALL put_field(pass,"RATQS_INTER","Relative width of the lsc sugrid scale water",ratqs_inter_)