Changeset 668 for trunk/LMDZ.MARS/libf/phymars/physiq.F

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:

• trunk/LMDZ.MARS/libf/phymars/physiq.F (modified) (1 diff)

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

@@ -1637 +1637 @@
       !!!
       wtsurf(1:ngrid) = tsurf(1:ngrid)    !! surface temperature
+      wco2ice(1:ngrid) = co2ice(1:ngrid)  !! co2 ice
+      TAU_lay(:)=tau(:,1)!!true opacity (not a reference like tauref)
       IF (tracer) THEN
-      wco2ice(1:ngrid) = co2ice(1:ngrid)  !! co2 ice
       mtot(1:ngrid) = mtot(1:ngrid) * 1.e6 / rho_ice
       icetot(1:ngrid) = icetot(1:ngrid) * 1.e6 / rho_ice
       !! JF 
-      TAU_lay(:)=tau(:,1)!!true opacity (not a reference like tauref)
       IF (igcm_dust_mass .ne. 0) THEN
         qsurfice_dust(1:ngrid) = qsurf(1:ngrid,igcm_dust_mass)