Changeset 3688 for LMDZ6/trunk

Timestamp:

May 29, 2020, 12:20:48 PM (4 years ago)

Author:

fhourdin

Message:

1D standard format
Fredho pour Marie-Pierre

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.F90

@@ -365 +365 @@
      &'temp','qv','ql','qi','u','v','tke','pressure',& ! #5-#12
      ! coordonnees pression + temps #42
-     &'w','omega','ug','vg','uadv','uadvh','uadvv','vadv','vadvh','vadvv','tadv','tadvh','tadvv',& !  #13 - #25
-     &'qvadv','qvadvh','qvadvv','thadv','thadvh','thadvv','thladvh',                             & ! #26 - #32
+     &'w','omega','ug','vg','uadv','uadvh','uadvv','vadv','vadvh','vadvv','temp_adv','tadvh','tadvv',& !  #13 - #25
+     &'qv_adv','qvadvh','qvadvv','thadv','thadvh','thadvv','thladvh',                             & ! #26 - #32
      & 'radv','radvh','radvv','radcool','q1','q2','ustress','vstress',                           & ! #33 - #40
      & 'rh','temp_nudging','qv_nudging','u_nudging','v_nudging',                                       & ! #41-45
@@ -394 +394 @@
 !-----------------------------------------------------------------------
 if ( 1 == 1 ) THEN
-            if ( name_var(i) == 'temp_nudaing' .and. nint(nudging_t)==0) stop 'Nudging inconsistency temp'
+! A MODIFIER: il faudrait dire nudging_temp mais faut le declarer dans compar1d.h etc...        
+!           if ( name_var(i) == 'temp_nudging' .and. nint(nudging_t)==0) stop 'Nudging inconsistency temp'
             if ( name_var(i) == 'qv_nudging' .and. nint(nudging_qv)==0) stop 'Nudging inconsistency qv'
             if ( name_var(i) == 'u_nudging' .and. nint(nudging_u)==0) stop 'Nudging inconsistency u'