Changeset 668


Ignore:
Timestamp:
May 23, 2012, 9:00:03 PM (13 years ago)
Author:
acolaitis
Message:

moved if loop in a more conservative place for mesoscale simulations

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/physiq.F

    r667 r668  
    16371637      !!!
    16381638      wtsurf(1:ngrid) = tsurf(1:ngrid)    !! surface temperature
     1639      wco2ice(1:ngrid) = co2ice(1:ngrid)  !! co2 ice
     1640      TAU_lay(:)=tau(:,1)!!true opacity (not a reference like tauref)
    16391641      IF (tracer) THEN
    1640       wco2ice(1:ngrid) = co2ice(1:ngrid)  !! co2 ice
    16411642      mtot(1:ngrid) = mtot(1:ngrid) * 1.e6 / rho_ice
    16421643      icetot(1:ngrid) = icetot(1:ngrid) * 1.e6 / rho_ice
    16431644      !! JF
    1644       TAU_lay(:)=tau(:,1)!!true opacity (not a reference like tauref)
    16451645      IF (igcm_dust_mass .ne. 0) THEN
    16461646        qsurfice_dust(1:ngrid) = qsurf(1:ngrid,igcm_dust_mass)
Note: See TracChangeset for help on using the changeset viewer.