Ignore:
Timestamp:
Mar 15, 2019 11:15:38 AM (3 years ago)
Author:
forkel
Message:

Modifications for OpenMP version by Klaus Ketelsen

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/prognostic_equations.f90

    r3771 r3797  
    2525! -----------------
    2626! $Id$
     27! Call chem_integegrate in OpenMP loop   (ketelsen)
     28!
     29!
     30! 3771 2019-02-28 12:19:33Z raasch
    2731! preprocessor directivs fro rrtmg added
    2832!
     
    527531             CALL photolysis_control
    528532          ENDIF
    529           DO  i = nxl, nxr
    530              DO  j = nys, nyn
    531 
    532                 IF ( intermediate_timestep_count == 1 .OR.                        &
    533                      call_chem_at_all_substeps )  THEN
    534 
    535                    CALL cpu_log( log_point_s(19), 'chem.reactions', 'start' ) 
     533
     534          IF ( intermediate_timestep_count == 1 .OR.                        &
     535             call_chem_at_all_substeps )  THEN
     536
     537             CALL cpu_log( log_point_s(19), 'chem.reactions', 'start' )
     538             !$OMP PARALLEL PRIVATE (i,j)
     539             !$OMP DO schedule(static,1)
     540             DO  i = nxl, nxr
     541                DO  j = nys, nyn
    536542                   CALL chem_integrate (i,j)
    537                    CALL cpu_log( log_point_s(19), 'chem.reactions', 'stop' )
    538 
    539                    IF ( do_depo )  THEN
    540                       CALL cpu_log( log_point_s(24), 'chem.deposition', 'start' )
     543                ENDDO
     544             ENDDO
     545             !$OMP END PARALLEL
     546             CALL cpu_log( log_point_s(19), 'chem.reactions', 'stop' )
     547
     548             IF ( do_depo )  THEN
     549                CALL cpu_log( log_point_s(24), 'chem.deposition', 'start' )
     550                DO  i = nxl, nxr
     551                   DO  j = nys, nyn
    541552                      CALL chem_depo(i,j)
    542                       CALL cpu_log( log_point_s(24), 'chem.deposition', 'stop' )
    543                    ENDIF
    544                 ENDIF
    545              ENDDO
    546           ENDDO
     553                   ENDDO
     554                ENDDO
     555                CALL cpu_log( log_point_s(24), 'chem.deposition', 'stop' )
     556             ENDIF
     557          ENDIF
    547558       ENDIF
    548559!
Note: See TracChangeset for help on using the changeset viewer.