Changeset 166 in lmdz_wrf for branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/thermcell_main.F90

Timestamp:

Aug 8, 2014, 6:10:15 PM (10 years ago)

Author:

lfita

Message:

Adding PRINTs in order to find where is giving 'abort_gcm'

File:

• branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/thermcell_main.F90 (modified) (1 diff)

branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/thermcell_main.F90

@@ -721 +721 @@
         if (pcon(ig).le.pplay(ig,nlay)) then 
            zcon2(ig)=zlay(ig,nlay)-(pcon(ig)-pplay(ig,nlay))/(RG*rho(ig,nlay))/100.
+           PRINT *,'  Lluis aborting at :', ig
            ierr=1
         endif