Ignore:
Timestamp:
Oct 26, 2021, 3:41:14 PM (3 years ago)
Author:
dcugnet
Message:

Fix to make the 1D version run.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/LMDZ-tracers/libf/phylmd/phys_state_var_mod.F90

    r3851 r3994  
    484484      ALLOCATE(falb2(klon,nbsrf))
    485485!albedo SB >>>
    486       print*, 'allocate falb'
    487486      ALLOCATE(falb_dir(klon,nsw,nbsrf),falb_dif(klon,nsw,nbsrf))
     487      falb_dir(:,:,:) = 0.
    488488      print*, 'allocate falb good', falb_dir(1,1,1)
    489489      ALLOCATE(chl_con(klon))
     
    492492      ALLOCATE(snow_fall(klon))
    493493      ALLOCATE(solsw(klon), solswfdiff(klon), sollw(klon))
     494      solswfdiff(:) = 0.
     495      print*,'allocate solswfdiff good',solswfdiff(1)
    494496      sollw=0.0
    495497      ALLOCATE(radsol(klon))
Note: See TracChangeset for help on using the changeset viewer.