Bug fix: use .eqv. to do logical comparison (instead of ==).

GEOS-ESM · Apr 21, 2021 · c4e1735 · c4e1735
1 parent d05d63b
commit c4e1735
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Interfaces/GCHP/Chem_GridCompMod.F90 b/Interfaces/GCHP/Chem_GridCompMod.F90
@@ -2039,7 +2039,7 @@ SUBROUTINE Initialize_( GC, Import, Export, Clock, RC )
              CALL ESMF_AttributeGet( GcFld, NAME="FriendlyToMOIST", &
                                      VALUE=FRIENDLY, RC=STATUS )
           ENDIF
-          IF ( FRIENDLY == Input_Opt%LCONV ) THEN
+          IF ( FRIENDLY .eqv. Input_Opt%LCONV ) THEN
              WRITE(*,*) '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
              WRITE(*,*) 'GEOS-Chem convection and MOIST friendly on/off ', &
                         'at the same time', FRIENDLY, Input_Opt%LCONV,     &