Changeset 226 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys

Timestamp:

Jul 15, 2011, 2:55:17 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE/LMDZ.MARS.new
--> modified to impact last changes

MESOSCALE/LMD_MM_MARS/makemeso
MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq?.inc
MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis?.inc
MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F
--> modified to get rid of ecri_phys

and make changes related to meso_physiq and meso_inifis

LMDZ.MARS/libf/phymars
--> see LMDZ.MARS/README

15/07/2011 == AS

• Modified the mesoscale part so that the previous change by EM does not imply an error in the mesoscale case. More development is needed though to get the "varying z0" capability in the mesoscale model.
• Worked on versions of meso_physiq and meso_inifis as close as possible to physiq and inifis for more continuity in the process of impacting changes (and even possibly to reach a common version of physiq and inifis).

  The main point is to make the mesoscale significant specific parts
  

  coded into include files in meso_inc so that meso_physiq and meso_inifis looks very close to physiq and inifis.

  This is completely transparent for GCM users who does not need the
  

  contents of meso_inc.
• Slight cosmetic changes to physiq.f and inifis.F --- some of them e.g. to prepare convergence between meso_physiq and physiq

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F (modified) (3 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F

@@ -222 +222 @@
    ! Additional control variables
    INTEGER :: sponge_top,relax,ips,ipe,jps,jpe,kps,kpe
-   REAL :: elaps, ptimestep, wecri_phys_sec
-   INTEGER :: wappel_phys, wecri_phys, wday_ini, test, test2
+   REAL :: elaps, ptimestep
+   INTEGER :: wappel_phys, wday_ini, test, test2
    LOGICAL :: flag_LES
 
@@ -328 +328 @@
 wday_ini = JULDAY - 1      !! GCM convention
 wappel_phys = int(RADT)
-wecri_phys = int(CUDT)
 ptimestep = dt*float(wappel_phys)     ! physical timestep (s)
 ngrid=(ipe-ips+1)*(jpe-jps+1)         ! size of the horizontal grid: ngridmx = wiim * wjjm
@@ -1083 +1082 @@
 DEALLOCATE(wpsi)
 ENDIF
-        !! nearly obsolete
-        !print *, '** Mars ** Diagnostic files each ',wecri_phys,' phys. steps'
-        wecri_phys_sec=dt*float(wecri_phys)*float(wappel_phys)
-        IF (JULYR .eq. 9999) wecri_phys_sec = 100000000.  !! sinon bug (ne peut valoir 0)
 
 !!********!!