Changeset 82


Ignore:
Timestamp:
Feb 28, 2011, 8:32:35 PM (14 years ago)
Author:
aslmd
Message:

mars + LMD_MM_MARS : modifications pour cycle de l'eau, valeurs tunees JBM

used settings reached by JBM to obtain his PhD results

alb_surfice = 0.45 --- in physiq.F and meso_physiq.F
ccn_factor = 4.5 --- in watercloud.F
nuice_sed = 0.45 --- in callsedim.F

NB: this is supposed to be further refined in the future

Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/mars/README

    r79 r82  
    587587   specify (in callphys.def; using datadir=/whatever/path/to/use ) the path
    588588   to external datafiles (topography, surface properties, etc.)
     589
     590== 28/02/2011 == JBM+AS
     591>> used settings reached by JBM to obtain his PhD results
     592      alb_surfice = 0.45  ---  in physiq.F and meso_physiq.F
     593      ccn_factor = 4.5    ---  in watercloud.F
     594      nuice_sed = 0.45    ---  in callsedim.F
     595>> NB: this is supposed to be further refined in the future

  • trunk/mars/libf/phymars/callsedim.F

    r38 r82  
    6363      real rfall(ngridmx,nlayermx)
    6464c     Sedimentation effective variance of water ice
    65       REAL, PARAMETER :: nuice_sed = 0.1
     65      REAL, PARAMETER :: nuice_sed = 0.45  !! TESTS_JB  !! 0.1 avant
    6666
    6767c     Discrete size distributions (doubleq)

  • trunk/mars/libf/phymars/meso_physiq.F

    r81 r82  
    238238                                     !   of the size distribution
    239239c     Albedo of deposited surface ice
    240       REAL, PARAMETER :: alb_surfice = 0.4 ! 0.45
     240      !!REAL, PARAMETER :: alb_surfice = 0.4 ! 0.45
     241      REAL, PARAMETER :: alb_surfice = 0.45 !!TESTS_JB
    241242
    242243      SAVE day_ini, icount
    … …  
    16301631      wtsurf(1:ngrid) = tsurf(1:ngrid)    !! surface temperature
    16311632      wco2ice(1:ngrid) = co2ice(1:ngrid)  !! co2 ice
    1632       mtot(1:ngrid) = mtot(1:ngrid) * 1.e6 / 917.
     1633      mtot(1:ngrid) = mtot(1:ngrid) * 1.e6 / rho_ice
    16331634      IF (igcm_h2o_ice .ne. 0) THEN     
    16341635        qsurfice(1:ngrid) = qsurf(1:ngrid,igcm_h2o_ice)

  • trunk/mars/libf/phymars/physiq.F

    r38 r82  
    187187                                     !   of the size distribution
    188188c     Albedo of deposited surface ice
    189       REAL, PARAMETER :: alb_surfice = 0.4 ! 0.45
     189      !!REAL, PARAMETER :: alb_surfice = 0.4 ! 0.45
     190      REAL, PARAMETER :: alb_surfice = 0.45 !!TESTS_JB
    190191
    191192      SAVE day_ini, icount

  • trunk/mars/libf/phymars/watercloud.F

    r38 r82  
    5656                                   !   (particules kg-1)
    5757c     CCN reduction factor
    58       REAL, PARAMETER :: ccn_factor = 1.
     58      REAL, PARAMETER :: ccn_factor = 4.5  !! comme TESTS_JB // 1. avant
    5959      real rdust(ngridmx,nlayermx) ! Dust geometric mean radius (m)
    6060

  • trunk/mesoscale/LMDZ.MARS.new/libf/phymars/physiq.F

    r73 r82  
    187187                                     !   of the size distribution
    188188c     Albedo of deposited surface ice
    189       REAL, PARAMETER :: alb_surfice = 0.4 ! 0.45
     189      !!REAL, PARAMETER :: alb_surfice = 0.4 ! 0.45
     190      REAL, PARAMETER :: alb_surfice = 0.45 !!TESTS_JB
    190191
    191192      SAVE day_ini, icount
Note: See TracChangeset for help on using the changeset viewer.