- 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/ZDF/zdfmxl.F90
r2633 r2636 14 14 USE in_out_manager ! I/O manager 15 15 USE prtctl ! Print control 16 USE iom 16 USE iom ! I/O library 17 USE lib_mpp ! MPP library 17 18 18 19 IMPLICIT NONE … … 64 65 !!---------------------------------------------------------------------- 65 66 USE wrk_nemo, ONLY: iwrk_in_use, iwrk_not_released 66 USE wrk_nemo, ONLY: imld => iwrk_2d_1 ! 2D workspace67 USE wrk_nemo, ONLY: imld => iwrk_2d_1 ! 2D integer workspace 67 68 !! 68 69 INTEGER, INTENT( in ) :: kt ! ocean time-step index … … 74 75 !!---------------------------------------------------------------------- 75 76 76 IF( iwrk_in_use(2, 1) )THEN77 CALL ctl_stop('zdf_mxl : requested workspace array unavailable .') ; RETURN77 IF( iwrk_in_use(2, 1) )THEN 78 CALL ctl_stop('zdf_mxl : requested workspace array unavailable') ; RETURN 78 79 END IF 79 80 … … 112 113 IF(ln_ctl) CALL prt_ctl( tab2d_1=REAL(nmln,wp), clinfo1=' nmln : ', tab2d_2=hmlp, clinfo2=' hmlp : ', ovlap=1 ) 113 114 ! 114 IF( iwrk_not_released(2, 1) ) CALL ctl_stop('zdf_mxl : failed to release workspace array')115 IF( iwrk_not_released(2, 1) ) CALL ctl_stop('zdf_mxl : failed to release workspace array') 115 116 ! 116 117 END SUBROUTINE zdf_mxl
Note: See TracChangeset
for help on using the changeset viewer.