Changeset 4473 for branches/2011

Timestamp:

2014-02-04T13:18:39+01:00 (10 years ago)

Author:

trackstand2

Message:

Bug fix in iom.F90 to use jpkorig instead of jpk when creating tmp array to swap z-ordering prior to write

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (1 diff)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -1085 +1085 @@
             END IF
             ALLOCATE( pvar_trans(jpi, jpj, jpkorig) )
+            pvar_trans(:,:,jpk:) = 0.0_wp
             DO jk = 1, jpk
                DO jj = 1, jpj