Changeset 608 for trunk/LMDZ.MARS/libf
- Timestamp:
- Mar 31, 2012, 2:12:55 PM (13 years ago)
- Location:
- trunk/LMDZ.MARS/libf/phymars
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/physiq.F
r577 r608 1658 1658 wco2ice(1:ngrid) = co2ice(1:ngrid) !! co2 ice 1659 1659 mtot(1:ngrid) = mtot(1:ngrid) * 1.e6 / rho_ice 1660 icetot(1:ngrid) = icetot(1:ngrid) * 1.e6 / rho_ice 1660 1661 !! JF 1661 1662 TAU_lay(:)=tau(:,1)!!true opacity (not a reference like tauref) -
trunk/LMDZ.MARS/libf/phymars/solarlong.F
r38 r608 61 61 c ------------------------------------------------------- 62 62 63 c Initialisation eventuelle:64 if(.not.unitastr.gt.1.e-4) then65 call iniorbit(249.22,206.66,669.,485.,25.2)66 endif67 68 63 c calcul de l'zanomalie moyenne 69 64
Note: See TracChangeset
for help on using the changeset viewer.