Changeset 1118

Timestamp:

Mar 11, 2009, 1:52:52 PM (15 years ago)

Author:

yann meurdesoif

Message:

Correction parallélisme : en parallèle la variable "V" dans le fichier dyn_hist_ave.nc n'était pas correcte.
YM

Location:

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar

Files:

• covnat_p.F (modified) (1 diff)
• writedynav_p.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/covnat_p.F

@@ -61 +61 @@
       END DO
 
-      ijb=ij_begin
+      ijb=ij_begin-iip1
       ije=ij_end
+      if (pole_nord) ijb=ij_begin
       if (pole_sud)  ije=ij_end-iip1
      

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/writedynav_p.F

@@ -104 +104 @@
 C  Vents V scalaire
 C
-      if (pole_sud) ije=ij_end-iip1
-      if (pole_sud) jjn=jj_nb-1
       
       call gr_v_scal_p(llm, vnat, vs)
@@ -113 +111 @@
 C  Temperature potentielle moyennee
 C
-      ijb=ij_begin
-      ije=ij_end
-      jjn=jj_nb
-      
+     
       call histwrite(histid, 'theta', itau_w, teta(ijb:ije,:), 
      .                iip1*jjn*llm, ndex3d)