Changeset 2764 for LMDZ5/trunk

Timestamp:

Jan 18, 2017, 4:03:10 PM (8 years ago)

Author:

lguez

Message:

Split lines that were too long. (132 characters at most in Fortran

95. Those lines produced a compilation error with gfortran.)

File:

• LMDZ5/trunk/libf/phylmd/dyn1d/mod_1D_cases_read2.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/dyn1d/mod_1D_cases_read2.F90

@@ -241 +241 @@
         allocate(z_cas(nlev_cas,nt_cas),zh_cas(nlev_cas+1))
         allocate(ap_cas(nlev_cas+1),bp_cas(nt_cas+1))
-        allocate(t_cas(nlev_cas,nt_cas),q_cas(nlev_cas,nt_cas),qv_cas(nlev_cas,nt_cas),ql_cas(nlev_cas,nt_cas),qi_cas(nlev_cas,nt_cas),rh_cas(nlev_cas,nt_cas))
+        allocate(t_cas(nlev_cas,nt_cas),q_cas(nlev_cas,nt_cas),qv_cas(nlev_cas,nt_cas),ql_cas(nlev_cas,nt_cas), &
+             qi_cas(nlev_cas,nt_cas),rh_cas(nlev_cas,nt_cas))
         allocate(th_cas(nlev_cas,nt_cas),thl_cas(nlev_cas,nt_cas),thv_cas(nlev_cas,nt_cas),rv_cas(nlev_cas,nt_cas))
         allocate(u_cas(nlev_cas,nt_cas),v_cas(nlev_cas,nt_cas),vitw_cas(nlev_cas,nt_cas),omega_cas(nlev_cas,nt_cas))
@@ -545 +546 @@
       data name_var/'coor_par_a','coor_par_b','height_h','pressure_h',&
      &'w','omega','ug','vg','uadv','uadvh','uadvv','vadv','vadvh','vadvv','tadv','tadvh','tadvv',&
-     &'qadv','qadvh','qadvv','thadv','thadvh','thadvv','thladvh','radv','radvh','radvv','radcool','q1','q2','ustress','vstress','rh',&
+     &'qadv','qadvh','qadvv','thadv','thadvh','thadvv','thladvh','radv','radvh','radvv','radcool','q1','q2','ustress','vstress', &
+     'rh',&
      &'height_f','pressure_f','temp','theta','thv','thl','qv','ql','qi','rv','u','v',&
      &'sfc_sens_flx','sfc_lat_flx','ts','ps','ustar','tke',&