Ignore:
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
Location:
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2
Files:
2 deleted
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis1.inc

    r28 r226  
    66
    77       CALL meso_inifis(ngridmx,nlayer,nqmx,dt, &
    8                wday_ini,wdaysec,               &
    9                wappel_phys,wecri_phys,         &
     8               wday_ini,wdaysec,                &
     9               wappel_phys,                     &
    1010               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
    1111               womeg,wmugaz,                                           &

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis2.inc

    r28 r226  
    99       CASE(1)
    1010       CALL meso_inifis(ngridmx,nlayer,nqmx,dt, &
    11                wday_ini,wdaysec,               &
    12                wappel_phys,wecri_phys,         &
     11               wday_ini,wdaysec,                &
     12               wappel_phys,                     &
    1313               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
    1414               womeg,wmugaz,                                           &
    … …  
    2828       CASE(2)
    2929       CALL d2_meso_inifis(ngridmx,nlayer,nqmx,dt, &
    30                wday_ini,wdaysec,               &
    31                wappel_phys,wecri_phys,         &
     30               wday_ini,wdaysec,                   &
     31               wappel_phys,                        &
    3232               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
    3333               womeg,wmugaz,                                           &

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis3.inc

    r28 r226  
    99       CASE(1)
    1010       CALL meso_inifis(ngridmx,nlayer,nqmx,dt, &
    11                wday_ini,wdaysec,               &
    12                wappel_phys,wecri_phys,         &
     11               wday_ini,wdaysec,                &
     12               wappel_phys,                     &
    1313               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
    1414               womeg,wmugaz,                                           &
    … …  
    2727       CASE(2)
    2828       CALL d2_meso_inifis(ngridmx,nlayer,nqmx,dt, &
    29                wday_ini,wdaysec,               &
    30                wappel_phys,wecri_phys,         &
     29               wday_ini,wdaysec,                   &
     30               wappel_phys,                        &
    3131               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
    3232               womeg,wmugaz,                                           &
    … …  
    4545       CASE(3)
    4646       CALL d3_meso_inifis(ngridmx,nlayer,nqmx,dt, &
    47                wday_ini,wdaysec,               &
    48                wappel_phys,wecri_phys,         &
     47               wday_ini,wdaysec,                   &
     48               wappel_phys,                        &
    4949               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
    5050               womeg,wmugaz,                                           &

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq1.inc

    r55 r226  
    66
    77       CALL meso_physiq (ngrid,nlayer,nq,                              &
    8                firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
     8               firstcall,lastcall,pday,ptime,ptimestep,                &
    99               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
    10 #ifdef NEWPHYS
    11                wtnom, &
    12 #endif
    1310               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
    1411               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
    1512#ifdef NEWPHYS
    16                wisoil, wdsoil, &
     13               wtnom, wisoil, wdsoil, &
    1714#endif
    18                wecri_phys_sec,                &
     15               wday_ini,                      &
    1916               output_tab2d, output_tab3d, flag_LES)
    2017

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq2.inc

    r55 r226  
    99       CASE(1)
    1010       CALL meso_physiq (ngrid,nlayer,nq,                              &
    11                firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
     11               firstcall,lastcall,pday,ptime,ptimestep,                &
    1212               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
    13 #ifdef NEWPHYS
    14                wtnom, &
    15 #endif
    1613               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
    1714               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
    1815#ifdef NEWPHYS
    19                wisoil, wdsoil, &
     16               wtnom, wisoil, wdsoil, &
    2017#endif
    21                wecri_phys_sec,                &
     18               wday_ini,                      &
    2219               output_tab2d, output_tab3d, flag_LES)
    2320
    2421       CASE(2)
    2522       CALL d2_meso_physiq (ngrid,nlayer,nq,                           &
    26                firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
     23               firstcall,lastcall,pday,ptime,ptimestep,                &
    2724               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
    28 #ifdef NEWPHYS
    29                wtnom, &
    30 #endif
    3125               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
    3226               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
    3327#ifdef NEWPHYS
    34                wisoil, wdsoil, &
     28               wtnom, wisoil, wdsoil, &
    3529#endif
    36                wecri_phys_sec,                &
     30               wday_ini,                      &
    3731               output_tab2d, output_tab3d, flag_LES)
    3832

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq3.inc

    r55 r226  
    99       CASE(1)
    1010       CALL meso_physiq (ngrid,nlayer,nq,                              &
    11                firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
     11               firstcall,lastcall,pday,ptime,ptimestep,                &
    1212               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
    13 #ifdef NEWPHYS
    14                wtnom, &
    15 #endif
    1613               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
    1714               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
    1815#ifdef NEWPHYS
    19                wisoil, wdsoil, &
     16               wtnom, wisoil, wdsoil, &
    2017#endif
    21                wecri_phys_sec,                &
     18               wday_ini,                      &
    2219               output_tab2d, output_tab3d, flag_LES)
    2320
    2421       CASE(2)
    25        CALL d2_meso_physiq (ngrid,nlayer,nq,                           &
    26                firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
     22       CALL d2_meso_physiq (ngrid,nlayer,nq,                              &
     23               firstcall,lastcall,pday,ptime,ptimestep,                &
    2724               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
    28 #ifdef NEWPHYS
    29                wtnom, &
    30 #endif
    3125               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
    3226               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
    3327#ifdef NEWPHYS
    34                wisoil, wdsoil, &
     28               wtnom, wisoil, wdsoil, &
    3529#endif
    36                wecri_phys_sec,                &
     30               wday_ini,                      &
    3731               output_tab2d, output_tab3d, flag_LES)
    3832
    3933       CASE(3)
    40        CALL d3_meso_physiq (ngrid,nlayer,nq,                           &
    41                firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
     34       CALL meso_physiq (ngrid,nlayer,nq,                              &
     35               firstcall,lastcall,pday,ptime,ptimestep,                &
    4236               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
    43 #ifdef NEWPHYS
    44                wtnom, &
    45 #endif
    4637               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
    4738               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
    4839#ifdef NEWPHYS
    49                wisoil, wdsoil, &
     40               wtnom, wisoil, wdsoil, &
    5041#endif
    51                wecri_phys_sec,                &
     42               wday_ini,                      &
    5243               output_tab2d, output_tab3d, flag_LES)
    53 
    5444
    5545!       CASE(3:)

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

    r179 r226  
    222222   ! Additional control variables
    223223   INTEGER :: sponge_top,relax,ips,ipe,jps,jpe,kps,kpe
    224    REAL :: elaps, ptimestep, wecri_phys_sec
    225    INTEGER :: wappel_phys, wecri_phys, wday_ini, test, test2
     224   REAL :: elaps, ptimestep
     225   INTEGER :: wappel_phys, wday_ini, test, test2
    226226   LOGICAL :: flag_LES
    227227
    … …  
    328328wday_ini = JULDAY - 1      !! GCM convention
    329329wappel_phys = int(RADT)
    330 wecri_phys = int(CUDT)
    331330ptimestep = dt*float(wappel_phys)     ! physical timestep (s)
    332331ngrid=(ipe-ips+1)*(jpe-jps+1)         ! size of the horizontal grid: ngridmx = wiim * wjjm
    … …  
    10831082DEALLOCATE(wpsi)
    10841083ENDIF
    1085         !! nearly obsolete
    1086         !print *, '** Mars ** Diagnostic files each ',wecri_phys,' phys. steps'
    1087         wecri_phys_sec=dt*float(wecri_phys)*float(wappel_phys)
    1088         IF (JULYR .eq. 9999) wecri_phys_sec = 100000000.  !! sinon bug (ne peut valoir 0)
    10891084
    10901085!!********!!
Note: See TracChangeset for help on using the changeset viewer.