Ignore:
Timestamp:
Jul 10, 2019, 6:16:36 PM (5 years ago)
Author:
aboissinot
Message:

fix a bug in a thermcell_flux "bidouille".

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2143 r2146  
    294294      IF (fact > 0.) THEN
    295295         entr(:,:) = entr(:,:) / fact
    296          detr(:,:) = entr(:,:) / fact
    297          fm(:,:) = entr(:,:) / fact
     296         detr(:,:) = detr(:,:) / fact
     297         fm(:,:) = fm(:,:) / fact
    298298      ENDIF
    299299     
Note: See TracChangeset for help on using the changeset viewer.