Changeset 3669

Timestamp:

Apr 23, 2020, 2:03:47 AM (4 years ago)

Author:

fhourdin

Message:

Traitement du guidage pour le format standard
Marie-Pierre et Frédéric

File:

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

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

@@ -368 +368 @@
      &'qvadv','qvadvh','qvadvv','thadv','thadvh','thadvv','thladvh',                             & ! #26 - #32
      & 'radv','radvh','radvv','radcool','q1','q2','ustress','vstress',                           & ! #33 - #40
-     & 'rh','temp_nudg','qv_nudg','u_nudg','v_nudg',                                             & ! #41-45
+     & 'rh','temp_nudging','qv_nudging','u_nudging','v_nudging',                                       & ! #41-45
      &'height_f','pressure_forc','tempt','theta','thv','thl','qvt','qlt','qit','rv','ut','vt',   & ! #46-58
      ! coordonnees temps #12
@@ -394 +394 @@
 !-----------------------------------------------------------------------
 if ( 1 == 1 ) THEN
-            if ( name_var(i) == 'temp_nudg' .and. nint(nudging_t)==0) stop 'Nudging inconsistency temp'
-            if ( name_var(i) == 'qv_nudg' .and. nint(nudging_qv)==0) stop 'Nudging inconsistency qv'
-            if ( name_var(i) == 'u_nudg' .and. nint(nudging_u)==0) stop 'Nudging inconsistency u'
-            if ( name_var(i) == 'v_nudg' .and. nint(nudging_u)==0) stop 'Nudging inconsistency v'
+            if ( name_var(i) == 'temp_nudaing' .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'
+            if ( name_var(i) == 'v_nudging' .and. nint(nudging_u)==0) stop 'Nudging inconsistency v'
     ELSE
              print*,'GUIDAGE : CONSISTENCY CHECK DEACTIVATED FOR TESTS of SANDU/REF'
@@ -1046 +1046 @@
          ug_mod_cas(l)= ug_prof_cas(nlev_cas)                          !jyg
          vg_mod_cas(l)= vg_prof_cas(nlev_cas)                          !jyg
-         temp_nudg_mod_cas(l)= temp_nudg_prof_cas(nlev_cas)                          !jyg
-         qv_nudg_mod_cas(l)= qv_nudg_prof_cas(nlev_cas)                          !jyg
-         u_nudg_mod_cas(l)= u_nudg_prof_cas(nlev_cas)                          !jyg
-         v_nudg_mod_cas(l)= v_nudg_prof_cas(nlev_cas)                          !jyg
+         temp_nudg_mod_cas(l)= temp_nudg_prof_cas(nlev_cas)            !jyg
+         qv_nudg_mod_cas(l)= qv_nudg_prof_cas(nlev_cas)                !jyg
+         u_nudg_mod_cas(l)= u_nudg_prof_cas(nlev_cas)                  !jyg
+         v_nudg_mod_cas(l)= v_nudg_prof_cas(nlev_cas)                  !jyg
          thv_mod_cas(l)= thv_prof_cas(nlev_cas)                        !jyg
          w_mod_cas(l)= 0.0                                             !jyg