Changeset 5680 for LMDZ6


Ignore:
Timestamp:
May 25, 2025, 3:25:26 PM (2 weeks ago)
Author:
Laurent Fairhead
Message:

Forgot intiialisation and a phylmdiso link

Location:
LMDZ6/trunk/libf
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed

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

    r5677 r5680  
    698698!FC
    699699      ALLOCATE(lwtoab(klon,nbands_lw_rrtm), lwtoa0b(klon,nbands_lw_rrtm))
     700      lwtoab(:,:)=0.0
     701      lwtoa0b(:,:)=0.0
    700702      ALLOCATE(lwtoab_s2(klon,nbands_lw_rrtm), lwtoa0b_s2(klon,nbands_lw_rrtm))
     703      lwtoab_s2(:,:)=0.0
     704      lwtoa0b_s2(:,:)=0.0
    701705      ALLOCATE(lwtoabp(klon,nbands_lw_rrtm), lwtoa0bp(klon,nbands_lw_rrtm))
     706      lwtoabp(:,:)=0.0
     707      lwtoa0bp(:,:)=0.0
    702708!FC
    703709      ALLOCATE(swdnc0(klon,klevp1), swdn0(klon,klevp1), swdn(klon,klevp1))
Note: See TracChangeset for help on using the changeset viewer.