Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/phylmd/dyn1d/compar1d.h

Timestamp:

Nov 21, 2019, 4:43:45 PM (5 years ago)

Author:

lguez

Message:

Merge revisions 3427:3600 of trunk into branch Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phylmd/dyn1d/compar1d.h (modified) (2 diffs)

LMDZ6/branches/Ocean_skin/libf/phylmd/dyn1d/compar1d.h

@@ -42 +42 @@
       integer :: tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh, trad
       integer :: forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar
-      real    :: nudging_u, nudging_v, nudging_w, nudging_t, nudging_q
+      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_w, forc_geo, forc_ustar,                  &
-     & nudging_u, nudging_v, nudging_t, nudging_q
+     & 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/)