- 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_bilapg.F90
r2633 r2636 24 24 USE trdmod_oce ! ocean variables trends 25 25 USE ldfslp ! iso-neutral slopes available 26 USE lib_mpp ! MPP library 26 27 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 27 28 USE prtctl ! Print control … … 41 42 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 42 43 !! $Id$ 43 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 44 !!---------------------------------------------------------------------- 45 44 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 45 !!---------------------------------------------------------------------- 46 46 CONTAINS 47 47 … … 50 50 !! *** ROUTINE dyn_ldf_bilapg_alloc *** 51 51 !!---------------------------------------------------------------------- 52 !53 52 ALLOCATE( zfuw(jpi,jpk) , zfvw (jpi,jpk) , zdiu(jpi,jpk) , zdiv (jpi,jpk) , & 54 53 & zdju(jpi,jpk) , zdj1u(jpi,jpk) , zdjv(jpi,jpk) , zdj1v(jpi,jpk) , STAT=dyn_ldf_bilapg_alloc) 55 54 ! 56 55 IF( dyn_ldf_bilapg_alloc /= 0 ) CALL ctl_warn('dyn_ldf_bilapg_alloc: failed to allocate arrays') 57 !58 56 END FUNCTION dyn_ldf_bilapg_alloc 59 57 … … 96 94 97 95 IF( wrk_in_use(3, 1,2) ) THEN 98 CALL ctl_stop('dyn_ldf_bilapg: requested workspace arrays unavailable .') ; RETURN99 END 96 CALL ctl_stop('dyn_ldf_bilapg: requested workspace arrays unavailable') ; RETURN 97 ENDIF 100 98 101 99 IF( kt == nit000 ) THEN … … 454 452 ! ! =============== 455 453 456 IF(wrk_not_released(2, 1,2,3,4,5,6,7,8))THEN 457 CALL ctl_stop('dyn:ldfguv : failed to release workspace arrays.') 458 END IF 454 IF( wrk_not_released(2, 1,2,3,4,5,6,7,8) ) CALL ctl_stop('dyn:ldfguv : failed to release workspace arrays') 459 455 ! 460 456 END SUBROUTINE ldfguv
Note: See TracChangeset
for help on using the changeset viewer.