- Timestamp:
- 2015-04-29T12:17:12+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r5239 r5240 365 365 INTEGER :: ji, jj, jl, jk ! dummy loop indices 366 366 INTEGER :: inum ! temporary logical unit 367 INTEGER :: ierror ! error flag 367 368 INTEGER :: ii_bump, ij_bump, ih ! bump center position 368 369 INTEGER :: ii0, ii1, ij0, ij1, ik ! local indices 369 370 REAL(wp) :: r_bump , h_bump , h_oce ! bump characteristics 370 371 REAL(wp) :: zi, zj, zh, zhmin ! local scalars 371 INTEGER , POINTER, DIMENSION(:,:) :: idta ! global domain integer data372 REAL(wp), POINTER, DIMENSION(:,:) :: zdta ! global domain scalar data372 INTEGER , ALLOCATABLE, DIMENSION(:,:) :: idta ! global domain integer data 373 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zdta ! global domain scalar data 373 374 !!---------------------------------------------------------------------- 374 375 ! 375 376 IF( nn_timing == 1 ) CALL timing_start('zgr_bat') 376 !377 CALL wrk_alloc( jpidta, jpjdta, idta )378 CALL wrk_alloc( jpidta, jpjdta, zdta )379 377 ! 380 378 IF(lwp) WRITE(numout,*) … … 385 383 ! ! ================== ! 386 384 ! ! global domain level and meter bathymetry (idta,zdta) 385 ! 386 ALLOCATE( idta(jpidta,jpjdta), STAT=ierror ) 387 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'zgr_bat: unable to allocate idta array' ) 388 ALLOCATE( zdta(jpidta,jpjdta), STAT=ierror ) 389 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'zgr_bat: unable to allocate zdta array' ) 387 390 ! 388 391 IF( ntopo == 0 ) THEN ! flat basin … … 489 492 WHERE( bathy(:,:) <= 0._wp ) risfdep(:,:) = 0._wp 490 493 END IF 494 ! 495 DEALLOCATE( idta, zdta ) 491 496 ! 492 497 ! ! ================ ! … … 593 598 ENDIF 594 599 ! 595 CALL wrk_dealloc( jpidta, jpjdta, idta )596 CALL wrk_dealloc( jpidta, jpjdta, zdta )597 !598 600 IF( nn_timing == 1 ) CALL timing_stop('zgr_bat') 599 601 !
Note: See TracChangeset
for help on using the changeset viewer.