Fix the bug when OMP is disabled, the compiling not work with encounter_record.f

Author: lwang-astro

build/Makefile.in

@@ -25,7 +25,7 @@ SIMD_FLAGS = -D SIMD
 HDF5_FLAGS = -D H5OUTPUT
 DEBUG_FLAGS= -D DEBUG -D DECISION_CHECK
 TT_FLAGS= -D TT
-EC_FLAGS= -D ENCOUNTER_RECORD
+EC_FLAGS= -D ENCOUNTER_MEASURE
 INTEL_FLAGS= -D __USE_INTEL -no-wrap-margin
 
 FFLAGS = @FCFLAGS@ ${EC_FLAGS}

src/Main/encounter_record.f renamed to src/Main/encounter_record.F

@@ -13,8 +13,12 @@ SUBROUTINE ENCOUNTER_RECORD(NXTLEN,NXTLST)
       INTEGER(4) IUNIT
 
 !$OMP PARALLEL PRIVATE(II,I,J,DX,DV,DXV,IUNIT)
+#ifdef OMP
       IUNIT = omp_get_thread_num()
       IUNIT = IUNIT + 100
+#else
+      IUNIT = 101
+#endif
 !$OMP DO
       DO II = 1, NXTLEN
          I = NXTLST(II)

src/Main/intgrt.F

@@ -826,7 +826,7 @@ SUBROUTINE INTGRT
 #endif
 *
 
-#ifdef ENCOUNTER_RECORD
+#ifdef ENCOUNTER_MEASURE
 *     measure encounter rate
         IF (KZ(45).EQ.1) THEN
            call encounter_record(NXTLEN,NXTLST)