Changeset 3780 for LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.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/old_lmdz1d.F90 (modified) (5 diffs)

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

@@ -728 +728 @@
 
 !Al1 pour SST forced, appell?? depuis ocean_forced_noice
-      ts_cur = tsurf ! SST used in read_tsurf1d
+! EV tg instead of ts_cur
+
+      tg = tsurf ! SST used in read_tsurf1d
 !=====================================================================
 ! Initialisation de la physique : 
@@ -791 +793 @@
 
         fder=0.
+        print *, 'snsrf', snsrf
         snsrf(1,:)=snowmass ! masse de neige des sous surface
         qsurfsrf(1,:)=qsurf ! humidite de l'air des sous surface
@@ -841 +844 @@
      end if
 
-
         print*,'nat_surf,pctsrf(1,is_oce),pctsrf(1,is_ter)',nat_surf         &
      &        ,pctsrf(1,is_oce),pctsrf(1,is_ter)
@@ -851 +853 @@
               ! 6 albedo, mais on peut quand meme tourner avec
               ! moins. Seules les 2 ou 4 premiers seront lus
+              print*, 'les albedos sont sont', albedo, falb_dir
         falb_dir=albedo
         falb_dif=albedo
+             print*, falb_dir
         rugoro=rugos 
         t_ancien(1,:)=temp(:)
@@ -913 +917 @@
         v_ancien(1,:)=v(:)
 
-u10m=0.
-v10m=0.
-ale_wake=0.
-ale_bl_stat=0.
+        u10m=0.
+        v10m=0.
+        ale_wake=0.
+        ale_bl_stat=0.
  
 !------------------------------------------------------------------------