Changeset 2023 for trunk/LMDZ.MARS/libf/phymars/writediagsoil.F90

Timestamp:

Oct 24, 2018, 8:38:48 AM (6 years ago)

Author:

emillour

Message:

Mars GCM:

• Fix writediagsoil so that it also works in parallel.

EM

File:

• trunk/LMDZ.MARS/libf/phymars/writediagsoil.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/writediagsoil.F90

@@ -98 +98 @@
     stop
    endif
+  endif
 
 #ifdef CPP_PARA
@@ -109 +110 @@
 #endif
 
+  if (is_master) then
    ! build inertia() and area()
    if (klon_glo>1) then