New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4471 – NEMO

Changeset 4471


Ignore:
Timestamp:
2014-02-04T13:18:29+01:00 (10 years ago)
Author:
trackstand2
Message:

Replace jpk with jpkorig in check on array shape in iom_rp3d

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r4440 r4471  
    10791079         IF( iom_file(kiomid)%nfid > 0 ) THEN 
    10801080            ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 
    1081             IF (      (SIZE(pvar, DIM=1) /= jpk )   & 
    1082                & .OR. (SIZE(pvar, DIM=2) /= jpi )   & 
    1083                & .OR. (SIZE(pvar, DIM=3) /= jpj ) ) THEN 
     1081            IF (      (SIZE(pvar, DIM=1) /= jpkorig )   & 
     1082               & .OR. (SIZE(pvar, DIM=2) /= jpi     )   & 
     1083               & .OR. (SIZE(pvar, DIM=3) /= jpj     ) ) THEN 
    10841084               CALL ctl_stop( 'iom_rp3d: unexpected shape for variable ', cdvar ) 
    10851085            END IF 
    1086             ALLOCATE( pvar_trans(jpi, jpj, jpk) ) 
     1086            ALLOCATE( pvar_trans(jpi, jpj, jpkorig) ) 
    10871087            DO jk = 1, jpk 
    10881088               DO jj = 1, jpj 
Note: See TracChangeset for help on using the changeset viewer.