Changeset 4219 for dynamico_lmdz


Ignore:
Timestamp:
Jan 7, 2020, 7:14:30 PM (5 years ago)
Author:
dubos
Message:

simple_physics : removed unused files

Location:
dynamico_lmdz/simple_physics/phyparam
Files:
3 deleted
2 edited

Legend:

Unmodified
Added
Removed

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

    r4216 r4219  
    1010      USE callkeys
    1111      use comgeomfi
    12       use comsaison
    1312      USE geometry_mod, ONLY : longitude,latitude,cell_area
    1413      USE phys_const, ONLY : planet_rad,g,r,cpp,rcp,dtphys,unjours,mugaz

  • dynamico_lmdz/simple_physics/phyparam/param/phyparam.F90

    r4215 r4219  
    361361       gmtime, zdtime, zday, pplev, pplay, pt, &
    362362       pdt, zdtlw, zfluxlw, zdtsw, zfluxsw, mu0)
    363     USE comsaison
    364363    USE planet
    365364    USE phys_const,   ONLY : planet_rad, unjours
    … …  
    377376         zdtsw(ngrid,nlayer), zfluxsw(ngrid), mu0(ngrid)
    378377    REAL, DIMENSION(ngrid) :: fract
    379     REAL :: zls, zinsol, tsurf2, ztim1,ztim2,ztim3
     378    REAL :: zls, zinsol, tsurf2, ztim1,ztim2,ztim3, dist_sol, declin
    380379    REAL :: zplanck(ngrid)
    381380    INTEGER :: ig, l
Note: See TracChangeset for help on using the changeset viewer.