- 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/SBC/sbcfwb.F90
r2715 r3152 22 22 USE in_out_manager ! I/O manager 23 23 USE lib_mpp ! distribued memory computing library 24 USE wrk_nemo_2 ! work arrays 24 25 USE lbclnk ! ocean lateral boundary conditions 25 26 USE lib_fortran … … 58 59 !! & spread out over erp area depending its sign 59 60 !!---------------------------------------------------------------------- 60 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released61 USE wrk_nemo, ONLY: ztmsk_neg => wrk_2d_1 , ztmsk_pos => wrk_2d_262 USE wrk_nemo, ONLY: ztmsk_tospread => wrk_2d_363 USE wrk_nemo, ONLY: z_wgt => wrk_2d_4 , zerp_cor => wrk_2d_564 !65 61 INTEGER, INTENT( in ) :: kt ! ocean time-step index 66 62 INTEGER, INTENT( in ) :: kn_fsbc ! … … 70 66 REAL(wp) :: z_fwf, z_fwf_nsrf, zsum_fwf, zsum_erp ! local scalars 71 67 REAL(wp) :: zsurf_neg, zsurf_pos, zsurf_tospread ! - - 68 REAL(wp), POINTER, DIMENSION(:,:) :: ztmsk_neg, ztmsk_pos, ztmsk_tospread, z_wgt, zerp_cor 72 69 !!---------------------------------------------------------------------- 73 70 ! 74 IF( wrk_in_use(2, 1,2,3,4,5) ) THEN 75 CALL ctl_stop('sbc_fwb: requested workspace arrays are unavailable') ; RETURN 76 ENDIF 71 CALL wrk_alloc( jpi,jpj, ztmsk_neg, ztmsk_pos, ztmsk_tospread, z_wgt, zerp_cor ) 77 72 ! 78 73 IF( kt == nit000 ) THEN … … 195 190 END SELECT 196 191 ! 197 IF( wrk_not_released(2, 1,2,3,4,5) ) CALL ctl_stop('sbc_fwb: failed to release workspace arrays')192 CALL wrk_dealloc( jpi,jpj, ztmsk_neg, ztmsk_pos, ztmsk_tospread, z_wgt, zerp_cor ) 198 193 ! 199 194 END SUBROUTINE sbc_fwb
Note: See TracChangeset
for help on using the changeset viewer.