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 2640 – NEMO

Changeset 2640


Ignore:
Timestamp:
2011-03-02T19:28:05+01:00 (12 years ago)
Author:
cetlod
Message:

remove unused functions llwrk_in_use/llwrk_not_released in albedo.F90 module

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

    r2636 r2640  
    6565      !! References :   Shine and Hendersson-Sellers 1985, JGR, 90(D1), 2243-2250. 
    6666      !!---------------------------------------------------------------------- 
    67       USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released, llwrk_in_use, llwrk_not_released 
     67      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    6868      USE wrk_nemo, ONLY:   wrk_3d_6, wrk_3d_7    ! 3D workspace 
    6969      !! 
     
    9191      ijpl = SIZE( pt_ice, 3 )                     ! number of ice categories 
    9292 
    93       IF( llwrk_in_use(3,1) .OR. wrk_in_use(3, 6,7) ) THEN 
     93      IF( wrk_in_use(3, 6,7) ) THEN 
    9494         CALL ctl_stop('albedo_ice: requested workspace arrays are unavailable')   ;   RETURN 
    9595      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.