- Timestamp:
- 2011-03-15T16:27:46+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90
r2636 r2690 97 97 IF(lwp) WRITE(numout,*) '~~~~~~~ NOT optimal for auto-tasking case' 98 98 ! 99 ALLOCATE( zwu( jpi, 1:jpj+2) , zwv(-1:jpi+2, jpj) , S tat=ierr )99 ALLOCATE( zwu( jpi, 1:jpj+2) , zwv(-1:jpi+2, jpj) , STAT=ierr ) 100 100 IF( lk_mpp ) CALL mpp_sum( ierr ) 101 101 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'div_cur : unable to allocate arrays' ) … … 273 273 !! - update rotb , rotn , the before & now rel. vorticity 274 274 !!---------------------------------------------------------------------- 275 INTEGER, INTENT( in ) :: kt! ocean time-step index276 ! 277 INTEGER :: ji, jj, jk 278 REAL(wp) :: zraur, zdep275 INTEGER, INTENT(in) :: kt ! ocean time-step index 276 ! 277 INTEGER :: ji, jj, jk ! dummy loop indices 278 REAL(wp) :: zraur, zdep ! local scalars 279 279 !!---------------------------------------------------------------------- 280 280
Note: See TracChangeset
for help on using the changeset viewer.