Changeset 4424


Ignore:
Timestamp:
2014-02-04T13:13:43+01:00 (7 years ago)
Author:
trackstand2
Message:

Bug fixes - use jpkorig in allocates instead of jpk

Location:
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

    r4409 r4424  
    603603         IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
    604604         IF( .NOT.lk_vvl ) THEN 
    605             ALLOCATE( ze3f(jpi,jpj,jpk) , STAT=ierr ) 
     605            ALLOCATE( ze3f(jpi,jpj,jpkorig) , STAT=ierr ) 
    606606            IF( lk_mpp    )   CALL mpp_sum ( ierr ) 
    607607            IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'dyn:vor_een : unable to allocate arrays' ) 
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

    r3837 r4424  
    5858      !!                ***  ROUTINE zdf_ddm_alloc  *** 
    5959      !!---------------------------------------------------------------------- 
    60       ALLOCATE( avs(jpi,jpj,jpk), rrau(jpi,jpj,jpk), STAT= zdf_ddm_alloc ) 
     60      ALLOCATE( avs(jpi,jpj,jpkorig), rrau(jpi,jpj,jpkorig),  & 
     61                STAT= zdf_ddm_alloc ) 
    6162      ! 
    6263      IF( lk_mpp             )   CALL mpp_sum ( zdf_ddm_alloc ) 
Note: See TracChangeset for help on using the changeset viewer.