Ignore:
Timestamp:
Dec 11, 2023, 11:15:54 PM (13 months ago)
Author:
yjaziri
Message:

PCM Generic:

correction error commit 3131 in writting output escape

YJ

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/aeronostd/calchim_asis.F90

    r3131 r3155  
    369369                  call wstats(ngrid,trim(chemnoms(iesp))//'_flux',trim(chemnoms(iesp))//' flux',    &
    370370                               'molecule.m-2.s-1',2,surface_flux(1,indexchim(trim(chemnoms(iesp)))))
    371                   call writediagfi(ngrid,trim(chemnoms(iesp))//'_escape',trim(chemnoms(iesp))//' escape',    &
     371                  call wstats(ngrid,trim(chemnoms(iesp))//'_escape',trim(chemnoms(iesp))//' escape',    &
    372372                               'molecule.m-2.s-1',2,escape(1,indexchim(trim(chemnoms(iesp)))))
    373373               end do
Note: See TracChangeset for help on using the changeset viewer.