Changeset 4933


Ignore:
Timestamp:
May 4, 2024, 1:03:50 PM (2 weeks ago)
Author:
Laurent Fairhead
Message:

Putting the initialisation in a more judicious place

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/dyn1d/scm.F90

    r4744 r4933  
    1616       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, ql_ancien, qs_ancien, &
    1717       prlw_ancien, prsw_ancien, prw_ancien, &
    18        u10m,v10m,ale_wake,ale_bl_stat
     18       u10m,v10m,ale_wake,ale_bl_stat, ratqs_inter_
    1919
    2020 
    … …  
    685685        ale_wake=0.
    686686        ale_bl_stat=0.
     687        ratqs_inter_(:,:)= 0.002
    687688
    688689!------------------------------------------------------------------------

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

    r4932 r4933  
    772772      ALLOCATE(ale_bl_trig(klon))
    773773      ALLOCATE(ratqs_inter_(klon,klev))
    774       ratqs_inter_(:,:)=0.
    775774      IF (ok_gwd_rando) THEN
    776775        ALLOCATE(du_gwd_rando(klon, klev))
Note: See TracChangeset for help on using the changeset viewer.