Changeset 708 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Jun 22, 2012, 3:30:46 PM (13 years ago)
Author:
aslmd
Message:

MESOSCALE: minor modifications: added surface dust diagnostics. added an indication of SVN version in makemeso.

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_var.F

    r676 r708  
    2222
    2323      !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! JF
    24       REAL qsurfice_dust(ngridmx)     ! useful for dust diagnostics
     24      REAL qsurfdust(ngridmx)         ! useful for dust diagnostics
    2525      REAL TAU_lay(ngridmx)           ! true opacity (it's not e reference life tauref)
    2626      REAL dsodust(ngridmx,nlayermx)

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

    r706 r708  
    17051705      !! JF
    17061706      IF (igcm_dust_mass .ne. 0) THEN
    1707         qsurfice_dust(1:ngrid) = qsurf(1:ngrid,igcm_dust_mass)
     1707        qsurfdust(1:ngrid) = qsurf(1:ngrid,igcm_dust_mass)
    17081708      ENDIF
    17091709      IF (igcm_h2o_ice .ne. 0) THEN     
Note: See TracChangeset for help on using the changeset viewer.