Changeset 3780 for LMDZ6/trunk/libf/phylmd/dyn1d/1D_read_forc_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_read_forc_cases.h (modified) (2 diffs)

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

@@ -70 +70 @@
 
 ! initial and boundary conditions :
-!      tsurf = ts_prof_cas
+!     tsurf = ts_prof_cas
       psurf = ps_prof_cas
-      ts_cur = ts_prof_cas 
+      !EV tg instead of ts_cur
+      tg = ts_prof_cas 
+      print*, 'tg=', tg
+
       do l = 1, llm
        temp(l) = t_mod_cas(l)
@@ -108 +111 @@
        IF (ok_prescr_ust) THEN
        ust=ustar_prof_cas
-       print *,'ust=',ust
        ENDIF
 
+
       endif !forcing_SCM