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

Timestamp:

Jan 21, 2026, 4:11:08 PM (33 hours ago)

Author:

aslmd

Message:

MESOSCALE: Mars physics compiles with SVN HEAD. at the same time, photochemistry now compiles so commented out MESOSCALE precompiling flags. Now have to test with WRF interface.

File:

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

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

@@ -744 +744 @@
          icount=1
 
-#ifndef MESOSCALE
+!#ifndef MESOSCALE
 c        Initialize thermospheric parameters
 c        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
@@ -754 +754 @@
             call param_read_e107
          endif
-#endif
+!#endif
 
 c        Initialize rnew cpnew and mmean as constant
@@ -872 +872 @@
       ps(:) = pplev(:,1)
 
-#ifndef MESOSCALE
+!#ifndef MESOSCALE
 c-----------------------------------------------------------------------
 c    1.2.1 Compute mean mass, cp, and R
@@ -883 +883 @@
      &                       zplay,pt,pdt,pq,pdq,ptimestep)
       endif
-#endif
+!#endif
 
 c     Compute geopotential at interlayers
@@ -2130 +2130 @@
 c     ------------------
 
-#ifndef MESOSCALE
+!#ifndef MESOSCALE
 c        --------------
 c        photochemistry :
@@ -2200 +2200 @@
 
          END IF  ! of IF (photochem)
-#endif
-
-
-#ifndef MESOSCALE
+!#endif
+
+
+!#ifndef MESOSCALE
 c-----------------------------------------------------------------------
 c   10. THERMOSPHERE CALCULATION
@@ -2228 +2228 @@
 
       endif ! of if (callthermos)
-#endif
+!#endif
 
 c-----------------------------------------------------------------------