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 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90 – NEMO

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

Renamed wrk_use => wrk_in_use and wrk_release => wrk_not_released

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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 
Note: See TracChangeset for help on using the changeset viewer.