Changeset 81


Ignore:
Timestamp:
Feb 28, 2011, 6:53:54 PM (14 years ago)
Author:
aslmd
Message:

LMD_MM_MARS: changements mineurs cycle de l'eau [sorties plus physiques, du type vmr, mic_precip, ...]. quelques modifications cosmetiques des scripts d execution.

Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

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

    r80 r81  
    16131613ccc**************** WRF OUTPUT **************************
    16141614ccc**************** WRF OUTPUT **************************
    1615       do ig=1,ngrid
    1616          wtsurf(ig) = tsurf(ig)    !! surface temperature
    1617          wco2ice(ig) = co2ice(ig)  !! co2 ice
    1618 
    1619          !!! specific to WRF WRF WRF
    1620          !!! just to output water ice on surface
    1621          !!! uncomment the Registry entry
    1622          IF (igcm_h2o_ice .ne. 0) qsurfice(ig) = qsurf(ig,igcm_h2o_ice)
    1623 
    1624       enddo
     1615      !do ig=1,ngrid
     1616      !   wtsurf(ig) = tsurf(ig)    !! surface temperature
     1617      !   wco2ice(ig) = co2ice(ig)  !! co2 ice
     1618      !
     1619      !   !!! specific to WRF WRF WRF
     1620      !   !!! just to output water ice on surface
     1621      !   !!! uncomment the Registry entry
     1622      !   IF (igcm_h2o_ice .ne. 0) qsurfice(ig) = qsurf(ig,igcm_h2o_ice)
     1623      !
     1624      !   !!! "VMR_ICE"   "VOL. MIXING RATIO ICE"           "ppm"
     1625      !   IF (igcm_h2o_ice .ne. 0) THEN
     1626      !     vmr=zq(1:ngridmx,1:nlayermx,igcm_h2o_ice)*mugaz/mmol(igcm_h2o_ice)
     1627      !   ENDIF
     1628      !
     1629      !enddo
     1630      wtsurf(1:ngrid) = tsurf(1:ngrid)    !! surface temperature
     1631      wco2ice(1:ngrid) = co2ice(1:ngrid)  !! co2 ice
     1632      mtot(1:ngrid) = mtot(1:ngrid) * 1.e6 / 917.
     1633      IF (igcm_h2o_ice .ne. 0) THEN     
     1634        qsurfice(1:ngrid) = qsurf(1:ngrid,igcm_h2o_ice)
     1635        vmr=1.e6 * zq(1:ngrid,1:nlayer,igcm_h2o_ice)
     1636     .           * mugaz / mmol(igcm_h2o_ice)
     1637      ENDIF
     1638
    16251639c
    16261640c THIS INCLUDE IS AUTOMATICALLY GENERATED FROM REGISTRY

  • trunk/mesoscale/LMD_MM_MARS/SIMU/gnome_launch.meso

    r78 r81  
    33# @ error = $(output)
    44# @ job_type = MPICH
     5# @ total_tasks=32
     6## @ total_tasks=24
    57## @ total_tasks =16
    68## @ total_tasks =8
    7 # @ total_tasks =4
     9## @ total_tasks =4
    810# @ blocking = unlimited
    9 ## @ class =AP
    10 # @ class =BP
     11# @ class =AP
     12## @ class =BP
    1113## @ class =CP
    1214# @ environment=tmpdir=$(job_name).$(jobid).results
    … …  
    1820cd $LOADL_STEP_INITDIR/${tmpdir}
    1921####################################################################
    20 ln -sf  $LOADL_STEP_INITDIR/*.exe      .
    2122ln -sf  $LOADL_STEP_INITDIR/*.def      .
    22 ln -sf  $LOADL_STEP_INITDIR/wrf*       .
     23ln -sf  $LOADL_STEP_INITDIR/wrfb*      .
     24ln -sf  $LOADL_STEP_INITDIR/wrfi*      .
    2325ln -sf  $LOADL_STEP_INITDIR/namelist*  .
    2426declare -x MP_STACK_SIZE=64000000
     27ln -sf /san/home/spiga/trunk//mesoscale/LMD_MM_MARS/newphys_mpifort_64/wrf_x241_y241_z61_d1_t4_p32.exe wrf.exe
    2528mpirun wrf.exe
    2629####################################################################

  • trunk/mesoscale/LMD_MM_MARS/SIMU/runmeso

    r80 r81  
    233233   if [[ ${compilo} -eq 3 || ${compilo} -eq 5 ]]
    234234   then
    235        echo How many processors ? 1, 2, 4, 6, 8, 16 ; read numproc
     235       echo How many processors ? 1, 2, 4, 6, 8, 12, 16, 20, 24, 32 ; read numproc
    236236   else
    237237       numproc=1

  • trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM

    r77 r81  
    9090state  real  SWUP      ij   misc  1  -  rd   "SWUP"      "UPWARD SW FLUX AT TOP"           "W m-2"   #SAVEMARS2 fluxtop_sw_tot   
    9191state  real  LWUP      ij   misc  1  -  rd   "LWUP"      "UPWARD LW FLUX AT TOP"           "W m-2"   #SAVEMARS2 fluxtop_lw
    92 state  real  MTOT      ij   misc  1  -  rhd  "MTOT"      "TOTAL MASS WATER VAPOR"          "kg m-2"  #SAVEMARS2 mtot
     92state  real  MTOT      ij   misc  1  -  rhd  "MTOT"      "TOTAL MASS WATER VAPOR in pmic"  "pmic"    #SAVEMARS2 mtot
    9393state  real  ICETOT    ij   misc  1  -  rhd  "ICETOT"    "TOTAL MASS WATER ICE"            "kg m-2"  #SAVEMARS2 icetot
    9494state  real  RAVE      ij   misc  1  -  rd   "RAVE"      "MEAN ICE RADIUS"                 "m"       #SAVEMARS2 rave
    … …  
    101101state  real  HR_NIR    ikj  misc  1  -  rd   "HR_NIR"    "HEATING RATE nirco2"             "K/s"     #SAVEMARS3 zdtnirco2
    102102state  real  HR_NLTE   ikj  misc  1  -  rd   "HR_NLTE"   "HEATING RATE nlte"               "K/s"     #SAVEMARS3 zdtnlte
     103state  real  ALBBARE   ij   misc  1  -  rhd  "ALBBARE"   "SOIL ALBEDO"                     ""        #SAVEMARS2 albedodat
     104state  real  VMR_ICE   ikj  misc  1  -  rhd  "VMR_ICE"   "VOL. MIXING RATIO ICE"           "ppm"     #SAVEMARS3 vmr
    103105####
    104106####
    … …  
    115117state  real  -         ikjftb  scalar  1  -  -                         -
    116118state  real  qh2o      ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QH2O"          "Water vapor mixing ratio"   "kg kg-1"
    117 state  real  qh2o_ice  ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QH2O_ICE"      "Water ice mixing ratio"     "kg kg-1"
    118 state  real  qdust     ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QDUST"         "Dust mixing ratio"          "kg kg-1"
    119 state  real  qdustn    ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QDUSTN"        "Dust_number mixing ratio"   "kg kg-1"
    120 state  real  qco2      ikjftb  scalar  1  -  i01rhusdf=(bdy_interp:dt)  "QCO2"          "CO2 mixing ratio"           "kg kg-1"
     119state  real  qh2o_ice  ikjftb  scalar  1  -  i01rusdf=(bdy_interp:dt)  "QH2O_ICE"      "Water ice mixing ratio"     "kg kg-1"
     120state  real  qdust     ikjftb  scalar  1  -  i01rusdf=(bdy_interp:dt)  "QDUST"         "Dust mixing ratio"          "kg kg-1"
     121state  real  qdustn    ikjftb  scalar  1  -  i01rusdf=(bdy_interp:dt)  "QDUSTN"        "Dust_number mixing ratio"   "kg kg-1"
     122state  real  qco2      ikjftb  scalar  1  -  i01rusdf=(bdy_interp:dt)  "QCO2"          "CO2 mixing ratio"           "kg kg-1"
    121123####
    122124####

  • trunk/mesoscale/LMD_MM_MARS/makemeso

    r73 r81  
    110110         exit
    111111       fi
    112        echo How many processors ? 1, 2, 4, 6, 8, 12, 16, 20, 24 test 32 64 ; read numproc ;;
     112       echo How many processors ? 1, 2, 4, 6, 8, 12, 16, 20, 24, 32 test 64 ; read numproc ;;
    113113    4) compilo='ifort' ; numproc=1 ;;
    114     5) compilo='mpifort' ; echo How many processors ? 1, 2, 4, 6, 8, 12, 16, 20, 24 test 32 64 ; read numproc ;;
    115     7) compilo='mpixlf' ; echo How many processors ? 1, 2, 4, 6, 8, 12, 16, 20, 24 test 32 64 ; read numproc ;;
     114    5) compilo='mpifort' ; echo How many processors ? 1, 2, 4, 6, 8, 12, 16, 20, 24, 32 test 64 ; read numproc ;;
     115    7) compilo='mpixlf' ; echo How many processors ? 1, 2, 4, 6, 8, 12, 16, 20, 24, 32 test 64 ; read numproc ;;
    116116### for tests
    11711799) compilo='gnu' ; numproc=1 ;;

  • trunk/mesoscale/TESTS/newphys_tracers/callphys.def.mars11_radact

    r78 r81  
    22##~~~~~~~~~~~~~~~
    33#Directory where external input files are
    4 datadir = '/san/home/spiga/datafile/'
     4datadir = /san/home/spiga/DATAFILE/
    55
    66#Run with or without tracer transport ?
Note: See TracChangeset for help on using the changeset viewer.