Update diagstate_mod.F90

continuing to debug
bbakernoaa · Oct 1, 2024 · e5d6a44 · e5d6a44
1 parent 6f465e8
commit e5d6a44
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/core/diagstate_mod.F90 b/src/core/diagstate_mod.F90
@@ -106,15 +106,15 @@ subroutine Diag_Allocate(Config, DiagState, ChemState, RC)
       endif
 
       ! If dry deposition process is activated then allocate dry dep related diagnostics
-      print *, "ChemState%nSpeciesAeroDryDep=", ChemState%nSpeciesAeroDryDep
+      write (*,*) "ChemState%nSpeciesAeroDryDep=", ChemState%nSpeciesAeroDryDep
       if (Config%drydep_activate) then
          Allocate(DiagState%drydep_frequency(ChemState%nSpeciesAeroDryDep), STAT=RC)
          IF ( RC /= CC_SUCCESS ) THEN
             ErrMsg = 'Could not Allocate DiagState%drydep_frequency(ChemState%nSpeciesAeroDryDep)'
             CALL CC_Error( ErrMsg, RC, thisLoc )
          else
-            print *, "ChemState%nSpeciesAeroDryDep=", ChemState%nSpeciesAeroDryDep
-            print *, "allocated DiagState%drydep_frequency(ChemState%nSpeciesAeroDryDep) "
+            write (*,*) "ChemState%nSpeciesAeroDryDep=", ChemState%nSpeciesAeroDryDep
+            write (*,*) "allocated DiagState%drydep_frequency(ChemState%nSpeciesAeroDryDep) "
          ENDIF
          DiagState%drydep_frequency(ChemState%nSpeciesAeroDryDep)= ZERO