Changeset 3994 for LMDZ6/branches/LMDZ-tracers

Timestamp:

Oct 26, 2021, 3:41:14 PM (3 years ago)

Author:

dcugnet

Message:

Fix to make the 1D version run.

File:

• LMDZ6/branches/LMDZ-tracers/libf/phylmd/phys_state_var_mod.F90 (modified) (2 diffs)

LMDZ6/branches/LMDZ-tracers/libf/phylmd/phys_state_var_mod.F90

@@ -484 +484 @@
       ALLOCATE(falb2(klon,nbsrf))
 !albedo SB >>> 
-      print*, 'allocate falb'
       ALLOCATE(falb_dir(klon,nsw,nbsrf),falb_dif(klon,nsw,nbsrf))
+      falb_dir(:,:,:) = 0.
       print*, 'allocate falb good', falb_dir(1,1,1)
       ALLOCATE(chl_con(klon))
@@ -492 +492 @@
       ALLOCATE(snow_fall(klon))
       ALLOCATE(solsw(klon), solswfdiff(klon), sollw(klon))
+      solswfdiff(:) = 0.
+      print*,'allocate solswfdiff good',solswfdiff(1)
       sollw=0.0
       ALLOCATE(radsol(klon))