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

Timestamp:

Aug 12, 2014, 11:17:07 AM (10 years ago)

Author:

lfita

Message:

Addig new 'abort_gcm_point', 'abort_gcm_2Dpoint' more informative subroutines

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
+           abort_message = 'thermcellV0_main: les thermiques vont trop haut '
+! L. Fita, LMD. August 2014. Including something more informative
+           CALL abort_gcm_point (modname,abort_message,1,ig,pcon(ig),'<',            &
+             pplay(ig,nlay))
            ierr=1
         endif