Changeset 3781 for LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90

Timestamp:

Oct 26, 2020, 10:33:06 AM (4 years ago)

Author:

evignon

Message:

Initialisation de la TKE pour les cas 1D (important pour GABLS1), Etienne

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90 (modified) (2 diffs)

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

@@ -632 +632 @@
 !          (phys_state_var_init is called again in physiq)
       read_climoz = 0
-!
+      nsw=6          ! EV et LF: sinon, falb_dir et falb_dif ne peuvent etre alloues
+
+
       call phys_state_var_init(read_climoz)
 
@@ -850 +852 @@
         zpic = zpicinp
         ftsol=tsurf
-        nsw=6 ! on met le nb de bandes SW=6, pour initialiser
-              ! 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(:)