Changeset 2777 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90
- Timestamp:
- 2011-06-07T11:55:02+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90
r2715 r2777 50 50 USE dom_ice ! LIM domain 51 51 USE thd_ice ! LIM thermodynamics 52 USE wrk_nemo ! workspace manager53 52 USE in_out_manager ! I/O manager 54 53 USE lib_mpp ! MPP library … … 298 297 !! ** References : Vancoppenolle et al., 2007 (in preparation) 299 298 !!------------------------------------------------------------------ 299 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 300 USE wrk_nemo, ONLY: wrk_3d_3, wrk_3d_4 300 301 INTEGER :: ji, jj, jk, jl ! dummy loop index 301 302 REAL(wp) :: dummy_fac0, dummy_fac1, dummy_fac, zsal ! local scalar … … 305 306 !!------------------------------------------------------------------ 306 307 307 IF( wrk_in_use( 2, 1,2) ) THEN308 IF( wrk_in_use( 3, 3,4 ) ) THEN 308 309 CALL ctl_stop( 'lim_var_salprof: requested workspace arrays unavailable' ) ; RETURN 309 310 END IF 310 311 311 z_slope_s => wrk_3d_ 1(:,:,1:jpl) ! slope of the salinity profile312 zalpha => wrk_3d_ 2(:,:,1:jpl) ! weight factor for s between s_i_0 and s_i_1312 z_slope_s => wrk_3d_3(:,:,1:jpl) ! slope of the salinity profile 313 zalpha => wrk_3d_4(:,:,1:jpl) ! weight factor for s between s_i_0 and s_i_1 313 314 314 315 !--------------------------------------- … … 389 390 ENDIF ! num_sal 390 391 ! 391 IF( wrk_not_released( 2, 1,2) ) CALL ctl_stop('lim_var_salprof: failed to release workspace arrays.')392 IF( wrk_not_released(3, 3,4) ) CALL ctl_stop('lim_var_salprof: failed to release workspace arrays.') 392 393 ! 393 394 END SUBROUTINE lim_var_salprof … … 432 433 !! Works with 1d vectors and is used by thermodynamic modules 433 434 !!------------------------------------------------------------------- 435 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 436 USE wrk_nemo, ONLY: wrk_1d_4 434 437 INTEGER, INTENT(in) :: kideb, kiut ! thickness category index 435 438 ! … … 442 445 !!--------------------------------------------------------------------- 443 446 444 IF( wrk_in_use(1, 1) ) THEN447 IF( wrk_in_use(1, 4) ) THEN 445 448 CALL ctl_stop('lim_var_salprof1d : requestead workspace arrays unavailable.') ; RETURN 446 449 END IF 447 450 ! Set-up pointers to sub-arrays of workspace arrays 448 z_slope_s => wrk_1d_ 1(1:jpij)451 z_slope_s => wrk_1d_4 (1:jpij) 449 452 450 453 !--------------------------------------- … … 511 514 ENDIF 512 515 ! 513 IF( wrk_not_released(1, 1) ) CALL ctl_stop( 'lim_var_salprof1d : failed to release workspace arrays' )516 IF( wrk_not_released(1, 4) ) CALL ctl_stop( 'lim_var_salprof1d : failed to release workspace arrays' ) 514 517 ! 515 518 END SUBROUTINE lim_var_salprof1d
Note: See TracChangeset
for help on using the changeset viewer.