- 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.F90
r2633 r2636 41 41 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 42 42 !! $Id$ 43 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 44 !!---------------------------------------------------------------------- 45 43 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 44 !!---------------------------------------------------------------------- 46 45 CONTAINS 47 46 … … 58 57 !!---------------------------------------------------------------------- 59 58 60 IF(wrk_in_use(3, 1,2))THEN 61 CALL ctl_stop('dyn_ldf: requested workspace arrays unavailable.') 62 RETURN 63 END IF 59 IF( wrk_in_use(3, 1,2) ) THEN 60 CALL ctl_stop('dyn_ldf: requested workspace arrays unavailable.') ; RETURN 61 ENDIF 64 62 ! 65 63 IF( l_trddyn ) THEN ! temporary save of ta and sa trends … … 112 110 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 113 111 ! 114 IF(wrk_not_released(3, 1,2))THEN 115 CALL ctl_stop('dyn_ldf: failed to release workspace arrays.') 116 END IF 112 IF( wrk_not_released(3, 1,2) ) CALL ctl_stop('dyn_ldf: failed to release workspace arrays.') 117 113 ! 118 114 END SUBROUTINE dyn_ldf
Note: See TracChangeset
for help on using the changeset viewer.