Changeset 295 for IOIPSL/trunk/src

Timestamp:

04/01/08 17:12:00 (17 years ago)

Author:

bellier

Message:

JB: Fix a bug introduced in 2003 (!)

File:

• IOIPSL/trunk/src/histcom.f90 (modified) (2 diffs)

IOIPSL/trunk/src/histcom.f90

@@ -707 +707 @@
 !-
   IF (rectilinear) THEN
-    iret = NF90_PUT_VAR (ncid,nlonid,plon(1:par_szx,1))
+    iret = NF90_PUT_VAR (ncid,nlonid,plon(orix:orix+par_szx-1,1))
   ELSE
-    iret = NF90_PUT_VAR (ncid,nlonid,plon, &
- &           start=(/orix,oriy/),count=(/par_szx,par_szy/))
+    iret = NF90_PUT_VAR (ncid,nlonid, &
+ &           plon(orix:orix+par_szx-1,oriy:oriy+par_szy-1))
   ENDIF
 !-
@@ -716 +716 @@
 !-
   IF ( rectilinear ) THEN
-    iret = NF90_PUT_VAR (ncid,nlatid,plat(1,1:par_szy))
+    iret = NF90_PUT_VAR (ncid,nlatid,plat(1,oriy:oriy+par_szy-1))
   ELSE
-    iret = NF90_PUT_VAR (ncid,nlatid,plat, &
- &           start=(/orix,oriy/),count=(/par_szx,par_szy/))
+    iret = NF90_PUT_VAR (ncid,nlatid, &
+ &           plat(orix:orix+par_szx-1,oriy:oriy+par_szy-1))
   ENDIF
 !-