Ignore:
Timestamp:
Dec 19, 2019, 11:18:28 PM (6 years ago)
Author:
dubos
Message:

simple_physics : cleanup

Location:
dynamico_lmdz/simple_physics/phyparam/param
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r4184 r4189  
    1111      use comsaison
    1212      USE geometry_mod, ONLY : longitude,latitude,cell_area
    13       USE phys_const
    14       USE planet
    15 
     13      USE phys_const, ONLY : pi,rad,g,r,cpp,rcp,dtphys,unjours,mugaz
     14      USE planet, ONLY : coefir, coefvis
     15      USE planet, ONLY : aphelie, periheli, peri_day, obliquit, year_day
     16      USE vdif_mod, ONLY : lmixmin, emin_turb
    1617      IMPLICIT NONE
    1718

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

    r4184 r4189  
    11      SUBROUTINE paramdef(ngrid,rnatur,albedo,inertie,emissiv,z0)
    2       USE  comgeomfi, ONLY : lati,sinlat,coslat
    3       USE planet
     2      USE comgeomfi, ONLY : lati,sinlat,coslat
     3      USE vdif_mod, ONLY : lmixmin, emin_turb
     4      USE planet, ONLY : coefir, coefvis
     5      USE planet, ONLY : aphelie, periheli, obliquit, peri_day, year_day
    46      IMPLICIT NONE
    57c-----------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.