Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

    r3780 r3781  
    449449
    450450include "clesphys.h"
     451
     452      print*, 'is_initialized', is_initialized
    451453      IF (is_initialized) RETURN
    452454      is_initialized=.TRUE.
    … …  
    460462      ALLOCATE(falb2(klon,nbsrf))
    461463!albedo SB >>>
     464      print*, 'allocate falb'
    462465      ALLOCATE(falb_dir(klon,nsw,nbsrf),falb_dif(klon,nsw,nbsrf))
     466      print*, 'allocate falb good', falb_dir(1,1,1)
    463467      ALLOCATE(chl_con(klon))
    464468!albedo SB <<<
Note: See TracChangeset for help on using the changeset viewer.