Changeset 4482
- Timestamp:
- 2014-02-04T13:19:27+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r3432 r4482 54 54 !!---------------------------------------------------------------------- 55 55 ! 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) , & 57 57 & 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 ) 59 59 ! 60 60 IF( lk_mpp ) CALL mpp_sum ( dom_vvl_alloc )
Note: See TracChangeset
for help on using the changeset viewer.