source: trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_caps.F @ 249

Last change on this file since 249 was 226, checked in by aslmd, 14 years ago

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 size: 1.7 KB
Line 
1      !!!!!! MARS MESOSCALE MODELING
2      !!!!!! TEST TEST TEST TEST  AS+JBM 28/02/11
3      !!!!!! TEST TEST TEST TEST  AS+JBM 28/02/11
4      !!!!!! TEST TEST TEST TEST  AS+JBM 28/02/11
5      !!!!
6      !!!! principe: une option 'caps=T' specifique au mesoscale
7      !!!! ... en vue d'un meso_initracer ????
8      !!!!
9      !!!! depots permanents => albedo TES du PDS
10      !!!! depots saisonniers => alb_surfice (~0.4, cf plus bas)
11      !!!!     [!!!! y compris pour les depots saisonniers sur les depots permanents]
12      !!!!
13      !!!! --> todo: il faut garder les depots saisonniers qui viennent
14      !!!!           du GCM lorsqu'ils sont consequents
15      !!!!
16      IF ( caps .and. (igcm_h2o_ice .ne. 0) ) THEN
17          PRINT *, 'OVERWRITING watercaptag DEFINITION in INITRACER'
18          PRINT *, 'lat>70 et alb>0.26 => watercaptag=T'
19          !! Perennial H20 north cap defined by watercaptag=true (allows surface to be
20          !! hollowed by sublimation in vdifc).
21          do ig=1,ngridmx
22            qsurf(ig,igcm_h2o_ice)=0.  !! on jette les inputs GCM
23            if ( (lati(ig)*180./pi.gt.70.) .and.
24     .           (albedodat(ig).ge.0.26) )  then
25                    watercaptag(ig)=.true.
26                    dryness(ig) = 1.
27            else
28                    watercaptag(ig)=.false.
29                    dryness(ig) = 1.
30            endif  ! (lati, albedodat)
31          end do ! (ngridmx)
32      ELSE  ! (caps)
33          print *,'Blork !!!'
34          print *,'caps=T avec water=F ????'
35      ENDIF ! (caps)
36      !!!!!! TEST TEST TEST TEST  AS+JBM 28/02/11
37      !!!!!! TEST TEST TEST TEST  AS+JBM 28/02/11
38      !!!!!! TEST TEST TEST TEST  AS+JBM 28/02/11
Note: See TracBrowser for help on using the repository browser.