Changeset 4781

Timestamp:

Dec 21, 2023, 10:31:21 PM (5 months ago)

Author:

evignon

Message:

petite correction commit precedent

File:

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

LMDZ6/trunk/libf/phylmd/lmdz_atke_turbulence_ini.F90

@@ -140 +140 @@
   pr_asym=0.4
   CALL getin_p('atke_pr_asym',pr_asym)
-  if (pr_asym .le. pr_neut) then
+  if (pr_asym .ge. pr_neut) then
         call abort_physic("atke_turbulence_ini", &
-        'pr_asym must be be greater than pr_neut', 1)
+        'pr_asym must be be lower than pr_neut', 1)
   endif