- 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/limthd_2.F90
r2633 r2636 116 116 !!------------------------------------------------------------------- 117 117 118 IF( wrk_in_use(2, 1,2,3,4,5,6,7,8,9,10) .OR. & 119 wrk_in_use(3, 4) ) THEN 120 CALL ctl_stop('lim_thd_2 : requested workspace arrays unavailable') 121 RETURN 122 END IF 118 IF( wrk_in_use(2, 1,2,3,4,5,6,7,8,9,10) .OR. & 119 wrk_in_use(3, 4) ) THEN 120 CALL ctl_stop('lim_thd_2 : requested workspace arrays unavailable') ; RETURN 121 ENDIF 123 122 124 123 IF( kt == nit000 ) CALL lim_thd_init_2 ! Initialization (first time-step only) … … 521 520 ENDIF 522 521 ! 523 IF( wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10) .OR. &524 wrk_not_released(3, 4) ) THEN522 IF( wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10) .OR. & 523 wrk_not_released(3, 4) ) THEN 525 524 CALL ctl_stop('lim_thd_2 : failed to release workspace arrays') 526 END 525 ENDIF 527 526 ! 528 527 END SUBROUTINE lim_thd_2
Note: See TracChangeset
for help on using the changeset viewer.