Changeset 3802 for branches/2012/dev_MERGE_2012/NEMOGCM
- Timestamp:
- 2013-02-12T09:20:05+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
r3775 r3802 595 595 IF(lwp) WRITE(numout,*) 'dyn:vor_een : vorticity term: energy and enstrophy conserving scheme' 596 596 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 597 IF( .NOT.lk_vvl .AND. .NOT.ALLOCATED(ze3f) ) THEN 597 #if ! defined key_vvl 598 IF( .NOT.ALLOCATED(ze3f) ) THEN 598 599 ALLOCATE( ze3f(jpi,jpj,jpk) , STAT=ierr ) 599 600 IF( lk_mpp ) CALL mpp_sum ( ierr ) 600 601 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'dyn:vor_een : unable to allocate arrays' ) 601 602 ENDIF 603 #endif 602 604 ENDIF 603 605
Note: See TracChangeset
for help on using the changeset viewer.