Changeset 3593 for LMDZ6/trunk/libf/phylmd/dyn1d/old_1D_interp_cases.h

Timestamp:

Oct 28, 2019, 5:35:54 PM (5 years ago)

Author:

fhourdin

Message:

Significant progress for the SCM standard format

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/old_1D_interp_cases.h (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/dyn1d/old_1D_interp_cases.h

@@ -957 +957 @@
         enddo
       endif
-      if (nudging_q.gt.0.) then
+      if (nudging_qv.gt.0.) then
         do l=1,llm
            q(l,1)=q(l,1)+timestep*(q_mod_cas(l)-q(l,1))/(nudge_q)