Changeset 131 in lmdz_wrf


Ignore:
Timestamp:
Jul 28, 2014, 6:09:39 PM (10 years ago)
Author:
lfita
Message:

Adding '(' ')'

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

    r130 r131  
    921921            klcl(ig)=l
    922922            interp(ig)=(pcon(ig)-pplay(ig,klcl(ig)))/(pplay(ig,klcl(ig)+1)-pplay(ig,klcl(ig)))
    923             IF interp(ig) /= interp(ig) THEN
     923            IF (interp(ig) /= interp(ig)) THEN
    924924              PRINT *,'  Lluis wrong interp= ',interp(ig),' at ', ig,' klcl(ig): ',  &
    925925                klcl(ig),' klcl(ig)+1: ', klcl(ig)+1
Note: See TracChangeset for help on using the changeset viewer.