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 3294 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90 – NEMO

Ignore:
Timestamp:
2012-01-28T17:44:18+01:00 (12 years ago)
Author:
rblod
Message:

Merge of 3.4beta into the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90

    r2777 r3294  
    2222   USE limvar           ! LIM variables 
    2323   USE in_out_manager   ! I/O manager 
    24    USE lib_mpp         ! MPP library 
     24   USE lib_mpp          ! MPP library 
     25   USE wrk_nemo         ! work arrays 
    2526 
    2627   IMPLICIT NONE 
     
    4950      !!               -> num_sal = 4 -> S = S(h)   [Cox and Weeks 74] 
    5051      !!--------------------------------------------------------------------- 
    51       USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    52       USE wrk_nemo, ONLY:   wrk_1d_1, wrk_1d_2, wrk_1d_3 
    53       ! 
    5452      INTEGER, INTENT(in) ::  kideb, kiut   ! thickness category index 
    5553      ! 
     
    5856      REAL(wp) ::   zsold, iflush, iaccrbo, igravdr, isnowic, i_ice_switch,  ztmelts   ! local scalars 
    5957      REAL(wp) ::   zaaa, zbbb, zccc, zdiscrim   ! local scalars 
    60       ! 
    6158      REAL(wp), POINTER, DIMENSION(:) ::   ze_init, zhiold, zsiold 
    6259      !!--------------------------------------------------------------------- 
    6360 
    64       IF(  wrk_in_use(1, 1,2,3)  ) THEN 
    65          CALL ctl_stop('lim_thd_sal : requestead workspace arrays unavailable.')   ;   RETURN 
    66       END IF 
    67       ! Set-up pointers to sub-arrays of workspace arrays 
    68       ze_init =>  wrk_1d_1 (1:jpij) 
    69       zhiold  =>  wrk_1d_2 (1:jpij) 
    70       zsiold  =>  wrk_1d_3 (1:jpij) 
     61      CALL wrk_alloc( jpij, ze_init, zhiold, zsiold ) 
    7162 
    7263      !------------------------------------------------------------------------------| 
     
    240231      ENDIF 
    241232      ! 
    242       IF( wrk_not_released(1, 1,2,3) )   CALL ctl_stop( 'lim_thd_sal : failed to release workspace arrays' ) 
     233      CALL wrk_dealloc( jpij, ze_init, zhiold, zsiold ) 
    243234      ! 
    244235   END SUBROUTINE lim_thd_sal 
Note: See TracChangeset for help on using the changeset viewer.