Ignore:
Timestamp:
Dec 19, 2019, 4:10:45 PM (5 years ago)
Author:
dubos
Message:

simple_physics : ongoing cleanup

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

Legend:

Unmodified
Added
Removed

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

    r4176 r4182  
    5050c   -------------
    5151 
    52 #include "comcstphy.h"
    5352      REAL prad,pg,pr,pcpp,punjours
    5453 
    … …  
    10099!     call suphel
    101100!     prad,pg,pr,pcpp
    102       rradius=prad
    103       rg=pg
    104       rr=pr
    105       rcpp=pcpp
     101!      rradius=prad
     102!      rg=pg
     103!      rr=pr
     104!      rcpp=pcpp
    106105
    107106!     return
Note: See TracChangeset for help on using the changeset viewer.