Changeset 2282

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

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/physiq_mod.F (modified) (1 diff)

trunk/LMDZ.MARS/README

@@ -2936 +2936 @@
 Martian physics is now able to start without startfi.nc
 Major update for phyetat0_mod and physiq_mod based on what have been done for the Generic physics
+
+== 09/04/2020 == AB
+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)

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