Changeset 1831


Ignore:
Timestamp:
Dec 4, 2017, 6:24:14 PM (7 years ago)
Author:
mlefevre
Message:

MESOSCALE GENERIC. a call to writediagfi isolated in mass_redistribution.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/mass_redistribution.F90

    r1542 r1831  
    136136            call Tsat_water(pplev(ig,1)+zdmass_sum(ig,1)*g*ptimestep,Tsat(ig))
    137137         enddo
    138                call writediagfi(ngrid,'Tsat','saturation temperature at surface','',2,Tsat)
     138#ifndef MESOSCALE
     139         call writediagfi(ngrid,'Tsat','saturation temperature at surface','',2,Tsat)
     140#endif
    139141         
    140142         do ig=1,ngrid
Note: See TracChangeset for help on using the changeset viewer.