Changeset 4928 for LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

Timestamp:

May 2, 2024, 6:06:46 PM (7 months ago)

Author:

musat

Message:

Initialisation of ratqs_inter_ to 0.002 in phys_state_var_mod
Back to the old phyetat0_get_mod (because isnan doesn't work with
gfortran lmgz-cq)
IonelaMusat?

File:

• LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -772 +772 @@
       ALLOCATE(ale_bl_trig(klon))
       ALLOCATE(ratqs_inter_(klon,klev))
+      ratqs_inter_(:,:)=0.002
       IF (ok_gwd_rando) THEN
         ALLOCATE(du_gwd_rando(klon, klev))