Changeset 2282 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Apr 9, 2020, 11:46:47 AM (5 years ago)

Author:

abierjon

Message:

Mars GCM:
Resolved Ticket #41 : the density-scaled opacities are now multiplied by tauscaling before being
written in the output files (have an effect only when working with freedust=false)
AB

File:

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

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

@@ -2224 +2224 @@
 
          if (tracer) then
-         
+           ! Density-scaled opacities
+              do ig=1,ngrid 
+                dsodust(ig,:) = 
+     &                dsodust(ig,:)*tauscaling(ig)
+                dsords(ig,:) = 
+     &                dsords(ig,:)*tauscaling(ig)
+                dsotop(ig,:) =
+     &                dsotop(ig,:)*tauscaling(ig)
+              enddo
            if(doubleq) then
               do ig=1,ngrid