Changeset 3780 for LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.F90

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/mod_1D_cases_read_std.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.F90

@@ -92 +92 @@
       REAL, ALLOCATABLE :: time_val(:)
 
-      print*,'ON EST VRAIMENT LA'
+      print*,'ON EST VRAIMENT DASN MOD_1D_CASES_READ_STD'
       fich_cas='cas.nc'
       print*,'fich_cas ',fich_cas
@@ -924 +924 @@
 !      enddo
 
+!       print*, 'plev_prof_cas', plev_prof_cas
+!       print*, 'play', play
        do l = 1, llm
 
@@ -951 +953 @@
 
          frac = (plev_prof_cas(k2)-play(l))/(plev_prof_cas(k2)-plev_prof_cas(k1))
+         
          t_mod_cas(l)= t_prof_cas(k2) - frac*(t_prof_cas(k2)-t_prof_cas(k1))
          theta_mod_cas(l)= th_prof_cas(k2) - frac*(th_prof_cas(k2)-th_prof_cas(k1))
@@ -1075 +1078 @@
        enddo ! l
 
+
           return
           end SUBROUTINE interp2_case_vertical_std