changes needed for NAG compile

        modified:   hco_cam_convert_state_mod.F90
        modified:   hco_cam_exports.F90
        modified:   hco_esmf_grid.F90
        modified:   hemco_interface.F90

Author: fvitt

hco_cam_convert_state_mod.F90

@@ -1,5 +1,5 @@
-#define VERIFY_(A) if(.not.HCO_ESMF_VRFY(A,subname,__LINE__))call exit(-1)
-#define ASSERT_(A) if(.not.HCO_ESMF_ASRT(A,subname,__LINE__))call exit(-1)
+#define VERIFY_(A) if(.not.HCO_ESMF_VRFY(A,subname,__LINE__)) stop -1
+#define ASSERT_(A) if(.not.HCO_ESMF_ASRT(A,subname,__LINE__)) stop -1
 !------------------------------------------------------------------------------
 !                    Harmonized Emissions Component (HEMCO)                   !
 !------------------------------------------------------------------------------

hco_cam_exports.F90

@@ -1,5 +1,5 @@
-#define VERIFY_(A) if(.not.HCO_ESMF_VRFY(A,subname,__LINE__))call exit(-1)
-#define ASSERT_(A) if(.not.HCO_ESMF_ASRT(A,subname,__LINE__))call exit(-1)
+#define VERIFY_(A) if(.not.HCO_ESMF_VRFY(A,subname,__LINE__)) stop -1
+#define ASSERT_(A) if(.not.HCO_ESMF_ASRT(A,subname,__LINE__)) stop -1
 !------------------------------------------------------------------------------
 !                    Harmonized Emissions Component (HEMCO)                   !
 !------------------------------------------------------------------------------
@@ -803,4 +803,4 @@ subroutine HCO_Export_Pbuf_CAM2D(fldname, hcoID, array)
         enddo
     end subroutine HCO_Export_Pbuf_CAM2D
 !EOC
-end module hco_cam_exports
+end module hco_cam_exports

hco_esmf_grid.F90

@@ -1,5 +1,5 @@
-#define VERIFY_(A) if(.not.HCO_ESMF_VRFY(A,subname,__LINE__))call exit(-1)
-#define ASSERT_(A) if(.not.HCO_ESMF_ASRT(A,subname,__LINE__))call exit(-1)
+#define VERIFY_(A) if(.not.HCO_ESMF_VRFY(A,subname,__LINE__)) stop -1
+#define ASSERT_(A) if(.not.HCO_ESMF_ASRT(A,subname,__LINE__)) stop -1
 !------------------------------------------------------------------------------
 !                    Harmonized Emissions Component (HEMCO)                   !
 !------------------------------------------------------------------------------
@@ -2188,4 +2188,4 @@ subroutine HCO_ESMF_Get3DField(field_in, data_out, IS, IE, JS, JE, KS, KE, flip)
 
     end subroutine HCO_ESMF_Get3DField
 !EOC
-end module hco_esmf_grid
+end module hco_esmf_grid

hemco_interface.F90

@@ -1,5 +1,5 @@
-#define VERIFY_(A) if(.not.HCO_ESMF_VRFY(A,subname,__LINE__))call exit(-1)
-#define ASSERT_(A) if(.not.HCO_ESMF_ASRT(A,subname,__LINE__))call exit(-1)
+#define VERIFY_(A) if(.not.HCO_ESMF_VRFY(A,subname,__LINE__)) stop -1
+#define ASSERT_(A) if(.not.HCO_ESMF_ASRT(A,subname,__LINE__)) stop -1
 !------------------------------------------------------------------------------
 !                    Harmonized Emissions Component (HEMCO)                   !
 !------------------------------------------------------------------------------