fix non-2008-complaint bitwise operations

AquaticEcoDynamics · Nov 3, 2021 · fc925e9 · fc925e9
1 parent e5d105b
commit fc925e9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/aed_water.F90 b/src/aed_water.F90
@@ -101,7 +101,7 @@ FUNCTION scan_name(modeldef, flags) RESULT(modelname)
    IF ( i >= len ) RETURN
 
    DO WHILE ( i <= len )
-      IF ( modeldef(i:i+1) == 'nz' ) flags = OR(flags, NO_ZONES)
+      IF ( modeldef(i:i+1) == 'nz' ) flags = IOR(flags, NO_ZONES)
 
       DO WHILE ( i <= len .and. modeldef(i:i) /= ':' ) ; i = i + 1 ; ENDDO
       IF ( i <= len .and. modeldef(i:i) == ':' ) i = i + 1
@@ -162,7 +162,7 @@ FUNCTION aed_new_model(modeldef) RESULT(model)
    ENDIF
 
    IF (ASSOCIATED(model)) THEN
-      model%aed_model_no_zones = ( AND(flags, NO_ZONES) /= 0 )
+      model%aed_model_no_zones = ( IAND(flags, NO_ZONES) /= 0 )
 
       IF ( .NOT. ASSOCIATED(model_list) ) model_list => model
       IF ( ASSOCIATED(last_model) ) last_model%next => model