Ignore:
Timestamp:
Jun 16, 2011, 11:48:42 AM (14 years ago)
Author:
aslmd
Message:

MESOSCALE: modifications to use a tweaked polar topography corresponding to paleo conditions. plus purely cosmetic changes.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd_new_storm/libf/phymars/meso_physiq.F

    r159 r160  
    14071407
    14081408
    1409 !truc ajouté pour vérifier la conservation.
    1410            DO l=1,nlayer
    1411               DO ig=1,ngrid
    1412                   pdq_diag(ig)=0.
    1413                   pdq_diag(ig)=pdq_diag(ig) +
    1414      &                         pdq(ig,l,igcm_dust_mass)*3.6e9
    1415      &                      *  (pplev(ig,l) - pplev(ig,l+1)) / g
    1416               ENDDO
    1417            ENDDO
    1418 
     1409!!truc ajoute pour verifier la conservation.
     1410!
     1411!                 pdq_diag(:)=0.
     1412!
     1413!           DO ig=1,ngrid
     1414!              DO l=1,nlayer
     1415!                  pdq_diag(ig)=pdq_diag(ig) +
     1416!     &                         pdq(ig,l,igcm_dust_mass)*3.6e9
     1417!     &                      *  (pplev(ig,l) - pplev(ig,l+1)) / g
     1418!              ENDDO
     1419!           ENDDO
    14191420
    14201421
Note: See TracChangeset for help on using the changeset viewer.