- 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/LIM_SRC_3/limvar.F90
r2633 r2636 52 52 USE wrk_nemo ! workspace manager 53 53 USE in_out_manager ! I/O manager 54 USE lib_mpp ! MPP library 54 55 55 56 IMPLICIT NONE … … 305 306 306 307 IF( wrk_in_use( 2, 1,2 ) ) THEN 307 CALL ctl_stop( 'lim_var_salprof : requested workspace arrays unavailable.' ) ; RETURN308 CALL ctl_stop( 'lim_var_salprof: requested workspace arrays unavailable' ) ; RETURN 308 309 END IF 309 310 … … 388 389 ENDIF ! num_sal 389 390 ! 390 IF( wrk_not_released( 2, 1,2 ) ) CALL ctl_stop('lim_var_salprof: failed to release workspace arrays.')391 IF( wrk_not_released(2, 1,2) ) CALL ctl_stop('lim_var_salprof: failed to release workspace arrays.') 391 392 ! 392 393 END SUBROUTINE lim_var_salprof … … 510 511 ENDIF 511 512 ! 512 IF( wrk_not_released(1, 1) ) CALL ctl_stop( 'lim_var_salprof1d : failed to release workspace arrays .' )513 IF( wrk_not_released(1, 1) ) CALL ctl_stop( 'lim_var_salprof1d : failed to release workspace arrays' ) 513 514 ! 514 515 END SUBROUTINE lim_var_salprof1d
Note: See TracChangeset
for help on using the changeset viewer.