Ignore:
Timestamp:
Mar 11, 2009, 1:52:52 PM (16 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:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/covnat_p.F

    r1000 r1118  
    6161      END DO
    6262
    63       ijb=ij_begin
     63      ijb=ij_begin-iip1
    6464      ije=ij_end
     65      if (pole_nord) ijb=ij_begin
    6566      if (pole_sud)  ije=ij_end-iip1
    6667     
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/writedynav_p.F

    r1114 r1118  
    104104C  Vents V scalaire
    105105C
    106       if (pole_sud) ije=ij_end-iip1
    107       if (pole_sud) jjn=jj_nb-1
    108106     
    109107      call gr_v_scal_p(llm, vnat, vs)
     
    113111C  Temperature potentielle moyennee
    114112C
    115       ijb=ij_begin
    116       ije=ij_end
    117       jjn=jj_nb
    118      
     113     
    119114      call histwrite(histid, 'theta', itau_w, teta(ijb:ije,:),
    120115     .                iip1*jjn*llm, ndex3d)
Note: See TracChangeset for help on using the changeset viewer.