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

Timestamp:

Sep 13, 2013, 4:01:10 PM (11 years ago)

Author:

aslmd

Message:

MESOSCALE
LMDZ.MARS

--> Performed the necessary modifications for dynamic tracers

to work with the mesoscale model (new physics).

--> Added precompiling flag MESOSCALE around pressure modifications

done in revision 883. This makes the mesoscale model become crazy.

--> Added an option -e in makemeso to erase a configuration and start over.

NOTE
--> not sure recent versions (rev>1000) are compliant with nesting compilation.
--> use mesoscale model + new physics with caution. still not stabilized.

File:

• trunk/LMDZ.MARS/libf/phymars/physiq.F (modified) (4 diffs)

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

@@ -18 +18 @@
      &                      nuice_ref, rho_ice, rho_dust, ref_r0
 
-#ifdef MESOSCALE
-      use infotrac !!! this is necessary for tracers 
-#endif
       IMPLICIT NONE
 c=======================================================================
@@ -372 +369 @@
       REAL, ALLOCATABLE, DIMENSION(:,:) :: T_out
       REAL, ALLOCATABLE, DIMENSION(:,:) :: u_out ! Interpolated teta and u at z_out
-!      REAL u_out1(ngridmx)
+      REAL u_out1(ngridmx)
       REAL T_out1(ngridmx)
       REAL, ALLOCATABLE, DIMENSION(:) :: z_out     ! height of interpolation between z0 and z1 [meters]
@@ -1036 +1033 @@
          ENDIF ! of IF (tracer)
 
+#ifndef MESOSCALE
         ! update surface pressure
         DO ig=1,ngrid
@@ -1058 +1056 @@
           ENDDO
         ENDDO
+#endif
       
       ENDIF  ! of IF (callcond)