- Timestamp:
- 2011-11-18T10:19:26+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90
r3116 r3152 10 10 USE in_out_manager ! I/O manager 11 11 USE lib_mpp ! distributed memory computing 12 USE wrk_nemo_2 ! work arrays 12 13 13 14 IMPLICIT NONE … … 74 75 !! clinfo3 : additional information 75 76 !!---------------------------------------------------------------------- 76 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released77 USE wrk_nemo, ONLY: ztab2d_1 => wrk_2d_30 , ztab2d_2 => wrk_2d_3178 USE wrk_nemo, ONLY: zmask1 => wrk_3d_11 , zmask2 => wrk_3d_1279 USE wrk_nemo, ONLY: ztab3d_1 => wrk_3d_13 , ztab3d_2 => wrk_3d_1480 !81 77 REAL(wp), DIMENSION(:,:) , INTENT(in), OPTIONAL :: tab2d_1 82 78 REAL(wp), DIMENSION(:,:,:), INTENT(in), OPTIONAL :: tab3d_1 … … 94 90 INTEGER :: overlap, jn, sind, eind, kdir,j_id 95 91 REAL(wp) :: zsum1, zsum2, zvctl1, zvctl2 96 !!---------------------------------------------------------------------- 97 98 IF( wrk_in_use(2, 30,31) .OR. wrk_in_use(3, 11,12,13,14) ) THEN 99 CALL ctl_stop('prt_ctl : requested workspace arrays unavailable') ; RETURN 100 ENDIF 92 REAL(wp), POINTER, DIMENSION(:,:) :: ztab2d_1, ztab2d_2 93 REAL(wp), POINTER, DIMENSION(:,:,:) :: zmask1, zmask2, ztab3d_1, ztab3d_2 94 !!---------------------------------------------------------------------- 95 96 CALL wrk_alloc( jpi,jpj, ztab2d_1, ztab2d_2 ) 97 CALL wrk_alloc( jpi,jpj,jpk, zmask1, zmask2, ztab3d_1, ztab3d_2 ) 101 98 102 99 ! Arrays, scalars initialization … … 205 202 ENDDO 206 203 207 IF( wrk_not_released(2, 30,31) .OR. &208 wrk_not_released(3, 11,12,13,14) ) CALL ctl_stop('prt_ctl: failed to release workspace arrays')204 CALL wrk_dealloc( jpi,jpj, ztab2d_1, ztab2d_2 ) 205 CALL wrk_dealloc( jpi,jpj,jpk, zmask1, zmask2, ztab3d_1, ztab3d_2 ) 209 206 ! 210 207 END SUBROUTINE prt_ctl
Note: See TracChangeset
for help on using the changeset viewer.