Changeset 3780 for LMDZ6/trunk/libf/phylmd/dyn1d/old_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/old_1D_read_forc_cases.h (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/old_1D_read_forc_cases.h

@@ -875 +875 @@
 
 ! initial and boundary conditions :
-!      tsurf = ts_prof_cas
-      ts_cur = ts_prof_cas 
+!     tsurf = ts_prof_cas
+! EV tg instead of ts_cur
+      tg= ts_prof_cas 
       psurf=plev_prof_cas(1)
       write(*,*) 'SST initiale: ',tsurf
@@ -965 +966 @@
 ! initial and boundary conditions :
 !      tsurf = ts_prof_cas
-      ts_cur = ts_prof_cas 
+! EV tg instead of ts_cur
+      tg = ts_prof_cas 
       psurf=plev_prof_cas(1)
       write(*,*) 'SST initiale: ',tsurf
@@ -1063 +1065 @@
 ! initial and boundary conditions :
 !      tsurf = ts_prof_cas
-      ts_cur = ts_prof_cas 
+! EV tg instead of ts_cur
+
+      tg = ts_prof_cas 
       psurf=plev_prof_cas(1)
       write(*,*) 'SST initiale: ',tsurf