- 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_2/limwri_2.F90
r2633 r2636 26 26 USE ice_2 27 27 28 USE dianam ! build name of file (routine) 28 29 USE lbclnk 29 USE dianam ! build name of file (routine)30 30 USE in_out_manager 31 USE lib_mpp ! MPP library 31 32 USE iom 32 33 USE ioipsl … … 69 70 CONTAINS 70 71 71 FUNCTION lim_wri_alloc_2()72 INTEGER FUNCTION lim_wri_alloc_2() 72 73 !!------------------------------------------------------------------- 73 74 !! *** ROUTINE lim_wri_alloc_2 *** 74 75 !!------------------------------------------------------------------- 75 IMPLICIT none76 INTEGER :: lim_wri_alloc_277 !!-------------------------------------------------------------------78 !79 76 ALLOCATE( ndex51(jpij), zcmo(jpi,jpj,jpnoumax), STAT=lim_wri_alloc_2) 80 77 ! … … 115 112 !!------------------------------------------------------------------- 116 113 117 IF(wrk_in_use(2, 1))THEN 118 CALL ctl_stop('lim_wri_2 : requested workspace array unavailable.') 119 RETURN 120 END IF 114 IF( wrk_in_use(2, 1) ) THEN 115 CALL ctl_stop('lim_wri_2 : requested workspace array unavailable') ; RETURN 116 ENDIF 121 117 !--------------------! 122 118 IF( kt == nit000 ) THEN ! Initialisation ! … … 211 207 IF( ( nn_fsbc * niter ) >= nitend ) CALL histclo( nice ) 212 208 213 IF(wrk_not_released(2, 1))THEN 214 CALL ctl_stop('lim_wri_2 : failed to release workspace array.') 215 END IF 216 209 IF( wrk_not_released(2, 1) ) CALL ctl_stop('lim_wri_2 : failed to release workspace array.') 210 ! 217 211 END SUBROUTINE lim_wri_2 218 212
Note: See TracChangeset
for help on using the changeset viewer.