- Timestamp:
- 2011-03-01T20:04:06+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
r2633 r2636 33 33 USE prtctl ! Print control 34 34 USE in_out_manager ! I/O manager 35 USE lib_mpp 35 36 36 37 IMPLICIT NONE … … 218 219 !!---------------------------------------------------------------------- 219 220 220 IF(wrk_in_use(2, 1,2,3))THEN 221 CALL ctl_stop('dyn:vor_ene: requested workspace arrays unavailable.') 222 RETURN 223 END IF 221 IF( wrk_in_use(2, 1,2,3) ) THEN 222 CALL ctl_stop('dyn:vor_ene: requested workspace arrays unavailable') ; RETURN 223 ENDIF 224 224 225 225 IF( kt == nit000 ) THEN … … 286 286 END DO ! End of slab 287 287 ! ! =============== 288 IF(wrk_not_released(2, 1,2,3))THEN 289 CALL ctl_stop('dyn:vor_ene: failed to release workspace arrays.') 290 END IF 288 IF( wrk_not_released(2, 1,2,3) ) CALL ctl_stop('dyn:vor_ene: failed to release workspace arrays.') 291 289 ! 292 290 END SUBROUTINE vor_ene … … 335 333 !!---------------------------------------------------------------------- 336 334 337 IF(wrk_in_use(2, 4,5,6,7))THEN 338 CALL ctl_stop('dyn:vor_mix: requested workspace arrays unavailable.') 339 RETURN 340 END IF 335 IF( wrk_in_use(2, 4,5,6,7) ) THEN 336 CALL ctl_stop('dyn:vor_mix: requested workspace arrays unavailable') ; RETURN 337 ENDIF 341 338 342 339 IF( kt == nit000 ) THEN … … 410 407 END DO ! End of slab 411 408 ! ! =============== 412 IF(wrk_not_released(2, 4,5,6,7))THEN 413 CALL ctl_stop('dyn:vor_mix: failed to release workspace arrays.') 414 END IF 409 IF( wrk_not_released(2, 4,5,6,7) ) CALL ctl_stop('dyn:vor_mix: failed to release workspace arrays') 415 410 ! 416 411 END SUBROUTINE vor_mix … … 456 451 !!---------------------------------------------------------------------- 457 452 458 IF(wrk_in_use(2, 4,5,6))THEN 459 CALL ctl_stop('dyn:vor_ens : requested workspace arrays unavailable.') 460 RETURN 453 IF( wrk_in_use(2, 4,5,6) ) THEN 454 CALL ctl_stop('dyn:vor_ens : requested workspace arrays unavailable') ; RETURN 461 455 END IF 462 456 … … 532 526 END DO ! End of slab 533 527 ! ! =============== 534 IF(wrk_not_released(2, 4,5,6))THEN 535 CALL ctl_stop('dyn:vor_ens : failed to release workspace arrays.') 536 END IF 528 IF( wrk_not_released(2, 4,5,6) ) CALL ctl_stop('dyn:vor_ens : failed to release workspace arrays') 537 529 ! 538 530 END SUBROUTINE vor_ens … … 580 572 !!---------------------------------------------------------------------- 581 573 582 IF( wrk_in_use(2, 1,2,3,4,5,6,7) .OR. wrk_in_use(3, 1) ) THEN574 IF( wrk_in_use(2, 1,2,3,4,5,6,7) .OR. wrk_in_use(3, 1) ) THEN 583 575 CALL ctl_stop('dyn:vor_een : requested workspace arrays unavailable.') ; RETURN 584 END 576 ENDIF 585 577 586 578 IF( kt == nit000 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.