Changeset 1348 for trunk/LMDZ.GENERIC


Ignore:
Timestamp:
Sep 24, 2014, 5:41:01 PM (10 years ago)
Author:
milmd
Message:

LMDZ.GENERIC. LMDZ.COMMON. OpenMP directives: correction of bugs mentioned in 1315 commit.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/mkstat.F90

    r1216 r1348  
    3535!integer, dimension(4) :: dimout
    3636
     37if (is_master) then
     38! only the master needs do this
     39
    3740! Incrementation of count for the last step, which is not done in wstats
    3841count(istime)=count(istime)+1
    39 
    40 if (is_master) then
    41 ! only the master needs do this
    4242
    4343ierr = NF_OPEN("stats.nc",NF_WRITE,nid)
Note: See TracChangeset for help on using the changeset viewer.