Ignore:
Timestamp:
Dec 20, 2019, 12:56:43 AM (5 years ago)
Author:
dubos
Message:

simple_physics : cleanup astronomy

File:
1 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/simple_physics/phyparam/param/sw.F

    r4183 r4192  
    204204
    205205      IF (ldiurn) THEN
    206          CALL zerophys(ngrid,fsrfvis)
     206         fsrfvis(:)=0.
    207207         CALL monscatter(ncount,fsrfvis,index,zflux)
    208          CALL zerophys(ngrid*nlayer,dtsw)
     208         dtsw(:,:)=0.
    209209         DO l=1,nlayer
    210210            CALL monscatter(ncount,dtsw(1,l),index,zdtsw(1,l))
Note: See TracChangeset for help on using the changeset viewer.