Ignore:
Timestamp:
Nov 12, 2018, 1:52:29 PM (6 years ago)
Author:
Laurent Fairhead
Message:

Inclusion of Yann's latest (summer/fall 2018) modifications for
convergence of DYNAMICO/LMDZ physics
YM/LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/DYNAMICO-conv/libf/phylmd/radlwsw_m.F90

    r3411 r3413  
    385385  lldebug=.FALSE.
    386386
     387  ztopsw_aero(:,:)  = 0. !ym missing init : warning : not initialized in SW_AEROAR4
     388  ztopsw0_aero(:,:) = 0. !ym missing init : warning : not initialized in SW_AEROAR4
     389  zsolsw_aero(:,:)  = 0. !ym missing init : warning : not initialized in SW_AEROAR4
     390  zsolsw0_aero(:,:) = 0. !ym missing init : warning : not initialized in SW_AEROAR4
    387391 
    388392  !
    … …  
    597601      ztopswaiaero(i)=0.
    598602      zsolswaiaero(i)=0.
    599       ztopsw_aero(i,:)  = 0. !ym missing init : warning : not initialized in SW_AEROAR4
    600       ztopsw0_aero(i,:) = 0. !ym missing init : warning : not initialized in SW_AEROAR4
    601       zsolsw_aero(i,:)  = 0. !ym missing init : warning : not initialized in SW_AEROAR4
    602       zsolsw0_aero(i,:) = 0. !ym missing init : warning : not initialized in SW_AEROAR4
    603603      ENDDO
    604604!     print *,'Avant SW_LMDAR4: PSCT zrmu0 zfract',PSCT, zrmu0, zfract
Note: See TracChangeset for help on using the changeset viewer.