Changeset 295 for IOIPSL/trunk/src


Ignore:
Timestamp:
04/01/08 17:12:00 (17 years ago)
Author:
bellier
Message:

JB: Fix a bug introduced in 2003 (!)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/histcom.f90

    r240 r295  
    707707!- 
    708708  IF (rectilinear) THEN 
    709     iret = NF90_PUT_VAR (ncid,nlonid,plon(1:par_szx,1)) 
     709    iret = NF90_PUT_VAR (ncid,nlonid,plon(orix:orix+par_szx-1,1)) 
    710710  ELSE 
    711     iret = NF90_PUT_VAR (ncid,nlonid,plon, & 
    712  &           start=(/orix,oriy/),count=(/par_szx,par_szy/)) 
     711    iret = NF90_PUT_VAR (ncid,nlonid, & 
     712 &           plon(orix:orix+par_szx-1,oriy:oriy+par_szy-1)) 
    713713  ENDIF 
    714714!- 
     
    716716!- 
    717717  IF ( rectilinear ) THEN 
    718     iret = NF90_PUT_VAR (ncid,nlatid,plat(1,1:par_szy)) 
     718    iret = NF90_PUT_VAR (ncid,nlatid,plat(1,oriy:oriy+par_szy-1)) 
    719719  ELSE 
    720     iret = NF90_PUT_VAR (ncid,nlatid,plat, & 
    721  &           start=(/orix,oriy/),count=(/par_szx,par_szy/)) 
     720    iret = NF90_PUT_VAR (ncid,nlatid, & 
     721 &           plat(orix:orix+par_szx-1,oriy:oriy+par_szy-1)) 
    722722  ENDIF 
    723723!- 
Note: See TracChangeset for help on using the changeset viewer.