Changeset 2640

Timestamp:

2011-03-02T19:28:05+01:00 (13 years ago)

Author:

cetlod

Message:

remove unused functions llwrk_in_use/llwrk_not_released in albedo.F90 module

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90 (modified) (2 diffs)

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

@@ -65 +65 @@
       !! References :   Shine and Hendersson-Sellers 1985, JGR, 90(D1), 2243-2250.
       !!----------------------------------------------------------------------
-      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released, llwrk_in_use, llwrk_not_released
+      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
       USE wrk_nemo, ONLY:   wrk_3d_6, wrk_3d_7    ! 3D workspace
       !!
@@ -91 +91 @@
       ijpl = SIZE( pt_ice, 3 )                     ! number of ice categories
 
-      IF( llwrk_in_use(3,1) .OR. wrk_in_use(3, 6,7) ) THEN
+      IF( wrk_in_use(3, 6,7) ) THEN
          CALL ctl_stop('albedo_ice: requested workspace arrays are unavailable')   ;   RETURN
       ENDIF