Changeset 1451 for LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/initfluxsto_p.F

Timestamp:

Nov 12, 2010, 4:13:39 PM (14 years ago)

Author:

jghattas

Message:

Bug corrections :
dyn3dpar/initfluxsto_p.F, leapfrog_p.F and fluxstokenc_p.F : for offline option
phylmd/calcul_divers.h : corrected initialization, for case ecrit_mth=dtime

File:

• LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/initfluxsto_p.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/initfluxsto_p.F

@@ -203 +203 @@
      .              llm, nivsigs, zvertiid)
 c pour le fichier def
-      nivd(1) = 1
-      call histvert(filedid, 'sig_s', 'Niveaux sigma',
-     .  'sigma_level',
-     .              1, nivd, dvertiid)
-
+      if (mpi_rank==0) then 
+         nivd(1) = 1
+         call histvert(filedid, 'sig_s', 'Niveaux sigma',
+     .        'sigma_level',
+     .        1, nivd, dvertiid)
+      endif
 C
 C  Appels a histdef pour la definition des variables a sauvegarder
@@ -282 +283 @@
       call histend(fileid)
       call histend(filevid)
-      call histend(filedid)
+      if (mpi_rank==0) call histend(filedid)
       if (ok_sync) then
         call histsync(fileid)
         call histsync(filevid)
-        call histsync(filedid)
+        if (mpi_rank==0) call histsync(filedid)
       endif