Changeset 2182 for trunk/LMDZ.MARS/libf/phymars/surfini.F

Timestamp:

Nov 24, 2019, 2:11:27 PM (5 years ago)

Author:

emillour

Message:

Mars GCM:
Fix in surfini for the 1D model when imposing watercaptag.
Protect output of CO2 saturation in physiq to when there is a CO2 tracer.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/surfini.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/surfini.F

@@ -452 +452 @@
        endif !of if (is_master)
        
-       ! Now scatter fields watercaptag and dryness from master to all
-       ! (is just a plain copy in serial mode)
-       call scatter(dryness_glo,dryness)
-       call scatter(watercaptag_glo,watercaptag)
-       
+       if (ngrid.gt.1) then
+        ! Now scatter fields watercaptag and dryness from master to all
+        ! (is just a plain copy in serial mode)
+        call scatter(dryness_glo,dryness)
+        call scatter(watercaptag_glo,watercaptag)
+       endif
        ELSE
          watercaptag(:) = .false.