Changeset 1038 for trunk/LMDZ.MARS/libf/phymars/meso_inc

Timestamp:

Sep 13, 2013, 4:01:10 PM (12 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.

Location:

trunk/LMDZ.MARS/libf/phymars/meso_inc

Files:

• meso_inc_ini.F (modified) (3 diffs)
• meso_inc_inifisinvar.F (modified) (1 diff)
• meso_inc_inifisvar.F (modified) (1 diff)
• meso_inc_var.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_ini.F

@@ -39 +39 @@
 
             !!!!!!!!!!!!!!!!! DONE in soil_setting.F
-      tnom(:)=wtnom(:)   !! est rempli dans advtrac.h
-      PRINT*,'check: tracernames ', tnom
+      PRINT*,'MESOSCALE. how many tracers: ',nq
+      allocate(noms(nq)) !! est fait dans initracer normalement
+      noms(:)=wtnom(:)   !! est rempli dans tracer_mod.F90
+      PRINT*,'check: tracernames ', noms
      !!!new physics
      !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -48 +50 @@
       PRINT*,'check: q2 ',q2(1,1),q2(ngridmx,nlayermx+1)
       qsurf(:,:)=wqsurf(:,:)
-      PRINT*,'check: qsurf ',qsurf(1,1),qsurf(ngridmx,nqmx)
+      PRINT*,'check: qsurf ',qsurf(1,1),qsurf(ngridmx,nq)
       co2ice(:)=wco2ice(:)
       PRINT*,'check: co2 ',co2ice(1),co2ice(ngridmx)
@@ -62 +64 @@
       iphysiq=ptimestep
 c
-      !DO iq=1, nq 
-      !  PRINT*, tnom(iq), pq(:,:,iq)
-      !ENDDO
 
 c

trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisinvar.F

@@ -1 @@
-     $           ,nq,wdt
+     $           ,wdt
      $           ,womeg,wmugaz
      $           ,wyear_day,wperiheli,waphelie,wperi_day,wobliquit 

trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisvar.F

@@ -1 @@
-      INTEGER nq
       REAL wdt
 

trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_var.F

@@ -6 +6 @@
       REAL wco2ice(ngridmx)
       REAL wemis(ngridmx)
-      REAL wqsurf(ngridmx,nqmx)
+      REAL wqsurf(ngridmx,nq)
       REAL wq2(ngridmx,nlayermx+1)
       REAL wwstar(ngridmx)
@@ -19 +19 @@
       integer iloop
       INTEGER tracerset    !!! this corresponds to config%mars
-      CHARACTER (len=20) :: wtnom(nqmx) ! tracer name
+      CHARACTER (len=20) :: wtnom(nq) ! tracer name
 
       !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! JF