Changeset 2633 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN
- Timestamp:
- 2011-02-28T18:23:23+01:00 (13 years ago)
- Location:
- branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN
- Files:
-
- 17 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_cen2.F90
r2625 r2633 46 46 !! ** Action : (ua,va) updated with the now vorticity term trend 47 47 !!---------------------------------------------------------------------- 48 USE wrk_nemo, ONLY: wrk_ use, wrk_release48 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 49 49 USE oce , ONLY: zfu => ta ! use ta as 3D workspace 50 50 USE oce , ONLY: zfv => sa ! use sa as 3D workspace … … 66 66 67 67 ! Check that global workspace arrays aren't already in use 68 IF( .not. wrk_use(3, 1,2,3,4,5,6,7) ) THEN68 IF( wrk_in_use(3, 1,2,3,4,5,6,7) ) THEN 69 69 CALL ctl_stop('dyn_adv_cen2 : requested workspace array unavailable') ; RETURN 70 70 END IF … … 162 162 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 163 163 ! 164 IF( .not. wrk_release(3, 1,2,3,4,5,6,7) ) CALL ctl_stop('dyn_adv_cen2 : failed to release workspace array')164 IF( wrk_not_released(3, 1,2,3,4,5,6,7) ) CALL ctl_stop('dyn_adv_cen2 : failed to release workspace array') 165 165 ! 166 166 END SUBROUTINE dyn_adv_cen2 -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_ubs.F90
r2625 r2633 67 67 !! Reference : Shchepetkin & McWilliams, 2005, Ocean Modelling. 68 68 !!---------------------------------------------------------------------- 69 USE wrk_nemo, ONLY: wrk_ use, wrk_release69 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 70 70 USE oce , ONLY: zfu => ta ! ta used as 3D workspace 71 71 USE oce , ONLY: zfv => sa ! sa used as 3D workspace … … 90 90 91 91 ! Check that required workspace arrays are not already in use 92 IF( .not. wrk_use(3, 1,2,3,4,5,6,7) .AND. .not. wrk_use(4, 1,2,3,4) ) THEN92 IF( wrk_in_use(3, 1,2,3,4,5,6,7) .OR. wrk_in_use(4, 1,2,3,4) ) THEN 93 93 CALL ctl_stop('dyn_adv_ubs : requested workspace array unavailable') ; RETURN 94 94 END IF … … 254 254 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 255 255 ! 256 IF( .not. wrk_release(3, 1,2,3,4,5,6,7) .OR. &257 .not. wrk_release(4, 1,2,3,4) ) CALL ctl_stop('dyn_adv_ubs : failed to release workspace array')256 IF( wrk_not_released(3, 1,2,3,4,5,6,7) .OR. & 257 wrk_not_released(4, 1,2,3,4) ) CALL ctl_stop('dyn_adv_ubs : failed to release workspace array') 258 258 ! 259 259 END SUBROUTINE dyn_adv_ubs -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
r2625 r2633 76 76 !! - Save the trend (l_trddyn=T) 77 77 !!---------------------------------------------------------------------- 78 USE wrk_nemo, ONLY: wrk_ use, wrk_release78 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 79 79 USE wrk_nemo, ONLY: ztrdu => wrk_3d_1, ztrdv => wrk_3d_2 ! 3D workspace 80 80 !! … … 83 83 !!---------------------------------------------------------------------- 84 84 ! 85 IF( .NOT. wrk_use(3, 1,2) ) THEN85 IF(wrk_in_use(3, 1,2) ) THEN 86 86 CALL ctl_stop('dyn_hpg: requested workspace arrays are unavailable') ; RETURN 87 87 END IF … … 111 111 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 112 112 ! 113 IF( .NOT. wrk_release(3, 1,2) ) CALL ctl_stop('dyn_hpg: failed to release workspace arrays')113 IF(wrk_not_released(3, 1,2) ) CALL ctl_stop('dyn_hpg: failed to release workspace arrays') 114 114 ! 115 115 END SUBROUTINE dyn_hpg … … 602 602 USE oce, ONLY : zhpi => ta ! use ta as 3D workspace 603 603 USE oce, ONLY : zhpj => sa ! use sa as 3D workspace 604 USE wrk_nemo, ONLY: wrk_ use, wrk_release604 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 605 605 USE wrk_nemo, ONLY: drhox => wrk_3d_1 , dzx => wrk_3d_2 606 606 USE wrk_nemo, ONLY: drhou => wrk_3d_3 , dzu => wrk_3d_4 , rho_i => wrk_3d_5 … … 619 619 !!---------------------------------------------------------------------- 620 620 621 IF( .NOT. wrk_use(3, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) ) THEN621 IF(wrk_in_use(3, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) ) THEN 622 622 CALL ctl_stop('dyn:hpg_djc : requested workspace arrays unavailable') ; RETURN 623 623 END IF … … 819 819 END DO 820 820 ! 821 IF( .NOT. wrk_release(3, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) ) &821 IF(wrk_not_released(3, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) ) & 822 822 CALL ctl_stop('dyn:hpg_djc : failed to release workspace arrays.') 823 823 ! … … 835 835 USE oce, ONLY : zhpi => ta ! use ta as 3D workspace 836 836 USE oce, ONLY : zhpj => sa ! use sa as 3D workspace 837 USE wrk_nemo, ONLY: wrk_ use, wrk_release837 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 838 838 USE wrk_nemo, ONLY: zdistr => wrk_2d_1 , zsina => wrk_2d_2 , zcosa => wrk_2d_3 839 839 USE wrk_nemo, ONLY: zhpiorg => wrk_3d_1 , zhpirot => wrk_3d_2 … … 849 849 !!---------------------------------------------------------------------- 850 850 851 IF( .NOT. wrk_use(2, 1,2,3) .OR. &852 .NOT. wrk_use(3, 1,2,3,4,5,6,7,8) ) THEN851 IF( wrk_in_use(2, 1,2,3) .OR. & 852 wrk_in_use(3, 1,2,3,4,5,6,7,8) ) THEN 853 853 CALL ctl_stop('dyn:hpg_rot : requested workspace arrays unavailable') ; RETURN 854 854 END IF … … 1009 1009 END DO 1010 1010 ! 1011 IF( .NOT. wrk_release(2, 1,2,3) .OR. &1012 .NOT. wrk_release(3, 1,2,3,4,5,6,7,8) ) CALL ctl_stop('dyn:hpg_rot : failed to release workspace arrays')1011 IF( wrk_not_released(2, 1,2,3) .OR. & 1012 wrk_not_released(3, 1,2,3,4,5,6,7,8) ) CALL ctl_stop('dyn:hpg_rot : failed to release workspace arrays') 1013 1013 ! 1014 1014 END SUBROUTINE hpg_rot -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynkeg.F90
r2625 r2633 51 51 !! - save this trends (l_trddyn=T) for post-processing 52 52 !!---------------------------------------------------------------------- 53 USE wrk_nemo, ONLY: wrk_ use, wrk_release53 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 54 54 USE oce , ONLY: ztrdu => ta , ztrdv => sa ! (ta,sa) used as 3D workspace 55 55 USE wrk_nemo, ONLY: zhke => wrk_3d_1 ! 3D workspace … … 61 61 !!---------------------------------------------------------------------- 62 62 63 IF( .NOT. wrk_use(3,1) ) THEN63 IF(wrk_in_use(3,1) ) THEN 64 64 CALL ctl_stop('dyn_key: requested workspace array is unavailable.') ; RETURN 65 65 ENDIF … … 135 135 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 136 136 ! 137 IF( .NOT. wrk_release(3, 1) ) CALL ctl_stop('dyn_key: failed to release workspace array')137 IF(wrk_not_released(3, 1) ) CALL ctl_stop('dyn_key: failed to release workspace array') 138 138 ! 139 139 END SUBROUTINE dyn_keg -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90
r2590 r2633 52 52 !! ** Purpose : compute the lateral ocean dynamics physics. 53 53 !!---------------------------------------------------------------------- 54 USE wrk_nemo, ONLY: wrk_ use, wrk_release54 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 55 55 USE wrk_nemo, ONLY: ztrdu => wrk_3d_1, ztrdv => wrk_3d_2 56 56 !! … … 58 58 !!---------------------------------------------------------------------- 59 59 60 IF( .NOT. wrk_use(3, 1,2))THEN60 IF(wrk_in_use(3, 1,2))THEN 61 61 CALL ctl_stop('dyn_ldf: requested workspace arrays unavailable.') 62 62 RETURN … … 112 112 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 113 113 ! 114 IF( .NOT. wrk_release(3, 1,2))THEN114 IF(wrk_not_released(3, 1,2))THEN 115 115 CALL ctl_stop('dyn_ldf: failed to release workspace arrays.') 116 116 END IF -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilap.F90
r2625 r2633 75 75 !! mixing trend. 76 76 !!---------------------------------------------------------------------- 77 USE wrk_nemo, ONLY: wrk_ use, wrk_release77 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 78 78 USE wrk_nemo, ONLY: zcu => wrk_2d_1, zcv => wrk_2d_2 ! 3D workspace 79 79 USE wrk_nemo, ONLY: zuf => wrk_3d_1, zut => wrk_3d_2 ! 3D workspace … … 86 86 !!---------------------------------------------------------------------- 87 87 88 IF( .NOT. wrk_use(2, 1,2) .OR. .NOT. wrk_use(3, 1,2,3,4) ) THEN88 IF( wrk_in_use(2, 1,2) .OR. wrk_in_use(3, 1,2,3,4) ) THEN 89 89 CALL ctl_stop('dyn_ldf_bilap : requested workspace arrays unavailable') ; RETURN 90 90 ENDIF … … 208 208 END DO ! End of slab 209 209 ! ! =============== 210 IF( .NOT. wrk_release(2, 1,2) .OR. &211 .NOT. wrk_release(3, 1,2,3,4) ) CALL ctl_stop('dyn_ldf_bilap : failed to release workspace arrays')210 IF( wrk_not_released(2, 1,2) .OR. & 211 wrk_not_released(3, 1,2,3,4) ) CALL ctl_stop('dyn_ldf_bilap : failed to release workspace arrays') 212 212 ! 213 213 END SUBROUTINE dyn_ldf_bilap -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90
r2618 r2633 86 86 !! - save the trend in (zwk3,zwk4) ('key_trddyn') 87 87 !!---------------------------------------------------------------------- 88 USE wrk_nemo, ONLY: wrk_ use, wrk_release88 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 89 89 USE wrk_nemo, ONLY: zwk1 => wrk_3d_1 , zwk2 => wrk_3d_2 ! 3D workspace 90 90 USE oce , ONLY: zwk3 => ta , zwk4 => sa ! ta, sa used as 3D workspace … … 95 95 !!---------------------------------------------------------------------- 96 96 97 IF( .NOT. wrk_use(3, 1,2) ) THEN97 IF( wrk_in_use(3, 1,2) ) THEN 98 98 CALL ctl_stop('dyn_ldf_bilapg: requested workspace arrays unavailable.') ; RETURN 99 99 END IF … … 131 131 END DO 132 132 ! 133 IF( .NOT. wrk_release(3, 1,2) ) CALL ctl_stop('dyn_ldf_bilapg: failed to release workspace arrays')133 IF( wrk_not_released(3, 1,2) ) CALL ctl_stop('dyn_ldf_bilapg: failed to release workspace arrays') 134 134 ! 135 135 END SUBROUTINE dyn_ldf_bilapg … … 177 177 !! 'key_trddyn' defined: the trend is saved for diagnostics. 178 178 !!---------------------------------------------------------------------- 179 USE wrk_nemo, ONLY: wrk_ use, wrk_release179 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 180 180 USE wrk_nemo, ONLY: ziut => wrk_2d_1, zjuf => wrk_2d_2, zjvt => wrk_2d_3 181 181 USE wrk_nemo, ONLY: zivf => wrk_2d_4, zdku => wrk_2d_5, zdk1u => wrk_2d_6 … … 196 196 !!---------------------------------------------------------------------- 197 197 198 IF( .NOT. wrk_use(2, 1,2,3,4,5,6,7,8) ) THEN198 IF( wrk_in_use(2, 1,2,3,4,5,6,7,8) ) THEN 199 199 CALL ctl_stop('dyn:ldfguv : requested workspace arrays unavailable.') ; RETURN 200 200 END IF … … 454 454 ! ! =============== 455 455 456 IF( .NOT. wrk_release(2, 1,2,3,4,5,6,7,8))THEN456 IF(wrk_not_released(2, 1,2,3,4,5,6,7,8))THEN 457 457 CALL ctl_stop('dyn:ldfguv : failed to release workspace arrays.') 458 458 END IF -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_iso.F90
r2618 r2633 106 106 !! of the rotated operator in dynzdf module 107 107 !!---------------------------------------------------------------------- 108 USE wrk_nemo, ONLY: wrk_ use, wrk_release108 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 109 109 USE wrk_nemo, ONLY: ziut => wrk_2d_1 , zjuf => wrk_2d_2 , zjvt => wrk_2d_3 ! 2D workspace 110 110 USE wrk_nemo, ONLY: zivf => wrk_2d_4 , zdku => wrk_2d_5 , zdkv => wrk_2d_6 ! 2D workspace … … 120 120 !!---------------------------------------------------------------------- 121 121 122 IF( .NOT. wrk_use(2, 1,2,3,4,5,6,7,8) ) THEN122 IF( wrk_in_use(2, 1,2,3,4,5,6,7,8) ) THEN 123 123 CALL ctl_stop('dyn_ldf_iso: requested workspace arrays unavailable.') ; RETURN 124 124 END IF … … 429 429 ! ! =============== 430 430 431 IF( .NOT. wrk_release(2, 1,2,3,4,5,6,7,8))THEN431 IF( wrk_not_released(2, 1,2,3,4,5,6,7,8))THEN 432 432 CALL ctl_stop('dyn_ldf_iso: failed to release workspace arrays.') 433 433 END IF -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90
r2590 r2633 93 93 USE oce, ONLY : ze3u_f => ta ! use ta as 3D workspace 94 94 USE oce, ONLY : ze3v_f => sa ! use sa as 3D workspace 95 USE wrk_nemo, ONLY: wrk_ use, wrk_release95 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 96 96 USE wrk_nemo, ONLY: zs_t => wrk_2d_1, zs_u_1 => wrk_2d_2, & 97 97 zs_v_1 => wrk_2d_3 … … 110 110 !!---------------------------------------------------------------------- 111 111 112 IF( .NOT. wrk_use(2, 1,2,3))THEN112 IF(wrk_in_use(2, 1,2,3))THEN 113 113 CALL ctl_stop('dyn_nxt: requested workspace arrays unavailable.') 114 114 RETURN … … 325 325 & tab3d_2=vn, clinfo2=' Vn: ' , mask2=vmask ) 326 326 ! 327 IF( .NOT. wrk_release(2, 1,2,3))THEN327 IF(wrk_not_released(2, 1,2,3))THEN 328 328 CALL ctl_stop('dyn_nxt: failed to release workspace arrays.') 329 329 END IF -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90
r2618 r2633 73 73 !! of the physical meaning of the results. 74 74 !!---------------------------------------------------------------------- 75 USE wrk_nemo, ONLY: wrk_ use, wrk_release75 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 76 76 USE wrk_nemo, ONLY: ztrdu => wrk_3d_4, ztrdv => wrk_3d_5 77 77 !! … … 83 83 !!---------------------------------------------------------------------- 84 84 85 IF( .NOT. wrk_use(3, 4,5))THEN85 IF(wrk_in_use(3, 4,5))THEN 86 86 CALL ctl_stop('dyn_spg: requested workspace arrays unavailable.') 87 87 RETURN … … 154 154 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 155 155 ! 156 IF( .NOT. wrk_release(3, 4,5))THEN156 IF(wrk_not_released(3, 4,5))THEN 157 157 CALL ctl_stop('dyn_spg: failed to release workspace arrays.') 158 158 END IF -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r2627 r2633 111 111 !! References : Griffies et al., (2003): A technical guide to MOM4. NOAA/GFDL 112 112 !!--------------------------------------------------------------------- 113 USE wrk_nemo, ONLY: wrk_ use, wrk_release113 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 114 114 USE wrk_nemo, ONLY: zhdiv => wrk_2d_1, zsshb_e => wrk_2d_2 115 115 USE wrk_nemo, ONLY: zbfru => wrk_2d_3 , zbfrv => wrk_2d_4 … … 132 132 !!---------------------------------------------------------------------- 133 133 134 IF( .NOT. wrk_use(2, 1, 2, 3, 4, 5, 6, 7, 8, 9,10, &134 IF(wrk_in_use(2, 1, 2, 3, 4, 5, 6, 7, 8, 9,10, & 135 135 11,12,13,14,15,16,17,18,19,20,21 ) ) THEN 136 136 CALL ctl_stop( 'dyn_spg_ts: requested workspace arrays unavailable.' ) ; RETURN … … 569 569 ! 570 570 ! 571 IF( .NOT. wrk_release(2, 1, 2, 3, 4, 5, 6, 7, 8, 9,10, &571 IF(wrk_not_released(2, 1, 2, 3, 4, 5, 6, 7, 8, 9,10, & 572 572 11,12,13,14,15,16,17,18,19,20,21))THEN 573 573 CALL ctl_stop('dyn_spg_ts: failed to release workspace arrays.') -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
r2618 r2633 204 204 !! References : Sadourny, r., 1975, j. atmos. sciences, 32, 680-689. 205 205 !!---------------------------------------------------------------------- 206 USE wrk_nemo, ONLY: wrk_ use, wrk_release206 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 207 207 USE wrk_nemo, ONLY: zwx => wrk_2d_1, zwy => wrk_2d_2, zwz => wrk_2d_3 208 208 !! … … 218 218 !!---------------------------------------------------------------------- 219 219 220 IF( .NOT. wrk_use(2, 1,2,3))THEN220 IF(wrk_in_use(2, 1,2,3))THEN 221 221 CALL ctl_stop('dyn:vor_ene: requested workspace arrays unavailable.') 222 222 RETURN … … 286 286 END DO ! End of slab 287 287 ! ! =============== 288 IF( .NOT. wrk_release(2, 1,2,3))THEN288 IF(wrk_not_released(2, 1,2,3))THEN 289 289 CALL ctl_stop('dyn:vor_ene: failed to release workspace arrays.') 290 290 END IF … … 324 324 !! References : Sadourny, r., 1975, j. atmos. sciences, 32, 680-689. 325 325 !!---------------------------------------------------------------------- 326 USE wrk_nemo, ONLY: wrk_ use, wrk_release326 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 327 327 USE wrk_nemo, ONLY: zwx => wrk_2d_4, zwy => wrk_2d_5, & 328 328 zwz => wrk_2d_6, zww => wrk_2d_7 … … 335 335 !!---------------------------------------------------------------------- 336 336 337 IF( .NOT. wrk_use(2, 4,5,6,7))THEN337 IF(wrk_in_use(2, 4,5,6,7))THEN 338 338 CALL ctl_stop('dyn:vor_mix: requested workspace arrays unavailable.') 339 339 RETURN … … 410 410 END DO ! End of slab 411 411 ! ! =============== 412 IF( .NOT. wrk_release(2, 4,5,6,7))THEN412 IF(wrk_not_released(2, 4,5,6,7))THEN 413 413 CALL ctl_stop('dyn:vor_mix: failed to release workspace arrays.') 414 414 END IF … … 443 443 !! References : Sadourny, r., 1975, j. atmos. sciences, 32, 680-689. 444 444 !!---------------------------------------------------------------------- 445 USE wrk_nemo, ONLY: wrk_ use, wrk_release445 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 446 446 USE wrk_nemo, ONLY: zwx => wrk_2d_4, zwy => wrk_2d_5, zwz => wrk_2d_6 447 447 !! … … 456 456 !!---------------------------------------------------------------------- 457 457 458 IF( .NOT. wrk_use(2, 4,5,6))THEN458 IF(wrk_in_use(2, 4,5,6))THEN 459 459 CALL ctl_stop('dyn:vor_ens : requested workspace arrays unavailable.') 460 460 RETURN … … 532 532 END DO ! End of slab 533 533 ! ! =============== 534 IF( .NOT. wrk_release(2, 4,5,6))THEN534 IF(wrk_not_released(2, 4,5,6))THEN 535 535 CALL ctl_stop('dyn:vor_ens : failed to release workspace arrays.') 536 536 END IF … … 558 558 !! References : Arakawa and Lamb 1980, Mon. Wea. Rev., 109, 18-36 559 559 !!---------------------------------------------------------------------- 560 USE wrk_nemo, ONLY: wrk_ use, wrk_release560 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 561 561 USE wrk_nemo, ONLY: zwx => wrk_2d_1 , zwy => wrk_2d_2 , zwz => wrk_2d_3 562 562 USE wrk_nemo, ONLY: ztnw => wrk_2d_4 , ztne => wrk_2d_5 … … 580 580 !!---------------------------------------------------------------------- 581 581 582 IF( .NOT. wrk_use(2, 1,2,3,4,5,6,7) .AND. .NOT. wrk_use(3, 1) ) THEN582 IF(wrk_in_use(2, 1,2,3,4,5,6,7) .OR. wrk_in_use(3, 1) ) THEN 583 583 CALL ctl_stop('dyn:vor_een : requested workspace arrays unavailable.') ; RETURN 584 584 END IF … … 681 681 END DO ! End of slab 682 682 ! ! =============== 683 IF( .NOT. wrk_release(2, 1,2,3,4,5,6,7) .AND. &684 .NOT. wrk_release(3, 1) ) CALL ctl_stop('dyn:vor_een : failed to release workspace arrays')683 IF(wrk_not_released(2, 1,2,3,4,5,6,7) .OR. & 684 wrk_not_released(3, 1) ) CALL ctl_stop('dyn:vor_een : failed to release workspace arrays') 685 685 ! 686 686 END SUBROUTINE vor_een -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90
r2590 r2633 56 56 USE oce, ONLY: zwuw => ta ! use ta as 3D workspace 57 57 USE oce, ONLY: zwvw => sa ! use sa as 3D workspace 58 USE wrk_nemo, ONLY: wrk_ use, wrk_release58 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 59 59 USE wrk_nemo, ONLY: zww => wrk_2d_1 60 60 USE wrk_nemo, ONLY: ztrdu => wrk_3d_1, ztrdv => wrk_3d_2 … … 66 66 !!---------------------------------------------------------------------- 67 67 68 IF( (.NOT. wrk_use(2, 1)) .OR. &69 (.NOT. wrk_use(3, 1,2)) )THEN68 IF( wrk_in_use(2, 1) .OR. & 69 wrk_in_use(3, 1,2) )THEN 70 70 CALL ctl_stop('dyn_zad: requested workspace arrays unavailable.') 71 71 RETURN … … 126 126 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 127 127 ! 128 IF( (.NOT. wrk_release(2, 1)) .OR. &129 (.NOT. wrk_release(3, 1,2)) )THEN128 IF( wrk_not_released(2, 1) .OR. & 129 wrk_not_released(3, 1,2) )THEN 130 130 CALL ctl_stop('dyn_zad: failed to release workspace arrays.') 131 131 END IF -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90
r2590 r2633 52 52 !! ** Purpose : compute the vertical ocean dynamics physics. 53 53 !!--------------------------------------------------------------------- 54 USE wrk_nemo, ONLY: wrk_ use, wrk_release54 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 55 55 USE wrk_nemo, ONLY: ztrdu => wrk_3d_1, ztrdv => wrk_3d_2 56 56 !! … … 58 58 !!--------------------------------------------------------------------- 59 59 60 IF( .NOT. wrk_use(3, 1,2))THEN60 IF(wrk_in_use(3, 1,2))THEN 61 61 CALL ctl_stop('dyn_zdf: requested workspace arrays unavailable.') 62 62 RETURN … … 95 95 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 96 96 ! 97 IF( .NOT. wrk_release(3, 1,2))THEN97 IF(wrk_not_released(3, 1,2))THEN 98 98 CALL ctl_stop('dyn_zdf: failed to release workspace arrays.') 99 99 END IF -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_exp.F90
r2621 r2633 52 52 !! ** Action : - Update (ua,va) with the vertical diffusive trend 53 53 !!--------------------------------------------------------------------- 54 USE wrk_nemo, ONLY: wrk_ use, wrk_release54 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 55 55 USE oce , ONLY : zwx => ta , zwy => sa ! (ta,sa) used as 3D workspace 56 USE wrk_nemo, ONLY: zwz => wrk_3d_1 , zww => wrk_3d_ 1! 3D workspace56 USE wrk_nemo, ONLY: zwz => wrk_3d_1 , zww => wrk_3d_2 ! 3D workspace 57 57 ! 58 58 INTEGER , INTENT(in) :: kt ! ocean time-step index … … 62 62 REAL(wp) :: zrau0r, zlavmr, zua, zva ! temporary scalars 63 63 !!---------------------------------------------------------------------- 64 65 IF( wrk_in_use(3, 1,2) )THEN 66 CALL ctl_stop('dyn_zdf_exp : requested workspace arrays unavailable.') 67 RETURN 68 END IF 64 69 65 70 IF( kt == nit000 .AND. lwp ) THEN … … 114 119 END DO ! End of time splitting 115 120 ! 121 IF( wrk_not_released(3, 1,2) )THEN 122 CALL ctl_stop('dyn_zdf_exp : failed to release workspace arrays.') 123 END IF 124 ! 116 125 END SUBROUTINE dyn_zdf_exp 117 126 -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90
r2590 r2633 56 56 USE oce, ONLY : zwd => ta ! use ta as workspace 57 57 USE oce, ONLY : zws => sa ! use sa as workspace 58 USE wrk_nemo, ONLY: wrk_ use, wrk_release58 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 59 59 USE wrk_nemo, ONLY: zwi => wrk_3d_3 ! workspace 60 60 !! … … 67 67 !!---------------------------------------------------------------------- 68 68 69 IF( .NOT. wrk_use(3, 3))THEN69 IF(wrk_in_use(3, 3))THEN 70 70 CALL ctl_stop('dyn_zdf_imp : requested workspace array unavailable.') 71 71 RETURN … … 259 259 END DO 260 260 ! 261 IF( .NOT. wrk_release(3, 3))THEN261 IF(wrk_not_released(3, 3))THEN 262 262 CALL ctl_stop('dyn_zdf_imp : failed to release workspace array.') 263 263 END IF -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90
r2590 r2633 76 76 !!---------------------------------------------------------------------- 77 77 USE oce, ONLY : z3d => ta ! use ta as 3D workspace 78 USE wrk_nemo, ONLY: wrk_ use, wrk_release78 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 79 79 USE wrk_nemo, ONLY: zhdiv => wrk_2d_1, z2d => wrk_2d_2 80 80 !! … … 86 86 !!---------------------------------------------------------------------- 87 87 88 IF( .NOT. wrk_use(2, 1,2))THEN88 IF(wrk_in_use(2, 1,2))THEN 89 89 CALL ctl_stop('ssh_wzv: requested workspace arrays unavailable.') 90 90 RETURN … … 244 244 IF(ln_ctl) CALL prt_ctl( tab2d_1=ssha, clinfo1=' ssha - : ', mask1=tmask, ovlap=1 ) 245 245 ! 246 IF( .NOT. wrk_release(2, 1,2))THEN246 IF(wrk_not_released(2, 1,2))THEN 247 247 CALL ctl_stop('ssh_wzv: failed to release workspace arrays.') 248 248 END IF
Note: See TracChangeset
for help on using the changeset viewer.