Changeset 2475 for LMDZ5/trunk/libf/dyn3dmem/bilan_dyn_loc.F

Timestamp:

Mar 22, 2016, 1:19:13 PM (9 years ago)

Author:

Ehouarn Millour

Message:

Reinstate writehist, writedyn and bilan_dyn in dyn3dmem so that ouputs in the dynamics (dyn_hist* and dynzon files) may be generated when in parallel.
EM

File:

• LMDZ5/trunk/libf/dyn3dmem/bilan_dyn_loc.F (modified) (11 diffs)

LMDZ5/trunk/libf/dyn3dmem/bilan_dyn_loc.F

@@ -16 +16 @@
       USE mod_hallo
       use misc_mod
-      use write_field
+      USE write_field_loc
       IMPLICIT NONE
 
@@ -171 +171 @@
       
       INTEGER :: bilan_dyn_domain_id
-
 
 c=====================================================================
@@ -216 +215 @@
       ALLOCATE(ndex3d(jjb_v:jje_v*llm))
       ndex3d=0
-      ALLOCATE(rlong(jjb_v:jje_v))
-      ALLOCATE(rlatg(jjb_v:jje_v))
+      ALLOCATE(rlong(1))
+      ALLOCATE(rlatg(jjm))
       
 !$OMP END MASTER
@@ -285 +284 @@
        
       call histbeg(trim(infile),
-     .             1, rlong(jjb:jje), jjn, rlatg(jjb:jje),
+     .             1, rlong, jjn, rlatg(jjb:jje),
      .             1, 1, 1, jjn,
      .             tau0, zjulian, dt_cum, thoriid, fileid,
@@ -514 +513 @@
             enddo
          enddo
-!$OMP END DO NOWAIT
-      enddo
-
+!$OMP ENDDO NOWAIT 
+!$OMP BARRIER
+      enddo
 
 c    tendances
@@ -540 +539 @@
       CALL vitvert_loc(convm,w)
 !$OMP BARRIER
+
 
       jjb=jj_begin
@@ -618 +618 @@
 !$OMP ENDDO NOWAIT 
          
-      
       IF (pole_sud) jje=jj_end-1
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -626 +625 @@
       ENDDO
 !$OMP ENDDO NOWAIT 
+!$OMP BARRIER
           
       jjb=jj_begin
@@ -640 +640 @@
 !$OMP ENDDO NOWAIT 
       enddo
- 
+
 c=====================================================================
 c   Transport méridien
@@ -657 +657 @@
         ENDDO
 !$OMP ENDDO NOWAIT 
+!$OMP BARRIER
 
       call Register_Hallo_u(masse_cum,llm,1,1,1,1,Req)
@@ -684 +685 @@
       enddo
 !$OMP ENDDO NOWAIT 
+!$OMP BARRIER
 
 c     print*,'3OK'