- 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/dynldf_iso.F90
r2633 r2636 27 27 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 28 28 USE in_out_manager ! I/O manager 29 USE lib_mpp ! MPP library 29 30 USE prtctl ! Print control 30 31 … … 53 54 !! *** ROUTINE dyn_ldf_iso_alloc *** 54 55 !!---------------------------------------------------------------------- 55 !56 56 ALLOCATE( zfuw(jpi,jpk) , zdiu(jpi,jpk) , zdju(jpi,jpk) , zdj1u(jpi,jpk) , & 57 57 & zfvw(jpi,jpk) , zdiv(jpi,jpk) , zdjv(jpi,jpk) , zdj1v(jpi,jpk) , STAT=dyn_ldf_iso_alloc) 58 58 ! 59 59 IF( dyn_ldf_iso_alloc /= 0 ) CALL ctl_warn('dyn_ldf_iso_alloc: array allocate failed.') 60 !61 60 END FUNCTION dyn_ldf_iso_alloc 62 61 … … 121 120 122 121 IF( wrk_in_use(2, 1,2,3,4,5,6,7,8) ) THEN 123 CALL ctl_stop('dyn_ldf_iso: requested workspace arrays unavailable .') ; RETURN122 CALL ctl_stop('dyn_ldf_iso: requested workspace arrays unavailable') ; RETURN 124 123 END IF 125 124 … … 429 428 ! ! =============== 430 429 431 IF( wrk_not_released(2, 1,2,3,4,5,6,7,8))THEN 432 CALL ctl_stop('dyn_ldf_iso: failed to release workspace arrays.') 433 END IF 434 430 IF( wrk_not_released(2, 1,2,3,4,5,6,7,8) ) CALL ctl_stop('dyn_ldf_iso: failed to release workspace arrays') 431 ! 435 432 END SUBROUTINE dyn_ldf_iso 436 433
Note: See TracChangeset
for help on using the changeset viewer.