Changeset 4291

Timestamp:

Oct 3, 2022, 3:04:24 PM (20 months ago)

Author:

evignon

Message:

add initialisation of ice specific content for 1D cases (missing so far)

File:

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

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

@@ -77 +77 @@
       !EV tg instead of ts_cur
       tg = ts_prof_cas 
-      print*, 'tg=', tg
 
       do l = 1, llm
@@ -83 +82 @@
        q(l,1) = qv_mod_cas(l)
        q(l,2) = ql_mod_cas(l)
+       q(l,3) = qi_mod_cas(l)
        u(l) = u_mod_cas(l)
        ug(l)= ug_mod_cas(l)