Changeset 18950


Ignore:
Timestamp:
12/05/14 13:24:05 (10 years ago)
Author:
lemorzad
Message:

minor changes to PDD method

Location:
issm/trunk-jpl
Files:
13 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk-jpl/m4/analyses.m4

    r18595 r18950  
    1111
    1212dnl with-AdjointBalancethickness{{{
    13 
    1413AC_ARG_WITH([AdjointBalancethickness],
    15 
    1614        AS_HELP_STRING([--with-AdjointBalancethickness = YES], [compile with AdjointBalancethickness capabilities (default is yes)]),
    17 
    1815        [ADJOINTBALANCETHICKNESS=$withval],[ADJOINTBALANCETHICKNESS=yes])
    19 
    2016AC_MSG_CHECKING(for AdjointBalancethickness capability compilation)
    2117
    22 
    2318HAVE_ADJOINTBALANCETHICKNESS=no
    24 
    2519if test "x$ADJOINTBALANCETHICKNESS" = "xyes"; then
    26 
    2720        HAVE_ADJOINTBALANCETHICKNESS=yes
    28 
    2921        AC_DEFINE([_HAVE_ADJOINTBALANCETHICKNESS_],[1],[with AdjointBalancethicknesscapability])
    30 
    31 fi
    32 
     22fi
    3323AM_CONDITIONAL([ADJOINTBALANCETHICKNESS], [test x$HAVE_ADJOINTBALANCETHICKNESS = xyes])
    34 
    3524AC_MSG_RESULT($HAVE_ADJOINTBALANCETHICKNESS)
    36 
    3725dnl }}}
    3826dnl with-AdjointBalancethickness2{{{
    39 
    4027AC_ARG_WITH([AdjointBalancethickness2],
    41 
    4228        AS_HELP_STRING([--with-AdjointBalancethickness2 = YES], [compile with AdjointBalancethickness2 capabilities (default is yes)]),
    43 
    4429        [ADJOINTBALANCETHICKNESS2=$withval],[ADJOINTBALANCETHICKNESS2=yes])
    45 
    4630AC_MSG_CHECKING(for AdjointBalancethickness2 capability compilation)
    4731
    48 
    4932HAVE_ADJOINTBALANCETHICKNESS2=no
    50 
    5133if test "x$ADJOINTBALANCETHICKNESS2" = "xyes"; then
    52 
    5334        HAVE_ADJOINTBALANCETHICKNESS2=yes
    54 
    5535        AC_DEFINE([_HAVE_ADJOINTBALANCETHICKNESS2_],[1],[with AdjointBalancethickness2capability])
    56 
    57 fi
    58 
     36fi
    5937AM_CONDITIONAL([ADJOINTBALANCETHICKNESS2], [test x$HAVE_ADJOINTBALANCETHICKNESS2 = xyes])
    60 
    6138AC_MSG_RESULT($HAVE_ADJOINTBALANCETHICKNESS2)
    62 
    6339dnl }}}
    6440dnl with-AdjointHoriz{{{
    65 
    6641AC_ARG_WITH([AdjointHoriz],
    67 
    6842        AS_HELP_STRING([--with-AdjointHoriz = YES], [compile with AdjointHoriz capabilities (default is yes)]),
    69 
    7043        [ADJOINTHORIZ=$withval],[ADJOINTHORIZ=yes])
    71 
    7244AC_MSG_CHECKING(for AdjointHoriz capability compilation)
    7345
    74 
    7546HAVE_ADJOINTHORIZ=no
    76 
    7747if test "x$ADJOINTHORIZ" = "xyes"; then
    78 
    7948        HAVE_ADJOINTHORIZ=yes
    80 
    8149        AC_DEFINE([_HAVE_ADJOINTHORIZ_],[1],[with AdjointHorizcapability])
    82 
    83 fi
    84 
     50fi
    8551AM_CONDITIONAL([ADJOINTHORIZ], [test x$HAVE_ADJOINTHORIZ = xyes])
    86 
    8752AC_MSG_RESULT($HAVE_ADJOINTHORIZ)
    88 
    8953dnl }}}
    9054dnl with-Balancethickness{{{
    91 
    9255AC_ARG_WITH([Balancethickness],
    93 
    9456        AS_HELP_STRING([--with-Balancethickness = YES], [compile with Balancethickness capabilities (default is yes)]),
    95 
    9657        [BALANCETHICKNESS=$withval],[BALANCETHICKNESS=yes])
    97 
    9858AC_MSG_CHECKING(for Balancethickness capability compilation)
    9959
    100 
    10160HAVE_BALANCETHICKNESS=no
    102 
    10361if test "x$BALANCETHICKNESS" = "xyes"; then
    104 
    10562        HAVE_BALANCETHICKNESS=yes
    106 
    10763        AC_DEFINE([_HAVE_BALANCETHICKNESS_],[1],[with Balancethicknesscapability])
    108 
    109 fi
    110 
     64fi
    11165AM_CONDITIONAL([BALANCETHICKNESS], [test x$HAVE_BALANCETHICKNESS = xyes])
    112 
    11366AC_MSG_RESULT($HAVE_BALANCETHICKNESS)
    114 
    11567dnl }}}
    11668dnl with-Balancethickness2{{{
    117 
    11869AC_ARG_WITH([Balancethickness2],
    119 
    12070        AS_HELP_STRING([--with-Balancethickness2 = YES], [compile with Balancethickness2 capabilities (default is yes)]),
    121 
    12271        [BALANCETHICKNESS2=$withval],[BALANCETHICKNESS2=yes])
    123 
    12472AC_MSG_CHECKING(for Balancethickness2 capability compilation)
    12573
    126 
    12774HAVE_BALANCETHICKNESS2=no
    128 
    12975if test "x$BALANCETHICKNESS2" = "xyes"; then
    130 
    13176        HAVE_BALANCETHICKNESS2=yes
    132 
    13377        AC_DEFINE([_HAVE_BALANCETHICKNESS2_],[1],[with Balancethickness2capability])
    134 
    135 fi
    136 
     78fi
    13779AM_CONDITIONAL([BALANCETHICKNESS2], [test x$HAVE_BALANCETHICKNESS2 = xyes])
    138 
    13980AC_MSG_RESULT($HAVE_BALANCETHICKNESS2)
    140 
    14181dnl }}}
    14282dnl with-BalancethicknessSoft{{{
    143 
    14483AC_ARG_WITH([BalancethicknessSoft],
    145 
    14684        AS_HELP_STRING([--with-BalancethicknessSoft = YES], [compile with BalancethicknessSoft capabilities (default is yes)]),
    147 
    14885        [BALANCETHICKNESSSOFT=$withval],[BALANCETHICKNESSSOFT=yes])
    149 
    15086AC_MSG_CHECKING(for BalancethicknessSoft capability compilation)
    15187
    152 
    15388HAVE_BALANCETHICKNESSSOFT=no
    154 
    15589if test "x$BALANCETHICKNESSSOFT" = "xyes"; then
    156 
    15790        HAVE_BALANCETHICKNESSSOFT=yes
    158 
    15991        AC_DEFINE([_HAVE_BALANCETHICKNESSSOFT_],[1],[with BalancethicknessSoftcapability])
    160 
    161 fi
    162 
     92fi
    16393AM_CONDITIONAL([BALANCETHICKNESSSOFT], [test x$HAVE_BALANCETHICKNESSSOFT = xyes])
    164 
    16594AC_MSG_RESULT($HAVE_BALANCETHICKNESSSOFT)
    166 
    16795dnl }}}
    16896dnl with-Balancevelocity{{{
    169 
    17097AC_ARG_WITH([Balancevelocity],
    171 
    17298        AS_HELP_STRING([--with-Balancevelocity = YES], [compile with Balancevelocity capabilities (default is yes)]),
    173 
    17499        [BALANCEVELOCITY=$withval],[BALANCEVELOCITY=yes])
    175 
    176100AC_MSG_CHECKING(for Balancevelocity capability compilation)
    177101
    178 
    179102HAVE_BALANCEVELOCITY=no
    180 
    181103if test "x$BALANCEVELOCITY" = "xyes"; then
    182 
    183104        HAVE_BALANCEVELOCITY=yes
    184 
    185105        AC_DEFINE([_HAVE_BALANCEVELOCITY_],[1],[with Balancevelocitycapability])
    186 
    187 fi
    188 
     106fi
    189107AM_CONDITIONAL([BALANCEVELOCITY], [test x$HAVE_BALANCEVELOCITY = xyes])
    190 
    191108AC_MSG_RESULT($HAVE_BALANCEVELOCITY)
    192 
    193109dnl }}}
    194110dnl with-L2ProjectionEPL{{{
    195 
    196111AC_ARG_WITH([L2ProjectionEPL],
    197 
    198112        AS_HELP_STRING([--with-L2ProjectionEPL = YES], [compile with L2ProjectionEPL capabilities (default is yes)]),
    199 
    200113        [L2PROJECTIONEPL=$withval],[L2PROJECTIONEPL=yes])
    201 
    202114AC_MSG_CHECKING(for L2ProjectionEPL capability compilation)
    203115
    204 
    205116HAVE_L2PROJECTIONEPL=no
    206 
    207117if test "x$L2PROJECTIONEPL" = "xyes"; then
    208 
    209118        HAVE_L2PROJECTIONEPL=yes
    210 
    211119        AC_DEFINE([_HAVE_L2PROJECTIONEPL_],[1],[with L2ProjectionEPLcapability])
    212 
    213 fi
    214 
     120fi
    215121AM_CONDITIONAL([L2PROJECTIONEPL], [test x$HAVE_L2PROJECTIONEPL = xyes])
    216 
    217122AC_MSG_RESULT($HAVE_L2PROJECTIONEPL)
    218 
    219123dnl }}}
    220124dnl with-L2ProjectionBase{{{
    221 
    222125AC_ARG_WITH([L2ProjectionBase],
    223 
    224126        AS_HELP_STRING([--with-L2ProjectionBase = YES], [compile with L2ProjectionBase capabilities (default is yes)]),
    225 
    226127        [L2PROJECTIONBASE=$withval],[L2PROJECTIONBASE=yes])
    227 
    228128AC_MSG_CHECKING(for L2ProjectionBase capability compilation)
    229129
    230 
    231130HAVE_L2PROJECTIONBASE=no
    232 
    233131if test "x$L2PROJECTIONBASE" = "xyes"; then
    234 
    235132        HAVE_L2PROJECTIONBASE=yes
    236 
    237133        AC_DEFINE([_HAVE_L2PROJECTIONBASE_],[1],[with L2ProjectionBasecapability])
    238 
    239 fi
    240 
     134fi
    241135AM_CONDITIONAL([L2PROJECTIONBASE], [test x$HAVE_L2PROJECTIONBASE = xyes])
    242 
    243136AC_MSG_RESULT($HAVE_L2PROJECTIONBASE)
    244 
    245137dnl }}}
    246138dnl with-DamageEvolution{{{
    247 
    248139AC_ARG_WITH([DamageEvolution],
    249 
    250140        AS_HELP_STRING([--with-DamageEvolution = YES], [compile with DamageEvolution capabilities (default is yes)]),
    251 
    252141        [DAMAGEEVOLUTION=$withval],[DAMAGEEVOLUTION=yes])
    253 
    254142AC_MSG_CHECKING(for DamageEvolution capability compilation)
    255143
    256 
    257144HAVE_DAMAGEEVOLUTION=no
    258 
    259145if test "x$DAMAGEEVOLUTION" = "xyes"; then
    260 
    261146        HAVE_DAMAGEEVOLUTION=yes
    262 
    263147        AC_DEFINE([_HAVE_DAMAGEEVOLUTION_],[1],[with DamageEvolutioncapability])
    264 
    265 fi
    266 
     148fi
    267149AM_CONDITIONAL([DAMAGEEVOLUTION], [test x$HAVE_DAMAGEEVOLUTION = xyes])
    268 
    269150AC_MSG_RESULT($HAVE_DAMAGEEVOLUTION)
    270 
    271151dnl }}}
    272152dnl with-Stressbalance{{{
    273 
    274153AC_ARG_WITH([Stressbalance],
    275 
    276154        AS_HELP_STRING([--with-Stressbalance = YES], [compile with Stressbalance capabilities (default is yes)]),
    277 
    278155        [STRESSBALANCE=$withval],[STRESSBALANCE=yes])
    279 
    280156AC_MSG_CHECKING(for Stressbalance capability compilation)
    281157
    282 
    283158HAVE_STRESSBALANCE=no
    284 
    285159if test "x$STRESSBALANCE" = "xyes"; then
    286 
    287160        HAVE_STRESSBALANCE=yes
    288 
    289161        AC_DEFINE([_HAVE_STRESSBALANCE_],[1],[with Stressbalancecapability])
    290 
    291 fi
    292 
     162fi
    293163AM_CONDITIONAL([STRESSBALANCE], [test x$HAVE_STRESSBALANCE = xyes])
    294 
    295164AC_MSG_RESULT($HAVE_STRESSBALANCE)
    296 
    297165dnl }}}
    298166dnl with-StressbalanceSIA{{{
    299 
    300167AC_ARG_WITH([StressbalanceSIA],
    301 
    302168        AS_HELP_STRING([--with-StressbalanceSIA = YES], [compile with StressbalanceSIA capabilities (default is yes)]),
    303 
    304169        [STRESSBALANCESIA=$withval],[STRESSBALANCESIA=yes])
    305 
    306170AC_MSG_CHECKING(for StressbalanceSIA capability compilation)
    307171
    308 
    309172HAVE_STRESSBALANCESIA=no
    310 
    311173if test "x$STRESSBALANCESIA" = "xyes"; then
    312 
    313174        HAVE_STRESSBALANCESIA=yes
    314 
    315175        AC_DEFINE([_HAVE_STRESSBALANCESIA_],[1],[with StressbalanceSIAcapability])
    316 
    317 fi
    318 
     176fi
    319177AM_CONDITIONAL([STRESSBALANCESIA], [test x$HAVE_STRESSBALANCESIA = xyes])
    320 
    321178AC_MSG_RESULT($HAVE_STRESSBALANCESIA)
    322 
    323179dnl }}}
    324180dnl with-StressbalanceVertical{{{
    325 
    326181AC_ARG_WITH([StressbalanceVertical],
    327 
    328182        AS_HELP_STRING([--with-StressbalanceVertical = YES], [compile with StressbalanceVertical capabilities (default is yes)]),
    329 
    330183        [STRESSBALANCEVERTICAL=$withval],[STRESSBALANCEVERTICAL=yes])
    331 
    332184AC_MSG_CHECKING(for StressbalanceVertical capability compilation)
    333185
    334 
    335186HAVE_STRESSBALANCEVERTICAL=no
    336 
    337187if test "x$STRESSBALANCEVERTICAL" = "xyes"; then
    338 
    339188        HAVE_STRESSBALANCEVERTICAL=yes
    340 
    341189        AC_DEFINE([_HAVE_STRESSBALANCEVERTICAL_],[1],[with StressbalanceVerticalcapability])
    342 
    343 fi
    344 
     190fi
    345191AM_CONDITIONAL([STRESSBALANCEVERTICAL], [test x$HAVE_STRESSBALANCEVERTICAL = xyes])
    346 
    347192AC_MSG_RESULT($HAVE_STRESSBALANCEVERTICAL)
    348 
    349193dnl }}}
    350194dnl with-Enthalpy{{{
    351 
    352195AC_ARG_WITH([Enthalpy],
    353 
    354196        AS_HELP_STRING([--with-Enthalpy = YES], [compile with Enthalpy capabilities (default is yes)]),
    355 
    356197        [ENTHALPY=$withval],[ENTHALPY=yes])
    357 
    358198AC_MSG_CHECKING(for Enthalpy capability compilation)
    359199
    360 
    361200HAVE_ENTHALPY=no
    362 
    363201if test "x$ENTHALPY" = "xyes"; then
    364 
    365202        HAVE_ENTHALPY=yes
    366 
    367203        AC_DEFINE([_HAVE_ENTHALPY_],[1],[with Enthalpycapability])
    368 
    369 fi
    370 
     204fi
    371205AM_CONDITIONAL([ENTHALPY], [test x$HAVE_ENTHALPY = xyes])
    372 
    373206AC_MSG_RESULT($HAVE_ENTHALPY)
    374 
    375207dnl }}}
    376208dnl with-HydrologyShreve{{{
    377 
    378209AC_ARG_WITH([HydrologyShreve],
    379 
    380210        AS_HELP_STRING([--with-HydrologyShreve = YES], [compile with HydrologyShreve capabilities (default is yes)]),
    381 
    382211        [HYDROLOGYSHREVE=$withval],[HYDROLOGYSHREVE=yes])
    383 
    384212AC_MSG_CHECKING(for HydrologyShreve capability compilation)
    385213
    386 
    387214HAVE_HYDROLOGYSHREVE=no
    388 
    389215if test "x$HYDROLOGYSHREVE" = "xyes"; then
    390 
    391216        HAVE_HYDROLOGYSHREVE=yes
    392 
    393217        AC_DEFINE([_HAVE_HYDROLOGYSHREVE_],[1],[with HydrologyShrevecapability])
    394 
    395 fi
    396 
     218fi
    397219AM_CONDITIONAL([HYDROLOGYSHREVE], [test x$HAVE_HYDROLOGYSHREVE = xyes])
    398 
    399220AC_MSG_RESULT($HAVE_HYDROLOGYSHREVE)
    400 
    401221dnl }}}
    402222dnl with-HydrologyDCInefficient{{{
    403 
    404223AC_ARG_WITH([HydrologyDCInefficient],
    405 
    406224        AS_HELP_STRING([--with-HydrologyDCInefficient = YES], [compile with HydrologyDCInefficient capabilities (default is yes)]),
    407 
    408225        [HYDROLOGYDCINEFFICIENT=$withval],[HYDROLOGYDCINEFFICIENT=yes])
    409 
    410226AC_MSG_CHECKING(for HydrologyDCInefficient capability compilation)
    411227
    412 
    413228HAVE_HYDROLOGYDCINEFFICIENT=no
    414 
    415229if test "x$HYDROLOGYDCINEFFICIENT" = "xyes"; then
    416 
    417230        HAVE_HYDROLOGYDCINEFFICIENT=yes
    418 
    419231        AC_DEFINE([_HAVE_HYDROLOGYDCINEFFICIENT_],[1],[with HydrologyDCInefficientcapability])
    420 
    421 fi
    422 
     232fi
    423233AM_CONDITIONAL([HYDROLOGYDCINEFFICIENT], [test x$HAVE_HYDROLOGYDCINEFFICIENT = xyes])
    424 
    425234AC_MSG_RESULT($HAVE_HYDROLOGYDCINEFFICIENT)
    426 
    427235dnl }}}
    428236dnl with-HydrologyDCEfficient{{{
    429 
    430237AC_ARG_WITH([HydrologyDCEfficient],
    431 
    432238        AS_HELP_STRING([--with-HydrologyDCEfficient = YES], [compile with HydrologyDCEfficient capabilities (default is yes)]),
    433 
    434239        [HYDROLOGYDCEFFICIENT=$withval],[HYDROLOGYDCEFFICIENT=yes])
    435 
    436240AC_MSG_CHECKING(for HydrologyDCEfficient capability compilation)
    437241
    438 
    439242HAVE_HYDROLOGYDCEFFICIENT=no
    440 
    441243if test "x$HYDROLOGYDCEFFICIENT" = "xyes"; then
    442 
    443244        HAVE_HYDROLOGYDCEFFICIENT=yes
    444 
    445245        AC_DEFINE([_HAVE_HYDROLOGYDCEFFICIENT_],[1],[with HydrologyDCEfficientcapability])
    446 
    447 fi
    448 
     246fi
    449247AM_CONDITIONAL([HYDROLOGYDCEFFICIENT], [test x$HAVE_HYDROLOGYDCEFFICIENT = xyes])
    450 
    451248AC_MSG_RESULT($HAVE_HYDROLOGYDCEFFICIENT)
    452 
    453249dnl }}}
    454250dnl with-Melting{{{
    455 
    456251AC_ARG_WITH([Melting],
    457 
    458252        AS_HELP_STRING([--with-Melting = YES], [compile with Melting capabilities (default is yes)]),
    459 
    460253        [MELTING=$withval],[MELTING=yes])
    461 
    462254AC_MSG_CHECKING(for Melting capability compilation)
    463255
    464 
    465256HAVE_MELTING=no
    466 
    467257if test "x$MELTING" = "xyes"; then
    468 
    469258        HAVE_MELTING=yes
    470 
    471259        AC_DEFINE([_HAVE_MELTING_],[1],[with Meltingcapability])
    472 
    473 fi
    474 
     260fi
    475261AM_CONDITIONAL([MELTING], [test x$HAVE_MELTING = xyes])
    476 
    477262AC_MSG_RESULT($HAVE_MELTING)
    478 
    479263dnl }}}
    480264dnl with-Masstransport{{{
    481 
    482265AC_ARG_WITH([Masstransport],
    483 
    484266        AS_HELP_STRING([--with-Masstransport = YES], [compile with Masstransport capabilities (default is yes)]),
    485 
    486267        [MASSTRANSPORT=$withval],[MASSTRANSPORT=yes])
    487 
    488268AC_MSG_CHECKING(for Masstransport capability compilation)
    489269
    490 
    491270HAVE_MASSTRANSPORT=no
    492 
    493271if test "x$MASSTRANSPORT" = "xyes"; then
    494 
    495272        HAVE_MASSTRANSPORT=yes
    496 
    497273        AC_DEFINE([_HAVE_MASSTRANSPORT_],[1],[with Masstransportcapability])
    498 
    499 fi
    500 
     274fi
    501275AM_CONDITIONAL([MASSTRANSPORT], [test x$HAVE_MASSTRANSPORT = xyes])
    502 
    503276AC_MSG_RESULT($HAVE_MASSTRANSPORT)
    504 
    505277dnl }}}
    506278dnl with-FreeSurfaceBase{{{
    507 
    508279AC_ARG_WITH([FreeSurfaceBase],
    509 
    510280        AS_HELP_STRING([--with-FreeSurfaceBase = YES], [compile with FreeSurfaceBase capabilities (default is yes)]),
    511 
    512281        [FREESURFACEBASE=$withval],[FREESURFACEBASE=yes])
    513 
    514282AC_MSG_CHECKING(for FreeSurfaceBase capability compilation)
    515283
    516 
    517284HAVE_FREESURFACEBASE=no
    518 
    519285if test "x$FREESURFACEBASE" = "xyes"; then
    520 
    521286        HAVE_FREESURFACEBASE=yes
    522 
    523287        AC_DEFINE([_HAVE_FREESURFACEBASE_],[1],[with FreeSurfaceBasecapability])
    524 
    525 fi
    526 
     288fi
    527289AM_CONDITIONAL([FREESURFACEBASE], [test x$HAVE_FREESURFACEBASE = xyes])
    528 
    529290AC_MSG_RESULT($HAVE_FREESURFACEBASE)
    530 
    531291dnl }}}
    532292dnl with-FreeSurfaceTop{{{
    533 
    534293AC_ARG_WITH([FreeSurfaceTop],
    535 
    536294        AS_HELP_STRING([--with-FreeSurfaceTop = YES], [compile with FreeSurfaceTop capabilities (default is yes)]),
    537 
    538295        [FREESURFACETOP=$withval],[FREESURFACETOP=yes])
    539 
    540296AC_MSG_CHECKING(for FreeSurfaceTop capability compilation)
    541297
    542 
    543298HAVE_FREESURFACETOP=no
    544 
    545299if test "x$FREESURFACETOP" = "xyes"; then
    546 
    547300        HAVE_FREESURFACETOP=yes
    548 
    549301        AC_DEFINE([_HAVE_FREESURFACETOP_],[1],[with FreeSurfaceTopcapability])
    550 
    551 fi
    552 
     302fi
    553303AM_CONDITIONAL([FREESURFACETOP], [test x$HAVE_FREESURFACETOP = xyes])
    554 
    555304AC_MSG_RESULT($HAVE_FREESURFACETOP)
    556 
    557305dnl }}}
    558306dnl with-ExtrudeFromBase{{{
    559 
    560307AC_ARG_WITH([ExtrudeFromBase],
    561 
    562308        AS_HELP_STRING([--with-ExtrudeFromBase = YES], [compile with ExtrudeFromBase capabilities (default is yes)]),
    563 
    564309        [EXTRUDEFROMBASE=$withval],[EXTRUDEFROMBASE=yes])
    565 
    566310AC_MSG_CHECKING(for ExtrudeFromBase capability compilation)
    567311
    568 
    569312HAVE_EXTRUDEFROMBASE=no
    570 
    571313if test "x$EXTRUDEFROMBASE" = "xyes"; then
    572 
    573314        HAVE_EXTRUDEFROMBASE=yes
    574 
    575315        AC_DEFINE([_HAVE_EXTRUDEFROMBASE_],[1],[with ExtrudeFromBasecapability])
    576 
    577 fi
    578 
     316fi
    579317AM_CONDITIONAL([EXTRUDEFROMBASE], [test x$HAVE_EXTRUDEFROMBASE = xyes])
    580 
    581318AC_MSG_RESULT($HAVE_EXTRUDEFROMBASE)
    582 
    583319dnl }}}
    584320dnl with-ExtrudeFromTop{{{
    585 
    586321AC_ARG_WITH([ExtrudeFromTop],
    587 
    588322        AS_HELP_STRING([--with-ExtrudeFromTop = YES], [compile with ExtrudeFromTop capabilities (default is yes)]),
    589 
    590323        [EXTRUDEFROMTOP=$withval],[EXTRUDEFROMTOP=yes])
    591 
    592324AC_MSG_CHECKING(for ExtrudeFromTop capability compilation)
    593325
    594 
    595326HAVE_EXTRUDEFROMTOP=no
    596 
    597327if test "x$EXTRUDEFROMTOP" = "xyes"; then
    598 
    599328        HAVE_EXTRUDEFROMTOP=yes
    600 
    601329        AC_DEFINE([_HAVE_EXTRUDEFROMTOP_],[1],[with ExtrudeFromTopcapability])
    602 
    603 fi
    604 
     330fi
    605331AM_CONDITIONAL([EXTRUDEFROMTOP], [test x$HAVE_EXTRUDEFROMTOP = xyes])
    606 
    607332AC_MSG_RESULT($HAVE_EXTRUDEFROMTOP)
    608 
    609333dnl }}}
    610334dnl with-DepthAverage{{{
    611 
    612335AC_ARG_WITH([DepthAverage],
    613 
    614336        AS_HELP_STRING([--with-DepthAverage = YES], [compile with DepthAverage capabilities (default is yes)]),
    615 
    616337        [DEPTHAVERAGE=$withval],[DEPTHAVERAGE=yes])
    617 
    618338AC_MSG_CHECKING(for DepthAverage capability compilation)
    619339
    620 
    621340HAVE_DEPTHAVERAGE=no
    622 
    623341if test "x$DEPTHAVERAGE" = "xyes"; then
    624 
    625342        HAVE_DEPTHAVERAGE=yes
    626 
    627343        AC_DEFINE([_HAVE_DEPTHAVERAGE_],[1],[with DepthAveragecapability])
    628 
    629 fi
    630 
     344fi
    631345AM_CONDITIONAL([DEPTHAVERAGE], [test x$HAVE_DEPTHAVERAGE = xyes])
    632 
    633346AC_MSG_RESULT($HAVE_DEPTHAVERAGE)
    634 
    635347dnl }}}
    636348dnl with-Smooth{{{
    637 
    638349AC_ARG_WITH([Smooth],
    639 
    640350        AS_HELP_STRING([--with-Smooth = YES], [compile with Smooth capabilities (default is yes)]),
    641 
    642351        [SMOOTH=$withval],[SMOOTH=yes])
    643 
    644352AC_MSG_CHECKING(for Smooth capability compilation)
    645353
    646 
    647354HAVE_SMOOTH=no
    648 
    649355if test "x$SMOOTH" = "xyes"; then
    650 
    651356        HAVE_SMOOTH=yes
    652 
    653357        AC_DEFINE([_HAVE_SMOOTH_],[1],[with Smoothcapability])
    654 
    655 fi
    656 
     358fi
    657359AM_CONDITIONAL([SMOOTH], [test x$HAVE_SMOOTH = xyes])
    658 
    659360AC_MSG_RESULT($HAVE_SMOOTH)
    660 
    661361dnl }}}
    662362dnl with-Thermal{{{
    663 
    664363AC_ARG_WITH([Thermal],
    665 
    666364        AS_HELP_STRING([--with-Thermal = YES], [compile with Thermal capabilities (default is yes)]),
    667 
    668365        [THERMAL=$withval],[THERMAL=yes])
    669 
    670366AC_MSG_CHECKING(for Thermal capability compilation)
    671367
    672 
    673368HAVE_THERMAL=no
    674 
    675369if test "x$THERMAL" = "xyes"; then
    676 
    677370        HAVE_THERMAL=yes
    678 
    679371        AC_DEFINE([_HAVE_THERMAL_],[1],[with Thermalcapability])
    680 
    681 fi
    682 
     372fi
    683373AM_CONDITIONAL([THERMAL], [test x$HAVE_THERMAL = xyes])
    684 
    685374AC_MSG_RESULT($HAVE_THERMAL)
    686 
    687375dnl }}}
    688376dnl with-UzawaPressure{{{
    689 
    690377AC_ARG_WITH([UzawaPressure],
    691 
    692378        AS_HELP_STRING([--with-UzawaPressure = YES], [compile with UzawaPressure capabilities (default is yes)]),
    693 
    694379        [UZAWAPRESSURE=$withval],[UZAWAPRESSURE=yes])
    695 
    696380AC_MSG_CHECKING(for UzawaPressure capability compilation)
    697381
    698 
    699382HAVE_UZAWAPRESSURE=no
    700 
    701383if test "x$UZAWAPRESSURE" = "xyes"; then
    702 
    703384        HAVE_UZAWAPRESSURE=yes
    704 
    705385        AC_DEFINE([_HAVE_UZAWAPRESSURE_],[1],[with UzawaPressurecapability])
    706 
    707 fi
    708 
     386fi
    709387AM_CONDITIONAL([UZAWAPRESSURE], [test x$HAVE_UZAWAPRESSURE = xyes])
    710 
    711388AC_MSG_RESULT($HAVE_UZAWAPRESSURE)
    712 
    713389dnl }}}
    714390dnl with-Gia{{{
    715 
    716391AC_ARG_WITH([Gia],
    717 
    718392        AS_HELP_STRING([--with-Gia = YES], [compile with Gia capabilities (default is yes)]),
    719 
    720393        [GIA=$withval],[GIA=yes])
    721 
    722394AC_MSG_CHECKING(for Gia capability compilation)
    723395
    724 
    725396HAVE_GIA=no
    726 
    727397if test "x$GIA" = "xyes"; then
    728 
    729398        HAVE_GIA=yes
    730 
    731399        AC_DEFINE([_HAVE_GIA_],[1],[with Giacapability])
    732 
    733 fi
    734 
     400fi
    735401AM_CONDITIONAL([GIA], [test x$HAVE_GIA = xyes])
    736 
    737402AC_MSG_RESULT($HAVE_GIA)
    738 
    739403dnl }}}
    740404dnl with-Seaice{{{
    741 
    742405AC_ARG_WITH([Seaice],
    743 
    744406        AS_HELP_STRING([--with-Seaice = YES], [compile with Seaice capabilities (default is yes)]),
    745 
    746407        [SEAICE=$withval],[SEAICE=yes])
    747 
    748408AC_MSG_CHECKING(for Seaice capability compilation)
    749409
    750 
    751410HAVE_SEAICE=no
    752 
    753411if test "x$SEAICE" = "xyes"; then
    754 
    755412        HAVE_SEAICE=yes
    756 
    757413        AC_DEFINE([_HAVE_SEAICE_],[1],[with Seaicecapability])
    758 
    759 fi
    760 
     414fi
    761415AM_CONDITIONAL([SEAICE], [test x$HAVE_SEAICE = xyes])
    762 
    763416AC_MSG_RESULT($HAVE_SEAICE)
    764 
    765417dnl }}}
    766418dnl with-Meshdeformation{{{
    767 
    768419AC_ARG_WITH([Meshdeformation],
    769 
    770420        AS_HELP_STRING([--with-Meshdeformation = YES], [compile with Meshdeformation capabilities (default is yes)]),
    771 
    772421        [MESHDEFORMATION=$withval],[MESHDEFORMATION=yes])
    773 
    774422AC_MSG_CHECKING(for Meshdeformation capability compilation)
    775423
    776 
    777424HAVE_MESHDEFORMATION=no
    778 
    779425if test "x$MESHDEFORMATION" = "xyes"; then
    780 
    781426        HAVE_MESHDEFORMATION=yes
    782 
    783427        AC_DEFINE([_HAVE_MESHDEFORMATION_],[1],[with Meshdeformationcapability])
    784 
    785 fi
    786 
     428fi
    787429AM_CONDITIONAL([MESHDEFORMATION], [test x$HAVE_MESHDEFORMATION = xyes])
    788 
    789430AC_MSG_RESULT($HAVE_MESHDEFORMATION)
    790 
    791431dnl }}}
    792432dnl with-Levelset{{{
    793 
    794433AC_ARG_WITH([Levelset],
    795 
    796434        AS_HELP_STRING([--with-Levelset = YES], [compile with Levelset capabilities (default is yes)]),
    797 
    798435        [LEVELSET=$withval],[LEVELSET=yes])
    799 
    800436AC_MSG_CHECKING(for Levelset capability compilation)
    801437
    802 
    803438HAVE_LEVELSET=no
    804 
    805439if test "x$LEVELSET" = "xyes"; then
    806 
    807440        HAVE_LEVELSET=yes
    808 
    809441        AC_DEFINE([_HAVE_LEVELSET_],[1],[with Levelsetcapability])
    810 
    811 fi
    812 
     442fi
    813443AM_CONDITIONAL([LEVELSET], [test x$HAVE_LEVELSET = xyes])
    814 
    815444AC_MSG_RESULT($HAVE_LEVELSET)
    816 
    817445dnl }}}
    818446dnl with-Extrapolation{{{
    819 
    820447AC_ARG_WITH([Extrapolation],
    821 
    822448        AS_HELP_STRING([--with-Extrapolation = YES], [compile with Extrapolation capabilities (default is yes)]),
    823 
    824449        [EXTRAPOLATION=$withval],[EXTRAPOLATION=yes])
    825 
    826450AC_MSG_CHECKING(for Extrapolation capability compilation)
    827451
    828 
    829452HAVE_EXTRAPOLATION=no
    830 
    831453if test "x$EXTRAPOLATION" = "xyes"; then
    832 
    833454        HAVE_EXTRAPOLATION=yes
    834 
    835455        AC_DEFINE([_HAVE_EXTRAPOLATION_],[1],[with Extrapolationcapability])
    836 
    837 fi
    838 
     456fi
    839457AM_CONDITIONAL([EXTRAPOLATION], [test x$HAVE_EXTRAPOLATION = xyes])
    840 
    841458AC_MSG_RESULT($HAVE_EXTRAPOLATION)
    842 
    843459dnl }}}
    844460dnl with-LsfReinitialization{{{
    845 
    846461AC_ARG_WITH([LsfReinitialization],
    847 
    848462        AS_HELP_STRING([--with-LsfReinitialization = YES], [compile with LsfReinitialization capabilities (default is yes)]),
    849 
    850463        [LSFREINITIALIZATION=$withval],[LSFREINITIALIZATION=yes])
    851 
    852464AC_MSG_CHECKING(for LsfReinitialization capability compilation)
    853465
    854 
    855466HAVE_LSFREINITIALIZATION=no
    856 
    857467if test "x$LSFREINITIALIZATION" = "xyes"; then
    858 
    859468        HAVE_LSFREINITIALIZATION=yes
    860 
    861469        AC_DEFINE([_HAVE_LSFREINITIALIZATION_],[1],[with LsfReinitializationcapability])
    862 
    863 fi
    864 
     470fi
    865471AM_CONDITIONAL([LSFREINITIALIZATION], [test x$HAVE_LSFREINITIALIZATION = xyes])
    866 
    867472AC_MSG_RESULT($HAVE_LSFREINITIALIZATION)
    868 
    869473dnl }}}
    870474
  • issm/trunk-jpl/src/c/analyses/MasstransportAnalysis.cpp

    r18930 r18950  
    184184                                iomodel->FetchDataToInput(elements,SurfaceforcingsTemperaturesPresentdayEnum);
    185185                                iomodel->FetchDataToInput(elements,SurfaceforcingsPrecipitationsPresentdayEnum);
     186                                iomodel->FetchDataToInput(elements,SurfaceforcingsPrecipitationsLgmEnum);
    186187                        }
    187188                        else{
  • issm/trunk-jpl/src/c/classes/Elements/Penta.cpp

    r18948 r18950  
    20122012   IssmDouble monthlytemperatures[NUMVERTICES][12],monthlyprec[NUMVERTICES][12];
    20132013   IssmDouble TemperaturesPresentday[NUMVERTICES][12],TemperaturesLgm[NUMVERTICES][12];
     2014   IssmDouble PrecipitationsPresentday[NUMVERTICES][12],PrecipitationsLgm[NUMVERTICES][12];
    20142015   IssmDouble h[NUMVERTICES],s[NUMVERTICES];
    20152016   IssmDouble rho_water,rho_ice,desfac,s0p,s0t,rlaps,rlapslgm;
    20162017   IssmDouble PfacTime,TdiffTime,sealevTime;
     2018   IssmDouble sconv; //rhow_rain/rhoi / 12 months
     2019
     2020   /*Get material parameters :*/
     2021   rho_ice=matpar->GetRhoIce();
     2022   rho_water=matpar->GetRhoFreshwater();
     2023
     2024   sconv=(rho_water/rho_ice)/12.; //to convert monbthly prec in m of ice equivalent per month
    20172025
    20182026   /*Recover monthly temperatures and precipitation*/
     
    20212029   Input*     input3=inputs->GetInput(SurfaceforcingsTemperaturesPresentdayEnum);  _assert_(input3);
    20222030   Input*     input4=inputs->GetInput(SurfaceforcingsTemperaturesLgmEnum);   _assert_(input4);
     2031   Input*     input5=inputs->GetInput(SurfaceforcingsPrecipitationsPresentdayEnum);  _assert_(input5);
     2032   Input*     input6=inputs->GetInput(SurfaceforcingsPrecipitationsLgmEnum);   _assert_(input6);
    20232033   GaussPenta* gauss=new GaussPenta();
    20242034   IssmDouble time,yts;
    20252035   this->parameters->FindParam(&time,TimeEnum);
    20262036   this->parameters->FindParam(&yts,ConstantsYtsEnum);
     2037   
    20272038   for(int month=0;month<12;month++) {
    20282039     for(int iv=0;iv<NUMVERTICES;iv++) {
     
    20312042       monthlytemperatures[iv][month]=monthlytemperatures[iv][month]-273.15; // conversion from Kelvin to celcius
    20322043       input2->GetInputValue(&monthlyprec[iv][month],gauss,time+month/12.*yts);
    2033        monthlyprec[iv][month]=monthlyprec[iv][month]*yts; // convertion to m/yr
     2044       monthlyprec[iv][month]=monthlyprec[iv][month]*sconv; // convertion to m/yr
    20342045       input3->GetInputValue(&TemperaturesPresentday[iv][month],gauss,month/12.*yts);
    20352046       TemperaturesPresentday[iv][month]=TemperaturesPresentday[iv][month]-273.15; // conversion from Kelvin to celcius
    20362047       input4->GetInputValue(&TemperaturesLgm[iv][month],gauss,month/12.*yts);
    20372048       TemperaturesLgm[iv][month]=TemperaturesLgm[iv][month]-273.15; // conversion from Kelvin to celcius
     2049       input5->GetInputValue(&PrecipitationsPresentday[iv][month],gauss,month/12.*yts);
     2050       PrecipitationsPresentday[iv][month]=PrecipitationsPresentday[iv][month];
     2051       input6->GetInputValue(&PrecipitationsLgm[iv][month],gauss,month/12.*yts);
     2052       PrecipitationsLgm[iv][month]=PrecipitationsLgm[iv][month]; 
    20382053     }
    20392054   }
     
    20462061  /*Recover info at the vertices: */
    20472062  GetInputListOnVertices(&h[0],ThicknessEnum);
    2048   GetInputListOnVertices(&s[0],SurfaceEnum);
    2049 
    2050   /*Get material parameters :*/
    2051   rho_ice=matpar->GetMaterialParameter(MaterialsRhoIceEnum);
    2052   rho_water=matpar->GetMaterialParameter(MaterialsRhoFreshwaterEnum);
     2063  GetInputListOnVertices(&s[0],SurfaceEnum);
    20532064
    20542065  /*Get other pdd parameters*/
     
    20632074     agd[iv]=PddSurfaceMassBlance(&monthlytemperatures[iv][0], &monthlyprec[iv][0], 
    20642075                                  &TemperaturesLgm[iv][0], &TemperaturesPresentday[iv][0],
    2065                                   pdds,pds, signorm, yts, h[iv], s[iv], rho_ice, rho_water,
     2076                                  &PrecipitationsLgm[iv][0], &PrecipitationsPresentday[iv][0],
     2077                                  pdds,pds, signorm, yts, h[iv], s[iv],
    20662078                                  desfac, s0t, s0p,rlaps,rlapslgm,PfacTime,TdiffTime,sealevTime);
    20672079   }
  • issm/trunk-jpl/src/c/classes/Elements/Tria.cpp

    r18949 r18950  
    22152215   IssmDouble monthlytemperatures[NUMVERTICES][12],monthlyprec[NUMVERTICES][12];
    22162216   IssmDouble TemperaturesPresentday[NUMVERTICES][12],TemperaturesLgm[NUMVERTICES][12];
     2217   IssmDouble PrecipitationsPresentday[NUMVERTICES][12],PrecipitationsLgm[NUMVERTICES][12];
    22172218   IssmDouble h[NUMVERTICES],s[NUMVERTICES];
    22182219   IssmDouble rho_water,rho_ice,desfac,s0p,s0t,rlaps,rlapslgm;
    22192220   IssmDouble PfacTime,TdiffTime,sealevTime;
     2221   IssmDouble sconv; //rhow_rain/rhoi / 12 months
     2222   
     2223   /*Get material parameters :*/
     2224   rho_ice=matpar->GetRhoIce();
     2225   rho_water=matpar->GetRhoFreshwater();
     2226
     2227   sconv=(rho_water/rho_ice)/12.; //to convert monbthly prec in m of ice equivalent per month
    22202228
    22212229   /*Recover monthly temperatures and precipitation and Present day and LGm ones*/
     
    22242232   Input*     input3=inputs->GetInput(SurfaceforcingsTemperaturesPresentdayEnum);    _assert_(input3);
    22252233   Input*     input4=inputs->GetInput(SurfaceforcingsTemperaturesLgmEnum);          _assert_(input4);
     2234   Input*     input5=inputs->GetInput(SurfaceforcingsPrecipitationsPresentdayEnum);  _assert_(input5);
     2235   Input*     input6=inputs->GetInput(SurfaceforcingsPrecipitationsLgmEnum);   _assert_(input6);
    22262236   GaussTria* gauss=new GaussTria();
    22272237   IssmDouble time,yts;
     
    22342244       monthlytemperatures[iv][month]=monthlytemperatures[iv][month]-273.15; // conversion from Kelvin to celcius
    22352245       input2->GetInputValue(&monthlyprec[iv][month],gauss,time+month/12.*yts);
    2236        monthlyprec[iv][month]=monthlyprec[iv][month]*yts; // convertion in m/y
     2246       monthlyprec[iv][month]=monthlyprec[iv][month]*sconv*yts; // convertion in m/y
    22372247       input3->GetInputValue(&TemperaturesPresentday[iv][month],gauss,month/12.*yts);
    22382248       TemperaturesPresentday[iv][month]=TemperaturesPresentday[iv][month]-273.15; // conversion from Kelvin to celcius
    22392249       input4->GetInputValue(&TemperaturesLgm[iv][month],gauss,month/12.*yts);
    22402250       TemperaturesLgm[iv][month]=TemperaturesLgm[iv][month]-273.15; // conversion from Kelvin to celcius
     2251       input5->GetInputValue(&PrecipitationsPresentday[iv][month],gauss,month/12.*yts);
     2252       PrecipitationsPresentday[iv][month]=PrecipitationsPresentday[iv][month];
     2253       input6->GetInputValue(&PrecipitationsLgm[iv][month],gauss,month/12.*yts);
     2254       PrecipitationsLgm[iv][month]=PrecipitationsLgm[iv][month]; 
    22412255     }
    22422256   }
     
    22502264  GetInputListOnVertices(&h[0],ThicknessEnum);
    22512265  GetInputListOnVertices(&s[0],SurfaceEnum);
    2252 
    2253   /*Get material parameters :*/
    2254   rho_ice=matpar->GetMaterialParameter(MaterialsRhoIceEnum);
    2255   rho_water=matpar->GetMaterialParameter(MaterialsRhoFreshwaterEnum);
    22562266
    22572267  /*Get other pdd parameters*/
     
    22662276     agd[iv]=PddSurfaceMassBlance(&monthlytemperatures[iv][0], &monthlyprec[iv][0],
    22672277                                  &TemperaturesLgm[iv][0], &TemperaturesPresentday[iv][0],
    2268                                   pdds, pds, signorm, yts, h[iv], s[iv], rho_ice, rho_water,
     2278                                  &PrecipitationsLgm[iv][0], &PrecipitationsPresentday[iv][0],
     2279                                  pdds, pds, signorm, yts, h[iv], s[iv],
    22692280                                  desfac, s0t, s0p,rlaps,rlapslgm,PfacTime,TdiffTime,sealevTime);
    22702281   }
  • issm/trunk-jpl/src/c/shared/Elements/ComputeDelta18oTemperaturePrecipitation.cpp

    r18717 r18950  
    1717  IssmDouble glacialindex; // used to vary present day temperature
    1818
    19   glacialindex = 0.;//(Delta18oTime-Delta18oPresent-delta18oLapseRate*(Delta18oSurfaceTime-Delta18oSurfacePresent))
    20   //  /(Delta18oLgm-Delta18oPresent-delta18oLapseRate*(Delta18oSurfaceLgm-Delta18oSurfacePresent));
     19  // CURENTLY THE TEMPERATURE COMPUTED HERE ARE NOT USED.
     20  // Tdiff is used isnstead in PddSurfaceMassBalance.cpp to get the interpolated temperature
     21
     22  glacialindex = (Delta18oTime-Delta18oPresent-delta18oLapseRate*(Delta18oSurfaceTime-Delta18oSurfacePresent))
     23    /(Delta18oLgm-Delta18oPresent-delta18oLapseRate*(Delta18oSurfaceLgm-Delta18oSurfacePresent)); // Tarasov 2004 paper
    2124
    2225  for (int imonth = 0; imonth<12; imonth++){
  • issm/trunk-jpl/src/c/shared/Elements/PddSurfaceMassBalance.cpp

    r18717 r18950  
    88IssmDouble PddSurfaceMassBlance(IssmDouble* monthlytemperatures, IssmDouble* monthlyprec,
    99                                IssmDouble* TemperaturesLgm, IssmDouble* TemperaturesPresentday,
     10                                IssmDouble* PrecipitationsLgm, IssmDouble* PrecipitationsPresentday,
    1011                                IssmDouble* pdds, IssmDouble* pds, IssmDouble signorm,
    11                                 IssmDouble yts, IssmDouble h, IssmDouble s, IssmDouble rho_ice,
    12                                 IssmDouble rho_water, IssmDouble desfac, IssmDouble s0t,
     12                                IssmDouble yts, IssmDouble h, IssmDouble s, IssmDouble desfac,
     13                                IssmDouble s0t,
    1314                                IssmDouble s0p, IssmDouble rlaps, IssmDouble rlapslgm,
    1415                                IssmDouble PfacTime,IssmDouble TdiffTime,IssmDouble sealevTime){
     16
     17  // CURENTLY monthlytemperatures and monthlyprec ARE NOT USED HERE.
     18  // THEY ARE REPLACE BY tdiffh No usage of deltO18 anymore
    1519
    1620  // output:
     
    2428  IssmDouble water; //water=rain + snowmelt
    2529  IssmDouble runoff; //meltwater only, does not include rain
    26   IssmDouble sconv; //rhow_rain/rhoi / 12 months
    2730
    2831  //IssmDouble  sealev=0.;         // degrees per meter. 7.5 lev's 99 paper, 9 Marshall 99 paper
     
    3033  IssmDouble  rtlaps;
    3134  // IssmDouble lapser=6.5         // lapse rate
    32   // IssmDouble desfac = 0.5;      // desert elevation factor
     35  // IssmDouble desfac = 0.3;      // desert elevation factor
    3336  // IssmDouble s0p=0.;            // should be set to elevation from precip source
    3437  // IssmDouble s0t=0.;         // should be set to elevation from temperature source
     
    3639  IssmDouble st;             // elevation between altitude of the temp record and current altitude
    3740  IssmDouble sp;             // elevation between altitude of the prec record and current altitude
     41  IssmDouble deselcut=1.0;
    3842
    3943  // PDD and PD constants and variables
     
    4549  IssmDouble pddt, pd; // pd: snow/precip fraction, precipitation falling as snow
    4650
    47   IssmDouble q, qmpt; // q is desert/elev. fact, hnpfac is huybrect fact, and pd is normal dist.
    48   IssmDouble qm = 0.;        // snow part of the precipitation
    49   IssmDouble qmt = 0.;       // precipitation without desertification effect adjustment
    50   IssmDouble qmp = 0.;       // desertification taken into account
     51  IssmDouble premt;     // monthly precipitation (m of ice equivalent)
     52  IssmDouble q, qmpt;   // q is desert/elev. fact, hnpfac is huybrect fact, and pd is normal dist.
     53  IssmDouble qm = 0.;   // snow part of the precipitation
     54  IssmDouble qmt = 0.;  // precipitation without desertification effect adjustment
     55  IssmDouble qmp = 0.;  // desertification taken into account
    5156  IssmDouble pdd = 0.;     
    5257  IssmDouble frzndd = 0.; 
     
    6873  IssmDouble pddtj, hmx2;
    6974
    70   sconv=(rho_water/rho_ice)/12.; //rhow_rain/rhoi / 12 months
    7175
    7276  /*PDD constant*/
     
    98102
    99103      /******exp des/elev precip reduction*******/
    100       sp=(s-s0p)/1000.; // deselev effect is wrt chng in topo
     104      sp=(s-s0p)/1000.-deselcut; // deselev effect is wrt chng in topo
    101105      if (sp>0.0){q = exp(-desfac*sp);}
    102106      else {q = 1.0;}
    103107
    104       qmt= qmt + monthlyprec[imonth]*sconv;  //*sconv to convert in m of ice equivalent per month
    105       qmpt= q*monthlyprec[imonth]*sconv;           
     108      premt =min(1.5, PrecipitationsPresentday[imonth] * pow(PrecipitationsLgm[imonth],PfacTime));   // [m/month]
     109
     110      qmt= qmt + premt; 
     111      qmpt= q*premt;           
    106112      qmp= qmp + qmpt;
    107113      qm= qm + qmpt*pd;
     
    110116      // ndd(month)=-(tstar-pdd(month)) since ndd+pdd gives expectation of
    111117      // gaussian=T_m, so ndd=-(Tsurf-pdd)
    112       if (iqj>5 &&  iqj<9){ Tsum=Tsum+tstar;}
     118      if (iqj>5 && iqj<9){ Tsum=Tsum+tstar;}
    113119
    114120      if (tstar >= siglim) {pdd = pdd + tstar*deltm;}
  • issm/trunk-jpl/src/c/shared/Elements/elements.h

    r18717 r18950  
    1515IssmDouble PddSurfaceMassBlance(IssmDouble* monthlytemperatures,  IssmDouble* monthlyprec,
    1616                                IssmDouble* TemperaturesLgm, IssmDouble* TemperaturesPresentday,
     17                                IssmDouble* PrecipitationsLgm, IssmDouble* PrecipitationsPresentday,
    1718                                IssmDouble* pdds, IssmDouble* pds,IssmDouble signorm, IssmDouble yts,
    18                                 IssmDouble h, IssmDouble s, IssmDouble rho_ice,IssmDouble rho_water, IssmDouble desfac,
     19                                IssmDouble h, IssmDouble s, IssmDouble desfac,
    1920                                IssmDouble s0t,IssmDouble s0p, IssmDouble rlaps, IssmDouble rlapslgm,
    2021                                IssmDouble PfacTime,IssmDouble TdiffTime,IssmDouble sealevTime);
  • issm/trunk-jpl/src/c/shared/Enum/EnumDefinitions.h

    r18945 r18950  
    342342        SurfaceforcingsIsdelta18oEnum,
    343343        SurfaceforcingsPrecipitationsPresentdayEnum,
     344        SurfaceforcingsPrecipitationsLgmEnum,
    344345        SurfaceforcingsTemperaturesPresentdayEnum,
    345346        SurfaceforcingsTemperaturesLgmEnum,
  • issm/trunk-jpl/src/c/shared/Enum/EnumToStringx.cpp

    r18945 r18950  
    348348                case SurfaceforcingsIsdelta18oEnum : return "SurfaceforcingsIsdelta18o";
    349349                case SurfaceforcingsPrecipitationsPresentdayEnum : return "SurfaceforcingsPrecipitationsPresentday";
     350                case SurfaceforcingsPrecipitationsLgmEnum : return "SurfaceforcingsPrecipitationsLgm";
    350351                case SurfaceforcingsTemperaturesPresentdayEnum : return "SurfaceforcingsTemperaturesPresentday";
    351352                case SurfaceforcingsTemperaturesLgmEnum : return "SurfaceforcingsTemperaturesLgm";
  • issm/trunk-jpl/src/c/shared/Enum/StringToEnumx.cpp

    r18945 r18950  
    354354              else if (strcmp(name,"SurfaceforcingsIsdelta18o")==0) return SurfaceforcingsIsdelta18oEnum;
    355355              else if (strcmp(name,"SurfaceforcingsPrecipitationsPresentday")==0) return SurfaceforcingsPrecipitationsPresentdayEnum;
     356              else if (strcmp(name,"SurfaceforcingsPrecipitationsLgm")==0) return SurfaceforcingsPrecipitationsLgmEnum;
    356357              else if (strcmp(name,"SurfaceforcingsTemperaturesPresentday")==0) return SurfaceforcingsTemperaturesPresentdayEnum;
    357358              else if (strcmp(name,"SurfaceforcingsTemperaturesLgm")==0) return SurfaceforcingsTemperaturesLgmEnum;
     
    382383              else if (strcmp(name,"SurfaceforcingsIssmbgradients")==0) return SurfaceforcingsIssmbgradientsEnum;
    383384              else if (strcmp(name,"SolutionType")==0) return SolutionTypeEnum;
    384               else if (strcmp(name,"AnalysisType")==0) return AnalysisTypeEnum;
    385385         else stage=4;
    386386   }
    387387   if(stage==4){
    388               if (strcmp(name,"ConfigurationType")==0) return ConfigurationTypeEnum;
     388              if (strcmp(name,"AnalysisType")==0) return AnalysisTypeEnum;
     389              else if (strcmp(name,"ConfigurationType")==0) return ConfigurationTypeEnum;
    389390              else if (strcmp(name,"AdjointBalancethicknessAnalysis")==0) return AdjointBalancethicknessAnalysisEnum;
    390391              else if (strcmp(name,"AdjointBalancethickness2Analysis")==0) return AdjointBalancethickness2AnalysisEnum;
     
    505506              else if (strcmp(name,"Massconaxpby")==0) return MassconaxpbyEnum;
    506507              else if (strcmp(name,"MassconaxpbyName")==0) return MassconaxpbyNameEnum;
    507               else if (strcmp(name,"MassconaxpbyDefinitionenum")==0) return MassconaxpbyDefinitionenumEnum;
    508508         else stage=5;
    509509   }
    510510   if(stage==5){
    511               if (strcmp(name,"MassconaxpbyNamex")==0) return MassconaxpbyNamexEnum;
     511              if (strcmp(name,"MassconaxpbyDefinitionenum")==0) return MassconaxpbyDefinitionenumEnum;
     512              else if (strcmp(name,"MassconaxpbyNamex")==0) return MassconaxpbyNamexEnum;
    512513              else if (strcmp(name,"MassconaxpbyNamey")==0) return MassconaxpbyNameyEnum;
    513514              else if (strcmp(name,"MassconaxpbyAlpha")==0) return MassconaxpbyAlphaEnum;
     
    628629              else if (strcmp(name,"StrainRatexx")==0) return StrainRatexxEnum;
    629630              else if (strcmp(name,"StrainRatexy")==0) return StrainRatexyEnum;
    630               else if (strcmp(name,"StrainRatexz")==0) return StrainRatexzEnum;
    631631         else stage=6;
    632632   }
    633633   if(stage==6){
    634               if (strcmp(name,"StrainRateyy")==0) return StrainRateyyEnum;
     634              if (strcmp(name,"StrainRatexz")==0) return StrainRatexzEnum;
     635              else if (strcmp(name,"StrainRateyy")==0) return StrainRateyyEnum;
    635636              else if (strcmp(name,"StrainRateyz")==0) return StrainRateyzEnum;
    636637              else if (strcmp(name,"StrainRatezz")==0) return StrainRatezzEnum;
     
    751752              else if (strcmp(name,"Nodal")==0) return NodalEnum;
    752753              else if (strcmp(name,"OldGradient")==0) return OldGradientEnum;
    753               else if (strcmp(name,"OutputFilePointer")==0) return OutputFilePointerEnum;
    754754         else stage=7;
    755755   }
    756756   if(stage==7){
    757               if (strcmp(name,"ToolkitsFileName")==0) return ToolkitsFileNameEnum;
     757              if (strcmp(name,"OutputFilePointer")==0) return OutputFilePointerEnum;
     758              else if (strcmp(name,"ToolkitsFileName")==0) return ToolkitsFileNameEnum;
    758759              else if (strcmp(name,"RootPath")==0) return RootPathEnum;
    759760              else if (strcmp(name,"OutputFileName")==0) return OutputFileNameEnum;
  • issm/trunk-jpl/src/m/classes/SMBpdd.m

    r18728 r18950  
    1111                s0p                       = 0;
    1212                s0t                       = 0;
    13       rlaps                     = 0;
    14       rlapslgm                  = 0;               
    15       Pfac                      = NaN;
    16       Tdiff                     = NaN;
    17       sealev                    = NaN;
     13                rlaps                     = 0;
     14                rlapslgm                  = 0;               
     15                Pfac                      = NaN;
     16                Tdiff                     = NaN;
     17                sealev                    = NaN;
    1818                isdelta18o                = 0;
    1919                delta18o                  = NaN;
     
    2222                temperatures_lgm          = NaN;
    2323                precipitations_presentday = NaN;
     24                precipitations_lgm        = NaN;
    2425        end
    2526        methods
     
    3940                        if(self.isdelta18o),self.temperatures_presentday=project3d(md,'vector',self.temperatures_presentday,'type','node');end
    4041                        if(self.isdelta18o),self.precipitations_presentday=project3d(md,'vector',self.precipitations_presentday,'type','node');end
     42                        if(self.isdelta18o),self.precipitations_lgm=project3d(md,'vector',self.precipitations_lgm,'type','node');end
    4143
    4244
     
    8082                                        md = checkfield(md,'fieldname','surfaceforcings.temperatures_lgm','size',[md.mesh.numberofvertices+1 12],'NaN',1);
    8183                                        md = checkfield(md,'fieldname','surfaceforcings.precipitations_presentday','size',[md.mesh.numberofvertices+1 12],'NaN',1);
     84                                        md = checkfield(md,'fieldname','surfaceforcings.precipitations_lgm','size',[md.mesh.numberofvertices+1 12],'NaN',1);
    8285                                end
    8386                        end
     
    9699                        fielddisplay(obj,'Tdiff','time interpolation parameter for temperature, 1D(year)');
    97100                        fielddisplay(obj,'sealev','sea level [m], 1D(year)');
    98                         fielddisplay(obj,'monthlytemperatures','monthly surface temperatures [K], required if pdd is activated and delta18o not activated');
    99                         fielddisplay(obj,'precipitation','surface precipitation [m/yr water eq]');
     101                        fielddisplay(obj,'monthlytemperatures',['CURRENTLY NOT USED monthly surface temperatures [K], required if pdd is activated and delta18o not activated']);
     102                        fielddisplay(obj,'precipitation',['CURRENTLY NOT USED monthly surface precipitation [m/yr water eq]']);
    100103                        fielddisplay(obj,'temperatures_presentday','monthly present day surface temperatures [K], required if pdd is activated and delta18o activated');
    101104                        fielddisplay(obj,'temperatures_lgm','monthly LGM surface temperatures [K], required if pdd is activated and delta18o activated');
    102105                        fielddisplay(obj,'precipitations_presentday','monthly surface precipitation [m/yr water eq], required if pdd is activated and delta18o activated');
     106                        fielddisplay(obj,'precipitations_lgm','monthly surface precipitation [m/yr water eq], required if pdd is activated and delta18o activated');
    103107                        fielddisplay(obj,'delta18o','delta18o, required if pdd is activated and delta18o activated');
    104108                        fielddisplay(obj,'delta18o_surface','surface elevation of the delta18o site, required if pdd is activated and delta18o activated');
     
    125129                                WriteData(fid,'object',obj,'class','surfaceforcings','fieldname','temperatures_lgm','format','DoubleMat','mattype',1);
    126130                                WriteData(fid,'object',obj,'class','surfaceforcings','fieldname','precipitations_presentday','format','DoubleMat','mattype',1);
     131                                WriteData(fid,'object',obj,'class','surfaceforcings','fieldname','precipitations_lgm','format','DoubleMat','mattype',1);
    127132                                WriteData(fid,'object',obj,'class','surfaceforcings','fieldname','delta18o_surface','format','DoubleMat','mattype',1);
    128133                                WriteData(fid,'object',obj,'class','surfaceforcings','fieldname','delta18o','format','DoubleMat','mattype',1);
  • issm/trunk-jpl/src/m/enum/EnumDefinitions.py

    r18945 r18950  
    340340def SurfaceforcingsIsdelta18oEnum(): return StringToEnum("SurfaceforcingsIsdelta18o")[0]
    341341def SurfaceforcingsPrecipitationsPresentdayEnum(): return StringToEnum("SurfaceforcingsPrecipitationsPresentday")[0]
     342def SurfaceforcingsPrecipitationsLgmEnum(): return StringToEnum("SurfaceforcingsPrecipitationsLgm")[0]
    342343def SurfaceforcingsTemperaturesPresentdayEnum(): return StringToEnum("SurfaceforcingsTemperaturesPresentday")[0]
    343344def SurfaceforcingsTemperaturesLgmEnum(): return StringToEnum("SurfaceforcingsTemperaturesLgm")[0]
  • issm/trunk-jpl/src/m/plot/processmesh.m

    r17686 r18950  
    2121end
    2222
    23 %first load x,y, etc ... to speed up plot
    24 if ~strcmpi(getfieldvalue(options,'coord','xy'),'latlon'),
    25         x=md.mesh.x;
    26         if isprop(md.mesh,'x2d'), x2d=md.mesh.x2d; end
    27         y=md.mesh.y;
    28         if isprop(md.mesh,'y2d'), y2d=md.mesh.y2d; end
    29 else
    30         x=md.mesh.long;
    31         y=md.mesh.lat;
    32 end
     23        if ~strcmpi(getfieldvalue(options,'coord','xy'),'latlon'),
     24                x=md.mesh.x;
     25                x2d=md.mesh.x2d; %if isprop(md.mesh,'x2d'), x2d=md.mesh.x2d; end
     26                y=md.mesh.y;
     27                y2d=md.mesh.y2d; %if isprop(md.mesh,'y2d'), y2d=md.mesh.y2d; end
     28        else
     29                x=md.mesh.long;
     30                y=md.mesh.lat;
     31        end
    3332
    3433if isprop(md.mesh,'z'),
     
    4241end
    4342
    44 if isprop(md.mesh,'elements2d'), elements2d=md.mesh.elements2d; end
    45 elements=md.mesh.elements;
     43        elements2d=md.mesh.elements2d;%if isprop(md.mesh,'elements2d'), elements2d=md.mesh.elements2d; end
     44        elements=md.mesh.elements;
    4645
    4746%is it a 2d plot?
Note: See TracChangeset for help on using the changeset viewer.