Changeset 3594 for LMDZ6/trunk/libf/phylmd/dyn1d/compar1d.h

Timestamp:

Oct 29, 2019, 7:32:03 AM (5 years ago)

Author:

fhourdin

Message:

Improvement for SCM standard format

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/compar1d.h (modified) (2 diffs)

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

@@ -43 +43 @@
       integer :: forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar
       real    :: nudging_u, nudging_v, nudging_w, nudging_t, nudging_qv
+      real    :: p_nudging_u, p_nudging_v, p_nudging_w, p_nudging_t, p_nudging_qv
       common/com_par1d/                                                 &
      & nat_surf,tsurf,rugos,rugosh,                                     &
@@ -52 +53 @@
      & restart,ok_old_disvert,                                          &
      & tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh,   &
-     & trad, forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar,                  &
-     & nudging_u, nudging_v, nudging_t, nudging_qv, nudging_w
+     & trad, forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar,  &
+     & nudging_u, nudging_v, nudging_t, nudging_qv, nudging_w,          &
+     & p_nudging_u, p_nudging_v, p_nudging_t, p_nudging_qv, p_nudging_w
 
 !$OMP THREADPRIVATE(/com_par1d/)