Changeset 3026 for trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

Timestamp:

Aug 9, 2023, 11:56:36 AM (16 months ago)

Author:

jbclement

Message:

Mars PCM/PEM 1D:
Small fixes to be able to run the Mars PCM 1D without "water" + Improvements/addition of scripts in deftank/pem to run the PEM 1D model according to Laskar orbital parameters.
JBC

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (2 diffs)

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

@@ -2633 +2633 @@
 c        -------------------------------------------------------------------
 
-
+       if (water) then
          do ig=1,ngrid
-           if(mu0(ig).le.0.01) then 
+           if(mu0(ig).le.0.01) then
             fluxsurf_dir_dn_sw(ig) = 0.
-           else 
+           else
             fluxsurf_dir_dn_sw(ig) = flux_1AU/dist_sol/dist_sol*mu0(ig)*
      &                    exp(-(tau(ig,iaer_dust_doubleq)+
@@ -2643 +2643 @@
            endif
          enddo
+       endif
 
            ! Density-scaled opacities