Changeset 3780 for LMDZ6/trunk/libf/phylmd/dyn1d/1D_interp_cases.h

Timestamp:

Oct 22, 2020, 2:50:18 PM (4 years ago)

Author:

evignon

Message:

Premiere comission Etienne: changements pour le 1D (forcage en Ts au dessus des continents) et inclusion drag arbres dans yamada4_num=6

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/1D_interp_cases.h (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/1D_interp_cases.h

@@ -1 +1 @@
 
-         print*,'FORCING CASE forcing_case2'
+        print*,'FORCING CASE forcing_case2'
 !       print*,                                                             &
 !    & '#### ITAP,day,day1,(day-day1)*86400,(day-day1)*86400/pdt_cas=',     &
@@ -28 +28 @@
      &       ,dth_prof_cas,hth_prof_cas,vth_prof_cas,lat_prof_cas                           &
      &       ,sens_prof_cas,ustar_prof_cas,uw_prof_cas,vw_prof_cas,q1_prof_cas,q2_prof_cas,tke_prof_cas)
-
-             ts_cur = ts_prof_cas 
+! EV tg instead of ts_cur
+             tg = ts_prof_cas 
 !            psurf=plev_prof_cas(1)
              psurf=ps_prof_cas