Changeset 4482


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

Bug fix to use jpkorig in dom_vvl_alloc called by dom_vvl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r3432 r4482  
    5454      !!---------------------------------------------------------------------- 
    5555      ! 
    56       ALLOCATE( mut (jpi,jpj,jpk) , muu (jpi,jpj,jpk) , muv (jpi,jpj,jpk) , muf (jpi,jpj,jpk) ,     & 
     56      ALLOCATE( mut (jpi,jpj,jpkorig), muu (jpi,jpj,jpkorig), muv(jpi,jpj,jpkorig) , muf (jpi,jpj,jpkorig) ,     & 
    5757         &      ee_t(jpi,jpj)     , ee_u(jpi,jpj)     , ee_v(jpi,jpj)     , ee_f(jpi,jpj)     ,     & 
    58          &      r2dt        (jpk)                                                             , STAT=dom_vvl_alloc ) 
     58         &      r2dt        (jpkorig)                                                             , STAT=dom_vvl_alloc ) 
    5959         ! 
    6060      IF( lk_mpp             )   CALL mpp_sum ( dom_vvl_alloc ) 
Note: See TracChangeset for help on using the changeset viewer.