Changeset 3337 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

Oct 12, 2018 3:17:09 PM (6 years ago)

Author:

kanani

Message:

reintegrate branch resler to trunk

Location:

palm/trunk/SOURCE

Files:

• . (modified) (1 prop)
• prognostic_equations.f90 (modified) (2 diffs)

palm/trunk/SOURCE/prognostic_equations.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! (from branch resler)
+! Fix for chemistry call
+! 
+! 3302 2018-10-03 02:39:40Z raasch
 ! Stokes drift + wave breaking term added
 ! 
@@ -482 +486 @@
        lsp_usr = 1
 !
-!--    If required, calculate photolysis frequencies - 
-!--    UNFINISHED: Why not before the intermediate timestep loop?
-       IF ( intermediate_timestep_count ==  1 )  THEN
-          CALL photolysis_control
-       ENDIF
-!
 !--    Chemical reactions
        CALL cpu_log( log_point(82), '(chem react + exch_h)', 'start' )
   
        IF ( chem_gasphase_on ) THEN
+!
+!--       If required, calculate photolysis frequencies - 
+!--       UNFINISHED: Why not before the intermediate timestep loop?
+          IF ( intermediate_timestep_count ==  1 )  THEN
+             CALL photolysis_control
+          ENDIF
           DO  i = nxl, nxr
              DO  j = nys, nyn