Changeset 3594 for LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.F90

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/mod_1D_cases_read_std.F90 (modified) (2 diffs)

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

@@ -393 +393 @@
 ! Activation de quelques cles en fonction des variables disponibles
 !-----------------------------------------------------------------------
+if ( 1 == 0 ) 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'
+    ELSE
+             print*,'GUIDAGE : CONSISTENCY CHECK DEACTIVATED FOR TESTS of SANDU/REF'
+    ENDIF
 
 !-----------------------------------------------------------------------
@@ -714 +718 @@
        time_cas1=(it_cas1-1)*pdt_cas
        time_cas2=(it_cas2-1)*pdt_cas
-      print *,'timeit,pdt_cas,nt_cas=',timeit,pdt_cas,nt_cas
-      print *,'it_cas1,it_cas2,time_cas1,time_cas2=',it_cas1,it_cas2,time_cas1,time_cas2
+!     print *,'timeit,pdt_cas,nt_cas=',timeit,pdt_cas,nt_cas
+!     print *,'it_cas1,it_cas2,time_cas1,time_cas2=',it_cas1,it_cas2,time_cas1,time_cas2
 
        if (it_cas1 .gt. nt_cas) then