Changeset 4470


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

Replace jpk with jpkorig in zdf_gls_alloc()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r4443 r4470  
    142142      !!                ***  FUNCTION zdf_gls_alloc  *** 
    143143      !!---------------------------------------------------------------------- 
    144       ALLOCATE( en(jpi,jpj,jpk),  mxln(jpi,jpj,jpk), zwall(jpi,jpj,jpk) ,     & 
    145          &      ustars2(jpi,jpj), ustarb2(jpi,jpj)                      , STAT= zdf_gls_alloc ) 
     144      ALLOCATE( en(jpi,jpj,jpkorig),  mxln(jpi,jpj,jpkorig), & 
     145         &      zwall(jpi,jpj,jpkorig)                     , & 
     146         &      ustars2(jpi,jpj), ustarb2(jpi,jpj)         , STAT= zdf_gls_alloc ) 
    146147         ! 
    147148      IF( lk_mpp             )   CALL mpp_sum ( zdf_gls_alloc ) 
Note: See TracChangeset for help on using the changeset viewer.