Changeset 882 for trunk


Ignore:
Timestamp:
Feb 15, 2013, 2:54:12 PM (12 years ago)
Author:
tnavarro
Message:

small correction in makegcm, latent heat in clouds, changed threshold in dust radius

Location:
trunk/LMDZ.MARS
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • TabularUnified trunk/LMDZ.MARS/README

    r829 r882  
    18221822   Note that the "distance to center of Mars" and "MCD" options still contain
    18231823   some hard coded Mars constants.
     1824
     1825== 15/02/2013 == TN
     1826>> Various bugs
     1827- watercloud.F : latent heat release was not correctly added
     1828- updaterad.F90 : minimal rdust is changed from 0.1 to 0.01 microns
     1829- vdifc.F : The scheme with potential temperature mixing that takes into acount CO2 condensation
     1830            could not work without CO2 condensation (callcond=false) -- see commit r473
     1831            This caused a quick GCM crash. Now there is no condensation at all with callcond=false
     1832- physiq.F : pressure levels are now correctly used with surface pressure changes due to CO2
     1833             condensation. Only zplev and zplay variables should be used in physiq.
     1834             Bug corrected in case of scavenging=false that led to instabilities. CCN tracers were not checked.
     1835- makegcm : use of phy$physique instead of phymars for scatterrers
     1836 

  • TabularUnified trunk/LMDZ.MARS/libf/phymars/updaterad.F90

    r745 r882  
    4242real, parameter :: qdust_threshold  = 1.e-20
    4343
    44 real, parameter :: r3dustmin = 1.e-21  ! ie rdustmin = 0.1 microns
    45 real, parameter :: rdustmin  = 0.1e-6
     44real, parameter :: r3dustmin = 1.e-24  ! ie rdustmin = 0.1 microns
     45real, parameter :: rdustmin  = 0.01e-6
    4646
    4747real, parameter :: r3dustmax = 125.e-12 ! ie rdustmax  = 500 microns

  • TabularUnified trunk/LMDZ.MARS/libf/phymars/watercloud.F

    r746 r882  
    244244          ENDDO
    245245        ENDDO
     246       
     247        IF (activice) THEN
     248          DO l=1,nlay
     249            DO ig=1,ngrid
     250              subpdt(ig,l) =
     251     &            subpdt(ig,l) + subpdtcloud(ig,l)
     252            ENDDO
     253          ENDDO
     254        ENDIF
    246255     
    247256 

  • TabularUnified trunk/LMDZ.MARS/makegcm_g95

    r733 r882  
    522522    \rm -f $libf/grid/dimensions.h
    523523    #remove old scatterers.h file
    524     \rm -f $libf/phymars/scatterers.h
     524    \rm -f $libf/phy$physique/scatterers.h
    525525  else
    526526    exit
    … …  
    534534cat $libf/grid/dimensions.h
    535535
    536 cd $libf/phymars/scatterers
     536cd $libf/phy$physique/scatterers
    537537# Build the appropriate 'scatterers.h' file
    538538./make_scatterers $scatterers
    539539# echo contents of scatterers.h to standard output
    540 cat $libf/phymars/scatterers.h
     540cat $libf/phy$physique/scatterers.h
    541541
    542542cd $LMDGCM
    … …  
    813813# cleanup, remove dimensions.h and scatterers.h
    814814\rm -f $libf/grid/dimensions.h
    815 \rm -f $libf/phymars/scatterers.h
     815\rm -f $libf/phy$physique/scatterers.h

  • TabularUnified trunk/LMDZ.MARS/makegcm_gfortran

    r648 r882  
    520520    \rm -f $libf/grid/dimensions.h
    521521    #remove old scatterers.h file
    522     \rm -f $libf/phymars/scatterers.h
     522    \rm -f $libf/phy$physique/scatterers.h
    523523  else
    524524    exit
    … …  
    532532cat $libf/grid/dimensions.h
    533533
    534 cd $libf/phymars/scatterers
     534cd $libf/phy$physique/scatterers
    535535# Build the appropriate 'scatterers.h' file
    536536./make_scatterers $scatterers
    537537# echo contents of scatterers.h to standard output
    538 cat $libf/phymars/scatterers.h
     538cat $libf/phy$physique/scatterers.h
    539539
    540540cd $LMDGCM
    … …  
    811811# cleanup, remove dimensions.h and scatterers.h
    812812\rm -f $libf/grid/dimensions.h
    813 \rm -f $libf/phymars/scatterers.h
     813\rm -f $libf/phy$physique/scatterers.h

  • TabularUnified trunk/LMDZ.MARS/makegcm_ifort

    r646 r882  
    527527    \rm -f $libf/grid/dimensions.h
    528528    #remove old scatterers.h file
    529     \rm -f $libf/phymars/scatterers.h
     529    \rm -f $libf/phy$physique/scatterers.h
    530530  else
    531531    exit
    … …  
    539539cat $libf/grid/dimensions.h
    540540
    541 cd $libf/phymars/scatterers
     541cd $libf/phy$physique/scatterers
    542542# Build the appropriate 'scatterers.h' file
    543543./make_scatterers $scatterers
    544544# echo contents of scatterers.h to standard output
    545 cat $libf/phymars/scatterers.h
     545cat $libf/phy$physique/scatterers.h
    546546
    547547cd $LMDGCM
    … …  
    817817# cleanup, remove dimensions.h and scatterers.h
    818818\rm -f $libf/grid/dimensions.h
    819 \rm -f $libf/phymars/scatterers.h
     819\rm -f $libf/phy$physique/scatterers.h

  • TabularUnified trunk/LMDZ.MARS/makegcm_pgf

    r646 r882  
    524524    \rm -f $libf/grid/dimensions.h
    525525    #remove old scatterers.h file
    526     \rm -f $libf/phymars/scatterers.h
     526    \rm -f $libf/phy$physique/scatterers.h
    527527  else
    528528    exit
    … …  
    536536cat $libf/grid/dimensions.h
    537537
    538 cd $libf/phymars/scatterers
     538cd $libf/phy$physique/scatterers
    539539# Build the appropriate 'scatterers.h' file
    540540./make_scatterers $scatterers
    541541# echo contents of scatterers.h to standard output
    542 cat $libf/phymars/scatterers.h
     542cat $libf/phy$physique/scatterers.h
    543543
    544544cd $LMDGCM
    … …  
    812812# cleanup, remove dimensions.h and scatterers.h
    813813\rm -f $libf/grid/dimensions.h
    814 \rm -f $libf/phymars/scatterers.h
     814\rm -f $libf/phy$physique/scatterers.h
Note: See TracChangeset for help on using the changeset viewer.