- 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/TRA/traldf_bilap.F90
r2633 r2636 28 28 USE diaptr ! poleward transport diagnostics 29 29 USE trc_oce ! share passive tracers/Ocean variables 30 USE lib_mpp ! MPP library 30 31 31 32 IMPLICIT NONE … … 166 167 END DO ! tracer loop 167 168 ! ! =========== 168 IF(wrk_not_released(2, 1,2,3))THEN 169 CALL ctl_stop('tra_ldf_bilap: failed to release workspace arrays.') 170 END IF 169 IF( wrk_not_released(2, 1,2,3) ) CALL ctl_stop('tra_ldf_bilap: failed to release workspace arrays') 171 170 ! 172 171 END SUBROUTINE tra_ldf_bilap
Note: See TracChangeset
for help on using the changeset viewer.