New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2633 – NEMO

Changeset 2633


Ignore:
Timestamp:
2011-02-28T18:23:23+01:00 (13 years ago)
Author:
trackstand2
Message:

Renamed wrk_use => wrk_in_use and wrk_release => wrk_not_released

Location:
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO
Files:
119 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limadv_2.F90

    r2613 r2633  
    5858      !! Reference:  Prather, 1986, JGR, 91, D6. 6671-6681. 
    5959      !!-------------------------------------------------------------------- 
    60       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     60      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    6161      USE wrk_nemo, ONLY:   zf0  => wrk_2d_11 , zfx   => wrk_2d_12 , zfy    => wrk_2d_13 , zbet => wrk_2d_14   ! 2D workspace 
    6262      USE wrk_nemo, ONLY:   zfm  => wrk_2d_15 , zfxx  => wrk_2d_16 , zfyy   => wrk_2d_17 , zfxy => wrk_2d_18   !  -      - 
    … …  
    7777      !--------------------------------------------------------------------- 
    7878 
    79       IF( .NOT. wrk_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     79      IF( wrk_in_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    8080         CALL ctl_stop( 'lim_adv_x_2 : requested workspace arrays unavailable.' )   ;   RETURN 
    8181      END IF 
    … …  
    224224      ENDIF 
    225225      ! 
    226       IF( .NOT. wrk_release(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     226      IF( wrk_not_released(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    227227         CALL ctl_stop( 'lim_adv_x_2 : failed to release workspace arrays.' ) 
    228228      END IF 
    … …  
    245245      !! Reference:  Prather, 1986, JGR, 91, D6. 6671-6681. 
    246246      !!--------------------------------------------------------------------- 
    247       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     247      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    248248      USE wrk_nemo, ONLY:   zf0  => wrk_2d_11 , zfx   => wrk_2d_12 , zfy    => wrk_2d_13 , zbet => wrk_2d_14   ! 2D workspace 
    249249      USE wrk_nemo, ONLY:   zfm  => wrk_2d_15 , zfxx  => wrk_2d_16 , zfyy   => wrk_2d_17 , zfxy => wrk_2d_18   !  -      - 
    … …  
    264264      !--------------------------------------------------------------------- 
    265265 
    266       IF(.NOT. wrk_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     266      IF(wrk_in_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    267267         CALL ctl_stop( 'lim_adv_y_2 : requested workspace arrays unavailable.' )   ;   RETURN 
    268268      END IF 
    … …  
    414414      ENDIF 
    415415      ! 
    416       IF( .NOT. wrk_release(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     416      IF( wrk_not_released(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    417417        CALL ctl_stop( 'lim_adv_y_2 : failed to release workspace arrays.' ) 
    418418      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limdyn_2.F90

    r2613 r2633  
    5858      !!              - treatment of the case if no ice dynamic 
    5959      !!--------------------------------------------------------------------- 
    60       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     60      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    6161      USE wrk_nemo, ONLY:   wrk_1d_1, wrk_1d_2 
    6262      USE wrk_nemo, ONLY:   zu_io => wrk_2d_1, zv_io => wrk_2d_2  ! ice-ocean velocity 
    … …  
    7171      !!--------------------------------------------------------------------- 
    7272 
    73       IF(  .NOT. wrk_use(1, 1,2)  .OR.  .NOT. wrk_use(2, 1,2)  ) THEN 
     73      IF(  wrk_in_use(1, 1,2)  .OR.  wrk_in_use(2, 1,2)  ) THEN 
    7474         CALL ctl_stop( 'lim_dyn_2 : requested workspace arrays unavailable.' )   ;   RETURN 
    7575      END IF 
    … …  
    210210      IF(ln_ctl)   CALL prt_ctl(tab2d_1=ust2s , clinfo1=' lim_dyn  : ust2s :') 
    211211      ! 
    212       IF( (.NOT. wrk_release(1, 1,2)) .OR. (.NOT. wrk_release(2, 1,2)) )THEN 
     212      IF( wrk_not_released(1, 1,2) .OR. wrk_not_released(2, 1,2) )THEN 
    213213         CALL ctl_stop('lim_dyn_2 : failed to release workspace arrays.') 
    214214      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limhdf_2.F90

    r2613 r2633  
    5151      !! ** Action  :    update ptab with the diffusive contribution 
    5252      !!------------------------------------------------------------------- 
    53       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     53      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    5454      USE wrk_nemo, ONLY:   zflu => wrk_2d_11, zdiv  => wrk_2d_13, zrlx  => wrk_2d_15  
    5555      USE wrk_nemo, ONLY:   zflv => wrk_2d_12, zdiv0 => wrk_2d_14, ztab0 => wrk_2d_16 
    … …  
    6363      !!------------------------------------------------------------------- 
    6464 
    65       IF( .NOT. wrk_use(2, 11,12,13,14,15,16) ) THEN 
     65      IF( wrk_in_use(2, 11,12,13,14,15,16) ) THEN 
    6666         CALL ctl_stop( 'lim_hdf_2 : requested workspace arrays unavailable.' )   ;   RETURN 
    6767      END IF 
    … …  
    149149      ENDIF 
    150150      ! 
    151       IF( .NOT. wrk_release(2, 11,12,13,14,15,16) ) THEN 
     151      IF( wrk_not_released(2, 11,12,13,14,15,16) ) THEN 
    152152         CALL ctl_stop( 'lim_hdf_2 : failed to release workspace arrays.' )   ;   RETURN 
    153153      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limmsh_2.F90

    r2590 r2633  
    4545      !! ** Refer.  : Deleersnijder et al. Ocean Modelling 100, 7-10  
    4646      !!---------------------------------------------------------------------  
    47       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     47      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    4848      USE wrk_nemo, ONLY: zd2d1 => wrk_2d_1, zd1d2 => wrk_2d_2 
    4949      INTEGER :: ji, jj      ! dummy loop indices 
    … …  
    5656      !!--------------------------------------------------------------------- 
    5757 
    58       IF(.NOT. wrk_use(2, 1,2))THEN 
     58      IF(wrk_in_use(2, 1,2))THEN 
    5959         CALL ctl_stop('lim_msh_2 : requested workspace arrays unavailable.') 
    6060         RETURN 
    … …  
    281281      area(:,:) = e1t(:,:) * e2t(:,:) 
    282282      ! 
    283       IF(.NOT. wrk_release(2, 1,2))THEN 
     283      IF(wrk_not_released(2, 1,2))THEN 
    284284         CALL ctl_stop('lim_msh_2 : failed to release workspace arrays.') 
    285285      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limrhg_2.F90

    r2590 r2633  
    9292      !!              at I-point 
    9393      !!------------------------------------------------------------------- 
    94       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     94      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    9595      USE wrk_nemo, ONLY: zfrld => wrk_2d_1, zmass => wrk_2d_2, zcorl => wrk_2d_3 
    9696      USE wrk_nemo, ONLY: za1ct => wrk_2d_4, za2ct => wrk_2d_5, zresr => wrk_2d_6 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90

    r2615 r2633  
    102102      !!              Tartinville et al. 2001 Ocean Modelling, 3, 95-108. 
    103103      !!--------------------------------------------------------------------- 
    104       USE wrk_nemo, ONLY: wrk_release, wrk_use 
     104      USE wrk_nemo, ONLY: wrk_not_released, wrk_in_use 
    105105      USE wrk_nemo, ONLY: zqnsoce => wrk_2d_1 ! 2D workspace 
    106106      USE wrk_nemo, ONLY: wrk_3d_4, wrk_3d_5 
    … …  
    116116      !!--------------------------------------------------------------------- 
    117117      
    118       IF( (.NOT. wrk_use(2, 1)) .OR. (.NOT. wrk_use(3, 4,5)) )THEN 
     118      IF( wrk_in_use(2, 1) .OR. wrk_in_use(3, 4,5) )THEN 
    119119         CALL ctl_stop('lim_sbc_flx_2 : requested workspace arrays unavailable.') 
    120120         RETURN 
    … …  
    253253      ENDIF  
    254254      ! 
    255       IF( (.NOT. wrk_release(2, 1)) .OR. (.NOT. wrk_release(3, 4,5)) )THEN 
     255      IF( wrk_not_released(2, 1) .OR. wrk_not_released(3, 4,5) )THEN 
    256256         CALL ctl_stop('lim_sbc_flx_2 : failed to release workspace arrays.') 
    257257      END IF 
    … …  
    286286      !!              - taum       : modulus of the surface ocean stress (T-point) updated with ice-ocean fluxes 
    287287      !!--------------------------------------------------------------------- 
    288       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     288      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    289289      USE wrk_nemo, ONLY: ztio_u => wrk_2d_1, ztio_v => wrk_2d_2     ! ocean stress below sea-ice 
    290290      INTEGER ,                     INTENT(in) ::   kt               ! ocean time-step index 
    … …  
    297297      !!--------------------------------------------------------------------- 
    298298      ! 
    299       IF(.NOT. wrk_use(2, 1,2))THEN 
     299      IF(wrk_in_use(2, 1,2))THEN 
    300300         CALL ctl_stop('lim_sbc_tau_2 : requested workspace arrays unavailable.')   ;   RETURN 
    301301      END IF 
    … …  
    413413         &                       tab2d_2=vtau, clinfo2=' vtau    : '        , mask2=vmask ) 
    414414      !   
    415       IF(.NOT. wrk_release(2, 1,2) )   CALL ctl_stop('lim_sbc_tau_2 : failed to release workspace arrays.') 
     415      IF(wrk_not_released(2, 1,2) )   CALL ctl_stop('lim_sbc_tau_2 : failed to release workspace arrays.') 
    416416      ! 
    417417   END SUBROUTINE lim_sbc_tau_2 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90

    r2590 r2633  
    7575      !! References :   Goosse et al. 1996, Bul. Soc. Roy. Sc. Liege, 65, 87-90 
    7676      !!--------------------------------------------------------------------- 
    77       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     77      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7878      USE wrk_nemo, ONLY: ztmp    => wrk_2d_1, & ! 2D workspace 
    7979                          zqlbsbq => wrk_2d_2, & ! link with lead energy budget qldif 
    … …  
    116116      !!------------------------------------------------------------------- 
    117117 
    118       IF( (.NOT. wrk_use(2, 1,2,3,4,5,6,7,8,9,10)) .OR.  & 
    119           (.NOT. wrk_use(3, 4))   ) THEN 
     118      IF( wrk_in_use(2, 1,2,3,4,5,6,7,8,9,10) .OR.  & 
     119          wrk_in_use(3, 4)   ) THEN 
    120120         CALL ctl_stop('lim_thd_2 : requested workspace arrays unavailable') 
    121121         RETURN 
    … …  
    521521      ENDIF 
    522522       ! 
    523       IF( (.NOT. wrk_release(2, 1,2,3,4,5,6,7,8,9,10)) .OR.  & 
    524           (.NOT. wrk_release(3, 4))   ) THEN 
     523      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10) .OR.  & 
     524          wrk_not_released(3, 4)   ) THEN 
    525525         CALL ctl_stop('lim_thd_2 : failed to release workspace arrays') 
    526526      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90

    r2590 r2633  
    6868      !!   2.0  !  02-08 (C. Ethe, G. Madec)  F90, mpp 
    6969      !!------------------------------------------------------------------- 
    70       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     70      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7171      USE wrk_nemo, ONLY: wrk_1d_1, wrk_1d_2, wrk_1d_3, wrk_1d_4, wrk_1d_5, wrk_1d_6 
    7272      USE in_out_manager, ONLY: ctl_stop 
    … …  
    106106      !!---------------------------------------------------------------------       
    107107                
    108       IF(.NOT. wrk_use(1, 1,2,3,4,5,6))THEN 
     108      IF(wrk_in_use(1, 1,2,3,4,5,6))THEN 
    109109         CALL ctl_stop('lim_thd_lac_2 : requestead workspace arrays unavailable.') 
    110110         RETURN 
    … …  
    235235      END DO 
    236236       
    237       IF(.NOT. wrk_release(1, 1,2,3,4,5,6))THEN 
     237      IF(wrk_not_released(1, 1,2,3,4,5,6))THEN 
    238238         CALL ctl_stop('lim_thd_lac_2 : failed to release workspace arrays.') 
    239239      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90

    r2590 r2633  
    6969      !!              Fichefet T. and M. Maqueda 1999, Clim. Dyn, 15(4), 251-268   
    7070      !!------------------------------------------------------------------ 
    71       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     71      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7272      USE wrk_nemo, ONLY: wrk_1d_1,  wrk_1d_2,  wrk_1d_3,  wrk_1d_4,  wrk_1d_5  
    7373      USE wrk_nemo, ONLY: wrk_1d_6,  wrk_1d_7,  wrk_1d_8,  wrk_1d_9,  wrk_1d_10 
    … …  
    169169       !!---------------------------------------------------------------------- 
    170170 
    171        IF(.NOT. wrk_use(1, 1,  2, 3, 4, 5, 6, 7, 8, 9,10, & 
    172                            11,12,13,14,15,16,17,18,19,20, & 
    173                            21,22,23,24,25,26,27))THEN 
     171       IF(wrk_in_use(1, 1,  2, 3, 4, 5, 6, 7, 8, 9,10, & 
     172                        11,12,13,14,15,16,17,18,19,20, & 
     173                        21,22,23,24,25,26,27))THEN 
    174174          CALL ctl_stop('lim_thd_zdf_2 : requested workspace arrays unavailable.') 
    175175          RETURN 
    … …  
    808808       END DO 
    809809       !  
    810        IF(.NOT. wrk_release(1, 1,  2, 3, 4, 5, 6, 7, 8, 9,10, & 
    811                                11,12,13,14,15,16,17,18,19,20, & 
    812                                21,22,23,24,25,26,27))THEN 
     810       IF(wrk_not_released(1, 1,  2, 3, 4, 5, 6, 7, 8, 9,10, & 
     811                              11,12,13,14,15,16,17,18,19,20, & 
     812                              21,22,23,24,25,26,27))THEN 
    813813          CALL ctl_stop('lim_thd_zdf_2 : failed to release workspace arrays.') 
    814814       END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90

    r2590 r2633  
    6363      !! ** action : 
    6464      !!--------------------------------------------------------------------- 
    65       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     65      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    6666      USE wrk_nemo, ONLY: zui_u  => wrk_2d_1, zvi_v => wrk_2d_2, zsm  => wrk_2d_3 
    6767      USE wrk_nemo, ONLY: zs0ice => wrk_2d_4, zs0sn => wrk_2d_5, zs0a => wrk_2d_6 
    … …  
    7979      !--------------------------------------------------------------------- 
    8080 
    81       IF(.NOT. wrk_use(2, 1,2,3,4,5,6,7,8,9,10))THEN 
     81      IF(wrk_in_use(2, 1,2,3,4,5,6,7,8,9,10))THEN 
    8282         CALL ctl_stop('lim_trp_2 : requested workspace arrays unavailable.') 
    8383         RETURN 
    … …  
    274274      ENDIF 
    275275      ! 
    276       IF(.NOT. wrk_release(2, 1,2,3,4,5,6,7,8,9,10))THEN 
     276      IF(wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10))THEN 
    277277         CALL ctl_stop('lim_trp_2 : failed to release workspace arrays.') 
    278278      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90

    r2626 r2633  
    103103      !!      of a day 
    104104      !!------------------------------------------------------------------- 
    105       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     105      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    106106      USE wrk_nemo, ONLY: zfield => wrk_2d_1 
    107107      !! 
    … …  
    115115      !!------------------------------------------------------------------- 
    116116 
    117       IF(.NOT. wrk_use(2, 1))THEN 
     117      IF(wrk_in_use(2, 1))THEN 
    118118         CALL ctl_stop('lim_wri_2 : requested workspace array unavailable.') 
    119119         RETURN 
    … …  
    211211      IF( ( nn_fsbc * niter ) >= nitend )   CALL histclo( nice )  
    212212 
    213       IF(.NOT. wrk_release(2, 1))THEN 
     213      IF(wrk_not_released(2, 1))THEN 
    214214         CALL ctl_stop('lim_wri_2 : failed to release workspace array.') 
    215215      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limadv.F90

    r2612 r2633  
    5555      !! Reference:  Prather, 1986, JGR, 91, D6. 6671-6681. 
    5656      !!-------------------------------------------------------------------- 
    57       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     57      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    5858      USE wrk_nemo, ONLY:   zf0  => wrk_2d_11 , zfx   => wrk_2d_12 , zfy    => wrk_2d_13 , zbet => wrk_2d_14   ! 2D workspace 
    5959      USE wrk_nemo, ONLY:   zfm  => wrk_2d_15 , zfxx  => wrk_2d_16 , zfyy   => wrk_2d_17 , zfxy => wrk_2d_18   !  -      - 
    … …  
    7474      !--------------------------------------------------------------------- 
    7575 
    76       IF( .NOT. wrk_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     76      IF( wrk_in_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    7777         CALL ctl_stop( 'lim_adv_x : requested workspace arrays unavailable.' )   ;   RETURN 
    7878      END IF 
    … …  
    223223      ENDIF 
    224224      ! 
    225       IF( .NOT. wrk_release(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     225      IF( wrk_not_released(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    226226         CALL ctl_stop( 'lim_adv_x : failed to release workspace arrays.' ) 
    227227      END IF 
    … …  
    244244      !! Reference:  Prather, 1986, JGR, 91, D6. 6671-6681. 
    245245      !!--------------------------------------------------------------------- 
    246       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     246      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    247247      USE wrk_nemo, ONLY:   zf0  => wrk_2d_11 , zfx   => wrk_2d_12 , zfy    => wrk_2d_13 , zbet => wrk_2d_14   ! 2D workspace 
    248248      USE wrk_nemo, ONLY:   zfm  => wrk_2d_15 , zfxx  => wrk_2d_16 , zfyy   => wrk_2d_17 , zfxy => wrk_2d_18   !  -      - 
    … …  
    263263      !--------------------------------------------------------------------- 
    264264 
    265       IF(.NOT. wrk_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     265      IF(wrk_in_use(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    266266         CALL ctl_stop( 'lim_adv_y : requested workspace arrays unavailable.' )   ;   RETURN 
    267267      END IF 
    … …  
    413413      ENDIF 
    414414      ! 
    415       IF( .NOT. wrk_release(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
     415      IF( wrk_not_released(2, 11,12,13,14,15,16,17,18,19,20,21) ) THEN 
    416416         CALL ctl_stop( 'lim_adv_y : failed to release workspace arrays.' ) 
    417417      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90

    r2612 r2633  
    5555      !!              - treatment of the case if no ice dynamic 
    5656      !!------------------------------------------------------------------------------------ 
    57       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     57      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    5858      USE wrk_nemo, ONLY:   wrk_1d_1, wrk_1d_2 
    5959      USE wrk_nemo, ONLY:   zu_io => wrk_2d_1, zv_io => wrk_2d_2  ! ice-ocean velocity 
    … …  
    6868      !!--------------------------------------------------------------------- 
    6969 
    70       IF(  .NOT. wrk_use(1, 1,2)  .OR.  .NOT. wrk_use(2, 1,2)  ) THEN 
     70      IF(  wrk_in_use(1, 1,2)  .OR.  wrk_in_use(2, 1,2)  ) THEN 
    7171         CALL ctl_stop( 'lim_dyn : requested workspace arrays unavailable.' )   ;   RETURN 
    7272      END IF 
    … …  
    212212      ENDIF 
    213213      ! 
    214       IF(  .NOT. wrk_release(1, 1,2)  .OR.  .NOT. wrk_release(2, 1,2)  ) THEN 
     214      IF(  wrk_not_released(1, 1,2)  .OR.  wrk_not_released(2, 1,2)  ) THEN 
    215215         CALL ctl_stop( 'lim_dyn : failed to release workspace arrays.' ) 
    216216      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90

    r2612 r2633  
    5050      !! ** Action  :    update ptab with the diffusive contribution 
    5151      !!------------------------------------------------------------------- 
    52       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     52      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    5353      USE wrk_nemo, ONLY:   zflu => wrk_2d_11, zdiv  => wrk_2d_13, zrlx  => wrk_2d_15  
    5454      USE wrk_nemo, ONLY:   zflv => wrk_2d_12, zdiv0 => wrk_2d_14, ztab0 => wrk_2d_16 
    … …  
    6262      !!------------------------------------------------------------------- 
    6363       
    64       IF( .NOT. wrk_use(2, 11,12,13,14,15,16) ) THEN 
     64      IF( wrk_in_use(2, 11,12,13,14,15,16) ) THEN 
    6565         CALL ctl_stop( 'lim_hdf: ERROR: requested workspace arrays unavailable' )   ;   RETURN 
    6666      END IF 
    … …  
    146146      ENDIF 
    147147      ! 
    148       IF( .NOT. wrk_release(2, 11,12,13,14,15,16) ) THEN 
     148      IF( wrk_not_released(2, 11,12,13,14,15,16) ) THEN 
    149149         CALL ctl_stop( 'lim_hdf : failed to release workspace arrays.' )   ;   RETURN 
    150150      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r2612 r2633  
    6161      !!                or from arbitrary sea-ice conditions 
    6262      !!------------------------------------------------------------------- 
    63       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     63      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    6464      USE wrk_nemo, ONLY:   wrk_1d_1, wrk_1d_2, wrk_1d_3, wrk_1d_4 
    6565      USE wrk_nemo, ONLY:   zidto => wrk_2d_1   ! ice indicator 
    … …  
    7272      !-------------------------------------------------------------------- 
    7373 
    74       IF(  .NOT. wrk_use(1, 1,2)  ) THEN 
     74      IF(  wrk_in_use(1, 1,2)  ) THEN 
    7575         CALL ctl_stop( 'lim_istate : requested workspace arrays unavailable.' )   ;   RETURN 
    7676      END IF 
    … …  
    516516      CALL lbc_lnk( fsbbq  , 'T', 1. ) 
    517517      ! 
    518       IF(  .NOT. wrk_release(1, 1,2)  ) THEN 
     518      IF(  wrk_not_released(1, 1,2)  ) THEN 
    519519         CALL ctl_stop( 'lim_istate : failed to release workspace arrays.' ) 
    520520      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90

    r2612 r2633  
    148148      !!----------------------------------------------------------------------------- 
    149149 
    150       IF( .NOT. wrk_use(2, 1,2,3,4,5,6,7,8) ) THEN 
     150      IF( wrk_in_use(2, 1,2,3,4,5,6,7,8) ) THEN 
    151151         CALL ctl_stop(' : requested workspace arrays unavailable.')   ;   RETURN 
    152152      END IF 
    … …  
    494494      END DO 
    495495 
    496       IF( .NOT. wrk_release(2, 1,2,3,4,5,6,7,8) )   CALL ctl_stop( 'lim_itd_me : failed to release workspace arrays.' ) 
     496      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8) )   CALL ctl_stop( 'lim_itd_me : failed to release workspace arrays.' ) 
    497497      ! 
    498498   END SUBROUTINE lim_itd_me 
    … …  
    524524      !!---------------------------------------------------------------------- 
    525525 
    526       IF( .NOT. wrk_use(2, 1) ) THEN 
     526      IF( wrk_in_use(2, 1) ) THEN 
    527527         CALL ctl_stop('lim_itd_me_icestrength : requested workspace array unavailable.')   ;   RETURN 
    528528      END IF 
    … …  
    681681      CALL lbc_lnk( strength, 'T', 1. ) 
    682682 
    683       IF(.NOT. wrk_release(2, 1))THEN 
     683      IF(wrk_not_released(2, 1))THEN 
    684684         CALL ctl_stop('lim_itd_me_icestrength : failed to release workspace array.') 
    685685      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

    r2612 r2633  
    9191      !! ** purpose  :   output of sea-ice variable in a netcdf file 
    9292      !!---------------------------------------------------------------------- 
    93       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     93      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    9494      USE wrk_nemo, ONLY:   z2d  => wrk_2d_1   ! 2D workspace 
    9595      ! 
    … …  
    102102      !!---------------------------------------------------------------------- 
    103103 
    104       IF( .NOT. wrk_use(2, 1) ) THEN 
     104      IF( wrk_in_use(2, 1) ) THEN 
    105105         CALL ctl_stop( 'lim_rst_write : requested workspace arrays unavailable.' )   ;   RETURN 
    106106      END IF 
    … …  
    294294      ENDIF 
    295295      ! 
    296       IF( .NOT. wrk_release(2, 1) ) THEN 
     296      IF( wrk_not_released(2, 1) ) THEN 
    297297         CALL ctl_stop( 'lim_rst_write : failed to release workspace arrays.' ) 
    298298      END IF 
    … …  
    307307      !! ** purpose  :   read of sea-ice variable restart in a netcdf file 
    308308      !!---------------------------------------------------------------------- 
    309       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     309      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    310310      USE wrk_nemo, ONLY:   z2d  => wrk_2d_1   ! 2D workspace 
    311311      ! 
    … …  
    320320      !!---------------------------------------------------------------------- 
    321321 
    322       IF( .NOT. wrk_use(2, 1) ) THEN 
     322      IF( wrk_in_use(2, 1) ) THEN 
    323323         CALL ctl_stop( 'lim_rst_read : requested workspace arrays unavailable.' )   ;   RETURN 
    324324      END IF 
    … …  
    571571      CALL iom_close( numrir ) 
    572572      ! 
    573       IF( .NOT. wrk_release(2, 1) ) THEN 
     573      IF( wrk_not_released(2, 1) ) THEN 
    574574         CALL ctl_stop( 'lim_rst_read : failed to release workspace arrays.' ) 
    575575      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

    r2612 r2633  
    9696      !!              Tartinville et al. 2001 Ocean Modelling, 3, 95-108. 
    9797      !!--------------------------------------------------------------------- 
    98       USE wrk_nemo, ONLY:   wrk_release, wrk_use 
     98      USE wrk_nemo, ONLY:   wrk_not_released, wrk_in_use 
    9999      USE wrk_nemo, ONLY:   zfcm1 => wrk_2d_1 , zfcm2 => wrk_2d_2   ! 2D workspace 
    100100      USE wrk_nemo, ONLY:   wrk_3d_4, wrk_3d_5                      ! 3D workspace 
    … …  
    111111      !!--------------------------------------------------------------------- 
    112112 
    113       IF( .NOT.wrk_use(2, 1,2) .OR. .NOT.wrk_use(3, 4,5) ) THEN 
     113      IF( wrk_in_use(2, 1,2) .OR. wrk_in_use(3, 4,5) ) THEN 
    114114         CALL ctl_stop( 'lim_sbc_flx : requested workspace arrays unavailable.' )   ;   RETURN 
    115115      ENDIF 
    … …  
    300300      ENDIF 
    301301      ! 
    302       IF(  .NOT. wrk_release(2, 1,2)  .OR.  .NOT. wrk_release(3, 4,5)  ) THEN 
     302      IF(  wrk_not_released(2, 1,2)  .OR.  wrk_not_released(3, 4,5)  ) THEN 
    303303         CALL ctl_stop( 'lim_sbc_flx : failed to release workspace arrays.' ) 
    304304      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r2626 r2633  
    8181      !! ** References : H. Goosse et al. 1996, Bul. Soc. Roy. Sc. Liege, 65, 87-90 
    8282      !!--------------------------------------------------------------------- 
    83       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     83      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    8484      USE wrk_nemo, ONLY:   zqlbsbq => wrk_2d_1   ! 2D workspace 
    8585      ! 
    … …  
    9494      !!------------------------------------------------------------------- 
    9595 
    96       IF( .NOT. wrk_use(2, 1) ) THEN 
     96      IF( wrk_in_use(2, 1) ) THEN 
    9797         CALL ctl_stop( 'lim_thd : requested workspace arrays unavailable' )   ;   RETURN 
    9898      ENDIF 
    … …  
    458458      ENDIF 
    459459      ! 
    460       IF( .NOT. wrk_release(2, 1) )   CALL ctl_stop( 'lim_thd : failed to release workspace arrays' ) 
     460      IF( wrk_not_released(2, 1) )   CALL ctl_stop( 'lim_thd : failed to release workspace arrays' ) 
    461461      ! 
    462462   END SUBROUTINE lim_thd 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90

    r2612 r2633  
    102102      !!------------------------------------------------------------------ 
    103103 
    104       IF( .NOT. wrk_use(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22) ) THEN 
     104      IF( wrk_in_use(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22) ) THEN 
    105105         CALL ctl_stop('lim_thd_dh : requestead workspace arrays unavailable.')   ;   RETURN 
    106106      END IF 
    … …  
    699699      END DO !ji 
    700700      ! 
    701       IF( .NOT. wrk_release(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21) )   & 
     701      IF( wrk_not_released(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21) )   & 
    702702         &     CALL ctl_stop('lim_thd_dh : failed to release workspace arrays.') 
    703703      ! 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90

    r2612 r2633  
    121121      !!------------------------------------------------------------------- 
    122122 
    123       IF( .NOT. wrk_use(1, 1,2,3,4,5,6,7,8) ) THEN 
     123      IF( wrk_in_use(1, 1,2,3,4,5,6,7,8) ) THEN 
    124124         CALL ctl_stop('lim_thd_dh : requestead workspace arrays unavailable.')   ;   RETURN 
    125125      END IF 
    … …  
    687687      END DO !jk 
    688688      ! 
    689       IF( .NOT. wrk_release(1, 1,2,3,4,5,6,7,8) )   CALL ctl_stop( 'lim_thd_ent : failed to release workspace arrays.' ) 
     689      IF( wrk_not_released(1, 1,2,3,4,5,6,7,8) )   CALL ctl_stop( 'lim_thd_ent : failed to release workspace arrays.' ) 
    690690      ! 
    691691   END SUBROUTINE lim_thd_ent 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

    r2612 r2633  
    110110      !!-----------------------------------------------------------------------! 
    111111 
    112       IF(  .NOT. wrk_use(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .AND.   & 
    113          & .NOT. wrk_use(2, 1,2,3,4,5,6,7,8)                        ) THEN 
     112      IF(  wrk_in_use(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR.   & 
     113         & wrk_in_use(2, 1,2,3,4,5,6,7,8)                        ) THEN 
    114114         CALL ctl_stop('lim_thd_dh : requestead workspace arrays unavailable.')   ;   RETURN 
    115115      END IF 
    … …  
    689689      ENDIF 
    690690      ! 
    691       IF( .NOT. wrk_release(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .AND.     & 
    692          &.NOT. wrk_release(2, 1,2,3,4,5,6,7,8)                        )   & 
     691      IF( wrk_not_released(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR.     & 
     692         &wrk_not_released(2, 1,2,3,4,5,6,7,8)                       )   & 
    693693         &      CALL ctl_stop( 'lim_thd_lac : failed to release workspace arrays.' ) 
    694694      ! 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90

    r2612 r2633  
    5959      !!--------------------------------------------------------------------- 
    6060 
    61       IF(  .NOT. wrk_use(1, 1,2,3)  ) THEN 
     61      IF(  wrk_in_use(1, 1,2,3)  ) THEN 
    6262         CALL ctl_stop('lim_thd_dh : requestead workspace arrays unavailable.')   ;   RETURN 
    6363      END IF 
    … …  
    237237      ENDIF 
    238238      ! 
    239       IF( .NOT. wrk_release(1, 1,2,3) )   CALL ctl_stop( 'lim_thd_lac : failed to release workspace arrays.' ) 
     239      IF( wrk_not_released(1, 1,2,3) )   CALL ctl_stop( 'lim_thd_lac : failed to release workspace arrays.' ) 
    240240      ! 
    241241   END SUBROUTINE lim_thd_sal 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

    r2612 r2633  
    6262      !! ** action : 
    6363      !!--------------------------------------------------------------------- 
    64       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     64      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    6565      USE wrk_nemo, ONLY:   zs0at => wrk_2d_1 , zsm => wrk_2d_2 , zs0ow  => wrk_2d_3      ! 2D workspace 
    6666      USE wrk_nemo, ONLY:   wrk_3d_1, wrk_3d_2, wrk_3d_3, wrk_3d_4, wrk_3d_5, wrk_3d_6    ! 3D workspace 
    … …  
    8080      !!--------------------------------------------------------------------- 
    8181 
    82       IF( .NOT.wrk_use( 2, 1,2,3,4,5 ) ) THEN 
     82      IF( wrk_in_use( 2, 1,2,3,4,5 ) ) THEN 
    8383         CALL ctl_stop( 'lim_trp : requested workspace arrays unavailable.' )   ;   RETURN 
    8484      END IF 
    … …  
    463463      ENDIF 
    464464      ! 
    465       IF( .NOT.wrk_release( 2, 1,2,3,4,5 ) )   CALL ctl_stop('lim_trp_2 : failed to release workspace arrays.') 
     465      IF( wrk_not_released( 2, 1,2,3,4,5 ) )   CALL ctl_stop('lim_trp_2 : failed to release workspace arrays.') 
    466466      ! 
    467467   END SUBROUTINE lim_trp 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

    r2612 r2633  
    304304      !!------------------------------------------------------------------ 
    305305 
    306       IF( .NOT.wrk_use( 2, 1,2 ) ) THEN 
     306      IF( wrk_in_use( 2, 1,2 ) ) THEN 
    307307         CALL ctl_stop( 'lim_var_salprof : requested workspace arrays unavailable.' )   ;   RETURN 
    308308      END IF 
    … …  
    388388      ENDIF ! num_sal 
    389389      ! 
    390       IF( .NOT.wrk_release( 2, 1,2 ) )   CALL ctl_stop('lim_var_salprof : failed to release workspace arrays.') 
     390      IF( wrk_not_released( 2, 1,2 ) )   CALL ctl_stop('lim_var_salprof : failed to release workspace arrays.') 
    391391      ! 
    392392   END SUBROUTINE lim_var_salprof 
    … …  
    441441      !!--------------------------------------------------------------------- 
    442442 
    443       IF(  .NOT. wrk_use(1, 1)  ) THEN 
     443      IF(  wrk_in_use(1, 1)  ) THEN 
    444444         CALL ctl_stop('lim_var_salprof1d : requestead workspace arrays unavailable.')   ;   RETURN 
    445445      END IF 
    … …  
    510510      ENDIF 
    511511      ! 
    512       IF( .NOT. wrk_release(1, 1) )   CALL ctl_stop( 'lim_var_salprof1d : failed to release workspace arrays.' ) 
     512      IF( wrk_not_released(1, 1) )   CALL ctl_stop( 'lim_var_salprof1d : failed to release workspace arrays.' ) 
    513513      ! 
    514514   END SUBROUTINE lim_var_salprof1d 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

    r2612 r2633  
    7070      !!  modif : 03/06/98 
    7171      !!------------------------------------------------------------------- 
    72       USE wrk_nemo, ONLY: wrk_release, wrk_use 
     72      USE wrk_nemo, ONLY: wrk_not_released, wrk_in_use 
    7373      USE wrk_nemo, ONLY: zfield => wrk_2d_1             ! 2D workspace 
    7474      USE wrk_nemo, ONLY: wrk_3d_1, wrk_3D_2, wrk_3d_3   ! 3D workspace 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90

    r2613 r2633  
    6565      !! ** Purpose :   compute and output some AR5 diagnostics 
    6666      !!---------------------------------------------------------------------- 
    67       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     67      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    6868      USE wrk_nemo, ONLY: zarea_ssh => wrk_2d_1, zbotpres => wrk_2d_2 
    6969      USE wrk_nemo, ONLY: zrhd => wrk_3d_1, zrhop => wrk_3d_2 
    … …  
    7676      !!-------------------------------------------------------------------- 
    7777 
    78       IF( (.NOT. wrk_use(2, 1,2)) .OR. & 
    79           (.NOT. wrk_use(3, 1,2)) .OR. & 
    80           (.NOT. wrk_use(4, 1)) )THEN 
     78      IF( wrk_in_use(2, 1,2) .OR. & 
     79          wrk_in_use(3, 1,2) .OR. & 
     80          wrk_in_use(4, 1) )THEN 
    8181         CALL ctl_stop('dia_ar5: requested workspace arrays unavailable')   ;   RETURN 
    8282      END IF 
    … …  
    160160      CALL iom_put( 'saltot' , zsal  ) 
    161161      ! 
    162       IF( (.NOT. wrk_release(2, 1,2)) .OR. & 
    163           (.NOT. wrk_release(3, 1,2)) .OR. & 
    164           (.NOT. wrk_release(4, 1)) )THEN 
     162      IF( wrk_not_released(2, 1,2) .OR. & 
     163          wrk_not_released(3, 1,2) .OR. & 
     164          wrk_not_released(4, 1) )THEN 
    165165         CALL ctl_stop('dia_ar5: failed to release workspace arrays') 
    166166      END IF 
    … …  
    175175      !! ** Purpose :   initialization for AR5 diagnostic computation 
    176176      !!---------------------------------------------------------------------- 
    177       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     177      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    178178      USE wrk_nemo, ONLY: wrk_4d_1 
    179179      !! 
    … …  
    185185      !!---------------------------------------------------------------------- 
    186186      ! 
    187       IF(.NOT. wrk_use(4, 1))THEN 
     187      IF(wrk_in_use(4, 1))THEN 
    188188         CALL ctl_stop('dia_ar5_init: requested workspace array unavailable.')   ;   RETURN 
    189189      END IF 
    … …  
    223223      ENDIF 
    224224      ! 
    225       IF(.NOT. wrk_release(4, 1))THEN 
     225      IF(wrk_not_released(4, 1))THEN 
    226226         CALL ctl_stop('dia_ar5_init: failed to release workspace array.') 
    227227      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

    r2625 r2633  
    210210      !!---------------------------------------------------------------------- 
    211211#if defined key_mpp_mpi 
    212       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     212      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    213213      USE wrk_nemo, ONLY: zwork => wrk_1d_1 
    214214#endif 
    … …  
    228228      ! 
    229229#if defined key_mpp_mpi 
    230       IF( .not. wrk_use(1, 1) ) THEN 
     230      IF( wrk_in_use(1, 1) ) THEN 
    231231         CALL ctl_stop('ptr_vjk: ERROR - requested workspace array is unavailable')   ;   RETURN 
    232232      END IF 
    … …  
    265265      ! 
    266266#if defined key_mpp_mpi 
    267       IF(.NOT. wrk_release(1, 1) )   CALL ctl_stop('ptr_vjk: ERROR - failed to release workspace array') 
     267      IF(wrk_not_released(1, 1) )   CALL ctl_stop('ptr_vjk: ERROR - failed to release workspace array') 
    268268#endif 
    269269      ! 
    … …  
    282282      !!---------------------------------------------------------------------- 
    283283#if defined key_mpp_mpi 
    284       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     284      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    285285      USE wrk_nemo, ONLY: zwork => wrk_1d_1 
    286286#endif 
    … …  
    299299      ! 
    300300#if defined key_mpp_mpi 
    301       IF(.NOT. wrk_use(1, 1))THEN 
     301      IF(wrk_in_use(1, 1))THEN 
    302302         CALL ctl_stop('ptr_tjk: requested workspace array unavailable.') 
    303303         RETURN 
    … …  
    324324      ! 
    325325#if defined key_mpp_mpi 
    326       IF( .NOT. wrk_release(1, 1) )   CALL ctl_stop('ptr_tjk: failed to release workspace array.') 
     326      IF( wrk_not_released(1, 1) )   CALL ctl_stop('ptr_tjk: failed to release workspace array.') 
    327327#endif 
    328328      !     
    … …  
    532532      !! ** Method  :   NetCDF file 
    533533      !!---------------------------------------------------------------------- 
    534       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     534      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    535535      USE wrk_nemo, ONLY: zphi => wrk_1d_1, zfoo => wrk_1d_2 
    536536      USE wrk_nemo, ONLY: z_1  => wrk_2d_1 
    … …  
    551551      !!---------------------------------------------------------------------- 
    552552 
    553       IF( (.not. wrk_use(1, 1,2)) .OR. (.not. wrk_use(2, 1)) )THEN 
     553      IF( wrk_in_use(1, 1,2) .OR. wrk_in_use(2, 1) )THEN 
    554554         CALL ctl_stop('dia_ptr_wri: ERROR: requested workspace arrays unavailable')   ;   RETURN 
    555555      END IF 
    … …  
    867867      ENDIF 
    868868      ! 
    869       IF( .not. wrk_release(1, 1,2) .OR. (.not. wrk_release(2, 1)) )   & 
     869      IF( wrk_not_released(1, 1,2) .OR. wrk_not_released(2, 1) )   & 
    870870         CALL ctl_stop('dia_ptr_wri: failed to release workspace arrays') 
    871871      ! 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r2625 r2633  
    117117      !!---------------------------------------------------------------------- 
    118118      USE oce, ONLY :   z3d => ta   ! use ta as 3D workspace 
    119       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     119      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    120120      USE wrk_nemo, ONLY: z2d => wrk_2d_1 
    121121      !! 
    … …  
    126126      !!---------------------------------------------------------------------- 
    127127      !  
    128       IF( .not. wrk_use(2, 1))THEN 
     128      IF( wrk_in_use(2, 1))THEN 
    129129         CALL ctl_stop('dia_wri: ERROR - requested 2D workspace unavailable.') 
    130130         RETURN 
    … …  
    200200      ENDIF 
    201201      ! 
    202       IF( .not. wrk_release(2, 1))THEN 
     202      IF( wrk_not_released(2, 1))THEN 
    203203         CALL ctl_stop('dia_wri: ERROR - failed to release 2D workspace.') 
    204204         RETURN 
    … …  
    224224      !!      Each nwrite time step, output the instantaneous or mean fields 
    225225      !!---------------------------------------------------------------------- 
    226       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     226      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    227227      USE wrk_nemo, ONLY: zw2d => wrk_2d_1 
    228228      !! 
    … …  
    236236      !!---------------------------------------------------------------------- 
    237237      ! 
    238       IF( .not. wrk_use(2, 1))THEN 
     238      IF( wrk_in_use(2, 1))THEN 
    239239         CALL ctl_stop('dia_wri: ERROR - requested 2D workspace unavailable.') 
    240240         RETURN 
    … …  
    608608      ENDIF 
    609609      ! 
    610       IF( .not. wrk_release(2, 1))THEN 
     610      IF( wrk_not_released(2, 1))THEN 
    611611         CALL ctl_stop('dia_wri: ERROR - failed to release 2D workspace.') 
    612612         RETURN 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r2590 r2633  
    131131      !!               tmask_i  : interior ocean mask 
    132132      !!---------------------------------------------------------------------- 
    133       USE wrk_nemo, ONLY: wrk_use, wrk_release, iwrk_use, iwrk_release 
     133      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released 
    134134      USE wrk_nemo, ONLY: zwf => wrk_2d_1 
    135135      USE wrk_nemo, ONLY: imsk => iwrk_2d_1 
    … …  
    142142      !!--------------------------------------------------------------------- 
    143143       
    144       IF( (.not. wrk_use(2,1)) .OR. (.not. iwrk_use(2,1)) )THEN 
     144      IF( wrk_in_use(2,1) .OR. iwrk_in_use(2,1) )THEN 
    145145         CALL ctl_stop('dom_msk: ERROR: requested workspace arrays unavailable.') 
    146146         RETURN 
    … …  
    443443      ENDIF 
    444444      ! 
    445       IF( (.not. wrk_release(2,1)) .OR. (.not. iwrk_release(2,1)) )THEN 
     445      IF( wrk_not_released(2,1) .OR. iwrk_not_released(2,1) )THEN 
    446446         CALL ctl_stop('dom_msk: ERROR: failed to release workspace arrays.') 
    447447      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domngb.F90

    r2590 r2633  
    3737      !!---------------------------------------------------------------------- 
    3838      USE in_out_manager, ONLY: ctl_stop 
    39       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     39      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    4040      USE wrk_nemo, ONLY: zglam => wrk_2d_2, & 
    4141                          zgphi => wrk_2d_3, & 
    … …  
    5252      !!-------------------------------------------------------------------- 
    5353 
    54       IF(.not. wrk_use(2, 2, 3, 4, 5))THEN 
     54      IF(wrk_in_use(2, 2, 3, 4, 5))THEN 
    5555         CALL ctl_stop('dom_ngb: Requested workspaces already in use.') 
    5656      END IF 
    … …  
    8181      ENDIF 
    8282 
    83       IF(.not. wrk_release(2, 2,3,4,5))THEN 
     83      IF(wrk_not_released(2, 2,3,4,5))THEN 
    8484         CALL ctl_stop('dom_ngb: error releasing workspaces.') 
    8585      ENDIF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r2618 r2633  
    6565      !!               ssh over the whole water column (scale factors) 
    6666      !!---------------------------------------------------------------------- 
    67       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     67      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    6868      USE wrk_nemo, ONLY:   zs_t   => wrk_2d_1, zs_u_1 => wrk_2d_2 
    6969      USE wrk_nemo, ONLY:   zs_v_1 => wrk_2d_3 
    … …  
    7474      !!---------------------------------------------------------------------- 
    7575 
    76       IF(.not. wrk_use(2, 1,2,3))THEN 
     76      IF(wrk_in_use(2, 1,2,3))THEN 
    7777         CALL ctl_stop('dom_vvl: ERROR - requested workspace arrays unavailable.')   ;   RETURN 
    7878      END IF 
    … …  
    190190      fse3v_b(:,:,:) = fse3v_b(:,:,:) + fse3v_0(:,:,:) 
    191191      ! 
    192       IF(.not. wrk_release(2, 1,2,3))THEN 
     192      IF(wrk_not_released(2, 1,2,3))THEN 
    193193         CALL ctl_stop('dom_vvl: ERROR - failed to release workspace arrays.') 
    194194      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90

    r2618 r2633  
    6363      !!                                   masks, depth and vertical scale factors 
    6464      !!---------------------------------------------------------------------- 
    65       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     65      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    6666      USE wrk_nemo, ONLY: zprt  => wrk_2d_1, zprw  => wrk_2d_2 
    6767      USE wrk_nemo, ONLY: zdepu => wrk_3d_1, zdepv => wrk_3d_2 
    … …  
    8080      !!---------------------------------------------------------------------- 
    8181 
    82       IF( (.not. wrk_use(2, 1,2)) .OR. (.not. wrk_use(3, 1,2)) )THEN 
     82      IF( wrk_in_use(2, 1,2) .OR. wrk_in_use(3, 1,2) )THEN 
    8383         CALL ctl_stop('dom_wri: ERROR - requested workspace arrays unavailable.') 
    8484         RETURN 
    … …  
    261261      END SELECT 
    262262      ! 
    263       IF( (.not. wrk_release(2, 1,2)) .OR. (.not. wrk_release(3, 1,2)) )THEN 
     263      IF( wrk_not_released(2, 1,2) .OR. wrk_not_released(3, 1,2) )THEN 
    264264         CALL ctl_stop('dom_wri: ERROR - failed to release workspace arrays.') 
    265265      END IF 
    … …  
    278278      !!---------------------------------------------------------------------- 
    279279      !! 
    280       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     280      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    281281      USE wrk_nemo, ONLY: ztstref => wrk_2d_1      ! array with different values for each element 
    282282     !! 
    … …  
    289289      !!---------------------------------------------------------------------- 
    290290 
    291       IF( .not. wrk_use(2, 1) ) THEN 
    292          CALL ctl_stop('dom_uniq: ERROR - requested workspace array unavailable.')   ;   RETURN 
     291      IF( wrk_in_use(2, 1) ) THEN 
     292         CALL ctl_stop('dom_uniq : requested workspace array unavailable.')   ;   RETURN 
     293         RETURN 
    293294      END IF 
    294295 
    … …  
    307308      puniq(nldi:nlei,nldj:nlej) = REAL( COUNT( lldbl(nldi:nlei,nldj:nlej,:), dim = 3 ) , wp ) 
    308309      ! 
     310      IF( wrk_not_released(2, 1) ) THEN 
     311         CALL ctl_stop('dom_uniq : failed to release workspace array.')   ;   RETURN 
     312      END IF 
     313      ! 
    309314   END SUBROUTINE dom_uniq 
    310315 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r2590 r2633  
    619619      !!              - update bathy : meter bathymetry (in meters) 
    620620      !!---------------------------------------------------------------------- 
    621       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     621      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    622622      USE wrk_nemo, ONLY: zbathy => wrk_2d_1 
    623623      !! 
    … …  
    626626      !!---------------------------------------------------------------------- 
    627627 
    628       IF(.not. wrk_use(2, 1))THEN 
     628      IF(wrk_in_use(2, 1))THEN 
    629629         CALL ctl_stop('zgr_bat_ctl: ERROR: requested workspace array unavailable.') 
    630630         RETURN 
    … …  
    733733      ENDIF 
    734734      ! 
    735       IF(.not. wrk_release(2, 1))THEN 
     735      IF(wrk_not_released(2, 1))THEN 
    736736         CALL ctl_stop('zgr_bat_ctl: ERROR: failed to release workspace array.') 
    737737         RETURN 
    … …  
    753753      !!                                     (min value = 1 over land) 
    754754      !!---------------------------------------------------------------------- 
    755       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     755      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    756756      USE wrk_nemo, ONLY: zmbk => wrk_2d_1 
    757757      !! 
    … …  
    759759      !!---------------------------------------------------------------------- 
    760760      ! 
    761       IF( .not. wrk_use(2, 1))THEN 
     761      IF( wrk_in_use(2, 1))THEN 
    762762         CALL ctl_stop('zgr_bot_level: ERROR - requested 2D workspace unavailable.') 
    763763         RETURN 
    … …  
    780780      zmbk(:,:) = REAL( mbkv(:,:), wp )   ;   CALL lbc_lnk(zmbk,'V',1.)   ;   mbkv  (:,:) = MAX( INT( zmbk(:,:) ), 1 ) 
    781781      ! 
    782       IF( .not. wrk_release(2, 1))THEN 
     782      IF( wrk_not_released(2, 1))THEN 
    783783         CALL ctl_stop('zgr_bot_level: ERROR - failed to release workspace array.') 
    784784         RETURN 
    … …  
    860860      !!  Reference :   Pacanowsky & Gnanadesikan 1997, Mon. Wea. Rev., 126, 3248-3270. 
    861861      !!---------------------------------------------------------------------- 
    862       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     862      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    863863      USE wrk_nemo, ONLY: zprt => wrk_3d_1 
    864864      !! 
    … …  
    873873      !!--------------------------------------------------------------------- 
    874874      !  
    875       IF( .not. wrk_use(3, 1))THEN 
     875      IF( wrk_in_use(3, 1))THEN 
    876876         CALL ctl_stop('zgr_zps: ERROR - requested workspace unavailable.') 
    877877         RETURN 
    … …  
    10681068      ENDIF   
    10691069      ! 
    1070       IF( .not. wrk_release(3, 1))THEN 
     1070      IF( wrk_not_released(3, 1))THEN 
    10711071         CALL ctl_stop('zgr_zps: ERROR - failed to release workspace.') 
    10721072         RETURN 
    … …  
    11591159      !! Reference : Madec, Lott, Delecluse and Crepon, 1996. JPO, 26, 1393-1408. 
    11601160      !!---------------------------------------------------------------------- 
    1161       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     1161      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    11621162      USE wrk_nemo, ONLY: zenv => wrk_2d_1, ztmp => wrk_2d_2, zmsk => wrk_2d_3, & 
    11631163                          zri => wrk_2d_4, zrj => wrk_2d_5, zhbat => wrk_2d_6 
    … …  
    11701170      !!---------------------------------------------------------------------- 
    11711171 
    1172       IF(.not. wrk_use(2, 1,2,3,4,5,6))THEN 
     1172      IF(wrk_in_use(2, 1,2,3,4,5,6))THEN 
    11731173         CALL ctl_stop('zgr_sco: ERROR - requested workspace arrays unavailable') 
    11741174         RETURN 
    … …  
    16161616!!gm bug    #endif 
    16171617      ! 
    1618       IF(.not. wrk_release(2, 1,2,3,4,5,6))THEN 
     1618      IF(wrk_not_released(2, 1,2,3,4,5,6))THEN 
    16191619         CALL ctl_stop('zgr_sco: ERROR - failed to release workspace arrays') 
    16201620      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

    r2590 r2633  
    446446      !!                 p=integral [ rau*g dz ] 
    447447      !!---------------------------------------------------------------------- 
    448       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     448      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    449449      USE wrk_nemo, ONLY: zprn => wrk_3d_1 
    450450 
    … …  
    458458      !!---------------------------------------------------------------------- 
    459459 
    460       IF(.NOT. wrk_use(3, 1))THEN 
     460      IF(wrk_in_use(3, 1))THEN 
    461461         CALL ctl_stop('istage_uvg: requested workspace array unavailable.') 
    462462         RETURN 
    … …  
    558558      rotb (:,:,:) = rotn (:,:,:)       ! set the before to the now value 
    559559      ! 
    560       IF(.NOT. wrk_release(3, 1))THEN 
     560      IF(wrk_not_released(3, 1))THEN 
    561561         CALL ctl_stop('istage_uvg: failed to release workspace array.') 
    562562      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_cen2.F90

    r2625 r2633  
    4646      !! ** Action  :   (ua,va) updated with the now vorticity term trend 
    4747      !!---------------------------------------------------------------------- 
    48       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     48      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    4949      USE oce     , ONLY:   zfu   => ta       ! use ta as 3D workspace 
    5050      USE oce     , ONLY:   zfv   => sa       ! use sa as 3D workspace 
    … …  
    6666 
    6767      ! Check that global workspace arrays aren't already in use 
    68       IF( .not. wrk_use(3, 1,2,3,4,5,6,7) ) THEN 
     68      IF( wrk_in_use(3, 1,2,3,4,5,6,7) ) THEN 
    6969         CALL ctl_stop('dyn_adv_cen2 : requested workspace array unavailable')   ;   RETURN 
    7070      END IF 
    … …  
    162162         &                       tab3d_2=va, clinfo2=           ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    163163      ! 
    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') 
    165165      ! 
    166166   END SUBROUTINE dyn_adv_cen2 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_ubs.F90

    r2625 r2633  
    6767      !! Reference : Shchepetkin & McWilliams, 2005, Ocean Modelling.  
    6868      !!---------------------------------------------------------------------- 
    69       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     69      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    7070      USE oce     , ONLY:   zfu    => ta       ! ta used as 3D workspace 
    7171      USE oce     , ONLY:   zfv    => sa       ! sa used as 3D workspace 
    … …  
    9090 
    9191      ! 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) ) THEN 
     92      IF( wrk_in_use(3, 1,2,3,4,5,6,7) .OR. wrk_in_use(4, 1,2,3,4) ) THEN 
    9393         CALL ctl_stop('dyn_adv_ubs : requested workspace array unavailable')   ;   RETURN 
    9494      END IF 
    … …  
    254254         &                       tab3d_2=va, clinfo2=           ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    255255      ! 
    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') 
    258258      ! 
    259259   END SUBROUTINE dyn_adv_ubs 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r2625 r2633  
    7676      !!             - Save the trend (l_trddyn=T) 
    7777      !!---------------------------------------------------------------------- 
    78       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     78      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7979      USE wrk_nemo, ONLY: ztrdu => wrk_3d_1, ztrdv => wrk_3d_2   ! 3D workspace 
    8080      !! 
    … …  
    8383      !!---------------------------------------------------------------------- 
    8484      ! 
    85       IF(.NOT. wrk_use(3, 1,2) ) THEN 
     85      IF(wrk_in_use(3, 1,2) ) THEN 
    8686         CALL ctl_stop('dyn_hpg: requested workspace arrays are unavailable')   ;   RETURN 
    8787      END IF 
    … …  
    111111         &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    112112      ! 
    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') 
    114114      ! 
    115115   END SUBROUTINE dyn_hpg 
    … …  
    602602      USE oce, ONLY :   zhpi => ta   ! use ta as 3D workspace 
    603603      USE oce, ONLY :   zhpj => sa   ! use sa as 3D workspace 
    604       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     604      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    605605      USE wrk_nemo, ONLY: drhox => wrk_3d_1  , dzx => wrk_3d_2 
    606606      USE wrk_nemo, ONLY: drhou => wrk_3d_3  , dzu => wrk_3d_4 , rho_i => wrk_3d_5 
    … …  
    619619      !!---------------------------------------------------------------------- 
    620620 
    621       IF(.NOT. wrk_use(3, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) ) THEN 
     621      IF(wrk_in_use(3, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) ) THEN 
    622622         CALL ctl_stop('dyn:hpg_djc : requested workspace arrays unavailable')   ;   RETURN 
    623623      END IF 
    … …  
    819819      END DO 
    820820      ! 
    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) )   & 
    822822         CALL ctl_stop('dyn:hpg_djc : failed to release workspace arrays.') 
    823823      ! 
    … …  
    835835      USE oce, ONLY :   zhpi => ta   ! use ta as 3D workspace 
    836836      USE oce, ONLY :   zhpj => sa   ! use sa as 3D workspace 
    837       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     837      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    838838      USE wrk_nemo, ONLY: zdistr  => wrk_2d_1 , zsina   => wrk_2d_2 , zcosa  => wrk_2d_3 
    839839      USE wrk_nemo, ONLY: zhpiorg => wrk_3d_1 , zhpirot => wrk_3d_2 
    … …  
    849849      !!---------------------------------------------------------------------- 
    850850 
    851       IF( .NOT. wrk_use(2, 1,2,3) .OR.      & 
    852           .NOT. wrk_use(3, 1,2,3,4,5,6,7,8) ) THEN 
     851      IF( wrk_in_use(2, 1,2,3) .OR.      & 
     852          wrk_in_use(3, 1,2,3,4,5,6,7,8) ) THEN 
    853853         CALL ctl_stop('dyn:hpg_rot : requested workspace arrays unavailable')   ;   RETURN 
    854854      END IF 
    … …  
    10091009      END DO 
    10101010      ! 
    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') 
    10131013      ! 
    10141014   END SUBROUTINE hpg_rot 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynkeg.F90

    r2625 r2633  
    5151      !!             - save this trends (l_trddyn=T) for post-processing 
    5252      !!---------------------------------------------------------------------- 
    53       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     53      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    5454      USE oce     , ONLY:   ztrdu => ta       , ztrdv => sa   ! (ta,sa) used as 3D workspace    
    5555      USE wrk_nemo, ONLY:   zhke  => wrk_3d_1                 ! 3D workspace 
    … …  
    6161      !!---------------------------------------------------------------------- 
    6262 
    63       IF(.NOT. wrk_use(3,1) ) THEN 
     63      IF(wrk_in_use(3,1) ) THEN 
    6464         CALL ctl_stop('dyn_key: requested workspace array is unavailable.')   ;   RETURN 
    6565      ENDIF 
    … …  
    135135         &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    136136      ! 
    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') 
    138138      ! 
    139139   END SUBROUTINE dyn_keg 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90

    r2590 r2633  
    5252      !! ** Purpose :   compute the lateral ocean dynamics physics. 
    5353      !!---------------------------------------------------------------------- 
    54       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     54      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    5555      USE wrk_nemo, ONLY: ztrdu => wrk_3d_1, ztrdv => wrk_3d_2 
    5656      !! 
    … …  
    5858      !!---------------------------------------------------------------------- 
    5959 
    60       IF(.NOT. wrk_use(3, 1,2))THEN 
     60      IF(wrk_in_use(3, 1,2))THEN 
    6161         CALL ctl_stop('dyn_ldf: requested workspace arrays unavailable.') 
    6262         RETURN 
    … …  
    112112         &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    113113      ! 
    114       IF(.NOT. wrk_release(3, 1,2))THEN 
     114      IF(wrk_not_released(3, 1,2))THEN 
    115115         CALL ctl_stop('dyn_ldf: failed to release workspace arrays.') 
    116116      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilap.F90

    r2625 r2633  
    7575      !!               mixing trend. 
    7676      !!---------------------------------------------------------------------- 
    77       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     77      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7878      USE wrk_nemo, ONLY: zcu => wrk_2d_1, zcv => wrk_2d_2   ! 3D workspace 
    7979      USE wrk_nemo, ONLY: zuf => wrk_3d_1, zut => wrk_3d_2   ! 3D workspace 
    … …  
    8686      !!---------------------------------------------------------------------- 
    8787 
    88       IF( .NOT. wrk_use(2, 1,2) .OR. .NOT. wrk_use(3, 1,2,3,4) ) THEN 
     88      IF( wrk_in_use(2, 1,2) .OR. wrk_in_use(3, 1,2,3,4) ) THEN 
    8989         CALL ctl_stop('dyn_ldf_bilap : requested workspace arrays unavailable')   ;   RETURN 
    9090      ENDIF 
    … …  
    208208      END DO                                           !   End of slab 
    209209      !                                                ! =============== 
    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') 
    212212      ! 
    213213   END SUBROUTINE dyn_ldf_bilap 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90

    r2618 r2633  
    8686      !!              - save the trend in (zwk3,zwk4) ('key_trddyn') 
    8787      !!---------------------------------------------------------------------- 
    88       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     88      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    8989      USE wrk_nemo, ONLY:   zwk1 => wrk_3d_1 , zwk2 => wrk_3d_2   ! 3D workspace 
    9090      USE oce     , ONLY:   zwk3 => ta       , zwk4 => sa         ! ta, sa used as 3D workspace    
    … …  
    9595      !!---------------------------------------------------------------------- 
    9696 
    97       IF( .NOT. wrk_use(3, 1,2) ) THEN 
     97      IF( wrk_in_use(3, 1,2) ) THEN 
    9898         CALL ctl_stop('dyn_ldf_bilapg: requested workspace arrays unavailable.')   ;   RETURN 
    9999      END IF 
    … …  
    131131      END DO 
    132132      ! 
    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') 
    134134      ! 
    135135   END SUBROUTINE dyn_ldf_bilapg 
    … …  
    177177      !!      'key_trddyn' defined: the trend is saved for diagnostics. 
    178178      !!---------------------------------------------------------------------- 
    179       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     179      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    180180      USE wrk_nemo, ONLY: ziut => wrk_2d_1, zjuf => wrk_2d_2, zjvt => wrk_2d_3 
    181181      USE wrk_nemo, ONLY: zivf => wrk_2d_4, zdku => wrk_2d_5, zdk1u => wrk_2d_6 
    … …  
    196196      !!---------------------------------------------------------------------- 
    197197 
    198       IF( .NOT. wrk_use(2, 1,2,3,4,5,6,7,8) ) THEN 
     198      IF( wrk_in_use(2, 1,2,3,4,5,6,7,8) ) THEN 
    199199         CALL ctl_stop('dyn:ldfguv : requested workspace arrays unavailable.')   ;   RETURN 
    200200      END IF 
    … …  
    454454      !                                                ! =============== 
    455455 
    456       IF(.NOT. wrk_release(2, 1,2,3,4,5,6,7,8))THEN 
     456      IF(wrk_not_released(2, 1,2,3,4,5,6,7,8))THEN 
    457457         CALL ctl_stop('dyn:ldfguv : failed to release workspace arrays.') 
    458458      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_iso.F90

    r2618 r2633  
    106106      !!      of the rotated operator in dynzdf module 
    107107      !!---------------------------------------------------------------------- 
    108       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     108      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    109109      USE wrk_nemo, ONLY:   ziut  => wrk_2d_1 , zjuf  => wrk_2d_2 , zjvt => wrk_2d_3    ! 2D workspace 
    110110      USE wrk_nemo, ONLY:   zivf  => wrk_2d_4 , zdku  => wrk_2d_5 , zdkv => wrk_2d_6    ! 2D workspace 
    … …  
    120120      !!---------------------------------------------------------------------- 
    121121 
    122       IF( .NOT. wrk_use(2, 1,2,3,4,5,6,7,8) ) THEN 
     122      IF( wrk_in_use(2, 1,2,3,4,5,6,7,8) ) THEN 
    123123         CALL ctl_stop('dyn_ldf_iso: requested workspace arrays unavailable.')   ;   RETURN 
    124124      END IF 
    … …  
    429429      !                                                ! =============== 
    430430 
    431       IF( .NOT. wrk_release(2, 1,2,3,4,5,6,7,8))THEN 
     431      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8))THEN 
    432432         CALL ctl_stop('dyn_ldf_iso: failed to release workspace arrays.') 
    433433      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

    r2590 r2633  
    9393      USE oce, ONLY :   ze3u_f => ta   ! use ta as 3D workspace 
    9494      USE oce, ONLY :   ze3v_f => sa   ! use sa as 3D workspace 
    95       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     95      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    9696      USE wrk_nemo, ONLY:   zs_t => wrk_2d_1, zs_u_1 => wrk_2d_2, & 
    9797                          zs_v_1 => wrk_2d_3 
    … …  
    110110      !!---------------------------------------------------------------------- 
    111111 
    112       IF(.NOT. wrk_use(2, 1,2,3))THEN 
     112      IF(wrk_in_use(2, 1,2,3))THEN 
    113113         CALL ctl_stop('dyn_nxt: requested workspace arrays unavailable.') 
    114114         RETURN 
    … …  
    325325         &                       tab3d_2=vn, clinfo2=' Vn: '       , mask2=vmask ) 
    326326      !  
    327       IF(.NOT. wrk_release(2, 1,2,3))THEN 
     327      IF(wrk_not_released(2, 1,2,3))THEN 
    328328         CALL ctl_stop('dyn_nxt: failed to release workspace arrays.') 
    329329      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90

    r2618 r2633  
    7373      !!        of the physical meaning of the results.  
    7474      !!---------------------------------------------------------------------- 
    75       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     75      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7676      USE wrk_nemo, ONLY: ztrdu => wrk_3d_4, ztrdv => wrk_3d_5 
    7777      !! 
    … …  
    8383      !!---------------------------------------------------------------------- 
    8484 
    85       IF(.NOT. wrk_use(3, 4,5))THEN 
     85      IF(wrk_in_use(3, 4,5))THEN 
    8686         CALL ctl_stop('dyn_spg: requested workspace arrays unavailable.') 
    8787         RETURN 
    … …  
    154154         &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    155155      ! 
    156       IF(.NOT. wrk_release(3, 4,5))THEN 
     156      IF(wrk_not_released(3, 4,5))THEN 
    157157         CALL ctl_stop('dyn_spg: failed to release workspace arrays.') 
    158158      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r2627 r2633  
    111111      !! References : Griffies et al., (2003): A technical guide to MOM4. NOAA/GFDL 
    112112      !!--------------------------------------------------------------------- 
    113       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     113      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    114114      USE wrk_nemo, ONLY: zhdiv => wrk_2d_1, zsshb_e => wrk_2d_2 
    115115      USE wrk_nemo, ONLY: zbfru => wrk_2d_3  , zbfrv => wrk_2d_4  
    … …  
    132132      !!---------------------------------------------------------------------- 
    133133 
    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,         & 
    135135                          11,12,13,14,15,16,17,18,19,20,21 ) ) THEN 
    136136         CALL ctl_stop( 'dyn_spg_ts: requested workspace arrays unavailable.' )   ;   RETURN 
    … …  
    569569      ! 
    570570      ! 
    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,         & 
    572572                              11,12,13,14,15,16,17,18,19,20,21))THEN 
    573573         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  
    204204      !! References : Sadourny, r., 1975, j. atmos. sciences, 32, 680-689. 
    205205      !!---------------------------------------------------------------------- 
    206       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     206      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    207207      USE wrk_nemo, ONLY: zwx => wrk_2d_1, zwy => wrk_2d_2, zwz => wrk_2d_3 
    208208      !! 
    … …  
    218218      !!---------------------------------------------------------------------- 
    219219 
    220       IF(.NOT. wrk_use(2, 1,2,3))THEN 
     220      IF(wrk_in_use(2, 1,2,3))THEN 
    221221         CALL ctl_stop('dyn:vor_ene: requested workspace arrays unavailable.') 
    222222         RETURN 
    … …  
    286286      END DO                                           !   End of slab 
    287287      !                                                ! =============== 
    288       IF(.NOT. wrk_release(2, 1,2,3))THEN 
     288      IF(wrk_not_released(2, 1,2,3))THEN 
    289289         CALL ctl_stop('dyn:vor_ene: failed to release workspace arrays.') 
    290290      END IF 
    … …  
    324324      !! References : Sadourny, r., 1975, j. atmos. sciences, 32, 680-689. 
    325325      !!---------------------------------------------------------------------- 
    326       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     326      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    327327      USE wrk_nemo, ONLY: zwx => wrk_2d_4, zwy => wrk_2d_5, & 
    328328                          zwz => wrk_2d_6, zww => wrk_2d_7 
    … …  
    335335      !!---------------------------------------------------------------------- 
    336336 
    337       IF(.NOT. wrk_use(2, 4,5,6,7))THEN 
     337      IF(wrk_in_use(2, 4,5,6,7))THEN 
    338338         CALL ctl_stop('dyn:vor_mix: requested workspace arrays unavailable.') 
    339339         RETURN 
    … …  
    410410      END DO                                           !   End of slab 
    411411      !                                                ! =============== 
    412       IF(.NOT. wrk_release(2, 4,5,6,7))THEN 
     412      IF(wrk_not_released(2, 4,5,6,7))THEN 
    413413         CALL ctl_stop('dyn:vor_mix: failed to release workspace arrays.') 
    414414      END IF 
    … …  
    443443      !! References : Sadourny, r., 1975, j. atmos. sciences, 32, 680-689. 
    444444      !!---------------------------------------------------------------------- 
    445       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     445      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    446446      USE wrk_nemo, ONLY: zwx => wrk_2d_4, zwy => wrk_2d_5, zwz => wrk_2d_6 
    447447      !! 
    … …  
    456456      !!---------------------------------------------------------------------- 
    457457       
    458       IF(.NOT. wrk_use(2, 4,5,6))THEN 
     458      IF(wrk_in_use(2, 4,5,6))THEN 
    459459         CALL ctl_stop('dyn:vor_ens : requested workspace arrays unavailable.') 
    460460         RETURN 
    … …  
    532532      END DO                                           !   End of slab 
    533533      !                                                ! =============== 
    534       IF(.NOT. wrk_release(2, 4,5,6))THEN 
     534      IF(wrk_not_released(2, 4,5,6))THEN 
    535535         CALL ctl_stop('dyn:vor_ens : failed to release workspace arrays.') 
    536536      END IF 
    … …  
    558558      !! References : Arakawa and Lamb 1980, Mon. Wea. Rev., 109, 18-36 
    559559      !!---------------------------------------------------------------------- 
    560       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     560      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    561561      USE wrk_nemo, ONLY:   zwx  => wrk_2d_1 , zwy  => wrk_2d_2 ,  zwz => wrk_2d_3  
    562562      USE wrk_nemo, ONLY:   ztnw => wrk_2d_4 , ztne => wrk_2d_5  
    … …  
    580580      !!---------------------------------------------------------------------- 
    581581 
    582       IF(.NOT. wrk_use(2, 1,2,3,4,5,6,7) .AND. .NOT. wrk_use(3, 1) ) THEN 
     582      IF(wrk_in_use(2, 1,2,3,4,5,6,7) .OR. wrk_in_use(3, 1) ) THEN 
    583583         CALL ctl_stop('dyn:vor_een : requested workspace arrays unavailable.')   ;   RETURN 
    584584      END IF 
    … …  
    681681      END DO                                           !   End of slab 
    682682      !                                                ! =============== 
    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') 
    685685      ! 
    686686   END SUBROUTINE vor_een 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90

    r2590 r2633  
    5656      USE oce, ONLY:   zwuw => ta   ! use ta as 3D workspace 
    5757      USE oce, ONLY:   zwvw => sa   ! use sa as 3D workspace 
    58       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     58      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    5959      USE wrk_nemo, ONLY: zww => wrk_2d_1 
    6060      USE wrk_nemo, ONLY: ztrdu => wrk_3d_1, ztrdv => wrk_3d_2 
    … …  
    6666      !!---------------------------------------------------------------------- 
    6767       
    68       IF( (.NOT. wrk_use(2, 1))  .OR.    & 
    69           (.NOT. wrk_use(3, 1,2)) )THEN 
     68      IF( wrk_in_use(2, 1)  .OR.    & 
     69          wrk_in_use(3, 1,2) )THEN 
    7070         CALL ctl_stop('dyn_zad: requested workspace arrays unavailable.') 
    7171         RETURN 
    … …  
    126126         &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    127127      ! 
    128       IF( (.NOT. wrk_release(2, 1))  .OR.    & 
    129           (.NOT. wrk_release(3, 1,2)) )THEN 
     128      IF( wrk_not_released(2, 1)  .OR.    & 
     129          wrk_not_released(3, 1,2) )THEN 
    130130         CALL ctl_stop('dyn_zad: failed to release workspace arrays.') 
    131131      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90

    r2590 r2633  
    5252      !! ** Purpose :   compute the vertical ocean dynamics physics. 
    5353      !!--------------------------------------------------------------------- 
    54       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     54      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    5555      USE wrk_nemo, ONLY: ztrdu => wrk_3d_1, ztrdv => wrk_3d_2 
    5656      !! 
    … …  
    5858      !!--------------------------------------------------------------------- 
    5959 
    60       IF(.NOT. wrk_use(3, 1,2))THEN 
     60      IF(wrk_in_use(3, 1,2))THEN 
    6161         CALL ctl_stop('dyn_zdf: requested workspace arrays unavailable.') 
    6262         RETURN 
    … …  
    9595            &                    tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    9696      ! 
    97       IF(.NOT. wrk_release(3, 1,2))THEN 
     97      IF(wrk_not_released(3, 1,2))THEN 
    9898         CALL ctl_stop('dyn_zdf: failed to release workspace arrays.') 
    9999      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_exp.F90

    r2621 r2633  
    5252      !! ** Action : - Update (ua,va) with the vertical diffusive trend 
    5353      !!--------------------------------------------------------------------- 
    54       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     54      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    5555      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 workspace 
     56      USE wrk_nemo, ONLY:   zwz => wrk_3d_1 , zww => wrk_3d_2   ! 3D workspace 
    5757      ! 
    5858      INTEGER , INTENT(in) ::   kt     ! ocean time-step index 
    … …  
    6262      REAL(wp) ::   zrau0r, zlavmr, zua, zva                 ! temporary scalars 
    6363      !!---------------------------------------------------------------------- 
     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 
    6469 
    6570      IF( kt == nit000 .AND. lwp ) THEN 
    … …  
    114119      END DO                           ! End of time splitting 
    115120      ! 
     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      ! 
    116125   END SUBROUTINE dyn_zdf_exp 
    117126 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

    r2590 r2633  
    5656      USE oce, ONLY :  zwd   => ta      ! use ta as workspace 
    5757      USE oce, ONLY :  zws   => sa      ! use sa as workspace 
    58       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     58      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    5959      USE wrk_nemo, ONLY: zwi => wrk_3d_3 ! workspace 
    6060      !! 
    … …  
    6767      !!---------------------------------------------------------------------- 
    6868 
    69       IF(.NOT. wrk_use(3, 3))THEN 
     69      IF(wrk_in_use(3, 3))THEN 
    7070         CALL ctl_stop('dyn_zdf_imp : requested workspace array unavailable.') 
    7171         RETURN 
    … …  
    259259      END DO 
    260260      ! 
    261       IF(.NOT. wrk_release(3, 3))THEN 
     261      IF(wrk_not_released(3, 3))THEN 
    262262         CALL ctl_stop('dyn_zdf_imp : failed to release workspace array.') 
    263263      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

    r2590 r2633  
    7676      !!---------------------------------------------------------------------- 
    7777      USE oce, ONLY :   z3d => ta   ! use ta as 3D workspace 
    78       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     78      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7979      USE wrk_nemo, ONLY: zhdiv => wrk_2d_1, z2d => wrk_2d_2 
    8080      !! 
    … …  
    8686      !!---------------------------------------------------------------------- 
    8787 
    88       IF(.NOT. wrk_use(2, 1,2))THEN 
     88      IF(wrk_in_use(2, 1,2))THEN 
    8989         CALL ctl_stop('ssh_wzv: requested workspace arrays unavailable.') 
    9090         RETURN 
    … …  
    244244      IF(ln_ctl)   CALL prt_ctl( tab2d_1=ssha, clinfo1=' ssha  - : ', mask1=tmask, ovlap=1 ) 
    245245      ! 
    246       IF(.NOT. wrk_release(2, 1,2))THEN 
     246      IF(wrk_not_released(2, 1,2))THEN 
    247247         CALL ctl_stop('ssh_wzv: failed to release workspace arrays.') 
    248248      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90

    r2590 r2633  
    7878      !!   9.0  !  05-07  (C. Talandier) original code 
    7979      !!---------------------------------------------------------------------- 
    80       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     80      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    8181      USE wrk_nemo, ONLY: ztab2d_1 => wrk_2d_1, ztab2d_2 => wrk_2d_2 
    8282      USE wrk_nemo, ONLY:   zmask1 => wrk_3d_1,   zmask2 => wrk_3d_2, & 
    … …  
    101101      !!---------------------------------------------------------------------- 
    102102 
    103       IF( (.NOT. wrk_use(2, 1,2)) .OR. (.NOT. wrk_use(3, 1,2,3,4)) )THEN 
     103      IF( wrk_in_use(2, 1,2) .OR. wrk_in_use(3, 1,2,3,4) )THEN 
    104104         CALL ctl_stop('prt_ctl : requested workspace arrays unavailable.') 
    105105         RETURN 
    … …  
    213213      ENDDO 
    214214 
    215       IF( (.NOT. wrk_release(2, 1,2)) .OR. (.NOT. wrk_release(3, 1,2,3,4)) )THEN 
     215      IF( wrk_not_released(2, 1,2) .OR. wrk_not_released(3, 1,2,3,4) )THEN 
    216216         CALL ctl_stop('prt_ctl : failed to release workspace arrays.') 
    217217      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r2627 r2633  
    17261726      !! 
    17271727      !!---------------------------------------------------------------------- 
    1728       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     1728      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    17291729      USE wrk_nemo, ONLY:   ztab => wrk_2d_1 
    17301730      ! 
    … …  
    17461746      !!---------------------------------------------------------------------- 
    17471747 
    1748       IF(.NOT. wrk_use(2, 1) ) THEN 
     1748      IF(wrk_in_use(2, 1) ) THEN 
    17491749         WRITE(kumout, cform_err) 
    17501750         WRITE(kumout,*) 'mppobc : requested workspace array unavailable' 
    … …  
    19011901      END DO 
    19021902      ! 
    1903       IF(.NOT. wrk_release(2, 1) ) THEN 
     1903      IF(wrk_not_released(2, 1) ) THEN 
    19041904         WRITE(kumout, cform_err) 
    19051905         WRITE(kumout,*) 'mppobc : failed to release workspace array' 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_c2d.h90

    r2590 r2633  
    145145      !! * Modules used 
    146146      USE ldftra_oce, ONLY : aht0 
    147       USE wrk_nemo, ONLY: iwrk_use, iwrk_release 
     147      USE wrk_nemo, ONLY: iwrk_in_use, iwrk_not_released 
    148148      USE wrk_nemo, ONLY: icof => iwrk_2d_1 
    149149      !! * Arguments 
    … …  
    162162      !!---------------------------------------------------------------------- 
    163163 
    164       IF(.not. iwrk_use(2, 1))THEN 
     164      IF( iwrk_in_use(2, 1) )THEN 
    165165         CALL ctl_stop('ldf_dyn_c2d_orca: ERROR: requested workspace array is unavailable.') 
    166166         RETURN 
    … …  
    293293      ENDIF 
    294294 
    295       IF(.not. iwrk_release(2, 1))THEN 
     295      IF( iwrk_not_released(2, 1) )THEN 
    296296         CALL ctl_stop('ldf_dyn_c2d_orca: ERROR: failed to release workspace array.') 
    297297      END IF 
    … …  
    316316      !! * Modules used 
    317317      USE ldftra_oce, ONLY : aht0 
    318       USE wrk_nemo, ONLY: iwrk_use, iwrk_release 
     318      USE wrk_nemo, ONLY: iwrk_in_use, iwrk_not_released 
    319319      USE wrk_nemo, ONLY: icof => iwrk_2d_1 
    320320 
    … …  
    334334      !!---------------------------------------------------------------------- 
    335335 
    336       IF(.not. iwrk_use(2, 1))THEN 
     336      IF( iwrk_in_use(2, 1) )THEN 
    337337         CALL ctl_stop('ldf_dyn_c2d_orca_R1: ERROR: requested workspace array is unavailable.') 
    338338         RETURN 
    … …  
    472472      ENDIF 
    473473 
    474       IF(.not. iwrk_release(2, 1))THEN 
     474      IF( iwrk_not_released(2, 1) )THEN 
    475475         CALL ctl_stop('ldf_dyn_c2d_orca_R1: ERROR: failed to release workspace array.') 
    476476      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90

    r2590 r2633  
    2727      !!---------------------------------------------------------------------- 
    2828      USE ldftra_oce, ONLY : aht0 
    29       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     29      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    3030      USE wrk_nemo, ONLY: zcoef => wrk_1d_2 
    3131      !! 
    … …  
    4444      !!---------------------------------------------------------------------- 
    4545 
    46       IF(.not. wrk_use(1,2))THEN 
     46      IF(wrk_in_use(1,2))THEN 
    4747         CALL ctl_stop('ldf_dyn_c3d: ERROR: requested workspace array unavailable.') 
    4848         RETURN 
    … …  
    188188      ENDIF 
    189189 
    190       IF(.not. wrk_release(1,2))THEN 
     190      IF(wrk_not_released(1,2))THEN 
    191191         CALL ctl_stop('ldf_dyn_c3d: ERROR: failed to release workspace array.') 
    192192      END IF 
    … …  
    204204      !!---------------------------------------------------------------------- 
    205205      USE ldftra_oce, ONLY : aht0 
    206       USE wrk_nemo, ONLY: wrk_use, wrk_release, iwrk_use, iwrk_release 
     206      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released 
    207207      USE wrk_nemo, ONLY:  icof => iwrk_2d_1 
    208208      USE wrk_nemo, ONLY: zahm0 =>  wrk_2d_1 
    … …  
    225225      !!---------------------------------------------------------------------- 
    226226 
    227       IF( (.not. iwrk_use(2,1)) .OR. (.not. wrk_use(2,1)) .OR. & 
    228           (.not. wrk_use(1,1)))THEN 
     227      IF( iwrk_in_use(2,1) .OR. wrk_in_use(2,1) .OR. wrk_in_use(1,1) )THEN 
    229228         CALL ctl_stop('ldf_dyn_c3d_orca: ERROR: requested workspace arrays are unavailable.') 
    230229         RETURN 
    … …  
    474473      ENDIF 
    475474 
    476       IF( (.not. iwrk_release(2,1)) .OR. (.not. wrk_release(2,1)) .OR. & 
    477           (.not. wrk_release(1,1)))THEN 
     475      IF( iwrk_not_released(2,1) .OR. wrk_not_released(2,1) .OR. & 
     476           wrk_not_released(1,1) )THEN 
    478477         CALL ctl_stop('ldf_dyn_c3d_orca: ERROR: failed to release workspace arrays.') 
    479478      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv.F90

    r2590 r2633  
    5353      !!             - wslpi, wslpj : i- and j-slopes of neutral surfaces at w-points.  
    5454      !!---------------------------------------------------------------------- 
    55       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     55      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    5656      USE wrk_nemo, ONLY: zn  => wrk_2d_1, zah   => wrk_2d_2, & 
    5757                          zhw => wrk_2d_3, zross => wrk_2d_4 
    … …  
    6363      !!---------------------------------------------------------------------- 
    6464       
    65       IF(.not. wrk_use(2, 1,2,3,4))THEN 
     65      IF(wrk_in_use(2, 1,2,3,4))THEN 
    6666         CALL ctl_stop('ldf_eiv: ERROR: requested workspace arrays are unavailable.') 
    6767         RETURN 
    … …  
    244244      CALL iom_put( "aht2d_eiv", aeiw )   ! EIV lateral eddy diffusivity 
    245245      !   
    246       IF(.not. wrk_release(2, 1,2,3,4))THEN 
     246      IF(wrk_not_released(2, 1,2,3,4))THEN 
    247247         CALL ctl_stop('ldf_eiv: ERROR: failed to release workspace arrays.') 
    248248      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90

    r2618 r2633  
    119119      USE oce , zww   => ta   ! use ta as workspace 
    120120      USE oce , zwz   => sa   ! use sa as workspace 
    121       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     121      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    122122      USE wrk_nemo, ONLY: zdzr => wrk_3d_1 
    123123      !! 
    … …  
    135135      !!---------------------------------------------------------------------- 
    136136 
    137       IF(.NOT. wrk_use(3, 1) ) THEN 
     137      IF(wrk_in_use(3, 1) ) THEN 
    138138         CALL ctl_stop('ldf_slp: requested workspace arrays are unavailable')   ;   RETURN 
    139139      END IF 
    … …  
    382382      ENDIF 
    383383      ! 
    384       IF(.not. wrk_release(3, 1))THEN 
     384      IF(wrk_not_released(3, 1))THEN 
    385385         CALL ctl_stop('ldf_slp: ERROR: failed to release workspace arrays.') 
    386386      END IF 
    … …  
    407407      USE oce,   zdjt  => ta   ! use ta as workspace 
    408408      USE oce,   zdjs  => sa   ! use sa as workspace 
    409       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     409      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    410410      USE wrk_nemo, ONLY: zdkt   => wrk_3d_2, zdks  => wrk_3d_3, & 
    411411                          zalpha => wrk_3d_4, zbeta => wrk_3d_5    ! alpha, beta at T points, at depth fsgdept 
    … …  
    423423      !!---------------------------------------------------------------------- 
    424424 
    425       IF( (.not. wrk_use(3, 2,3,4,5)) .OR. (.not. wrk_use(2, 1)) )THEN 
     425      IF( (wrk_in_use(3, 2,3,4,5)) .OR. (wrk_in_use(2, 1)) )THEN 
    426426         CALL ctl_stop('ldf_slp_grif: ERROR: requested workspace arrays are unavailable.')   ;   RETURN 
    427427      END IF 
    … …  
    607607      CALL lbc_lnk( wslp2, 'W', 1. )      ! lateral boundary confition on wslp2 only   ==>>> gm : necessary ? to be checked 
    608608      ! 
    609       IF(.NOT. wrk_release(3, 2,3,4,5) .OR.   & 
    610          .NOT. wrk_release(2, 1)        )   CALL ctl_stop('ldf_slp_grif: ERROR: failed to release workspace arrays.') 
     609      IF(wrk_not_released(3, 2,3,4,5) .OR.   & 
     610         wrk_not_released(2, 1)        )   CALL ctl_stop('ldf_slp_grif: ERROR: failed to release workspace arrays.') 
    611611      ! 
    612612   END SUBROUTINE ldf_slp_grif 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r2590 r2633  
    10261026         & frld 
    10271027#endif 
    1028       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     1028      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    10291029#if ! defined key_ice_lim 
    10301030      USE wrk_nemo, ONLY: frld => wrk_2d_1 
    … …  
    10451045  
    10461046#if ! defined key_ice_lim 
    1047       IF(.NOT. wrk_use(2, 1))THEN 
     1047      IF(wrk_in_use(2, 1))THEN 
    10481048         CALL ctl_stop('dia_obs : requested workspace array unavailable.') 
    10491049         RETURN 
    … …  
    11291129 
    11301130#if ! defined key_ice_lim 
    1131       IF(.NOT. wrk_release(2, 1))THEN 
     1131      IF(wrk_not_released(2, 1))THEN 
    11321132         CALL ctl_stop('dia_obs : failed to release workspace array.') 
    11331133      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_inter_sup.F90

    r2590 r2633  
    105105      !!        !  08-02  (K. Mogensen)  Original code 
    106106      !!---------------------------------------------------------------------- 
    107       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     107      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    108108      USE wrk_nemo, ONLY: wrk_3d_1 
    109109      !! 
    … …  
    128128 
    129129      ! Check workspace array and set-up pointer 
    130       IF(.NOT. wrk_use(3, 1))THEN 
     130      IF(wrk_in_use(3, 1))THEN 
    131131         CALL ctl_stop('obs_int_comm_2d : requested workspace array unavailable.') 
    132132         RETURN 
    … …  
    156156 
    157157      ! 'Release' workspace array back to pool 
    158       IF(.NOT. wrk_release(3, 1))THEN 
     158      IF(wrk_not_released(3, 1))THEN 
    159159         CALL ctl_stop('obs_int_comm_2d : failed to release workspace array.') 
    160160      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_altbias.F90

    r2590 r2633  
    6767      !! * Modules used 
    6868      USE iom 
    69       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     69      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7070      USE wrk_nemo, ONLY: z_altbias => wrk_2d_1   ! Array to store the alt bias values 
    7171      ! 
    … …  
    109109      INTEGER :: numaltbias 
    110110 
    111       IF(.NOT. wrk_use(2, 1))THEN 
     111      IF(wrk_in_use(2, 1))THEN 
    112112         CALL ctl_stop('obs_rea_altbias : requested workspace array unavailable.') 
    113113         RETURN 
    … …  
    211211      END DO 
    212212 
    213       IF(.NOT. wrk_release(2, 1))THEN 
     213      IF(wrk_not_released(2, 1))THEN 
    214214         CALL ctl_stop('obs_rea_altbias : failed to release workspace array.') 
    215215      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_readmdt.F90

    r2590 r2633  
    8181      !! * Modules used 
    8282      USE iom 
    83       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     83      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    8484      USE wrk_nemo, ONLY: z_mdt => wrk_2d_1,  &  ! Array to store the MDT values 
    8585                        mdtmask => wrk_2d_2    ! Array to store the mask for the MDT 
    … …  
    131131      !!---------------------------------------------------------------------- 
    132132 
    133       IF(.NOT. wrk_use(2, 1,2))THEN 
     133      IF(wrk_in_use(2, 1,2))THEN 
    134134         CALL ctl_stop('obs_rea_mdt : requested workspace array unavailable.') 
    135135         RETURN 
    … …  
    240240      END DO 
    241241 
    242       IF(.NOT. wrk_release(2, 1,2))THEN 
     242      IF(wrk_not_released(2, 1,2))THEN 
    243243         CALL ctl_stop('obs_rea_mdt : failed to release workspace arrays.') 
    244244      END IF 
    … …  
    266266      !!---------------------------------------------------------------------- 
    267267      !! * Modules used 
    268       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     268      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    269269      USE wrk_nemo, ONLY: zpromsk => wrk_2d_3 
    270270      !! 
    … …  
    288288      !!---------------------------------------------------------------------- 
    289289 
    290       IF(.NOT. wrk_use(2, 3))THEN 
     290      IF(wrk_in_use(2, 3))THEN 
    291291         CALL ctl_stop('obs_offset_mdt : requested workspace array unavailable.') 
    292292         RETURN 
    … …  
    358358 
    359359 
    360       IF(.NOT. wrk_release(2, 3))THEN 
     360      IF(wrk_not_released(2, 3))THEN 
    361361         CALL ctl_stop('obs_offset_mdt : failed to release workspace array.') 
    362362      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBS/obs_rot_vel.F90

    r2590 r2633  
    5555      !!---------------------------------------------------------------------- 
    5656      !! * Modules used 
    57       USE wrk_nemo, ONLY: wrk_use, wrk_release    
     57      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released    
    5858      USE wrk_nemo, ONLY: zsingu => wrk_2d_1, zcosgu => wrk_2d_2, & 
    5959                          zsingv => wrk_2d_3, zcosgv => wrk_2d_4 
    … …  
    9393      INTEGER :: jk 
    9494 
    95       IF(.NOT. wrk_use(2, 1,2,3,4))THEN 
     95      IF(wrk_in_use(2, 1,2,3,4))THEN 
    9696         CALL ctl_stop('obs_rotvel : requested workspace arrays unavailable.') 
    9797         RETURN 
    … …  
    229229         & ) 
    230230 
    231       IF(.NOT. wrk_release(2, 1,2,3,4))THEN 
     231      IF(wrk_not_released(2, 1,2,3,4))THEN 
    232232         CALL ctl_stop('obs_rotvel : failed to release workspace arrays.') 
    233233      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

    r2620 r2633  
    6464      !! References :   Shine and Hendersson-Sellers 1985, JGR, 90(D1), 2243-2250. 
    6565      !!---------------------------------------------------------------------- 
    66       USE wrk_nemo, ONLY: wrk_use, wrk_release, llwrk_use, llwrk_release 
     66      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, llwrk_in_use, llwrk_not_released 
    6767      USE wrk_nemo, ONLY: wrk_3d_6, wrk_3d_7    ! 3D workspace 
    6868      !! 
    … …  
    9090      ijpl = SIZE( pt_ice, 3 )                     ! number of ice categories 
    9191 
    92       IF( (.not. llwrk_use(3,1)) .OR. (.not. wrk_use(3, 6,7)) ) THEN 
     92      IF( llwrk_in_use(3,1) .OR. wrk_in_use(3, 6,7) ) THEN 
    9393         CALL ctl_stop('albedo_ice: requested workspace arrays are unavailable')   ;   RETURN 
    9494      ENDIF 
    … …  
    172172      pa_ice_os(:,:,:) = pa_ice_cs(:,:,:) + rn_cloud       ! Oberhuber correction 
    173173      ! 
    174       IF( .not. wrk_release(3, 6,7) )   CALL ctl_stop('albedo_ice: failed to release workspace arrays') 
     174      IF( wrk_not_released(3, 6,7) )   CALL ctl_stop('albedo_ice: failed to release workspace arrays') 
    175175      ! 
    176176   END SUBROUTINE albedo_ice 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis4.F90

    r2620 r2633  
    110110      !! ** Method  :   OASIS4 MPI communication  
    111111      !!-------------------------------------------------------------------- 
    112       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     112      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    113113      USE wrk_nemo, ONLY: zclo => wrk_3d_1, zcla => wrk_3d_2 
    114114      USE wrk_nemo, ONLY: zlon => wrk_2d_1, zlat => wrk_2d_2 
    … …  
    146146      !!-------------------------------------------------------------------- 
    147147 
    148       IF( .NOT. wrk_use(3, 1,2) .OR. .NOT. wrk_use(2, 1,2) )THEN 
     148      IF( wrk_in_use(3, 1,2) .OR. wrk_in_use(2, 1,2) )THEN 
    149149         CALL ctl_stop('cpl_prism_define: ERROR: requested workspace arrays are unavailable.')   ;   RETURN 
    150150      ENDIF 
    … …  
    321321      IF ( nerror /= PRISM_Success )   CALL prism_abort ( ncomp_id, 'cpl_prism_define', 'Failure in prism_enddef') 
    322322       
    323       IF( .not. wrk_release(3, 1,2) .OR.   & 
    324           .not. wrk_release(2, 1,2)   )   CALL ctl_stop('cpl_prism_define: failed to release workspace arrays') 
     323      IF( wrk_not_released(3, 1,2) .OR.   & 
     324          wrk_not_released(2, 1,2)   )   CALL ctl_stop('cpl_prism_define: failed to release workspace arrays') 
    325325      ! 
    326326   END SUBROUTINE cpl_prism_define 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r2620 r2633  
    587587      !! ** Purpose :   Vector fields may need to be rotated onto the local grid direction 
    588588      !!---------------------------------------------------------------------- 
    589       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     589      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    590590      USE wrk_nemo, ONLY: utmp => wrk_2d_4, vtmp => wrk_2d_5      ! 2D workspace 
    591591      !! 
    … …  
    600600      !!--------------------------------------------------------------------- 
    601601 
    602       IF(.not. wrk_use(2, 4,5) ) THEN 
     602      IF(wrk_in_use(2, 4,5) ) THEN 
    603603         CALL ctl_stop('fld_rot: ERROR: requested workspace arrays are unavailable.')   ;   RETURN 
    604604      END IF 
    … …  
    637637       END DO 
    638638      ! 
    639       IF(.not. wrk_release(2, 4,5) )    CALL ctl_stop('fld_rot: ERROR: failed to release workspace arrays.') 
     639      IF(wrk_not_released(2, 4,5) )    CALL ctl_stop('fld_rot: ERROR: failed to release workspace arrays.') 
    640640      ! 
    641641   END SUBROUTINE fld_rot 
    … …  
    804804      !!                file, restructuring as required 
    805805      !!---------------------------------------------------------------------- 
    806       USE wrk_nemo, ONLY: wrk_use, wrk_release, iwrk_use, iwrk_release 
     806      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released 
    807807      USE wrk_nemo, ONLY: data_tmp => wrk_2d_1 
    808808      USE wrk_nemo, ONLY: data_src => iwrk_2d_1 
    … …  
    820820      !!---------------------------------------------------------------------- 
    821821      ! 
    822       IF(  .NOT. wrk_use(2, 1)  .OR.  .NOT. iwrk_use(2,1) ) THEN 
     822      IF(  wrk_in_use(2, 1)  .OR.  iwrk_in_use(2,1) ) THEN 
    823823         CALL ctl_stop('fld_weights: requested workspace arrays are unavailable.')   ;   RETURN 
    824824      END IF 
    … …  
    934934      ENDIF 
    935935 
    936       IF( .NOT. wrk_release(2, 1) .OR.    & 
    937           .NOT.iwrk_release(2, 1)   )   CALL ctl_stop('fld_weights: failed to release workspace arrays') 
     936      IF( wrk_not_released(2, 1) .OR.    & 
     937          iwrk_not_released(2, 1)   )   CALL ctl_stop('fld_weights: failed to release workspace arrays') 
    938938      ! 
    939939   END SUBROUTINE fld_weight 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r2620 r2633  
    210210      !!  ** Nota    :   sf has to be a dummy argument for AGRIF on NEC 
    211211      !!---------------------------------------------------------------------- 
    212       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     212      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    213213      USE wrk_nemo, ONLY: zqlw => wrk_2d_1  ! long-wave heat flux over ocean 
    214214      USE wrk_nemo, ONLY: zqla => wrk_2d_2  ! latent heat flux over ocean 
    … …  
    232232      !!--------------------------------------------------------------------- 
    233233 
    234       IF(.not. wrk_use(3, 1,2,3))THEN 
     234      IF(wrk_in_use(3, 1,2,3))THEN 
    235235         CALL ctl_stop('blk_oce_clio: requested workspace arrays are unavailable.') 
    236236         RETURN 
    … …  
    386386      ENDIF 
    387387 
    388       IF(.not. wrk_release(3, 1,2,3))THEN 
     388      IF(wrk_not_released(3, 1,2,3))THEN 
    389389         CALL ctl_stop('blk_oce_clio: failed to release workspace arrays.') 
    390390      END IF 
    … …  
    420420      !! 
    421421      !!---------------------------------------------------------------------- 
    422       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     422      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    423423      USE wrk_nemo, ONLY:  ztatm => wrk_2d_1   ! Tair in Kelvin 
    424424      USE wrk_nemo, ONLY:  zqatm => wrk_2d_2   ! specific humidity 
    … …  
    457457      !!--------------------------------------------------------------------- 
    458458 
    459       IF( (.NOT. wrk_use(2, 1,2,3,4)) .OR. (.NOT. wrk_use(3, 1,2)) )THEN 
     459      IF( (wrk_in_use(2, 1,2,3,4)) .OR. (wrk_in_use(3, 1,2)) )THEN 
    460460         CALL ctl_stop('blk_ice_clio: requested workspace arrays are unavailable.') 
    461461         RETURN 
    … …  
    637637      ENDIF 
    638638 
    639       IF( (.NOT. wrk_release(2, 1,2,3,4)) .OR. (.NOT. wrk_release(3, 1,2)) )THEN 
     639      IF( (wrk_not_released(2, 1,2,3,4)) .OR. (wrk_not_released(3, 1,2)) )THEN 
    640640         CALL ctl_stop('blk_ice_clio: failed to release workspace arrays.') 
    641641      END IF 
    … …  
    654654      !!               - also initialise sbudyko and stauc once for all  
    655655      !!---------------------------------------------------------------------- 
    656       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     656      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    657657      USE wrk_nemo, ONLY:   zev => wrk_2d_1                  ! vapour pressure 
    658658      USE wrk_nemo, ONLY: zdlha => wrk_2d_2, zlsrise => wrk_2d_3, zlsset => wrk_2d_4  
    … …  
    679679      !!--------------------------------------------------------------------- 
    680680 
    681       IF(.NOT. wrk_use(2, 1,2,3,4,5,6))THEN 
     681      IF(wrk_in_use(2, 1,2,3,4,5,6))THEN 
    682682         CALL ctl_stop('blk_clio_qsr_oce: requested workspace arrays unavailable.') 
    683683         RETURN 
    … …  
    796796      END DO 
    797797 
    798       IF(.NOT. wrk_release(2, 1,2,3,4,5,6))THEN 
     798      IF(wrk_not_released(2, 1,2,3,4,5,6))THEN 
    799799         CALL ctl_stop('blk_clio_qsr_oce: failed to release workspace arrays.') 
    800800      END IF 
    … …  
    813813      !!               - also initialise sbudyko and stauc once for all  
    814814      !!---------------------------------------------------------------------- 
    815       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     815      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    816816      USE wrk_nemo, ONLY: zev => wrk_2d_1         ! vapour pressure 
    817817      USE wrk_nemo, ONLY: zdlha => wrk_2d_2       ! 2D workspace 
    … …  
    839839      !!--------------------------------------------------------------------- 
    840840 
    841       IF(.NOT. wrk_use(2, 1,2,3,4,5,6))THEN 
     841      IF(wrk_in_use(2, 1,2,3,4,5,6))THEN 
    842842         CALL ctl_stop('blk_clio_qsr_ice: requested workspace arrays unavailable.') 
    843843         RETURN 
    … …  
    945945      END DO 
    946946      ! 
    947       IF(.NOT. wrk_release(2, 1,2,3,4,5,6))THEN 
     947      IF(wrk_not_released(2, 1,2,3,4,5,6))THEN 
    948948         CALL ctl_stop('blk_clio_qsr_ice: failed to release workspace arrays.') 
    949949      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r2620 r2633  
    208208      !!  ** Nota  :   sf has to be a dummy argument for AGRIF on NEC 
    209209      !!--------------------------------------------------------------------- 
    210       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     210      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    211211      USE wrk_nemo, ONLY: zwnd_i => wrk_2d_1, zwnd_j  => wrk_2d_2   ! wind speed components at T-point 
    212212      USE wrk_nemo, ONLY: zqsatw => wrk_2d_3           ! specific humidity at pst 
    … …  
    230230      !!--------------------------------------------------------------------- 
    231231 
    232       IF(.NOT. wrk_use(2, 1,2,3,4,5,6,7,8,9,10,11,12,13))THEN 
     232      IF(wrk_in_use(2, 1,2,3,4,5,6,7,8,9,10,11,12,13))THEN 
    233233         CALL ctl_stop('blk_oce_core: requested workspace arrays unavailable.') 
    234234         RETURN 
    … …  
    383383      ENDIF 
    384384      ! 
    385       IF(.NOT. wrk_release(2, 1,2,3,4,5,6,7,8,9,10,11,12,13))THEN 
     385      IF(wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10,11,12,13))THEN 
    386386         CALL ctl_stop('blk_oce_core: failed to release workspace arrays.') 
    387387      END IF 
    … …  
    407407      !! caution : the net upward water flux has with mm/day unit 
    408408      !!--------------------------------------------------------------------- 
    409       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     409      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    410410      USE wrk_nemo, ONLY: z_wnds_t => wrk_2d_1                ! wind speed ( = | U10m - U_ice | ) at T-point 
    411411      USE wrk_nemo, ONLY: wrk_3d_4, wrk_3d_5, wrk_3d_6, wrk_3d_7 
    … …  
    447447 
    448448      ! Set-up access to workspace arrays 
    449       IF( (.NOT. wrk_use(2, 1)) .OR. (.NOT. wrk_use(3, 4,5,6,7)) )THEN 
     449      IF( wrk_in_use(2, 1) .OR. wrk_in_use(3, 4,5,6,7) )THEN 
    450450         CALL ctl_stop('blk_ice_core: requested workspace arrays unavailable.') 
    451451         RETURN 
    … …  
    608608      ENDIF 
    609609 
    610       IF( (.NOT. wrk_release(2, 1)) .OR. (.NOT. wrk_release(3, 4,5,6,7)) )THEN 
     610      IF( wrk_not_released(2, 1) .OR. wrk_not_released(3, 4,5,6,7) )THEN 
    611611         CALL ctl_stop('blk_ice_core: failed to release workspace arrays.') 
    612612      END IF 
    … …  
    635635      !!   9.0  !  05-08  (L. Brodeau) Rewriting and optimization 
    636636      !!---------------------------------------------------------------------- 
    637       USE wrk_nemo, ONLY: wrk_use, wrk_release, iwrk_use, iwrk_release 
     637      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released 
    638638      USE wrk_nemo, ONLY: dU10 => wrk_2d_14        ! dU                             [m/s] 
    639639      USE wrk_nemo, ONLY: dT => wrk_2d_15          ! air/sea temperature difference   [K] 
    … …  
    675675      !!---------------------------------------------------------------------- 
    676676 
    677       IF( (.NOT. wrk_use(2, 14,15,16,17,18,       & 
    678                          19,20,21,22,23,24,       & 
    679                          25,26,27,28,29,30,       & 
    680                          31,32))             .OR. & 
    681           (.NOT. iwrk_use(2, 1)) )THEN 
     677      IF( wrk_in_use(2, 14,15,16,17,18,         & 
     678                        19,20,21,22,23,24,      & 
     679                        25,26,27,28,29,30,      & 
     680                        31,32)             .OR. & 
     681          iwrk_in_use(2, 1) )THEN 
    682682         CALL ctl_stop('TURB_CORE_1Z: requested workspace arrays unavailable.') 
    683683         RETURN 
    … …  
    743743      END DO 
    744744      !! 
    745       IF( (.NOT. wrk_release(2, 14,15,16,17,18,       & 
    746                              19,20,21,22,23,24,       & 
    747                              25,26,27,28,29,30,       & 
    748                              31,32))             .OR. & 
    749           (.NOT. iwrk_release(2, 1)) )THEN 
     745      IF( wrk_not_released(2, 14,15,16,17,18,          & 
     746                              19,20,21,22,23,24,       & 
     747                              25,26,27,28,29,30,       & 
     748                              31,32)              .OR. & 
     749          iwrk_not_released(2, 1) )THEN 
    750750         CALL ctl_stop('TURB_CORE_1Z: failed to release workspace arrays.') 
    751751      END IF 
    … …  
    772772      !!   9.0  !  06-12  (L. Brodeau) Original code for 2Z 
    773773      !!---------------------------------------------------------------------- 
    774       USE wrk_nemo, ONLY: wrk_use, wrk_release, iwrk_use, iwrk_release 
     774      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released 
    775775      USE wrk_nemo, ONLY: dU10 => wrk_2d_1        ! dU                             [m/s] 
    776776      USE wrk_nemo, ONLY: dT => wrk_2d_2          ! air/sea temperature difference   [K] 
    … …  
    816816      !!  * Start 
    817817 
    818       IF( (.NOT. wrk_use(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21)) .OR. & 
    819           (.NOT. iwrk_use(2, 1)) )THEN 
     818      IF( wrk_in_use(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21) .OR. & 
     819          iwrk_in_use(2, 1) )THEN 
    820820         CALL ctl_stop('TURB_CORE_2Z: requested workspace arrays unavailable.') 
    821821         RETURN 
    … …  
    895895      END DO 
    896896      !! 
    897       IF( (.NOT. wrk_release(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21)) .OR. & 
    898           (.NOT. iwrk_release(2, 1)) )THEN 
     897      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21) .OR. & 
     898          iwrk_not_released(2, 1) )THEN 
    899899         CALL ctl_stop('TURB_CORE_2Z: requested workspace arrays unavailable.') 
    900900      END IF 
    … …  
    905905    FUNCTION psi_m(zta)   !! Psis, L & Y eq. (8c), (8d), (8e) 
    906906      !------------------------------------------------------------------------------- 
    907       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     907      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    908908      USE wrk_nemo, ONLY:     X2 => wrk_2d_33 
    909909      USE wrk_nemo, ONLY:     X  => wrk_2d_34 
    … …  
    916916      !------------------------------------------------------------------------------- 
    917917 
    918       IF(.NOT. wrk_use(2, 33,34,35))THEN 
     918      IF(wrk_in_use(2, 33,34,35))THEN 
    919919         CALL ctl_stop('psi_m: requested workspace arrays unavailable.') 
    920920         RETURN 
    … …  
    926926           & + (1. - stabit)*(2*log((1. + X)/2) + log((1. + X2)/2) - 2*atan(X) + pi/2)  ! Unstable  
    927927 
    928       IF(.NOT. wrk_release(2, 33,34,35))THEN 
     928      IF(wrk_not_released(2, 33,34,35))THEN 
    929929         CALL ctl_stop('psi_m: failed to release workspace arrays.') 
    930930         RETURN 
    … …  
    936936    FUNCTION psi_h(zta)    !! Psis, L & Y eq. (8c), (8d), (8e) 
    937937      !------------------------------------------------------------------------------- 
    938       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     938      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    939939      USE wrk_nemo, ONLY:     X2 => wrk_2d_33 
    940940      USE wrk_nemo, ONLY:     X  => wrk_2d_34 
    … …  
    946946      !------------------------------------------------------------------------------- 
    947947 
    948       IF(.NOT. wrk_use(2, 33,34,35))THEN 
     948      IF(wrk_in_use(2, 33,34,35))THEN 
    949949         CALL ctl_stop('psi_h: requested workspace arrays unavailable.') 
    950950         RETURN 
    … …  
    956956           & + (1. - stabit)*(2.*log( (1. + X2)/2. ))                 ! Unstable 
    957957 
    958       IF(.NOT. wrk_release(2, 33,34,35))THEN 
     958      IF(wrk_not_released(2, 33,34,35))THEN 
    959959         CALL ctl_stop('psi_h: failed to release workspace arrays.') 
    960960         RETURN 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r2620 r2633  
    206206      !!              * initialise the OASIS coupler 
    207207      !!---------------------------------------------------------------------- 
    208       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     208      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    209209      USE wrk_nemo, ONLY: zacs => wrk_2d_1, zaos => wrk_2d_2 ! clear & overcast sky albedos 
    210210      !! 
    … …  
    223223      !!--------------------------------------------------------------------- 
    224224 
    225       IF(.NOT. wrk_use(2,1,2) ) THEN 
     225      IF(wrk_in_use(2,1,2) ) THEN 
    226226         CALL ctl_stop('sbc_cpl_init: requested workspace arrays unavailable.')   ;   RETURN 
    227227      END IF 
    … …  
    563563         &   CALL ctl_stop( 'sbc_cpl_init: diurnal cycle reconstruction (ln_dm2dc) needs daily couping for solar radiation' ) 
    564564 
    565       IF(.not. wrk_release(2,1,2))THEN 
     565      IF(wrk_not_released(2,1,2))THEN 
    566566         CALL ctl_stop('sbc_cpl_init: failed to release workspace arrays.') 
    567567      END IF 
    … …  
    612612      !!                        emp = emps   evap. - precip. (- runoffs) (- calving) ('ocean only case) 
    613613      !!---------------------------------------------------------------------- 
    614       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     614      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    615615      USE wrk_nemo, ONLY: ztx => wrk_2d_1, zty => wrk_2d_2 
    616616      !! 
    … …  
    629629      !!---------------------------------------------------------------------- 
    630630 
    631       IF(.not. wrk_use(2, 1,2))THEN 
     631      IF(wrk_in_use(2, 1,2))THEN 
    632632         CALL ctl_stop('sbc_cpl_rcv: requested workspace arrays unavailable.') 
    633633         RETURN 
    … …  
    820820      ENDIF 
    821821      ! 
    822       IF(.not. wrk_release(2, 1,2))THEN 
     822      IF(wrk_not_released(2, 1,2))THEN 
    823823         CALL ctl_stop('sbc_cpl_rcv: failed to release workspace arrays.') 
    824824      END IF 
    … …  
    860860      !! ** Action  :   return ptau_i, ptau_j, the stress over the ice at cp_ice_msh point 
    861861      !!---------------------------------------------------------------------- 
    862       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     862      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    863863      USE wrk_nemo, ONLY: ztx => wrk_2d_1, zty => wrk_2d_2 
    864864      !! 
    … …  
    870870      !!---------------------------------------------------------------------- 
    871871 
    872       IF(.not. wrk_use(2,1,2))THEN 
     872      IF(wrk_in_use(2,1,2))THEN 
    873873         CALL ctl_stop('sbc_cpl_ice_tau: requested workspace arrays unavailable.') 
    874874         RETURN 
    … …  
    10411041      ENDIF 
    10421042      !    
    1043       IF(.not. wrk_release(2,1,2))THEN 
     1043      IF(wrk_not_released(2,1,2))THEN 
    10441044         CALL ctl_stop('sbc_cpl_ice_tau: failed to release workspace arrays.') 
    10451045      END IF 
    … …  
    10931093      !!                   sprecip             solid precipitation over the ocean   
    10941094      !!---------------------------------------------------------------------- 
    1095       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     1095      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    10961096      USE wrk_nemo, ONLY: zcptn => wrk_2d_1  ! rcp * tn(:,:,1) 
    10971097      USE wrk_nemo, ONLY: ztmp  => wrk_2d_2  ! temporary array 
    … …  
    11181118      !!---------------------------------------------------------------------- 
    11191119 
    1120       IF( (.not. wrk_use(2,1,2,3)) .OR. (.not. wrk_use(3,1)) )THEN 
     1120      IF( wrk_in_use(2,1,2,3) .OR. wrk_in_use(3,1) )THEN 
    11211121         CALL ctl_stop('sbc_cpl_ice_flx: requested workspace arrays unavailable.') 
    11221122         RETURN 
    … …  
    12401240      END SELECT 
    12411241 
    1242       IF( (.not. wrk_release(2,1,2,3)) .OR. (.not. wrk_release(3,1)) )THEN 
     1242      IF( wrk_not_released(2,1,2,3) .OR. wrk_not_released(3,1) )THEN 
    12431243         CALL ctl_stop('sbc_cpl_ice_flx: failed to release workspace arrays.') 
    12441244      END IF 
    … …  
    12561256      !!              all the needed fields (as defined in sbc_cpl_init) 
    12571257      !!---------------------------------------------------------------------- 
    1258       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     1258      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    12591259      USE wrk_nemo, ONLY: zfr_l => wrk_2d_1 ! 1. - fr_i(:,:) 
    12601260      USE wrk_nemo, ONLY: ztmp1 => wrk_2d_2, ztmp2 => wrk_2d_3 
    … …  
    12681268      !!---------------------------------------------------------------------- 
    12691269 
    1270       IF(.NOT. wrk_use(2, 1,2,3,4,5,6,7,8,9))THEN 
     1270      IF(wrk_in_use(2, 1,2,3,4,5,6,7,8,9))THEN 
    12711271         CALL ctl_stop('sbc_cpl_snd: requested workspace arrays are unavailable.'); 
    12721272         RETURN 
    … …  
    14451445      ENDIF 
    14461446   ! 
    1447       IF(.NOT. wrk_release(2, 1,2,3,4,5,6,7,8,9))THEN 
     1447      IF(wrk_not_released(2, 1,2,3,4,5,6,7,8,9))THEN 
    14481448         CALL ctl_stop('sbc_cpl_snd: failed to release workspace arrays.'); 
    14491449         RETURN 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcfwb.F90

    r2620 r2633  
    5858      !!                   & spread out over erp area depending its sign 
    5959      !!---------------------------------------------------------------------- 
    60       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     60      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    6161      USE wrk_nemo, ONLY:      ztmsk_neg => wrk_2d_1, ztmsk_pos=> wrk_2d_2 
    6262      USE wrk_nemo, ONLY: ztmsk_tospread => wrk_2d_3 
    … …  
    7373      !!---------------------------------------------------------------------- 
    7474      ! 
    75       IF( .NOT. wrk_use(2, 1,2,3,4,5) ) THEN 
     75      IF( wrk_in_use(2, 1,2,3,4,5) ) THEN 
    7676         CALL ctl_stop('sbc_fwb: requested workspace arrays are unavailable')   ;   RETURN 
    7777      END IF 
    … …  
    196196      END SELECT 
    197197      ! 
    198       IF( .NOT. wrk_release(2, 1,2,3,4,5) )   CALL ctl_stop('sbc_fwb: failed to release workspace arrays') 
     198      IF( wrk_not_released(2, 1,2,3,4,5) )   CALL ctl_stop('sbc_fwb: failed to release workspace arrays') 
    199199      ! 
    200200   END SUBROUTINE sbc_fwb 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r2620 r2633  
    8989      !!                utau, vtau, taum, wndm, qns , qsr, emp , emps 
    9090      !!--------------------------------------------------------------------- 
    91       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     91      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    9292      USE wrk_nemo, ONLY: zalb_ice_os => wrk_3d_1 ! albedo of the ice under overcast sky 
    9393      USE wrk_nemo, ONLY: zalb_ice_cs => wrk_3d_2 ! albedo of ice under clear sky 
    … …  
    100100      !!---------------------------------------------------------------------- 
    101101 
    102       IF( .NOT. wrk_use(3, 1,2) ) THEN 
     102      IF( wrk_in_use(3, 1,2) ) THEN 
    103103         CALL ctl_stop( 'sbc_ice_lim: requested workspace arrays are unavailable.' )   ;   RETURN 
    104104      ENDIF 
    … …  
    252252!!gm   remark, the ocean-ice stress is not saved in ice diag call above .....  find a solution!!! 
    253253      ! 
    254       IF( .NOT. wrk_release(3, 1,2) )   CALL ctl_stop( 'sbc_ice_lim: failed to release workspace arrays.' ) 
     254      IF( wrk_not_released(3, 1,2) )   CALL ctl_stop( 'sbc_ice_lim: failed to release workspace arrays.' ) 
    255255      ! 
    256256   END SUBROUTINE sbc_ice_lim 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

    r2620 r2633  
    8383      !!                utau, vtau, taum, wndm, qns , qsr, emp , emps 
    8484      !!--------------------------------------------------------------------- 
    85       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     85      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    8686      USE wrk_nemo, ONLY: wrk_3d_1, wrk_3d_2, wrk_3d_3   ! 3D workspace 
    8787      !! 
    … …  
    9696      !!---------------------------------------------------------------------- 
    9797 
    98       IF(.NOT. wrk_use(3, 1,2,3) ) THEN 
     98      IF(wrk_in_use(3, 1,2,3) ) THEN 
    9999         CALL ctl_stop('sbc_ice_lim_2: requested workspace arrays are unavailable.')   ;   RETURN 
    100100      END IF 
    … …  
    228228      IF( ln_limdyn    )   CALL lim_sbc_tau_2( kt, ub(:,:,1), vb(:,:,1) )  ! using before instantaneous surf. currents 
    229229      ! 
    230       IF(.NOT. wrk_release(3, 1,2,3) )   CALL ctl_stop('sbc_ice_lim_2: failed to release workspace arrays') 
     230      IF(wrk_not_released(3, 1,2,3) )   CALL ctl_stop('sbc_ice_lim_2: failed to release workspace arrays') 
    231231      ! 
    232232   END SUBROUTINE sbc_ice_lim_2 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SOL/solpcg.F90

    r2590 r2633  
    8383      !!        !  08-01  (R. Benshila) mpp optimization 
    8484      !!---------------------------------------------------------------------- 
    85       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     85      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    8686      USE wrk_nemo, ONLY: zgcr => wrk_2d_1 
    8787      !! 
    … …  
    9696      !!---------------------------------------------------------------------- 
    9797       
    98       IF( .not. wrk_use(2, 1) )THEN 
     98      IF( wrk_in_use(2, 1) )THEN 
    9999         CALL ctl_stop('sol_pcg: requested workspace array is unavailable') 
    100100         RETURN 
    … …  
    217217      
    218218      !  
    219       IF( .not. wrk_release(2, 1) )THEN 
     219      IF( wrk_not_released(2, 1) )THEN 
    220220         CALL ctl_stop('sol_pcg: failed to release workspace array') 
    221221      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SOL/solsor.F90

    r2590 r2633  
    5858      !!                Beare and Stevens 1997 Ann. Geophysicae 15, 1369-1377 
    5959      !!---------------------------------------------------------------------- 
    60       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     60      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    6161      USE wrk_nemo, ONLY: ztab => wrk_2d_1 
    6262      !! 
    … …  
    7070      !!---------------------------------------------------------------------- 
    7171       
    72       IF( .not. wrk_use(2, 1) )THEN 
     72      IF( wrk_in_use(2, 1) )THEN 
    7373         CALL ctl_stop('sol_sor: requested workspace array is unavailable') 
    7474         RETURN 
    … …  
    171171      CALL lbc_lnk_e( gcx, c_solver_pt, 1. )    ! boundary conditions 
    172172      !  
    173       IF( .not. wrk_release(2, 1) )THEN 
     173      IF( wrk_not_released(2, 1) )THEN 
    174174         CALL ctl_stop('sol_sor: failed to release workspace array') 
    175175      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

    r2590 r2633  
    107107      !! References :   Jackett and McDougall, J. Atmos. Ocean. Tech., 1994 
    108108      !!---------------------------------------------------------------------- 
    109       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     109      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    110110      USE wrk_nemo, ONLY: zws => wrk_3d_1 ! temporary workspace 
    111111      !! 
    … …  
    123123      !!---------------------------------------------------------------------- 
    124124 
    125       IF(.NOT. wrk_use(3, 1))THEN 
     125      IF(wrk_in_use(3, 1))THEN 
    126126         CALL ctl_stop('eos_insitu : requested workspace array unavailable.') 
    127127         RETURN 
    … …  
    191191      IF(ln_ctl)   CALL prt_ctl( tab3d_1=prd, clinfo1=' eos  : ', ovlap=1, kdim=jpk ) 
    192192      ! 
    193       IF(.NOT. wrk_release(3, 1))THEN 
     193      IF(wrk_not_released(3, 1))THEN 
    194194         CALL ctl_stop('eos_insitu : failed to release workspace array.') 
    195195      END IF 
    … …  
    244244      !!                Brown and Campana, Mon. Weather Rev., 1978 
    245245      !!---------------------------------------------------------------------- 
    246       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     246      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    247247      USE wrk_nemo, ONLY: zws => wrk_3d_1 ! 3D workspace 
    248248      !! 
    … …  
    257257      !!---------------------------------------------------------------------- 
    258258 
    259       IF(.NOT. wrk_use(3, 1))THEN 
     259      IF(wrk_in_use(3, 1))THEN 
    260260         CALL ctl_stop('eos_insitu_pot: requested workspace array unavailable.') 
    261261         RETURN 
    … …  
    330330      IF(ln_ctl)   CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-p: ', tab3d_2=prhop, clinfo2=' pot : ', ovlap=1, kdim=jpk ) 
    331331      ! 
    332       IF(.NOT. wrk_release(3, 1))THEN 
     332      IF(wrk_not_released(3, 1))THEN 
    333333         CALL ctl_stop('eos_insitu_pot: failed to release workspace array.') 
    334334      END IF 
    … …  
    373373      !! References :   Jackett and McDougall, J. Atmos. Ocean. Tech., 1994 
    374374      !!---------------------------------------------------------------------- 
    375       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     375      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    376376      USE wrk_nemo, ONLY: zws => wrk_2d_5 ! 2D workspace 
    377377      !! 
    … …  
    386386      !!---------------------------------------------------------------------- 
    387387 
    388       IF(.NOT. wrk_use(2, 5))THEN 
     388      IF(wrk_in_use(2, 5))THEN 
    389389         CALL ctl_stop('eos_insitu_2d: requested workspace array unavailable.') 
    390390         RETURN 
    … …  
    463463      IF(ln_ctl)   CALL prt_ctl( tab2d_1=prd, clinfo1=' eos2d: ' ) 
    464464      ! 
    465       IF(.NOT. wrk_release(2, 5))THEN 
     465      IF(wrk_not_released(2, 5))THEN 
    466466         CALL ctl_stop('eos_insitu_2d: failed to release workspace array.') 
    467467      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

    r2623 r2633  
    6161      !! ** Method  : - Update (ua,va) with the advection term following nadv 
    6262      !!---------------------------------------------------------------------- 
    63       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     63      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    6464      USE wrk_nemo, ONLY:   zun => wrk_3d_1, zvn => wrk_3d_2, zwn => wrk_3d_3   ! 3D workspace 
    6565      ! 
    … …  
    6969      !!---------------------------------------------------------------------- 
    7070      ! 
    71       IF(.not. wrk_use(3, 1,2,3) ) THEN 
     71      IF(wrk_in_use(3, 1,2,3) ) THEN 
    7272         CALL ctl_stop('tra_adv: requested workspace arrays unavailable')   ;   RETURN 
    7373      END IF 
    … …  
    131131         &                       tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    132132      ! 
    133       IF(.not. wrk_release(3,1,2,3) )   CALL ctl_stop('tra_adv: failed to release workspace arrays') 
     133      IF(wrk_not_released(3,1,2,3) )   CALL ctl_stop('tra_adv: failed to release workspace arrays') 
    134134      ! 
    135135   END SUBROUTINE tra_adv 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_cen2.F90

    r2623 r2633  
    111111      USE oce         , zwx => ua   ! use ua as workspace 
    112112      USE oce         , zwy => va   ! use va as workspace 
    113       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     113      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    114114      USE wrk_nemo, ONLY: ztfreez => wrk_2d_1 
    115115      USE wrk_nemo, ONLY: zwz => wrk_3d_1, zind => wrk_3d_2 
    … …  
    134134      !!---------------------------------------------------------------------- 
    135135 
    136       IF( .not. wrk_use(2, 1) .OR. .not. wrk_use(3, 1,2) ) THEN 
     136      IF( wrk_in_use(2, 1) .OR. wrk_in_use(3, 1,2) ) THEN 
    137137         CALL ctl_stop('tra_adv_cen2: ERROR: requested workspace arrays unavailable')   ;   RETURN 
    138138      END IF 
    … …  
    278278      ENDIF 
    279279      ! 
    280       IF( (.not. wrk_release(2, 1)) .OR. (.not. wrk_release(3, 1,2)))THEN 
     280      IF( wrk_not_released(2, 1) .OR. wrk_not_released(3, 1,2) )THEN 
    281281         CALL ctl_stop('tra_adv_cen2: ERROR: failed to release workspace arrays') 
    282282      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90

    r2590 r2633  
    6464      !! ** Action  : - add to p.n the eiv component 
    6565      !!---------------------------------------------------------------------- 
    66       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     66      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    6767      USE wrk_nemo, ONLY: zu_eiv => wrk_2d_1, zv_eiv => wrk_2d_2, & 
    6868                          zw_eiv => wrk_2d_3 
    … …  
    8585 
    8686# if defined key_diaeiv  
    87       IF(.not. wrk_use(2, 1,2,3,4))THEN 
     87      IF(wrk_in_use(2, 1,2,3,4))THEN 
    8888#else 
    89       IF(.not. wrk_use(2, 1,2,3))THEN 
     89      IF(wrk_in_use(2, 1,2,3))THEN 
    9090#endif 
    9191         CALL ctl_stop('tra_adv_eiv: ERROR: requested workspace arrays are unavailable.') 
    … …  
    194194      !  
    195195# if defined key_diaeiv  
    196       IF(.not. wrk_release(2, 1,2,3,4))THEN 
     196      IF(wrk_not_released(2, 1,2,3,4))THEN 
    197197#else 
    198       IF(.not. wrk_release(2, 1,2,3))THEN 
     198      IF(wrk_not_released(2, 1,2,3))THEN 
    199199#endif 
    200200         CALL ctl_stop('tra_adv_eiv: ERROR: failed to release workspace arrays.') 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl.F90

    r2590 r2633  
    6363      USE oce         , zwx => ua   ! use ua as workspace 
    6464      USE oce         , zwy => va   ! use va as workspace 
    65       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     65      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    6666      USE wrk_nemo, ONLY: zslpx => wrk_3d_1, zslpy => wrk_3d_2 
    6767      !! 
    … …  
    8181      !!---------------------------------------------------------------------- 
    8282 
    83       IF( .not. wrk_use(3, 1,2) )THEN 
     83      IF( wrk_in_use(3, 1,2) )THEN 
    8484         CALL ctl_stop('tra_adv_muscl: ERROR: requested workspace arrays unavailable') 
    8585         RETURN 
    … …  
    255255      ENDDO 
    256256      ! 
    257       IF( .not. wrk_release(3, 1,2) )THEN 
     257      IF( wrk_not_released(3, 1,2) )THEN 
    258258         CALL ctl_stop('tra_adv_muscl: ERROR: requested workspace arrays unavailable') 
    259259      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl2.F90

    r2590 r2633  
    6161      USE oce         , zwx => ua   ! use ua as workspace 
    6262      USE oce         , zwy => va   ! use va as workspace 
    63       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     63      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    6464      USE wrk_nemo, ONLY: zslpx => wrk_3d_1, zslpy => wrk_3d_2 
    6565      !! 
    … …  
    7979      !!---------------------------------------------------------------------- 
    8080 
    81       IF(.not. wrk_use(3, 1,2))THEN 
     81      IF(wrk_in_use(3, 1,2))THEN 
    8282         CALL ctl_stop('tra_adv_muscl2: ERROR: requested workspace arrays are unavailable') 
    8383         RETURN 
    … …  
    288288      END DO 
    289289      ! 
    290       IF(.not. wrk_release(3, 1,2))THEN 
     290      IF(wrk_not_released(3, 1,2))THEN 
    291291         CALL ctl_stop('tra_adv_muscl2: ERROR: failed to release workspace arrays') 
    292292      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90

    r2590 r2633  
    116116      !!---------------------------------------------------------------------- 
    117117      USE oce         , zwx => ua   ! use ua as workspace 
    118       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     118      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    119119      USE wrk_nemo, ONLY: zfu => wrk_3d_1, zfc => wrk_3d_2, zfd => wrk_3d_3 
    120120      !! 
    … …  
    132132      !---------------------------------------------------------------------- 
    133133      ! 
    134       IF(.not. wrk_use(3, 1,2,3))THEN 
     134      IF(wrk_in_use(3, 1,2,3))THEN 
    135135         CALL ctl_stop('tra_adv_qck_i: ERROR: requested workspace arrays unavailable') 
    136136         RETURN 
    … …  
    230230      END DO 
    231231      ! 
    232       IF(.not. wrk_release(3, 1,2,3))THEN 
     232      IF(wrk_not_released(3, 1,2,3))THEN 
    233233         CALL ctl_stop('tra_adv_qck_i: ERROR: failed to release workspace arrays') 
    234234      END IF 
    … …  
    243243      !!---------------------------------------------------------------------- 
    244244      USE oce         , zwy => ua   ! use ua as workspace 
    245       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     245      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    246246      USE wrk_nemo, ONLY: zfu => wrk_3d_1, zfc => wrk_3d_2, zfd => wrk_3d_3 
    247247      !! 
    … …  
    259259      !---------------------------------------------------------------------- 
    260260      ! 
    261       IF(.not. wrk_use(3, 1,2,3))THEN 
     261      IF(wrk_in_use(3, 1,2,3))THEN 
    262262         CALL ctl_stop('tra_adv_qck_j: ERROR: requested workspace arrays unavailable') 
    263263         RETURN 
    … …  
    364364      END DO 
    365365      ! 
    366       IF(.not. wrk_release(3, 1,2,3))THEN 
     366      IF(wrk_not_released(3, 1,2,3))THEN 
    367367         CALL ctl_stop('tra_adv_qck_j: ERROR: failed to release workspace arrays') 
    368368      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90

    r2590 r2633  
    6868      USE oce         , zwx => ua   ! use ua as workspace 
    6969      USE oce         , zwy => va   ! use va as workspace 
    70       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     70      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7171      USE wrk_nemo, ONLY: zwi => wrk_3d_6, zwz => wrk_3d_7 
    7272      !! 
    … …  
    8787      !!---------------------------------------------------------------------- 
    8888 
    89       IF(.not. wrk_use(3, 6,7))THEN 
     89      IF(wrk_in_use(3, 6,7))THEN 
    9090         CALL ctl_stop('tra_adv_tvd: ERROR: requested workspace arrays unavailable') 
    9191         RETURN 
    … …  
    248248      END IF 
    249249      ! 
    250       IF(.not. wrk_release(3, 6,7))THEN 
     250      IF(wrk_not_released(3, 6,7))THEN 
    251251         CALL ctl_stop('tra_adv_tvd: ERROR: failed to release workspace arrays') 
    252252      END IF 
    … …  
    268268      !!       in-space based differencing for fluid 
    269269      !!---------------------------------------------------------------------- 
    270       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     270      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    271271      USE wrk_nemo, ONLY: zbetup => wrk_3d_8, zbetdo => wrk_3d_9, & 
    272272                          zbup => wrk_3d_10, zbdo => wrk_3d_11 
    … …  
    282282      !!---------------------------------------------------------------------- 
    283283 
    284       IF(.not. wrk_use(3, 8,9,10,11))THEN 
     284      IF(wrk_in_use(3, 8,9,10,11))THEN 
    285285         CALL ctl_stop('nonosc: ERROR: requested workspace array unavailable') 
    286286         RETURN 
    … …  
    365365      CALL lbc_lnk( paa, 'U', -1. )   ;   CALL lbc_lnk( pbb, 'V', -1. )   ! lateral boundary condition (changed sign) 
    366366      ! 
    367       IF(.not. wrk_release(3, 8,9,10,11))THEN 
     367      IF(wrk_not_released(3, 8,9,10,11))THEN 
    368368         CALL ctl_stop('nonosc: ERROR: failed to release workspace arrays') 
    369369      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_ubs.F90

    r2590 r2633  
    7575      USE oce         , zwx => ua   ! use ua as workspace 
    7676      USE oce         , zwy => va   ! use va as workspace 
    77       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     77      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7878      USE wrk_nemo, ONLY: ztu  => wrk_3d_1, ztv  => wrk_3d_2, & 
    7979                          zltu => wrk_3d_3, zltv => wrk_3d_4, & 
    … …  
    9797      !!---------------------------------------------------------------------- 
    9898 
    99       IF( .not. wrk_use(3, 1,2,3,4,5,6) )THEN 
     99      IF( wrk_in_use(3, 1,2,3,4,5,6) )THEN 
    100100         CALL ctl_stop('tra_adv_ubs: ERROR: requested workspace arrays unavailable') 
    101101         RETURN 
    … …  
    273273      ENDDO 
    274274      ! 
    275       IF( .not. wrk_release(3, 1,2,3,4,5,6) )THEN 
     275      IF( wrk_not_released(3, 1,2,3,4,5,6) )THEN 
    276276         CALL ctl_stop('tra_adv_ubs: ERROR: failed to release workspace arrays') 
    277277      END IF 
    … …  
    293293      !!       in-space based differencing for fluid 
    294294      !!---------------------------------------------------------------------- 
    295       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     295      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    296296      USE wrk_nemo, ONLY: zbetup => wrk_3d_1, zbetdo => wrk_3d_2 
    297297      !! 
    … …  
    306306      !!---------------------------------------------------------------------- 
    307307 
    308       IF( .not. wrk_use(3, 1,2) )THEN 
     308      IF( wrk_in_use(3, 1,2) )THEN 
    309309         CALL ctl_stop('nonosc_z: ERROR: requested workspace arrays unavailable') 
    310310         RETURN 
    … …  
    381381      END DO 
    382382      ! 
    383       IF( .not. wrk_release(3, 1,2) )THEN 
     383      IF( wrk_not_released(3, 1,2) )THEN 
    384384         CALL ctl_stop('nonosc_z: ERROR: failed to release workspace arrays') 
    385385      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r2623 r2633  
    169169      !!              Campin, J.-M., and H. Goosse, 1999, Tellus, 412-430. 
    170170      !!----------------------------------------------------------------------   
    171       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     171      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    172172      USE wrk_nemo, ONLY:   zptb => wrk_2d_1 
    173173      ! 
    … …  
    181181      !!---------------------------------------------------------------------- 
    182182      ! 
    183       IF(.not. wrk_use(2,1) ) THEN 
     183      IF(wrk_in_use(2,1) ) THEN 
    184184         CALL ctl_stop('tra_bbl_dif: ERROR: requested workspace array unavailable')   ;   RETURN 
    185185      ENDIF 
    … …  
    218218      END DO                                                ! end tracer 
    219219      !                                                     ! =========== 
    220       IF(.not. wrk_release(2,1) )   CALL ctl_stop('tra_bbl_dif: failed to release workspace array') 
     220      IF(wrk_not_released(2,1) )   CALL ctl_stop('tra_bbl_dif: failed to release workspace array') 
    221221      ! 
    222222   END SUBROUTINE tra_bbl_dif 
    … …  
    338338      !!              Campin, J.-M., and H. Goosse, 1999, Tellus, 412-430. 
    339339      !!----------------------------------------------------------------------   
    340       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     340      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    341341      USE wrk_nemo, ONLY:   zub => wrk_2d_1 , ztb => wrk_2d_2                      ! 2D workspace 
    342342      USE wrk_nemo, ONLY:   zvb => wrk_2d_3 , zsb => wrk_2d_4 , zdep => wrk_2d_5 
    … …  
    385385      !!---------------------------------------------------------------------- 
    386386 
    387       IF(.not. wrk_use(2, 1,2,3,4,5) ) THEN 
     387      IF(wrk_in_use(2, 1,2,3,4,5) ) THEN 
    388388         CALL ctl_stop('bbl: requested workspace arrays unavailable')   ;   RETURN 
    389389      ENDIF 
    … …  
    525525      ENDIF 
    526526      ! 
    527       IF(.not. wrk_release(2, 1,2,3,4,5) )   CALL ctl_stop('bbl: failed to release workspace arrays') 
     527      IF(wrk_not_released(2, 1,2,3,4,5) )   CALL ctl_stop('bbl: failed to release workspace arrays') 
    528528      ! 
    529529   END SUBROUTINE bbl 
    … …  
    539539      !!              called by nemo_init at the first timestep (nit000) 
    540540      !!---------------------------------------------------------------------- 
    541       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     541      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    542542      USE wrk_nemo, ONLY:   zmbk => wrk_2d_1       ! 2D workspace 
    543543      INTEGER ::   ji, jj               ! dummy loop indices 
    … …  
    547547      !!---------------------------------------------------------------------- 
    548548 
    549       IF(.not. wrk_use(2,1) ) THEN 
     549      IF(wrk_in_use(2,1) ) THEN 
    550550         CALL ctl_stop('tra_bbl_init: requested workspace array unavailable')   ;   RETURN 
    551551      ENDIF 
    … …  
    635635      ENDIF 
    636636      ! 
    637       IF(.not. wrk_release(2,1))THEN 
     637      IF(wrk_not_released(2,1))THEN 
    638638         CALL ctl_stop('tra_bbl_init: ERROR: failed to release workspace array') 
    639639      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

    r2623 r2633  
    327327      USE iom 
    328328      USE ioipsl 
    329       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     329      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    330330      USE wrk_nemo, ONLY:   zhfac => wrk_1d_1, zmrs => wrk_2d_1 , zdct  => wrk_3d_1   ! 1D, 2D, 3D workspace 
    331331      !! 
    … …  
    347347      !!---------------------------------------------------------------------- 
    348348 
    349       IF( .not. wrk_use(1, 1) .OR. .not. wrk_use(2, 1)  .OR.   & 
    350           .not. wrk_use(3, 1)   )THEN 
     349      IF( wrk_in_use(1, 1) .OR. wrk_in_use(2, 1)  .OR.   & 
     350          wrk_in_use(3, 1)   )THEN 
    351351         CALL ctl_stop('dtacof: requested workspace arrays unavailable')   ;   RETURN 
    352352      ENDIF 
    … …  
    543543      ENDIF 
    544544      ! 
    545       IF( .not. wrk_release(1, 1) .OR. .not. wrk_release(2, 1) .OR. & 
    546           .not. wrk_release(3, 1) )   CALL ctl_stop('dtacof: failed to release workspace arrays') 
     545      IF( wrk_not_released(1, 1) .OR. wrk_not_released(2, 1) .OR. & 
     546          wrk_not_released(3, 1) )   CALL ctl_stop('dtacof: failed to release workspace arrays') 
    547547      ! 
    548548   END SUBROUTINE dtacof 
    … …  
    570570      !!---------------------------------------------------------------------- 
    571571      USE ioipsl      ! IOipsl librairy 
    572       USE wrk_nemo, ONLY:   wrk_use, wrk_release, llwrk_use, llwrk_release 
     572      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released, llwrk_in_use, llwrk_not_released 
    573573      USE wrk_nemo, ONLY:   zxc => wrk_1d_1, zyc  => wrk_1d_2, zzc => wrk_1d_3, zdis => wrk_1d_4 
    574574      USE wrk_nemo, ONLY:   llcotu => llwrk_2d_1, llcotv => llwrk_2d_2 , llcotf => llwrk_2d_3 
    … …  
    586586      !!---------------------------------------------------------------------- 
    587587 
    588       IF( .not. llwrk_use(2, 1,2,3)  .OR. .not. wrk_use(2, 1,2,3,4) .OR.   & 
    589           .not.   wrk_use(1, 1,2,3,4)  )THEN 
     588      IF( llwrk_in_use(2, 1,2,3) .OR. wrk_in_use(2, 1,2,3,4) .OR.   & 
     589          wrk_in_use(1, 1,2,3,4)  )THEN 
    590590         CALL ctl_stop('cofdis: ERROR: requested workspace arrays unavailable')   ;   RETURN 
    591591      END IF 
    … …  
    741741      CALL restclo( icot ) 
    742742      ! 
    743       IF( .not. llwrk_release(2, 1,2,3)   .OR. & 
    744           .not.   wrk_release(2, 1,2,3,4) .OR. &  
    745           .not.   wrk_release(1, 1,2,3,4)  )   CALL ctl_stop('cofdis: failed to release workspace arrays') 
     743      IF( llwrk_not_released(2, 1,2,3)  .OR. & 
     744           wrk_not_released(2, 1,2,3,4) .OR. &  
     745           wrk_not_released(1, 1,2,3,4)  )   CALL ctl_stop('cofdis: failed to release workspace arrays') 
    746746      ! 
    747747   END SUBROUTINE cofdis 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90

    r2623 r2633  
    237237      !! ** Purpose :   initializations of  
    238238      !!---------------------------------------------------------------------- 
    239       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     239      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    240240      USE wrk_nemo, ONLY: zt_ref => wrk_3d_1, ztb => wrk_3d_2, zavt => wrk_3d_3   ! 3D workspaces 
    241241      USE wrk_nemo, ONLY: zs_ref => wrk_3d_4, zsb => wrk_3d_5                     ! 3D workspaces 
    … …  
    251251      !!---------------------------------------------------------------------- 
    252252 
    253       IF(.NOT. wrk_use(3, 1,2,3,4,5) ) THEN 
     253      IF(wrk_in_use(3, 1,2,3,4,5) ) THEN 
    254254         CALL ctl_stop('ldf_ano : requested workspace arrays unavailable')   ;   RETURN 
    255255      ENDIF 
    … …  
    320320      avt(:,:,:)        = zavt(:,:,:) 
    321321      ! 
    322       IF(.NOT. wrk_release(3, 1,2,3,4,5) )   CALL ctl_stop('ldf_ano : failed to release workspace arrays') 
     322      IF(wrk_not_released(3, 1,2,3,4,5) )   CALL ctl_stop('ldf_ano : failed to release workspace arrays') 
    323323      ! 
    324324   END SUBROUTINE ldf_ano 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_bilap.F90

    r2590 r2633  
    7575      USE oce         , ztu => ua   ! use ua as workspace 
    7676      USE oce         , ztv => va   ! use va as workspace 
    77       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     77      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7878      USE wrk_nemo, ONLY: zeeu => wrk_2d_1, zeev => wrk_2d_2, zlt => wrk_2d_3 
    7979      !! 
    … …  
    8989      !!---------------------------------------------------------------------- 
    9090 
    91       IF(.NOT. wrk_use(2, 1,2,3))THEN 
     91      IF(wrk_in_use(2, 1,2,3))THEN 
    9292         CALL ctl_stop('tra_ldf_bilap: requested workspace arrays unavailable.') 
    9393         RETURN 
    … …  
    166166      END DO                                              ! tracer loop 
    167167      !                                                   ! =========== 
    168       IF(.NOT. wrk_release(2, 1,2,3))THEN 
     168      IF(wrk_not_released(2, 1,2,3))THEN 
    169169         CALL ctl_stop('tra_ldf_bilap: failed to release workspace arrays.') 
    170170      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_bilapg.F90

    r2590 r2633  
    6565      !!               biharmonic mixing trend. 
    6666      !!---------------------------------------------------------------------- 
    67       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     67      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    6868      USE wrk_nemo, ONLY: wk1 => wrk_4d_1, wk2 => wrk_4d_2 
    6969      INTEGER         , INTENT(in   )                      ::   kt       ! ocean time-step index 
    … …  
    7676      !!---------------------------------------------------------------------- 
    7777 
    78       IF(.NOT. wrk_use(4, 1,2))THEN 
     78      IF(wrk_in_use(4, 1,2))THEN 
    7979         CALL ctl_stop('tra_ldf_bilapg : requested workspace arrays unavailable.') 
    8080         RETURN 
    … …  
    114114      END DO 
    115115      ! 
    116       IF(.NOT. wrk_release(4, 1,2))THEN 
     116      IF(wrk_not_released(4, 1,2))THEN 
    117117         CALL ctl_stop('tra_ldf_bilapg : failed to release workspace arrays.') 
    118118      END IF 
    … …  
    160160      !!---------------------------------------------------------------------- 
    161161      USE oce         , zftv => ua     ! use ua as workspace 
    162       USE wrk_nemo, ONLY: wrk_use, wrk_release, wrk_use_xz, wrk_release_xz 
     162      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, wrk_in_use_xz, wrk_not_released_xz 
    163163      USE wrk_nemo, ONLY: zftu => wrk_2d_1,  zdkt => wrk_2d_2, zdk1t => wrk_2d_3 
    164164      USE wrk_nemo, ONLY: zftw => wrk_xz_1, zdit => wrk_xz_2, & 
    … …  
    182182      !!---------------------------------------------------------------------- 
    183183 
    184       IF( (.NOT. wrk_use(2, 1,2,3)) .OR. (.NOT. wrk_use_xz(1,2,3,4)) )THEN 
     184      IF( wrk_in_use(2, 1,2,3) .OR. wrk_in_use_xz(1,2,3,4) )THEN 
    185185         CALL ctl_stop('ldfght : requested workspace arrays unavailable.') 
    186186         RETURN 
    … …  
    337337      END DO 
    338338      ! 
    339       IF( (.NOT. wrk_release(2, 1,2,3)) .OR. (.NOT. wrk_release_xz(1,2,3,4)) )THEN 
     339      IF( wrk_not_released(2, 1,2,3) .OR. wrk_not_released_xz(1,2,3,4) )THEN 
    340340         CALL ctl_stop('ldfght : failed to release workspace arrays.') 
    341341      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90

    r2590 r2633  
    9292      USE oce         , zftu => ua   ! use ua as workspace 
    9393      USE oce         , zftv => va   ! use va as workspace 
    94       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     94      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    9595      USE wrk_nemo, ONLY: zdkt => wrk_2d_1, zdk1t => wrk_2d_2   ! 2D workspace 
    9696      USE wrk_nemo, ONLY: zdit => wrk_3d_1, zdjt => wrk_3d_2, ztfw => wrk_3d_3   ! 3D workspace 
    … …  
    114114      !!---------------------------------------------------------------------- 
    115115 
    116       IF( (.NOT. wrk_use(3, 1,2,3)) .OR. & 
    117           (.NOT. wrk_use(2, 1,2,3)) )THEN 
     116      IF( wrk_in_use(3, 1,2,3) .OR. wrk_in_use(2, 1,2,3) )THEN 
    118117          CALL ctl_stop('tra_ldf_iso : requested workspace array unavailable.') 
    119118          RETURN 
    … …  
    295294      END DO 
    296295      ! 
    297       IF( (.NOT. wrk_release(3, 1,2,3)) .OR.  & 
    298           (.NOT. wrk_release(2, 1,2,3)) )THEN 
     296      IF( wrk_not_released(3, 1,2,3) .OR.  & 
     297          wrk_not_released(2, 1,2,3) )THEN 
    299298          CALL ctl_stop('tra_ldf_iso : failed to release workspace arrays.') 
    300299      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90

    r2623 r2633  
    8888      !! ** Action :   Update pta arrays with the before rotated diffusion 
    8989      !!---------------------------------------------------------------------- 
    90       USE wrk_nemo, ONLY:   wrk_use, wrk_release 
     90      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    9191      USE oce     , ONLY:   zftu => ua       , zftv => va            ! (ua,va) used as 3D workspace 
    9292      USE wrk_nemo, ONLY:   zdit => wrk_3d_1 , zdjt => wrk_3d_2 , ztfw => wrk_3d_3   ! 3D workspace 
    … …  
    117117      !!---------------------------------------------------------------------- 
    118118 
    119       IF( .NOT. wrk_use(3, 1,2,3) .OR. .NOT. wrk_use(2, 1) ) THEN 
     119      IF( wrk_in_use(3, 1,2,3) .OR. wrk_in_use(2, 1) ) THEN 
    120120         CALL ctl_stop('tra_ldf_iso_grif : requested workspace arrays unavailable.')   ;   RETURN 
    121121      ENDIF 
    … …  
    347347      END DO 
    348348      ! 
    349       IF( (.NOT. wrk_release(3, 1,2,3,4)) .OR. (.NOT. wrk_release(2, 1)))THEN 
     349      IF( wrk_not_released(3, 1,2,3,4) .OR. wrk_not_released(2, 1) )THEN 
    350350         CALL ctl_stop('tra_ldf_iso_grif : failed to release workspace arrays.') 
    351351      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/tranpc.F90

    r2590 r2633  
    5555      !! References : Madec, et al., 1991, JPO, 21, 9, 1349-1371. 
    5656      !!---------------------------------------------------------------------- 
    57       USE wrk_nemo, ONLY: wrk_use, wrk_release, wrk_use_xz, wrk_release_xz 
     57      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, wrk_in_use_xz, wrk_not_released_xz 
    5858      USE wrk_nemo, ONLY: ztrdt => wrk_3d_1, ztrds => wrk_3d_2, zrhop => wrk_3d_3 
    5959      USE wrk_nemo, ONLY: zwx => wrk_xz_1, zwy => wrk_xz_2, zwz => wrk_xz_3 
    … …  
    7171      ! Strictly 1 and 2 3D workspaces only needed if(l_trdtra) but it doesn't  
    7272      ! cost us anything and makes code simpler. 
    73       IF( (.NOT. wrk_use(3, 1,2,3)) .OR. (.NOT. wrk_use_xz(1,2,3)) )THEN 
     73      IF( wrk_in_use(3, 1,2,3) .OR. wrk_in_use_xz(1,2,3) )THEN 
    7474         CALL ctl_stop('tra_npc: requested workspace arrays unavailable.') 
    7575         RETURN 
    … …  
    217217      ENDIF 
    218218      ! 
    219       IF( (.NOT. wrk_release(3, 1,2,3))  .OR. (.NOT. wrk_release_xz(1,2,3)))THEN 
     219      IF( wrk_not_released(3, 1,2,3)  .OR. wrk_not_released_xz(1,2,3) )THEN 
    220220         CALL ctl_stop('tra_npc: failed to release workspace arrays.') 
    221221      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r2590 r2633  
    9090      !!              Lengaigne et al. 2007, Clim. Dyn., V28, 5, 503-516. 
    9191      !!---------------------------------------------------------------------- 
    92       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     92      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    9393      USE wrk_nemo, ONLY: zekb => wrk_2d_1, zekg => wrk_2d_2, zekr => wrk_2d_3 
    9494      USE wrk_nemo, ONLY: ze0 => wrk_3d_1, ze1 => wrk_3d_2, ze2 => wrk_3d_3 
    … …  
    106106      !!---------------------------------------------------------------------- 
    107107 
    108       IF( (.NOT. wrk_use(3, 1,2,3,4,5)) .OR. (.NOT. wrk_use(2, 1,2,3)) )THEN 
     108      IF( wrk_in_use(3, 1,2,3,4,5) .OR. wrk_in_use(2, 1,2,3) )THEN 
    109109         CALL ctl_stop('tra_qsr : requested workspace arrays unavailable.') 
    110110         RETURN 
    … …  
    290290      IF(ln_ctl)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' qsr  - Ta: ', mask1=tmask, clinfo3='tra-ta' ) 
    291291      ! 
    292       IF( (.NOT. wrk_release(3, 1,2,3,4,5)) .OR. & 
    293           (.NOT. wrk_release(2, 1,2,3)) )THEN 
     292      IF( wrk_not_released(3, 1,2,3,4,5) .OR. & 
     293          wrk_not_released(2, 1,2,3) )THEN 
    294294         CALL ctl_stop('tra_qsr : failed to release workspace arrays.') 
    295295      END IF 
    … …  
    315315      !! Reference : Jerlov, N. G., 1968 Optical Oceanography, Elsevier, 194pp. 
    316316      !!---------------------------------------------------------------------- 
    317       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     317      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    318318      USE wrk_nemo, ONLY: zekb => wrk_2d_1, zekg => wrk_2d_2, zekr => wrk_2d_3 
    319319      USE wrk_nemo, ONLY: ze0 => wrk_3d_1, ze1 => wrk_3d_2, ze2 => wrk_3d_3 
    … …  
    333333      !!---------------------------------------------------------------------- 
    334334 
    335       IF( (.NOT. wrk_use(2, 1,2,3)) .OR. (.NOT. wrk_use(3, 1,2,3,4,5)) )THEN 
     335      IF( wrk_in_use(2, 1,2,3) .OR. wrk_in_use(3, 1,2,3,4,5) )THEN 
    336336         CALL ctl_stop('tra_qsr_init: requested workspace arrays unavailable.') 
    337337         RETURN 
    … …  
    510510      ENDIF 
    511511      ! 
    512       IF( (.NOT. wrk_release(2, 1,2,3)) .OR.   & 
    513           (.NOT. wrk_release(3, 1,2,3,4,5)) )THEN 
     512      IF( wrk_not_released(2, 1,2,3) .OR.   & 
     513          wrk_not_released(3, 1,2,3,4,5) )THEN 
    514514         CALL ctl_stop('tra_qsr_init: failed to release workspace arrays.') 
    515515      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_exp.F90

    r2590 r2633  
    7373      !! ** Action : - after tracer fields pta 
    7474      !!--------------------------------------------------------------------- 
    75       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     75      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7676      USE wrk_nemo, ONLY: zwx => wrk_3d_1, zwy => wrk_3d_2     ! 3D workspace 
    7777      !! 
    … …  
    8989      !!--------------------------------------------------------------------- 
    9090 
    91       IF(.NOT. wrk_use(3, 1,2))THEN 
     91      IF(wrk_in_use(3, 1,2))THEN 
    9292         CALL ctl_stop('tra_zdf_exp : requested workspace arrays unavailable.') 
    9393         RETURN 
    … …  
    165165      END DO 
    166166      ! 
    167       IF(.NOT. wrk_release(3, 1,2))THEN 
     167      IF(wrk_not_released(3, 1,2))THEN 
    168168         CALL ctl_stop('tra_zdf_exp : failed to release workspace arrays.') 
    169169      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90

    r2590 r2633  
    9191      USE oce    , ONLY :   zwd   => ua   ! ua used as workspace 
    9292      USE oce    , ONLY :   zws   => va   ! va  -          - 
    93       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     93      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    9494      USE wrk_nemo, ONLY: zwi => wrk_3d_1, zwt => wrk_3d_2  ! workspace arrays 
    9595      !!  
    … …  
    106106      !!--------------------------------------------------------------------- 
    107107 
    108       IF(.NOT. wrk_use(3, 1,2))THEN 
     108      IF(wrk_in_use(3, 1,2))THEN 
    109109         CALL ctl_stop('tra_zdf_imp : requested workspace arrays unavailable.') 
    110110         RETURN 
    … …  
    308308      END DO 
    309309      ! 
    310       IF(.NOT. wrk_release(3, 1,2))THEN 
     310      IF(wrk_not_released(3, 1,2))THEN 
    311311         CALL ctl_stop('tra_zdf_imp : failed to release workspace arrays.') 
    312312      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/zpshde.F90

    r2590 r2633  
    8080      !!              - pgru, pgrv: horizontal gradient of rho (if present) at u- & v-points  
    8181      !!---------------------------------------------------------------------- 
    82       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     82      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    8383      USE wrk_nemo, ONLY: zri => wrk_2d_1, zrj => wrk_2d_2   ! interpolated value of rd 
    8484      USE wrk_nemo, ONLY: zhi => wrk_2d_3, zhj => wrk_2d_4   ! depth of interpolation for eos2d 
    … …  
    9898      !!---------------------------------------------------------------------- 
    9999 
    100       IF( (.NOT. wrk_use(2, 1,2,3,4)) .OR. (.NOT. wrk_use(3, 1,2)) )THEN 
     100      IF( wrk_in_use(2, 1,2,3,4) .OR. wrk_in_use(3, 1,2) )THEN 
    101101         CALL ctl_stop('zps_hde: requested workspace arrays unavailable.') 
    102102         RETURN 
    … …  
    214214      END IF 
    215215      ! 
    216       IF( (.NOT. wrk_release(2, 1,2,3,4)) .OR. (.NOT. wrk_release(3, 1,2)) )THEN 
     216      IF( wrk_not_released(2, 1,2,3,4) .OR. wrk_not_released(3, 1,2) )THEN 
    217217         CALL ctl_stop('zps_hde: failed to release workspace arrays.') 
    218218      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD/trdicp.F90

    r2590 r2633  
    344344      !! ** Purpose :  write dynamic trends in ocean.output  
    345345      !!---------------------------------------------------------------------- 
    346       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     346      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    347347      USE wrk_nemo, ONLY: zkepe => wrk_3d_1, zkx => wrk_3d_2, & 
    348348                          zky => wrk_3d_3, zkz => wrk_3d_4 
    … …  
    353353      !!---------------------------------------------------------------------- 
    354354 
    355       IF(.NOT. wrk_use(3, 1,2,3,4))THEN 
     355      IF(wrk_in_use(3, 1,2,3,4))THEN 
    356356         CALL ctl_stop('trd_dwr : requested workspace arrays unavailable.') 
    357357         RETURN 
    … …  
    550550      ENDIF 
    551551      ! 
    552       IF(.NOT. wrk_release(3, 1,2,3,4))THEN 
     552      IF(wrk_not_released(3, 1,2,3,4))THEN 
    553553         CALL ctl_stop('trd_dwr : failed to release workspace arrays.') 
    554554      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD/trdmld.F90

    r2629 r2633  
    9393      !!            surface and the control surface is called "mixed-layer" 
    9494      !!---------------------------------------------------------------------- 
    95       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     95      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    9696      USE wrk_nemo, ONLY: zvlmsk => wrk_2d_1 
    9797      ! 
    … …  
    104104      !!---------------------------------------------------------------------- 
    105105 
    106       IF(.NOT. wrk_use(2, 1) ) THEN 
     106      IF(wrk_in_use(2, 1) ) THEN 
    107107         CALL ctl_stop('trd_mld_zint : requested workspace arrays unavailable')   ;   RETURN 
    108108      ENDIF 
    … …  
    195195      END SELECT 
    196196      ! 
    197       IF(.NOT. wrk_release(2, 1) )   CALL ctl_stop('trd_mld_zint : failed to release workspace arrays') 
     197      IF(wrk_not_released(2, 1) )   CALL ctl_stop('trd_mld_zint : failed to release workspace arrays') 
    198198      ! 
    199199   END SUBROUTINE trd_mld_zint 
    … …  
    247247      !!       - See NEMO documentation (in preparation) 
    248248      !!---------------------------------------------------------------------- 
    249       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     249      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    250250      USE wrk_nemo, ONLY: ztmltot => wrk_2d_1,  zsmltot => wrk_2d_2 ! dT/dt over the anlysis window (including Asselin) 
    251251      USE wrk_nemo, ONLY: ztmlres => wrk_2d_3,  zsmlres => wrk_2d_4 ! residual = dh/dt entrainment term 
    … …  
    269269       
    270270      ! Check that the workspace arrays are all OK to be used 
    271       IF( .NOT. wrk_use(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14)  .OR. & 
    272           .NOT. wrk_use(3, 1,2)                                 ) THEN 
     271      IF( wrk_in_use(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14)  .OR. & 
     272          wrk_in_use(3, 1,2)                                 ) THEN 
    273273         CALL ctl_stop('trd_mld : requested workspace arrays unavailable')   ;   RETURN 
    274274      ELSE IF(jpltrd > jpk) THEN 
    … …  
    740740      IF( lrst_oce )   CALL trd_mld_rst_write( kt )  
    741741 
    742       IF( .NOT. wrk_release(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14)  .OR. & 
    743           .NOT. wrk_release(3, 1,2)                                )   & 
     742      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10,11,12,13,14)  .OR. & 
     743          wrk_not_released(3, 1,2)                                )   & 
    744744          CALL ctl_stop('trd_mld : failed to release workspace arrays.') 
    745745      ! 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD/trdmod.F90

    r2629 r2633  
    5151      !!              integral constraints 
    5252      !!---------------------------------------------------------------------- 
    53       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     53      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    5454      USE wrk_nemo, ONLY: ztswu => wrk_2d_1,  & 
    5555                          ztswv => wrk_2d_2,  & 
    … …  
    6868      !!---------------------------------------------------------------------- 
    6969 
    70       IF(.not. wrk_use(2, 1,2,3,4,5,6))THEN 
     70      IF(wrk_in_use(2, 1,2,3,4,5,6))THEN 
    7171         CALL ctl_warn('trd_mod: Requested workspace arrays already in use.')   ;   RETURN 
    7272      END IF 
    … …  
    226226      ENDIF 
    227227      ! 
    228       IF( .not. wrk_release(2, 1,2,3,4,5,6) )   CALL ctl_warn('trd_mod: Failed to release workspace arrays.') 
     228      IF( wrk_not_released(2, 1,2,3,4,5,6) )   CALL ctl_warn('trd_mod: Failed to release workspace arrays.') 
    229229      ! 
    230230   END SUBROUTINE trd_mod 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90

    r2629 r2633  
    6060      !!        nn_ctls > 1  : use fixed level surface jk = nn_ctls 
    6161      !!---------------------------------------------------------------------- 
    62       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     62      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    6363      USE wrk_nemo, ONLY: ztrds => wrk_3d_1 
    6464      INTEGER                         , INTENT(in)           ::  kt      ! time step 
    … …  
    7171      !!---------------------------------------------------------------------- 
    7272 
    73       IF(.NOT. wrk_use(3, 1) ) THEN 
     73      IF(wrk_in_use(3, 1) ) THEN 
    7474         CALL ctl_stop('trd_tra: requested workspace array unavailable.')   ;   RETURN 
    7575      ENDIF 
    … …  
    136136      ENDIF 
    137137      ! 
    138       IF(.NOT. wrk_release(3, 1) )   CALL ctl_stop('trd_tra: failed to release workspace array.') 
     138      IF(wrk_not_released(3, 1) )   CALL ctl_stop('trd_tra: failed to release workspace array.') 
    139139      ! 
    140140   END SUBROUTINE trd_tra 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor.F90

    r2629 r2633  
    108108      !!      trends output in netCDF format using ioipsl 
    109109      !!---------------------------------------------------------------------- 
    110       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     110      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    111111      USE wrk_nemo, ONLY: zudpvor => wrk_2d_1, &   ! total cmulative trends 
    112112                          zvdpvor => wrk_2d_2 
    … …  
    120120      !!---------------------------------------------------------------------- 
    121121 
    122       IF(.NOT. wrk_use(2, 1,2))THEN 
     122      IF(wrk_in_use(2, 1,2))THEN 
    123123         CALL ctl_stop('trd_vor_zint_2d : requested workspace arrays unavailable.') 
    124124         RETURN 
    … …  
    172172      ENDIF 
    173173      ! 
    174       IF(.NOT. wrk_release(2, 1,2))THEN 
     174      IF(wrk_not_released(2, 1,2))THEN 
    175175         CALL ctl_stop('trd_vor_zint_2d : failed to release workspace arrays.') 
    176176      END IF 
    … …  
    206206      !!      trends output in netCDF format using ioipsl 
    207207      !!---------------------------------------------------------------------- 
    208       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     208      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    209209      USE wrk_nemo, ONLY: zubet   => wrk_2d_1,   zvbet => wrk_2d_2   ! Beta.V  
    210210      USE wrk_nemo, ONLY: zudpvor => wrk_2d_3, zvdpvor => wrk_2d_4   ! total cmulative trends 
    … …  
    217217      !!---------------------------------------------------------------------- 
    218218      
    219       IF(.NOT. wrk_use(2, 1,2,3,4))THEN 
     219      IF(wrk_in_use(2, 1,2,3,4))THEN 
    220220         CALL ctl_stop('trd_vor_zint_3d : requested workspace arrays unavailable.') 
    221221         RETURN 
    … …  
    284284      ENDIF 
    285285      ! 
    286       IF(.NOT. wrk_release(2, 1,2,3,4))THEN 
     286      IF(wrk_not_released(2, 1,2,3,4))THEN 
    287287         CALL ctl_stop('trd_vor_zint_3d : failed to release workspace arrays.') 
    288288      END IF 
    … …  
    298298      !!               and make outputs (NetCDF or DIMG format) 
    299299      !!---------------------------------------------------------------------- 
    300       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     300      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    301301      USE wrk_nemo, ONLY: zun => wrk_2d_1, zvn => wrk_2d_2 ! 2D workspace 
    302302      !! 
    … …  
    308308      !!---------------------------------------------------------------------- 
    309309 
    310       IF(.NOT. wrk_use(2, 1,2))THEN 
     310      IF(wrk_in_use(2, 1,2))THEN 
    311311         CALL ctl_stop('trd_vor : requested workspace arrays unavailable.') 
    312312         RETURN 
    … …  
    478478      IF( kt == nitend )   CALL histclo( nidvor ) 
    479479      ! 
    480       IF(.NOT. wrk_release(2, 1,2) )   CALL ctl_stop('trd_vor : failed to release workspace arrays') 
     480      IF(wrk_not_released(2, 1,2) )   CALL ctl_stop('trd_vor : failed to release workspace arrays') 
    481481      ! 
    482482   END SUBROUTINE trd_vor 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

    r2616 r2633  
    8989      !! References :   Merryfield et al., JPO, 29, 1124-1142, 1999. 
    9090      !!---------------------------------------------------------------------- 
    91       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     91      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    9292      USE wrk_nemo, ONLY: zmsks  => wrk_2d_1,  & 
    9393                          zmskf  => wrk_2d_2,  & 
    … …  
    104104      !!---------------------------------------------------------------------- 
    105105 
    106       IF( .NOT. wrk_use(2, 1,2,3,4,5) ) THEN 
     106      IF( wrk_in_use(2, 1,2,3,4,5) ) THEN 
    107107         CALL ctl_stop('zdf_ddm: Requested workspace arrays already in use.')   ;   RETURN 
    108108      END IF 
    … …  
    198198      ENDIF 
    199199      ! 
    200       IF( .NOT. wrk_release(2, 1,2,3,4,5) )   CALL ctl_stop('zdf_ddm: Release of workspace arrays failed') 
     200      IF( wrk_not_released(2, 1,2,3,4,5) )   CALL ctl_stop('zdf_ddm: Release of workspace arrays failed') 
    201201      ! 
    202202   END SUBROUTINE zdf_ddm 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r2616 r2633  
    134134      USE oce,     z_elem_c  =>   ta   ! use ta as workspace 
    135135      USE oce,     psi       =>   sa   ! use sa as workspace 
    136       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     136      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    137137      USE wrk_nemo, ONLY: zdep  => wrk_2d_1 
    138138      USE wrk_nemo, ONLY: zflxs => wrk_2d_2     ! Turbulence fluxed induced by internal waves  
    … …  
    153153      !!-------------------------------------------------------------------- 
    154154 
    155       IF(  .NOT. wrk_use(2, 1,2,3)  .OR.  .NOT. wrk_use(3, 1,2,3,4,5)  ) THEN 
     155      IF(  wrk_in_use(2, 1,2,3)  .OR.  wrk_in_use(3, 1,2,3,4,5)  ) THEN 
    156156         CALL ctl_stop('zdf_gls: requested workspace arrays unavailable.')   ;   RETURN 
    157157      END IF 
    … …  
    882882      ENDIF 
    883883      ! 
    884       IF( .NOT. wrk_release(2, 1,2,3)     .OR. & 
    885           .NOT. wrk_release(3, 1,2,3,4,5)  )   CALL ctl_stop('zdf_gls: failed to release workspace arrays') 
     884      IF( wrk_not_released(2, 1,2,3)     .OR. & 
     885          wrk_not_released(3, 1,2,3,4,5)  )   CALL ctl_stop('zdf_gls: failed to release workspace arrays') 
    886886      ! 
    887887   END SUBROUTINE zdf_gls 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r2618 r2633  
    214214      USE oce     , zdiffut => ta   ! temp. array for diffusivities use sa as workspace 
    215215#endif 
    216       USE wrk_nemo, ONLY: wrk_use, wrk_release, wrk_use_xz, wrk_release_xz 
     216      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, wrk_in_use_xz, wrk_not_released_xz 
    217217      USE wrk_nemo, ONLY: zBo    => wrk_2d_1, &  ! Surface buoyancy forcing, 
    218218                          zBosol => wrk_2d_2, &  ! friction velocity 
    … …  
    274274      !!-------------------------------------------------------------------- 
    275275      
    276       IF( .NOT. wrk_use(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR. & 
    277           .NOT. wrk_use(2, 1,2,3,4,5,6,7,8,9,10,11)          .OR. & 
    278           .NOT. wrk_use_xz(1,2,3)                              ) THEN 
     276      IF( wrk_in_use(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR. & 
     277          wrk_in_use(2, 1,2,3,4,5,6,7,8,9,10,11)          .OR. & 
     278          wrk_in_use_xz(1,2,3)                              ) THEN 
    279279         CALL ctl_stop('zdf_kpp : requested workspace arrays unavailable.')   ;   RETURN 
    280280      END IF 
    … …  
    12341234         ENDIF 
    12351235 
    1236       IF( .NOT. wrk_release(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR. & 
    1237           .NOT. wrk_release(2, 1,2,3,4,5,6,7,8,9,10,11)          .OR. & 
    1238           .NOT. wrk_release_xz(1,2,3)  )   CALL ctl_stop('zdf_kpp : failed to release workspace arrays.') 
     1236      IF( wrk_not_released(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR. & 
     1237          wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10,11)          .OR. & 
     1238          wrk_not_released_xz(1,2,3)  )   CALL ctl_stop('zdf_kpp : failed to release workspace arrays.') 
    12391239      ! 
    12401240   END SUBROUTINE zdf_kpp 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

    r2616 r2633  
    6363      !! ** Action  :   nmln, hmld, hmlp, hmlpt 
    6464      !!---------------------------------------------------------------------- 
    65       USE wrk_nemo, ONLY: iwrk_use, iwrk_release 
     65      USE wrk_nemo, ONLY: iwrk_in_use, iwrk_not_released 
    6666      USE wrk_nemo, ONLY: imld => iwrk_2d_1    ! 2D workspace 
    6767      !! 
    … …  
    7474      !!---------------------------------------------------------------------- 
    7575 
    76       IF( .NOT. iwrk_use(2,1) )THEN 
     76      IF( iwrk_in_use(2,1) )THEN 
    7777         CALL ctl_stop('zdf_mxl : requested workspace array unavailable.')   ;   RETURN 
    7878      END IF 
    … …  
    112112      IF(ln_ctl)   CALL prt_ctl( tab2d_1=REAL(nmln,wp), clinfo1=' nmln : ', tab2d_2=hmlp, clinfo2=' hmlp : ', ovlap=1 ) 
    113113      ! 
    114       IF( .NOT. iwrk_release(2,1) )   CALL ctl_stop('zdf_mxl : failed to release workspace array') 
     114      IF( iwrk_not_released(2,1) )   CALL ctl_stop('zdf_mxl : failed to release workspace array') 
    115115      ! 
    116116   END SUBROUTINE zdf_mxl 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r2623 r2633  
    8888      !! References : Pacanowski & Philander 1981, JPO, 1441-1451. 
    8989      !!---------------------------------------------------------------------- 
    90       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     90      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    9191      USE wrk_nemo, ONLY: zwx => wrk_2d_1 
    9292      !! 
    … …  
    9797      !!---------------------------------------------------------------------- 
    9898 
    99       IF(.NOT. wrk_use(2, 1) ) THEN 
     99      IF(wrk_in_use(2, 1) ) THEN 
    100100         CALL ctl_stop('zdf_ric : requested workspace array unavailable')   ;   RETURN 
    101101      END IF 
    … …  
    150150      CALL lbc_lnk( avmu, 'U', 1. )   ;   CALL lbc_lnk( avmv, 'V', 1. ) 
    151151      ! 
    152       IF(.NOT. wrk_release(2, 1) )   CALL ctl_stop('zdf_ric : failed to release workspace array') 
     152      IF(wrk_not_released(2, 1) )   CALL ctl_stop('zdf_ric : failed to release workspace array') 
    153153      ! 
    154154   END SUBROUTINE zdf_ric 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r2616 r2633  
    192192      USE oce,   zd_up  =>   va   ! use va as workspace 
    193193      USE oce,   zd_lw  =>   ta   ! use ta as workspace 
    194       USE wrk_nemo, ONLY: wrk_use, wrk_release, iwrk_use, iwrk_release 
     194      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released 
    195195      USE wrk_nemo, ONLY: imlc => iwrk_2d_1 ! 2D INTEGER workspace 
    196196      USE wrk_nemo, ONLY: zhlc => wrk_2d_1  ! 2D REAL workspace 
    … …  
    211211      !!-------------------------------------------------------------------- 
    212212      ! 
    213       IF( .NOT. iwrk_use(2, 1) .OR. & 
    214           .NOT.  wrk_use(2, 1) .OR. & 
    215           .NOT.  wrk_use(3, 1)   )THEN 
     213      IF( iwrk_in_use(2, 1) .OR. & 
     214           wrk_in_use(2, 1) .OR. & 
     215           wrk_in_use(3, 1)   )THEN 
    216216         CALL ctl_stop('tke_tke : requested workspace arrays unavailable.')   ;   RETURN 
    217217      END IF 
    … …  
    430430      CALL lbc_lnk( en, 'W', 1. )      ! Lateral boundary conditions (sign unchanged) 
    431431      ! 
    432       IF( .NOT. iwrk_release(2 ,1) .OR.   & 
    433           .NOT.  wrk_release(2, 1) .OR.   & 
    434           .NOT.  wrk_release(3, 1)  )   CALL ctl_stop( 'tke_tke : failed to release workspace arrays' ) 
     432      IF( iwrk_not_released(2 ,1) .OR.   & 
     433           wrk_not_released(2, 1) .OR.   & 
     434           wrk_not_released(3, 1)  )   CALL ctl_stop( 'tke_tke : failed to release workspace arrays' ) 
    435435      ! 
    436436   END SUBROUTINE tke_tke 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

    r2616 r2633  
    2424   USE in_out_manager  ! I/O manager 
    2525   USE iom             ! I/O Manager 
    26    USE wrk_nemo, ONLY: wrk_use, wrk_release 
     26   USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    2727 
    2828   IMPLICIT NONE 
    … …  
    111111      !!---------------------------------------------------------------------- 
    112112 
    113       IF(.NOT. wrk_use(2, 1))THEN 
     113      IF(wrk_in_use(2, 1))THEN 
    114114         CALL ctl_stop('zdf_tmx : requested workspace array unavailable.')   ;   RETURN 
    115115      END IF 
    … …  
    175175      IF(ln_ctl)   CALL prt_ctl(tab3d_1=zav_tide , clinfo1=' tmx - av_tide: ', tab3d_2=avt, clinfo2=' avt: ', ovlap=1, kdim=jpk) 
    176176      ! 
    177       IF(.NOT. wrk_release(2, 1))THEN 
     177      IF(wrk_not_released(2, 1))THEN 
    178178         CALL ctl_stop('zdf_tmx : failed to release workspace array.') 
    179179      END IF 
    … …  
    215215      !!---------------------------------------------------------------------- 
    216216      ! 
    217       IF( (.NOT. wrk_use(2, 2,3,4,5)) .OR. (.NOT. wrk_use(3, 1,2,3,4,5)) )THEN 
     217      IF( wrk_in_use(2, 2,3,4,5) .OR. wrk_in_use(3, 1,2,3,4,5) )THEN 
    218218         CALL ctl_stop('tmx_itf : requested workspace arrays unavailable.') 
    219219         RETURN 
    … …  
    303303      END DO 
    304304      ! 
    305       IF( (.NOT. wrk_release(2, 2,3,4,5)) .OR. & 
    306           (.NOT. wrk_release(3, 1,2,3,4,5)) )THEN 
     305      IF( wrk_not_released(2, 2,3,4,5) .OR. & 
     306          wrk_not_released(3, 1,2,3,4,5) )THEN 
    307307         CALL ctl_stop('tmx_itf : failed to release workspace arrays.') 
    308308      END IF 
    … …  
    361361      !!---------------------------------------------------------------------- 
    362362 
    363       IF( .NOT. wrk_use(2, 1,2,3,4,5)  .OR.  .NOT. wrk_use(3, 1)  ) THEN 
     363      IF( wrk_in_use(2, 1,2,3,4,5)  .OR.  wrk_in_use(3, 1)  ) THEN 
    364364         CALL ctl_stop('zdf_tmx_init : requested workspace arrays unavailable.')   ;   RETURN 
    365365      END IF 
    … …  
    525525      ENDIF 
    526526      ! 
    527       IF(.NOT. wrk_release(2, 1,2,3,4,5) .OR.   & 
    528          .NOT. wrk_release(3, 1)          )   CALL ctl_stop( 'zdf_tmx_init : failed to release workspace arrays' ) 
     527      IF(wrk_not_released(2, 1,2,3,4,5) .OR.   & 
     528         wrk_not_released(3, 1)          )   CALL ctl_stop( 'zdf_tmx_init : failed to release workspace arrays' ) 
    529529      ! 
    530530   END SUBROUTINE zdf_tmx_init 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90

    r2632 r2633  
    1313 
    1414   PUBLIC wrk_alloc   ! routine called in nemogcm module (nemo_init routine) 
    15    PUBLIC wrk_use,     llwrk_use,     iwrk_use,     wrk_use_xz 
    16    PUBLIC wrk_release, llwrk_release, iwrk_release, wrk_release_xz 
     15   PUBLIC wrk_in_use, llwrk_in_use, iwrk_in_use, wrk_in_use_xz 
     16   PUBLIC wrk_not_released, llwrk_not_released, iwrk_not_released, wrk_not_released_xz 
    1717 
    1818   INTEGER, PARAMETER :: num_1d_wrkspaces  = 27   ! No. of 1D workspace arrays ( MAX(jpi*jpj,jpi*jpk,jpj*jpk) ) 
    … …  
    190190 
    191191 
    192    FUNCTION wrk_use( kdim,    index1,  index2,  index3,  index4,    & 
    193       &              index5,  index6,  index7,  index8,  index9,    & 
    194       &              index10, index11, index12, index13, index14,   & 
    195       &              index15, index16, index17, index18, index19,   & 
    196       &              index20, index21, index22, index23, index24,   & 
    197       &              index25, index26, index27) 
    198       !!---------------------------------------------------------------------- 
    199       !!                   ***  FUNCTION wrk_use  *** 
     192   FUNCTION wrk_in_use( kdim,    index1,  index2,  index3,  index4,    & 
     193      &                 index5,  index6,  index7,  index8,  index9,    & 
     194      &                 index10, index11, index12, index13, index14,   & 
     195      &                 index15, index16, index17, index18, index19,   & 
     196      &                 index20, index21, index22, index23, index24,   & 
     197      &                 index25, index26, index27) 
     198      !!---------------------------------------------------------------------- 
     199      !!                   ***  FUNCTION wrk_in_use  *** 
    200200      !! 
    201201      !! ** Purpose :   Request a set of KIND(wp) workspaces to use. Returns  
    … …  
    210210      INTEGER, OPTIONAL, INTENT(in) ::   index21, index22, index23, index24, index25, index26, index27 
    211211      ! 
    212       LOGICAL ::   wrk_use      ! Return value 
     212      LOGICAL ::   wrk_in_use      ! Return value 
    213213      INTEGER ::   iarg, iptr   ! local integer 
    214214      !!---------------------------------------------------------------------- 
    215215 
    216       wrk_use = .TRUE. 
     216      wrk_in_use = .TRUE. 
    217217      iptr    = index1 
    218218      iarg    = 1 
    219219       
    220       DO WHILE( wrk_use .AND. iarg <= max_num_wrkspaces ) 
     220      DO WHILE( wrk_in_use .AND. iarg <= max_num_wrkspaces ) 
    221221         ! 
    222222         IF( kdim == 1 ) THEN 
    223223            IF( iptr > num_1d_wrkspaces ) THEN 
    224                CALL wrk_stop('wrk_use - more 1D workspace arrays requested than defined in wrk_nemo module') 
    225                wrk_use = .FALSE. 
     224               CALL wrk_stop('wrk_in_use - more 1D workspace arrays requested than defined in wrk_nemo module') 
     225               wrk_in_use = .FALSE. 
    226226               EXIT 
    227227            ELSEIF( in_use_1d(iptr) ) THEN 
    228                wrk_use = .FALSE. 
     228               wrk_in_use = .FALSE. 
    229229               CALL print_in_use_list(1, REAL_TYPE, in_use_1d) 
    230230            ENDIF 
    … …  
    233233         ELSEIF( kdim == 2 ) THEN 
    234234            IF( iptr > num_2d_wrkspaces ) THEN 
    235                CALL wrk_stop('wrk_use - more 2D workspace arrays requested than defined in wrk_nemo module') 
    236                wrk_use = .FALSE. 
     235               CALL wrk_stop('wrk_in_use - more 2D workspace arrays requested than defined in wrk_nemo module') 
     236               wrk_in_use = .FALSE. 
    237237               EXIT 
    238238            ELSEIF( in_use_2d(iptr) ) THEN 
    239                wrk_use = .FALSE. 
     239               wrk_in_use = .FALSE. 
    240240               CALL print_in_use_list(2, REAL_TYPE, in_use_2d) 
    241241            ENDIF 
    … …  
    244244         ELSEIF( kdim == 3 ) THEN 
    245245            IF( iptr > num_3d_wrkspaces ) THEN 
    246                CALL wrk_stop( 'wrk_use - more 3D workspace arrays requested than defined in wrk_nemo module' ) 
    247                wrk_use = .FALSE. 
     246               CALL wrk_stop( 'wrk_in_use - more 3D workspace arrays requested than defined in wrk_nemo module' ) 
     247               wrk_in_use = .FALSE. 
    248248               EXIT 
    249249            ELSEIF( in_use_3d(iptr) ) THEN 
    250                wrk_use = .FALSE. 
     250               wrk_in_use = .FALSE. 
    251251               CALL print_in_use_list(3, REAL_TYPE, in_use_3d) 
    252252            ENDIF 
    … …  
    255255         ELSEIF( kdim == 4 ) THEN 
    256256            IF(iptr > num_4d_wrkspaces)THEN 
    257                CALL wrk_stop( 'wrk_use - more 4D workspace arrays requested than defined in wrk_nemo module' ) 
    258                wrk_use = .FALSE. 
     257               CALL wrk_stop( 'wrk_in_use - more 4D workspace arrays requested than defined in wrk_nemo module' ) 
     258               wrk_in_use = .FALSE. 
    259259               EXIT 
    260260            ELSEIF( in_use_4d(iptr) ) THEN 
    261                wrk_use = .FALSE. 
     261               wrk_in_use = .FALSE. 
    262262               CALL print_in_use_list( 4, REAL_TYPE, in_use_4d ) 
    263263            ENDIF 
    … …  
    266266            ! 
    267267         ELSE  
    268             IF(llwp) WRITE(kumout,*) 'wrk_use: unsupported value of kdim = ',kdim 
    269             CALL wrk_stop( 'wrk_use: unrecognised value for number of dimensions' ) 
     268            IF(llwp) WRITE(kumout,*) 'wrk_in_use: unsupported value of kdim = ',kdim 
     269            CALL wrk_stop( 'wrk_in_use: unrecognised value for number of dimensions' ) 
    270270         END IF 
    271271 
    … …  
    280280            EXIT 
    281281         ELSEIF( iarg == -99 ) THEN 
    282             CALL wrk_stop( 'wrk_use : caught unexpected argument count - BUG' ) 
     282            CALL wrk_stop( 'wrk_in_use : caught unexpected argument count - BUG' ) 
    283283            EXIT 
    284284         END IF 
    … …  
    286286      END DO ! end of DO WHILE() 
    287287      ! 
    288     END FUNCTION wrk_use 
    289  
    290  
    291    FUNCTION llwrk_use( kdim,   index1, index2, index3, index4,   & 
    292       &                index5, index6, index7, index8, index9) 
    293       !!---------------------------------------------------------------------- 
    294       !!                   ***  FUNCTION llwrk_use  *** 
     288    END FUNCTION wrk_in_use 
     289 
     290 
     291   FUNCTION llwrk_in_use( kdim,   index1, index2, index3, index4,   & 
     292      &                   index5, index6, index7, index8, index9) 
     293      !!---------------------------------------------------------------------- 
     294      !!                   ***  FUNCTION llwrk_in_use  *** 
    295295      !! 
    296296      !! ** Purpose :   Request a set of LOGICAL workspaces to use. Returns  
    … …  
    303303      INTEGER, OPTIONAL, INTENT(in) :: index2, index3, index4, index5, index6, index7, index8, index9 
    304304      ! 
    305       LOGICAL ::   llwrk_use     ! Return value 
     305      LOGICAL ::   llwrk_in_use  ! Return value 
    306306      INTEGER ::   iarg, iptr    ! local integers 
    307307      !!---------------------------------------------------------------------- 
    308308      ! 
    309       llwrk_use = .TRUE. 
     309      llwrk_in_use = .TRUE. 
    310310      iptr      = index1 
    311311      iarg      = 1 
    312312      ! 
    313       DO WHILE( llwrk_use .AND. iarg <= max_num_wrkspaces ) 
     313      DO WHILE( llwrk_in_use .AND. iarg <= max_num_wrkspaces ) 
    314314         ! 
    315315         IF( kdim == 2 ) THEN 
    316316            IF(iptr > num_2d_lwrkspaces)THEN 
    317                CALL wrk_stop('llwrk_use - more 2D workspace arrays requested than defined in wrk_nemo module') 
    318                llwrk_use = .FALSE. 
     317               CALL wrk_stop('llwrk_in_use - more 2D workspace arrays requested than defined in wrk_nemo module') 
     318               llwrk_in_use = .FALSE. 
    319319               EXIT 
    320320            ELSE IF( in_use_2dll(iptr) )THEN 
    321                llwrk_use = .FALSE. 
     321               llwrk_in_use = .FALSE. 
    322322               CALL print_in_use_list(2, REAL_TYPE, in_use_2d) 
    323323            END IF 
    … …  
    327327            ! 
    328328            IF(iptr > num_3d_lwrkspaces)THEN 
    329                CALL wrk_stop('llwrk_use - more 3D workspace arrays requested than defined in wrk_nemo module') 
    330                llwrk_use = .FALSE. 
     329               CALL wrk_stop('llwrk_in_use - more 3D workspace arrays requested than defined in wrk_nemo module') 
     330               llwrk_in_use = .FALSE. 
    331331               EXIT 
    332332            ELSE IF( in_use_3dll(iptr) )THEN 
    333                llwrk_use = .FALSE. 
     333               llwrk_in_use = .FALSE. 
    334334               CALL print_in_use_list(3, REAL_TYPE, in_use_3d) 
    335335            END IF 
    … …  
    337337            in_use_3dll(iptr) = .TRUE. 
    338338         ELSE  
    339             IF(llwp) WRITE(kumout,*) 'llwrk_use: unsupported value of kdim = ',kdim 
    340             CALL wrk_stop('llwrk_use: unrecognised value for number of dimensions') 
     339            IF(llwp) WRITE(kumout,*) 'llwrk_in_use: unsupported value of kdim = ',kdim 
     340            CALL wrk_stop('llwrk_in_use: unrecognised value for number of dimensions') 
    341341         END IF 
    342342 
    … …  
    347347            EXIT 
    348348         ELSEIF( iarg == -99 ) THEN 
    349             CALL wrk_stop( 'llwrk_use - ERROR, caught unexpected argument count - BUG' ) 
    350             EXIT 
    351          ENDIF 
    352          ! 
    353       END DO ! while(llwrk_use .AND. iarg <= max_num_wrkspaces) 
    354       ! 
    355    END FUNCTION llwrk_use 
    356  
    357  
    358    FUNCTION iwrk_use( kdim, index1, index2, index3, index4,   & 
    359       &                     index5, index6, index7 ) 
    360       !!---------------------------------------------------------------------- 
    361       !!                   ***  FUNCTION iwrk_use  *** 
     349            CALL wrk_stop( 'llwrk_in_use - ERROR, caught unexpected argument count - BUG' ) 
     350            EXIT 
     351         ENDIF 
     352         ! 
     353      END DO ! while(llwrk_in_use .AND. iarg <= max_num_wrkspaces) 
     354      ! 
     355   END FUNCTION llwrk_in_use 
     356 
     357 
     358   FUNCTION iwrk_in_use( kdim, index1, index2, index3, index4,   & 
     359      &                        index5, index6, index7 ) 
     360      !!---------------------------------------------------------------------- 
     361      !!                   ***  FUNCTION iwrk_in_use  *** 
    362362      !! 
    363363      !! ** Purpose :   Request a set of INTEGER workspaces to use. Returns  
    … …  
    370370      INTEGER, OPTIONAL, INTENT(in) ::   index2, index3, index4, index5, index6, index7 
    371371      ! 
    372       LOGICAL             :: iwrk_use    ! Return value 
     372      LOGICAL             :: iwrk_in_use    ! Return value 
    373373      INTEGER :: iarg, iptr 
    374374      !!---------------------------------------------------------------------- 
    375375 
    376       iwrk_use = .TRUE. 
     376      iwrk_in_use = .TRUE. 
    377377      iptr     = index1 
    378378      iarg     = 1 
    379379       
    380       DO WHILE( iwrk_use .AND. iarg <= max_num_wrkspaces ) 
     380      DO WHILE( iwrk_in_use .AND. iarg <= max_num_wrkspaces ) 
    381381         ! 
    382382         IF( kdim == 2 ) THEN 
    383383            IF( iptr > num_2d_wrkspaces ) THEN 
    384                CALL wrk_stop( 'wrk_use - more 2D workspace arrays requested than defined in wrk_nemo module' ) 
    385                iwrk_use = .FALSE. 
     384               CALL wrk_stop( 'wrk_in_use - more 2D workspace arrays requested than defined in wrk_nemo module' ) 
     385               iwrk_in_use = .FALSE. 
    386386            ELSEIF( in_use_2di(iptr) ) THEN 
    387                iwrk_use = .FALSE. 
     387               iwrk_in_use = .FALSE. 
    388388               CALL print_in_use_list( 2, INTEGER_TYPE, in_use_2di ) 
    389389            END IF 
    … …  
    391391            ! 
    392392         ELSE 
    393             IF(llwp) WRITE(kumout,*) 'iwrk_use: unsupported value of kdim = ',kdim 
    394             CALL wrk_stop('iwrk_use: unsupported value for number of dimensions') 
     393            IF(llwp) WRITE(kumout,*) 'iwrk_in_use: unsupported value of kdim = ',kdim 
     394            CALL wrk_stop('iwrk_in_use: unsupported value for number of dimensions') 
    395395         END IF 
    396396 
    … …  
    424424            EXIT 
    425425         CASE DEFAULT 
    426             CALL wrk_stop( 'iwrk_use : caught unexpected argument count - BUG' ) 
     426            CALL wrk_stop( 'iwrk_in_use : caught unexpected argument count - BUG' ) 
    427427            EXIT 
    428428         END SELECT 
    … …  
    430430      END DO ! end of DO WHILE() 
    431431      ! 
    432     END FUNCTION iwrk_use 
    433  
    434  
    435    FUNCTION wrk_use_xz( index1, index2, index3, index4,   & 
    436       &                 index5, index6, index7, index8, index9 ) 
    437       !!---------------------------------------------------------------------- 
    438       !!                   ***  FUNCTION wrk_use_xz  *** 
     432    END FUNCTION iwrk_in_use 
     433 
     434 
     435   FUNCTION wrk_in_use_xz( index1, index2, index3, index4,   & 
     436      &                    index5, index6, index7, index8, index9 ) 
     437      !!---------------------------------------------------------------------- 
     438      !!                   ***  FUNCTION wrk_in_use_xz  *** 
    439439      !! 
    440440      !! ** Purpose :   Request a set of 2D, xz (jpi,jpk) workspaces to use.  
    … …  
    447447      INTEGER, OPTIONAL, INTENT(in) :: index2, index3, index4, index5, index6, index7, index8, index9 
    448448      ! Local variables 
    449       LOGICAL ::   wrk_use_xz   ! Return value 
    450       INTEGER ::   iarg, iptr   ! local integer 
    451       !!---------------------------------------------------------------------- 
    452  
    453       wrk_use_xz = .TRUE. 
     449      LOGICAL ::   wrk_in_use_xz   ! Return value 
     450      INTEGER ::   iarg, iptr      ! local integer 
     451      !!---------------------------------------------------------------------- 
     452 
     453      wrk_in_use_xz = .TRUE. 
    454454      iptr       = index1 
    455455      iarg       = 1 
    456456        
    457       DO WHILE( wrk_use_xz .AND. iarg <= max_num_wrkspaces ) 
     457      DO WHILE( wrk_in_use_xz .AND. iarg <= max_num_wrkspaces ) 
    458458         ! 
    459459         IF(iptr > num_xz_wrkspaces)THEN 
    460             CALL wrk_stop('wrk_use_xz - more 2D xz workspace arrays requested than defined in wrk_nemo module') 
    461             wrk_use_xz = .FALSE. 
     460            CALL wrk_stop('wrk_in_use_xz - more 2D xz workspace arrays requested than defined in wrk_nemo module') 
     461            wrk_in_use_xz = .FALSE. 
    462462            EXIT 
    463463         ELSE IF( in_use_xz(iptr) )THEN 
    464             wrk_use_xz = .FALSE. 
     464            wrk_in_use_xz = .FALSE. 
    465465            CALL print_in_use_list(2, REAL_TYPE, in_use_xz) !ARPDBG - bug 
    466466         END IF 
    … …  
    474474            EXIT 
    475475         ELSEIF( iarg == -99 ) THEN 
    476             CALL wrk_stop( 'wrk_use_xz : caught unexpected argument count - BUG' )   ;   EXIT 
     476            CALL wrk_stop( 'wrk_in_use_xz : caught unexpected argument count - BUG' )   ;   EXIT 
    477477         END IF 
    478478         ! 
    479       END DO ! while(wrk_use_xz .AND. iarg <= max_num_wrkspaces) 
    480       ! 
    481    END FUNCTION wrk_use_xz 
    482  
    483  
    484    FUNCTION wrk_release( kdim,    index1,  index2,  index3,  index4,  & 
    485       &                  index5,  index6,  index7,  index8,  index9,  & 
    486       &                  index10, index11, index12, index13, index14, & 
    487       &                  index15, index16, index17, index18, index19, & 
    488       &                  index20, index21, index22, index23, index24, & 
    489       &                  index25, index26, index27) 
    490       !!---------------------------------------------------------------------- 
    491       !!                 ***  FUNCTION wrk_release  *** 
     479      END DO ! while(wrk_in_use_xz .AND. iarg <= max_num_wrkspaces) 
     480      ! 
     481   END FUNCTION wrk_in_use_xz 
     482 
     483 
     484   FUNCTION wrk_not_released( kdim,    index1,  index2,  index3,  index4,  & 
     485      &                       index5,  index6,  index7,  index8,  index9,  & 
     486      &                       index10, index11, index12, index13, index14, & 
     487      &                       index15, index16, index17, index18, index19, & 
     488      &                       index20, index21, index22, index23, index24, & 
     489      &                       index25, index26, index27) 
     490      !!---------------------------------------------------------------------- 
     491      !!                 ***  FUNCTION wrk_not_released  *** 
    492492      !! 
    493493      !! ** Purpose :   Flag that the specified workspace arrays are no-longer in use. 
    494494      !!---------------------------------------------------------------------- 
    495       LOGICAL             :: wrk_release ! Return value 
     495      LOGICAL             :: wrk_not_released ! Return value 
    496496      INTEGER, INTENT(in) :: kdim             ! Dimensionality of workspace(s) 
    497497      INTEGER, INTENT(in) :: index1           ! Index of 1st workspace to release 
    … …  
    503503      !!---------------------------------------------------------------------- 
    504504 
    505       wrk_release = .TRUE. 
     505      wrk_not_released = .TRUE. 
    506506      iptr = index1 
    507507      iarg = 1 
    … …  
    511511         IF( kdim == 1 ) THEN 
    512512            IF( iptr > num_1d_wrkspaces ) THEN 
    513                CALL wrk_stop( 'wrk_release : attempt to release a non-existent 1D workspace array' ) 
    514                wrk_release = .FALSE. 
     513               CALL wrk_stop( 'wrk_not_released : attempt to release a non-existent 1D workspace array' ) 
     514               wrk_not_released = .FALSE. 
    515515            ELSE 
    516516               in_use_1d(iptr) = .FALSE. 
    … …  
    519519         ELSE IF(kdim == 2)THEN 
    520520            IF( iptr > num_2d_wrkspaces ) THEN 
    521                CALL wrk_stop( 'wrk_release : attempt to release a non-existent 2D workspace array' ) 
    522                wrk_release = .FALSE. 
     521               CALL wrk_stop( 'wrk_not_released : attempt to release a non-existent 2D workspace array' ) 
     522               wrk_not_released = .FALSE. 
    523523            ENDIF 
    524524            in_use_2d(iptr) = .FALSE. 
    … …  
    526526         ELSEIF( kdim == 3 ) THEN 
    527527            IF( iptr > num_3d_wrkspaces ) THEN 
    528                CALL wrk_stop('wrk_release : attempt to release a non-existent 3D workspace array') 
    529                wrk_release = .FALSE. 
     528               CALL wrk_stop('wrk_not_released : attempt to release a non-existent 3D workspace array') 
     529               wrk_not_released = .FALSE. 
    530530            END IF 
    531531            in_use_3d(iptr) = .FALSE. 
    … …  
    533533          ELSEIF( kdim == 4 ) THEN 
    534534            IF(iptr > num_4d_wrkspaces)THEN 
    535                CALL wrk_stop('wrk_release - ERROR - attempt to release a non-existent 4D workspace array') 
    536                wrk_release = .FALSE. 
     535               CALL wrk_stop('wrk_not_released - ERROR - attempt to release a non-existent 4D workspace array') 
     536               wrk_not_released = .FALSE. 
    537537            END IF 
    538538            in_use_4d(iptr) = .FALSE. 
    539539            ! 
    540540         ELSE  
    541             IF(llwp) WRITE(kumout,*) 'wrk_release: unsupported value of kdim = ',kdim 
    542             CALL wrk_stop('wrk_release: unrecognised value for number of dimensions') 
     541            IF(llwp) WRITE(kumout,*) 'wrk_not_released: unsupported value of kdim = ',kdim 
     542            CALL wrk_stop('wrk_not_released: unrecognised value for number of dimensions') 
    543543         ENDIF 
    544544          
    … …  
    555555            EXIT 
    556556         ELSEIF( iarg == -99 ) THEN 
    557              CALL wrk_stop('wrk_release - caught unexpected argument count - BUG')   ;   EXIT 
     557             CALL wrk_stop('wrk_not_released - caught unexpected argument count - BUG')   ;   EXIT 
    558558         END IF 
    559559         ! 
    560560      END DO ! end of DO WHILE() 
    561561      ! 
    562    END FUNCTION wrk_release 
    563  
    564  
    565    FUNCTION llwrk_release( kdim, index1, index2, index3, index4, index5,   & 
    566       &                          index6, index7, index8, index9 ) 
    567       !!---------------------------------------------------------------------- 
    568       !!                 ***  FUNCTION wrk_release  *** 
     562   END FUNCTION wrk_not_released 
     563 
     564 
     565   FUNCTION llwrk_not_released( kdim, index1, index2, index3, index4, index5,   & 
     566      &                               index6, index7, index8, index9 ) 
     567      !!---------------------------------------------------------------------- 
     568      !!                 ***  FUNCTION wrk_not_released  *** 
    569569      !!---------------------------------------------------------------------- 
    570570      INTEGER          , INTENT(in) ::   kdim             ! Dimensionality of workspace(s) 
    … …  
    572572      INTEGER, OPTIONAL, INTENT(in) ::   index2, index3, index4, index5, index6, index7, index8, index9 
    573573      ! 
    574       LOGICAL ::   llwrk_release   ! Return value 
    575       INTEGER ::   iarg, iptr      ! local integer 
    576       !!---------------------------------------------------------------------- 
    577       ! 
    578       llwrk_release = .TRUE. 
     574      LOGICAL ::   llwrk_not_released   ! Return value 
     575      INTEGER ::   iarg, iptr           ! local integer 
     576      !!---------------------------------------------------------------------- 
     577      ! 
     578      llwrk_not_released = .TRUE. 
    579579      iptr = index1 
    580580      iarg = 1 
    … …  
    585585            ! 
    586586            IF( iptr > num_2d_lwrkspaces ) THEN 
    587                CALL wrk_stop( 'llwrk_release : attempt to release a non-existent 2D workspace array' ) 
    588                llwrk_release = .FALSE. 
     587               CALL wrk_stop( 'llwrk_not_released : attempt to release a non-existent 2D workspace array' ) 
     588               llwrk_not_released = .FALSE. 
    589589               EXIT 
    590590            ENDIF 
    … …  
    593593         ELSEIF( kdim == 3 ) THEN 
    594594            IF( iptr > num_3d_lwrkspaces ) THEN 
    595                CALL wrk_stop('llwrk_release : attempt to release a non-existent 3D workspace array') 
    596                llwrk_release = .FALSE. 
     595               CALL wrk_stop('llwrk_not_released : attempt to release a non-existent 3D workspace array') 
     596               llwrk_not_released = .FALSE. 
    597597               EXIT 
    598598            ENDIF 
    … …  
    600600            ! 
    601601         ELSE  
    602             IF(llwp) WRITE(kumout,*) 'llwrk_release: unsupported value of kdim = ', kdim 
    603             CALL wrk_stop( 'llwrk_release : unrecognised value for number of dimensions' ) 
     602            IF(llwp) WRITE(kumout,*) 'llwrk_not_released: unsupported value of kdim = ', kdim 
     603            CALL wrk_stop( 'llwrk_not_released : unrecognised value for number of dimensions' ) 
    604604         END IF 
    605605         ! 
    … …  
    611611             EXIT 
    612612         ELSEIF( iarg == -99 ) THEN 
    613             CALL wrk_stop( 'llwrk_release : caught unexpected argument count - BUG' )   ;   EXIT 
     613            CALL wrk_stop( 'llwrk_not_released : caught unexpected argument count - BUG' )   ;   EXIT 
    614614         ENDIF 
    615615         ! 
    616616      END DO ! while (iarg <= max_num_wrkspaces) 
    617617      ! 
    618    END FUNCTION llwrk_release 
    619  
    620  
    621    FUNCTION iwrk_release( kdim, index1, index2, index3, index4,   & 
    622       &                         index5, index6, index7 ) 
    623       !!---------------------------------------------------------------------- 
    624       !!                 ***  FUNCTION iwrk_release  *** 
     618   END FUNCTION llwrk_not_released 
     619 
     620 
     621   FUNCTION iwrk_not_released( kdim, index1, index2, index3, index4,   & 
     622      &                              index5, index6, index7 ) 
     623      !!---------------------------------------------------------------------- 
     624      !!                 ***  FUNCTION iwrk_not_released  *** 
    625625      !! 
    626626      !! ** Purpose :   Flag that the specified INTEGER workspace arrays are 
    … …  
    631631      INTEGER, OPTIONAL, INTENT(in) :: index2, index3, index4, index5, index6, index7 
    632632      ! 
    633       LOGICAL :: iwrk_release   ! Return value 
    634       INTEGER :: iarg, iptr     ! local integer 
    635       !!---------------------------------------------------------------------- 
    636       ! 
    637       iwrk_release = .TRUE. 
     633      LOGICAL :: iwrk_not_released   ! Return value 
     634      INTEGER :: iarg, iptr          ! local integer 
     635      !!---------------------------------------------------------------------- 
     636      ! 
     637      iwrk_not_released = .TRUE. 
    638638      iptr         = index1 
    639639      iarg         = 1 
    … …  
    643643         IF( kdim == 2 ) THEN 
    644644            IF( iptr > num_2d_iwrkspaces ) THEN 
    645                CALL wrk_stop('iwrk_release : attempt to release a non-existant 2D workspace array') 
    646                iwrk_release = .FALSE. 
     645               CALL wrk_stop('iwrk_not_released : attempt to release a non-existant 2D workspace array') 
     646               iwrk_not_released = .FALSE. 
    647647            ENDIF 
    648648            in_use_2di(iptr) = .FALSE. 
    649649         ELSE  
    650             IF(llwp) WRITE(kumout,*) 'iwrk_release: unsupported value of kdim = ',kdim 
    651             CALL wrk_stop('iwrk_release: unsupported value for number of dimensions') 
     650            IF(llwp) WRITE(kumout,*) 'iwrk_not_released: unsupported value of kdim = ',kdim 
     651            CALL wrk_stop('iwrk_not_released: unsupported value for number of dimensions') 
    652652         ENDIF 
    653653         ! 
    … …  
    681681            EXIT 
    682682         CASE DEFAULT 
    683             CALL wrk_stop( 'iwrk_release : caught unexpected argument count - BUG' ) 
     683            CALL wrk_stop( 'iwrk_not_released : caught unexpected argument count - BUG' ) 
    684684            EXIT 
    685685         END SELECT 
    … …  
    687687      END DO ! end of DO WHILE() 
    688688      ! 
    689    END FUNCTION iwrk_release 
    690  
    691  
    692    FUNCTION wrk_release_xz( index1, index2, index3, index4, index5,   & 
    693       &                     index6, index7, index8, index9 ) 
    694       !!---------------------------------------------------------------------- 
    695       !!                 ***  FUNCTION wrk_release_xz  *** 
     689   END FUNCTION iwrk_not_released 
     690 
     691 
     692   FUNCTION wrk_not_released_xz( index1, index2, index3, index4, index5,   & 
     693      &                          index6, index7, index8, index9 ) 
     694      !!---------------------------------------------------------------------- 
     695      !!                 ***  FUNCTION wrk_not_released_xz  *** 
    696696      !! 
    697697      !!---------------------------------------------------------------------- 
    … …  
    699699      INTEGER, OPTIONAL, INTENT(in) :: index2, index3, index4, index5, index6, index7, index8, index9 
    700700      ! 
    701       LOGICAL ::   wrk_release_xz   ! Return value 
    702       INTEGER ::   iarg, iptr       ! local integer 
    703       !!---------------------------------------------------------------------- 
    704       ! 
    705       wrk_release_xz = .TRUE. 
     701      LOGICAL ::   wrk_not_released_xz   ! Return value 
     702      INTEGER ::   iarg, iptr            ! local integer 
     703      !!---------------------------------------------------------------------- 
     704      ! 
     705      wrk_not_released_xz = .TRUE. 
    706706      iptr           = index1 
    707707      iarg           = 1 
    … …  
    710710         ! 
    711711         IF( iptr > num_xz_wrkspaces ) THEN 
    712             CALL wrk_stop('wrk_release_xz : attempt to release a non-existant 2D xz workspace array') 
    713             wrk_release_xz = .FALSE. 
     712            CALL wrk_stop('wrk_not_released_xz : attempt to release a non-existant 2D xz workspace array') 
     713            wrk_not_released_xz = .FALSE. 
    714714            EXIT 
    715715         ENDIF 
    … …  
    723723            EXIT 
    724724         ELSEIF( iarg == -99 ) THEN 
    725             CALL wrk_stop('wrk_release_xz : caught unexpected argument count - BUG') 
     725            CALL wrk_stop('wrk_not_released_xz : caught unexpected argument count - BUG') 
    726726            EXIT 
    727727         END IF 
    … …  
    729729      END DO ! while (iarg <= max_num_wrkspaces) 
    730730      ! 
    731    END FUNCTION wrk_release_xz 
     731   END FUNCTION wrk_not_released_xz 
    732732 
    733733 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/C14b/trcsms_c14b.F90

    r2630 r2633  
    114114     !! 
    115115     !!---------------------------------------------------------------------- 
    116      USE wrk_nemo, ONLY: wrk_use, wrk_release 
     116     USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    117117     USE wrk_nemo, ONLY: zatmbc14 => wrk_2d_1 
    118118     USE wrk_nemo, ONLY:     zw3d => wrk_3d_1 
    … …  
    146146      !!---------------------------------------------------------------------- 
    147147 
    148       IF( (.NOT. wrk_use(2, 1)) .OR. (.NOT. wrk_use(3, 1)) )THEN 
     148      IF( wrk_in_use(2, 1) .OR. wrk_in_use(3, 1) )THEN 
    149149         CALL ctl_stop('trc_sms_c14b : requested workspace arrays unavailable.') 
    150150         RETURN 
    … …  
    331331      END IF 
    332332 
    333       IF( (.NOT. wrk_release(2, 1)) .OR. (.NOT. wrk_release(3, 1)) )THEN 
     333      IF( wrk_not_released(2, 1) .OR. wrk_not_released(3, 1) )THEN 
    334334         CALL ctl_stop('trc_sms_c14b : failed to release workspace arrays.') 
    335335      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

    r2614 r2633  
    9595      !!                CFC concentration in pico-mol/m3 
    9696      !!---------------------------------------------------------------------- 
    97       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     97      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    9898      USE wrk_nemo, ONLY: ztrcfc => wrk_3d_1        ! use for CFC sms trend 
    9999      !! 
    … …  
    115115      !!---------------------------------------------------------------------- 
    116116 
    117       IF(.NOT. wrk_use(3, 1))THEN 
     117      IF(wrk_in_use(3, 1))THEN 
    118118         CALL ctl_stop('trc_sms_cfc : requested workspace array unavailable.') 
    119119         RETURN 
    … …  
    218218      END IF 
    219219 
    220       IF(.NOT. wrk_release(3, 1))THEN 
     220      IF(wrk_not_released(3, 1))THEN 
    221221         CALL ctl_stop('trc_sms_cfc : failed to release workspace array.') 
    222222      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcbio.F90

    r2609 r2633  
    6060      !!              for passive tracers are saved for futher diagnostics. 
    6161      !!--------------------------------------------------------------------- 
    62       USE wrk_nemo, ONLY: wrk_use,  wrk_release 
     62      USE wrk_nemo, ONLY: wrk_in_use,  wrk_not_released 
    6363      USE wrk_nemo, ONLY: wrk_3d_2, wrk_4d_1 
    6464      !! 
    … …  
    8686 
    8787#if defined key_diatrc && defined key_iomput 
    88       IF( (.NOT. wrk_use(3, 2)) .OR. (.NOT. wrk_use(4, 1)) )THEN 
     88      IF( wrk_in_use(3, 2) .OR. wrk_in_use(4, 1) )THEN 
    8989         CALL ctl_stop('trc_bio : requested workspace arrays unavailable.') 
    9090         RETURN 
    … …  
    500500      ! 
    501501#if defined key_diatrc && defined key_iomput 
    502       IF( (.NOT. wrk_release(3, 2)) .OR. (.NOT. wrk_release(4, 1)) )THEN 
     502      IF( wrk_not_released(3, 2) .OR. wrk_not_released(4, 1) )THEN 
    503503         CALL ctl_stop('trc_bio : failed to release workspace arrays.') 
    504504      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90

    r2609 r2633  
    4343      !! ** purpose :   specific initialisation for LOBSTER bio-model 
    4444      !!---------------------------------------------------------------------- 
    45       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     45      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    4646      USE wrk_nemo, ONLY: zrro => wrk_2d_1, zdm0 => wrk_3d_1 
    4747      !! 
    … …  
    5050      !!---------------------------------------------------------------------- 
    5151 
    52       IF( (.NOT. wrk_use(2, 1)) .OR. (.NOT. wrk_use(3, 1)) )THEN 
     52      IF( wrk_in_use(2, 1) .OR. wrk_in_use(3, 1) )THEN 
    5353         CALL ctl_stop('trc_ini_lobster : requested workspace arrays unavailable.') 
    5454         RETURN 
    … …  
    259259      IF(lwp) WRITE(numout,*) ' ' 
    260260 
    261       IF( (.NOT. wrk_release(2, 1)) .OR. (.NOT. wrk_release(3, 1)) )THEN 
     261      IF( wrk_not_released(2, 1) .OR. wrk_not_released(3, 1) )THEN 
    262262         CALL ctl_stop('trc_ini_lobster : failed to release workspace arrays.') 
    263263      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcopt.F90

    r2609 r2633  
    5252      !!                xze    ??? 
    5353      !!--------------------------------------------------------------------- 
    54       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     54      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    5555      USE wrk_nemo, ONLY: zpar100 => wrk_2d_1, & ! irradiance at euphotic layer depth 
    5656                          zpar0m  => wrk_2d_2    ! irradiance just below the surface 
    … …  
    6868      !!--------------------------------------------------------------------- 
    6969 
    70       IF( (.NOT. wrk_use(2, 1,2)) .OR. (.NOT. wrk_use(3, 2,3)) )THEN 
     70      IF( (wrk_in_use(2, 1,2)) .OR. (wrk_in_use(3, 2,3)) )THEN 
    7171         CALL ctl_stop('trc_opt : requested workspace arrays unavailable.') 
    7272         RETURN 
    … …  
    138138      ENDIF 
    139139      ! 
    140       IF( (.NOT. wrk_release(2, 1,2)) .OR. (.NOT. wrk_release(3, 2,3)) )THEN 
     140      IF( (wrk_not_released(2, 1,2)) .OR. (wrk_not_released(3, 2,3)) )THEN 
    141141         CALL ctl_stop('trc_opt : failed to release workspace arrays.') 
    142142      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcsed.F90

    r2609 r2633  
    5656      !!              trend of passive tracers is saved for futher diagnostics. 
    5757      !!--------------------------------------------------------------------- 
    58       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     58      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    5959      USE wrk_nemo, ONLY: zwork => wrk_3d_2 
    6060      USE wrk_nemo, ONLY: zw2d  => wrk_2d_1 ! only used (if defined  
    … …  
    6969      !!--------------------------------------------------------------------- 
    7070 
    71       IF( (.NOT. wrk_use(3,2)) .OR. (.NOT. wrk_use(2,1)) )THEN 
     71      IF( (wrk_in_use(3,2)) .OR. (wrk_in_use(2,1)) )THEN 
    7272         CALL ctl_stop('trc_sed : requested workspace arrays unavailable.') 
    7373         RETURN 
    … …  
    150150      ENDIF 
    151151 
    152       IF( (.NOT. wrk_release(3,2)) .OR. (.NOT. wrk_release(2,1)) )THEN 
     152      IF( (wrk_not_released(3,2)) .OR. (wrk_not_released(2,1)) )THEN 
    153153         CALL ctl_stop('trc_sed : failed to release workspace arrays.') 
    154154      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcsms_lobster.F90

    r2609 r2633  
    4646      !! ** Method  : - ??? 
    4747      !! -------------------------------------------------------------------- 
    48       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     48      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    4949      USE wrk_nemo, ONLY: ztrlob => wrk_3d_1   ! used for lobster sms trends 
    5050      !! 
    … …  
    5353      !! -------------------------------------------------------------------- 
    5454 
    55       IF(.NOT. wrk_use(3,1))THEN 
     55      IF(wrk_in_use(3,1))THEN 
    5656         CALL ctl_stop('trc_sms_lobster : requested workspace array unavailable.') 
    5757         RETURN 
    … …  
    7272      IF( lk_trdmld_trc )  CALL trd_mld_bio( kt )   ! trends: Mixed-layer 
    7373 
    74       IF(.NOT. wrk_release(3,1))THEN 
     74      IF(wrk_not_released(3,1))THEN 
    7575         CALL ctl_stop('trc_sms_lobster : failed to release workspace array.') 
    7676      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

    r2608 r2633  
    7474      !! ** Method  : - Update the tracer with the advection term following nadv 
    7575      !!---------------------------------------------------------------------- 
    76       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     76      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    7777      USE wrk_nemo, ONLY: zun => wrk_3d_1, zvn => wrk_3d_2, & 
    7878                          zwn => wrk_3d_3   ! effective velocity 
    … …  
    8484      !!---------------------------------------------------------------------- 
    8585 
    86       IF(.NOT. wrk_use(3, 1,2,3))THEN 
     86      IF(wrk_in_use(3, 1,2,3))THEN 
    8787         CALL ctl_stop('trc_adv : requested workspace arrays unavailable.') 
    8888         RETURN 
    … …  
    150150      END IF 
    151151      ! 
    152       IF(.NOT. wrk_release(3, 1,2,3))THEN 
     152      IF(wrk_not_released(3, 1,2,3))THEN 
    153153         CALL ctl_stop('trc_adv : failed to release workspace arrays.') 
    154154      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

    r2608 r2633  
    6060      !! 
    6161      !!---------------------------------------------------------------------- 
    62       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     62      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    6363      USE wrk_nemo, zemps => wrk_2d_1 
    6464      !! * Arguments 
    … …  
    7272      !!---------------------------------------------------------------------- 
    7373 
    74       IF(.NOT. wrk_use(2, 1))THEN 
     74      IF(wrk_in_use(2, 1))THEN 
    7575         CALL ctl_stop('trc_sbc: requested workspace array unavailable.') 
    7676         RETURN 
    … …  
    126126      ENDIF 
    127127 
    128       IF(.NOT. wrk_release(2, 1))THEN 
     128      IF(wrk_not_released(2, 1))THEN 
    129129         CALL ctl_stop('trc_sbc: failed to release workspace array.') 
    130130      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/TRP/trdmld_trc.F90

    r2610 r2633  
    116116      !!            surface and the control surface is called "mixed-layer" 
    117117      !!---------------------------------------------------------------------- 
    118       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     118      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    119119      USE wrk_nemo, ONLY: zvlmsk => wrk_2d_1 
    120120      !! 
    … …  
    125125      !!---------------------------------------------------------------------- 
    126126 
    127       IF(.NOT. wrk_use(2, 1))THEN 
     127      IF(wrk_in_use(2, 1))THEN 
    128128         CALL ctl_stop('trd_mld_trc_zint : requested workspace array unavailable.') 
    129129         RETURN 
    … …  
    213213      END SELECT 
    214214 
    215       IF(.NOT. wrk_release(2, 1))THEN 
     215      IF(wrk_not_released(2, 1))THEN 
    216216         CALL ctl_stop('trd_mld_trc_zint : failed to release workspace array.') 
    217217      END IF 
    … …  
    237237      !!            surface and the control surface is called "mixed-layer" 
    238238      !!---------------------------------------------------------------------- 
    239       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     239      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    240240      USE wrk_nemo, ONLY: zvlmsk => wrk_2d_1 
    241241      !! 
    … …  
    247247      !!---------------------------------------------------------------------- 
    248248 
    249       IF(.NOT. wrk_use(2, 1))THEN 
     249      IF(wrk_in_use(2, 1))THEN 
    250250         CALL ctl_stop('trd_mld_bio_zint : requested workspace array unavailable.') 
    251251         RETURN 
    … …  
    332332      END DO 
    333333 
    334       IF(.NOT. wrk_release(2, 1))THEN 
     334      IF(wrk_not_released(2, 1))THEN 
    335335         CALL ctl_stop('trd_mld_bio_zint : failed to release workspace array.') 
    336336      END IF 
    … …  
    387387      !!       - See NEMO documentation (in preparation) 
    388388      !!---------------------------------------------------------------------- 
    389       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     389      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    390390      USE wrk_nemo, wrk_3d_1, wrk_3d_2, wrk_3d_3, wrk_3d_4, & 
    391391                    wrk_3d_5, wrk_3d_6, wrk_3d_7, wrk_3d_8, & 
    … …  
    414414      !!---------------------------------------------------------------------- 
    415415 
    416       IF(.NOT. wrk_use(3, 1,2,3,4,5,6,7,8,9))THEN 
     416      IF(wrk_in_use(3, 1,2,3,4,5,6,7,8,9))THEN 
    417417         CALL ctl_stop('trd_mld_trc : requested workspace arrays unavailable.') 
    418418         RETURN 
    … …  
    916916      IF( lrst_trc )   CALL trd_mld_trc_rst_write( kt )  ! this must be after the array swap above (III.3) 
    917917 
    918       IF(.NOT. wrk_release(3, 1,2,3,4,5,6,7,8,9))THEN 
     918      IF(wrk_not_released(3, 1,2,3,4,5,6,7,8,9))THEN 
    919919         CALL ctl_stop('trd_mld_trc : failed to release workspace arrays.') 
    920920      END IF 

  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90

    r2607 r2633  
    6262      !!                it must looks like: CALL prt_ctl( mask=tmask ). 
    6363      !!---------------------------------------------------------------------- 
    64       USE wrk_nemo, ONLY: wrk_use, wrk_release 
     64      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    6565      USE wrk_nemo, ONLY: zmask => wrk_3d_1, ztab3d => wrk_3d_2 
    6666      !! 
    … …  
    7878      !!---------------------------------------------------------------------- 
    7979 
    80       IF(.NOT. wrk_use(3, 1,2))THEN 
     80      IF(wrk_in_use(3, 1,2))THEN 
    8181         CALL ctl_stop('prt_ctl_trc : requested workspace arrays unavailable.') 
    8282         RETURN 
    … …  
    158158      END DO 
    159159      ! 
    160       IF(.NOT. wrk_release(3, 1,2))THEN 
     160      IF(wrk_not_released(3, 1,2))THEN 
    161161         CALL ctl_stop('prt_ctl_trc : failed to release workspace arrays.') 
    162162      END IF 
Note: See TracChangeset for help on using the changeset viewer.