Changeset 2716 for LMDZ5/trunk/libf/phylmd/dyn1d/compar1d.h

Timestamp:

Nov 28, 2016, 11:01:20 PM (8 years ago)

Author:

fhourdin

Message:

Inclusion du cas arm_cu2, avec les nouveaux formats de forçage 1D
(Marie-Pierre Lefebvre)

File:

• LMDZ5/trunk/libf/phylmd/dyn1d/compar1d.h (modified) (3 diffs)

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

@@ -32 +32 @@
       logical :: ok_old_disvert
 
+! Pour les forcages communs: ces entiers valent 0 ou 1
+! tadv= advection tempe, tadvv= adv tempe verticale, tadvh= adv tempe horizontale
+! idem pour l advection en theta
+! qadv= advection q, qadvv= adv q verticale, qadvh= adv q horizontale
+! trad= 0 (rayonnement actif) ou 1 (prescrit par tend_rad) ou adv (prescir et contenu dans les tadv)
+! forcages en omega, w, vent geostrophique ou ustar
+! Parametres de nudging en u,v,t,q valent 0 ou 1 ou le temps de nudging
+
+      integer :: tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh, trad
+      integer :: forc_omega, forc_w, forc_geo, forc_ustar
+      real    :: nudging_u, nudging_v, nudging_w, nudging_t, nudging_q
       common/com_par1d/                                                 &
      & nat_surf,tsurf,rugos,rugosh,                                     &
@@ -39 +50 @@
      & nudge_u,nudge_v,nudge_w,nudge_t,nudge_q,                         &
      & iflag_nudge,snowmass,                                            &
-     & restart,ok_old_disvert
+     & 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
 
 !$OMP THREADPRIVATE(/com_par1d/)
@@ -52 +66 @@
 
 
+