Ignore:
Timestamp:
Nov 8, 2013, 9:07:40 PM (11 years ago)
Author:
aslmd
Message:

MESOSCALE. fix for 5nests. different Registry for oldphys and newphys.

Location:
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM

    r802 r1095  
    9292state  real  SWUP      ij   misc  1  -  rd   "SWUP"      "UPWARD SW FLUX AT TOP"           "W m-2"   #SAVEMARS2 fluxtop_sw_tot   
    9393state  real  LWUP      ij   misc  1  -  rd   "LWUP"      "UPWARD LW FLUX AT TOP"           "W m-2"   #SAVEMARS2 fluxtop_lw
    94 state  real  MTOT      ij   misc  1  -  rd   "MTOT"      "TOTAL MASS WATER VAPOR in pmic"  "pmic"    #SAVEMARS2 mtot
    95 state  real  ICETOT    ij   misc  1  -  rd   "ICETOT"    "TOTAL MASS WATER ICE"            "kg m-2"  #SAVEMARS2 icetot
    96 state  real  RAVE      ij   misc  1  -  rd   "RAVE"      "MEAN ICE RADIUS"                 "m"       #SAVEMARS2 rave
     94state  real  MTOT      ij   misc  1  -  rhd   "MTOT"      "TOTAL MASS WATER VAPOR in pmic"  "pmic"    #SAVEMARS2 mtot
     95state  real  ICETOT    ij   misc  1  -  rhd   "ICETOT"    "TOTAL MASS WATER ICE"            "kg m-2"  #SAVEMARS2 icetot
     96state  real  RAVE      ij   misc  1  -  rhd   "RAVE"      "MEAN ICE RADIUS"                 "m"       #SAVEMARS2 rave
    9797state  real  RICE      ikj  misc  1  -  rd   "RICE"      "ICE RADIUS"                      "m"       #SAVEMARS3 rice
    9898state  real  HR_SW     ikj  misc  1  -  rd   "HR_SW"     "HEATING RATE SW"                 "K/s"     #SAVEMARS3 zdtsw
    9999state  real  HR_LW     ikj  misc  1  -  rd   "HR_LW"     "HEATING RATE LW"                 "K/s"     #SAVEMARS3 zdtlw
    100100state  real  HR_SH     ikj  misc  1  -  rd   "HR_SH"     "HEATING RATE sens. heat"         "K/s"     #SAVEMARS3 zdtdif
    101 state  real  QSURFICE  ij   misc  1  -  rd   "QSURFICE"  "WATER ICE AT SURFACE"            "kg m-2"  #SAVEMARS2 qsurfice
     101state  real  QSURFICE  ij   misc  1  -  rhd   "QSURFICE"  "WATER ICE AT SURFACE"            "kg m-2"  #SAVEMARS2 qsurfice
    102102state  real  QSURFDUST ij   misc  1  -  rd   "QSURFDUST" "DUST MASS AT SURFACE"            "kg m-2"  #SAVEMARS2 qsurfdust
    103103state  real  RDUST     ikj  misc  1  -  rd   "RDUST"     "DUST RADIUS"                     "m"       #SAVEMARS3 rdust
    104104state  real  HR_NIR    ikj  misc  1  -  rd   "HR_NIR"    "HEATING RATE nirco2"             "K/s"     #SAVEMARS3 zdtnirco2
    105105state  real  HR_NLTE   ikj  misc  1  -  rd   "HR_NLTE"   "HEATING RATE nlte"               "K/s"     #SAVEMARS3 zdtnlte
    106 state  real  ALBBARE   ij   misc  1  -  rd   "ALBBARE"   "SOIL ALBEDO"                     ""        #SAVEMARS2 albedodat
    107 state  real  VMR_ICE   ikj  misc  1  -  rd   "VMR_ICE"   "VOL. MIXING RATIO ICE"           "ppm"     #SAVEMARS3 vmr
    108 state  real  TAU_ICE   ij   misc  1  -  rd   "TAU_ICE"   "CLOUD OD at 825 cm-1 TES"        ""        #SAVEMARS2 tauTES
     106state  real  ALBBARE   ij   misc  1  -  rhd   "ALBBARE"   "SOIL ALBEDO"                     ""        #SAVEMARS2 albedodat
     107state  real  VMR_ICE   ikj  misc  1  -  rhd   "VMR_ICE"   "VOL. MIXING RATIO ICE"           "ppm"     #SAVEMARS3 vmr
     108state  real  TAU_ICE   ij   misc  1  -  rhd   "TAU_ICE"   "CLOUD OD at 825 cm-1 TES"        ""        #SAVEMARS2 tauTES
    109109state  real  PDTZ      ikj  misc  1  -  rd   "PDT"       "TEMP TENDENCY"                   "K s-1"   #SAVEMARS3 pdt
    110110state  real  ZMAX_TH   ij   misc  1  -  rd   "ZMAX_TH"   "MAXIMUM LEVEL REACHED IN TH"     "m"       #SAVEMARS2 zmax_th
  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis5.inc

    r426 r1095  
    99       CASE(1)
    1010       CALL inifis(ngridmx,nlayer, &
     11#ifdef NEWPHYS
     12               nq,  &
     13#endif
    1114               wday_ini,wdaysec,                &
    1215               wappel_phys,                     &
    1316               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
    14                nqmx,dt,                                                &
     17#ifdef NEWPHYS
     18               dt,                                                     &
     19#else
     20               nq,dt,                                                &
     21#endif
    1522               womeg,wmugaz,                                           &
    1623               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
     
    2835       CASE(2)
    2936       CALL d2_inifis(ngridmx,nlayer, &
     37#ifdef NEWPHYS
     38               nq,  &
     39#endif
    3040               wday_ini,wdaysec,                   &
    3141               wappel_phys,                        &
    3242               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
    33                nqmx,dt,                                                &
     43#ifdef NEWPHYS
     44               dt,                                                     &
     45#else
     46               nq,dt,                                                &
     47#endif
    3448               womeg,wmugaz,                                           &
    3549               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
     
    4761       CASE(3)
    4862       CALL d3_inifis(ngridmx,nlayer, &
     63#ifdef NEWPHYS
     64               nq,  &
     65#endif
    4966               wday_ini,wdaysec,                   &
    5067               wappel_phys,                        &
    5168               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
    52                nqmx,dt,                                                &
     69#ifdef NEWPHYS
     70               dt,                                                     &
     71#else
     72               nq,dt,                                                &
     73#endif
    5374               womeg,wmugaz,                                           &
    5475               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
     
    6687       CASE(4)
    6788       CALL d4_inifis(ngridmx,nlayer, &
     89#ifdef NEWPHYS
     90               nq,  &
     91#endif
    6892               wday_ini,wdaysec,                   &
    6993               wappel_phys,                        &
    7094               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
    71                nqmx,dt,                                                &
     95#ifdef NEWPHYS
     96               dt,                                                     &
     97#else
     98               nq,dt,                                                &
     99#endif
    72100               womeg,wmugaz,                                           &
    73101               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
     
    85113       CASE(5)
    86114       CALL d5_inifis(ngridmx,nlayer, &
     115#ifdef NEWPHYS
     116               nq,  &
     117#endif
    87118               wday_ini,wdaysec,                   &
    88119               wappel_phys,                        &
    89120               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
    90                nqmx,dt,                                                &
     121#ifdef NEWPHYS
     122               dt,                                                     &
     123#else
     124               nq,dt,                                                &
     125#endif
    91126               womeg,wmugaz,                                           &
    92127               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
Note: See TracChangeset for help on using the changeset viewer.