Changeset 965 for trunk/LMDZ.GENERIC/libf/phystd/inistats.F

Timestamp:

May 22, 2013, 9:10:28 AM (12 years ago)

Author:

emillour

Message:

Common dynamics and generic/universal GCM:

• LMDZ.COMMON: minor bug fix on the computation of physics mesh area in gcm.F
• LMDZ.UNIVERSAL: missing clean initialization of tab_cntrl(:) array in phyredem.F90
• LMDZ.GENERIC: minor bug fix in hydrol.F90, only output runoff if it is used. Update output routines so that all outputs files (stats, diagfi.nc, diagsoil.nc, diagspecIR.nc and diagspecVI.nc) can be generated when running LMDZ.UNIVERSAL in MPI mode.

EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/inistats.F (modified) (4 diffs)

trunk/LMDZ.GENERIC/libf/phystd/inistats.F

@@ -1 +1 @@
       subroutine inistats(ierr)
 
+#ifdef CPP_PARA
+      use mod_phys_lmdz_para, only : is_master
+#endif
       implicit none
 
@@ -11 +14 @@
 #include "netcdf.inc"
 
+#ifndef CPP_PARA
+      logical,parameter :: is_master=.true.
+#endif
       integer,intent(out) :: ierr
       integer :: nid
@@ -47 +53 @@
          pseudoalt(l)=-10.*log(presnivs(l)/preff)   
       enddo
+
+      if (is_master) then
+      ! only the master needs do this
 
       ierr = NF_CREATE("stats.nc",NF_CLOBBER,nid)
@@ -115 +124 @@
       ierr=NF_CLOSE(nid)
 
+      endif ! of if (is_master)
       end