Restrict photolysis initialization prints to single thread

Signed-off-by: Lizzie Lundgren <[email protected]>
geoschem · Feb 28, 2024 · cbb5703 · cbb5703
1 parent bba809e
commit cbb5703
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/chemistry/geoschem/chemistry.F90 b/src/chemistry/geoschem/chemistry.F90
@@ -1403,6 +1403,7 @@ subroutine chem_init(phys_state, pbuf2d)
     ENDIF
 
     DO I = BEGCHUNK, ENDCHUNK
+       ! Restrict prints to one thread only
        Input_Opt%amIRoot = (MasterProc .AND. (I == BEGCHUNK))
 
        CALL GC_Init_StateObj( Diag_List       = Diag_List,       & ! Diagnostic list obj
@@ -1579,12 +1580,16 @@ subroutine chem_init(phys_state, pbuf2d)
     IF ( Input_Opt%ITS_A_FULLCHEM_SIM .or. &
          Input_Opt%ITS_AN_AEROSOL_SIM ) THEN
        DO I = BEGCHUNK, ENDCHUNK
+          ! Restrict prints to one thread only
+          Input_Opt%amIRoot = (MasterProc .AND. (I == BEGCHUNK))
+
           CALL Init_Photolysis( Input_Opt  = Input_Opt,                &
                                 State_Grid = State_Grid(I),            &
                                 State_Chm  = State_Chm(I),             &
                                 State_Diag = State_Diag(I),            &
                                 RC         = RC                       )
        ENDDO
+       Input_Opt%amIRoot = MasterProc
 
        IF ( RC /= GC_SUCCESS ) THEN
           ErrMsg = 'Error encountered in "Init_Photolysis"!'