Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/old_1D_interp_cases.h

Timestamp:

Jul 22, 2024, 9:29:09 PM (6 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/old_1D_interp_cases.h (modified) (7 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/old_1D_interp_cases.h

@@ -1 @@
-!
+
 ! $Id: 1D_interp_cases.h 3537 2019-06-19 08:29:16Z fhourdin $
-!
+
 !---------------------------------------------------------------------
 ! Forcing_LES case: constant dq_dyn
@@ -552 +552 @@
 
        alpha = rd*temp(l)*(1.+(rv/rd-1.)*q(l,1))/play(l)
-!
+
 !      d_t_adv(l) = 0.0
 !      d_q_adv(l,1) = 0.0
@@ -634 +634 @@
 
        alpha = rd*temp(l)*(1.+(rv/rd-1.)*q(l,1))/play(l)
-!
+
 !      d_t_adv(l) = 0.0
 !      d_q_adv(l,1) = 0.0
@@ -813 +813 @@
        flat=lat_prof_cas
       ENDIF
-!
+
       IF (ok_prescr_ust) THEN
        ust=ustar_prof_cas
@@ -841 +841 @@
      &       ,dq_cas,hq_cas,vq_cas,dth_cas,hth_cas,vth_cas,lat_cas,sens_cas,ustar_cas       &
      &       ,uw_cas,vw_cas,q1_cas,q2_cas,tke_cas                                           &
-!
+
      &       ,ts_prof_cas,plev_prof_cas,t_prof_cas,theta_prof_cas,thv_prof_cas  &
      &       ,thl_prof_cas,qv_prof_cas,ql_prof_cas,qi_prof_cas                              &
@@ -864 +864 @@
      &         ,dt_prof_cas,ht_prof_cas,vt_prof_cas,dtrad_prof_cas,dq_prof_cas,hq_prof_cas,vq_prof_cas    &
      &         ,dth_prof_cas,hth_prof_cas,vth_prof_cas                                                    &
-!
+
      &         ,t_mod_cas,theta_mod_cas,thv_mod_cas,thl_mod_cas,qv_mod_cas,ql_mod_cas,qi_mod_cas          &
      &         ,u_mod_cas,v_mod_cas,ug_mod_cas,vg_mod_cas,w_mod_cas,omega_mod_cas                         &
@@ -1024 +1024 @@
        print *,'1D_interp: sens,flat',fsens,flat
       ENDIF
-!
+
       IF (ok_prescr_ust) THEN
        ust=ustar_prof_cas