Changeset 4424
- Timestamp:
- 2014-02-04T13:13:43+01:00 (10 years ago)
- 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 603 603 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 604 604 IF( .NOT.lk_vvl ) THEN 605 ALLOCATE( ze3f(jpi,jpj,jpk ) , STAT=ierr )605 ALLOCATE( ze3f(jpi,jpj,jpkorig) , STAT=ierr ) 606 606 IF( lk_mpp ) CALL mpp_sum ( ierr ) 607 607 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 58 58 !! *** ROUTINE zdf_ddm_alloc *** 59 59 !!---------------------------------------------------------------------- 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 ) 61 62 ! 62 63 IF( lk_mpp ) CALL mpp_sum ( zdf_ddm_alloc )
Note: See TracChangeset
for help on using the changeset viewer.