Changeset 1863


Ignore:
Timestamp:
Dec 18, 2017, 5:32:41 PM (7 years ago)
Author:
mturbet
Message:

add evaporation diagnostic

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1837 r1863  
    728728         if (tracer) then
    729729#ifndef MESOSCALE
     730            call writediagfi(ngrid,'evap_surf_flux','surface latent heat flux','W.m-2',2,RLVTT*dqsdif_total/ptimestep)
     731            call writediagfi(ngrid,'fluxsurf_rad','total IR and VIS surface flux','W.m-2',2,pfluxsrf)
    730732            call writediagfi(ngrid,'dqevap','evaporated water vapor specific concentration','s-1',3,pdqevap)
    731733#else
Note: See TracChangeset for help on using the changeset viewer.