Ignore:
Timestamp:
Dec 20, 2019, 2:25:23 PM (6 years ago)
Author:
dubos
Message:

simple_physics : cleanup

Location:
dynamico_lmdz/simple_physics/phyparam/param
Files:
1 deleted
1 edited

Legend:

Unmodified
Added
Removed

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

    r4200 r4201  
    1414      USE astronomy
    1515      USE vdif_mod, ONLY : vdif
    16       USE solar, ONLY : solang
    17       USE radiative, ONLY : mucorr, sw
     16      USE solar, ONLY : solang, zenang, mucorr
     17      USE radiative_sw, ONLY : sw
    1818      USE radiative_lw, ONLY : lw
    1919
    … …  
    373373         else
    374374               zdtime=ptimestep*float(iradia)
    375                CALL zenang(zls,gmtime,zdtime,lati,long,mu0,fract)
     375               CALL zenang(ngrid,zls,gmtime,zdtime,lati,long,mu0,fract)
    376376           print*,'ZENANG '
    377377         endif
Note: See TracChangeset for help on using the changeset viewer.