- 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/DOM/istate.F90
r2636 r2690 446 446 !! p=integral [ rau*g dz ] 447 447 !!---------------------------------------------------------------------- 448 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released449 USE wrk_nemo, ONLY: zprn => wrk_3d_1448 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 449 USE wrk_nemo, ONLY: zprn => wrk_3d_1 ! 3D workspace 450 450 451 451 USE dynspg ! surface pressure gradient (dyn_spg routine) … … 458 458 !!---------------------------------------------------------------------- 459 459 460 IF(wrk_in_use(3, 1))THEN 461 CALL ctl_stop('istage_uvg: requested workspace array unavailable.') 462 RETURN 463 END IF 460 IF(wrk_in_use(3, 1) ) THEN 461 CALL ctl_stop('istage_uvg: requested workspace array unavailable') ; RETURN 462 ENDIF 464 463 465 464 IF(lwp) WRITE(numout,*) … … 558 557 rotb (:,:,:) = rotn (:,:,:) ! set the before to the now value 559 558 ! 560 IF( wrk_not_released(3, 1))THEN561 CALL ctl_stop('istage_uvg: failed to release workspace array .')562 END 559 IF( wrk_not_released(3, 1) ) THEN 560 CALL ctl_stop('istage_uvg: failed to release workspace array') 561 ENDIF 563 562 ! 564 563 END SUBROUTINE istate_uvg
Note: See TracChangeset
for help on using the changeset viewer.