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_2/limthd_lac_2.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_2/limthd_lac_2.F90

    r2715 r3294  
    1515   USE limistate_2  
    1616   USE lib_mpp          ! MPP library 
     17   USE wrk_nemo         ! work arrays 
    1718 
    1819   IMPLICIT NONE 
     
    6869      !!   2.0  !  02-08 (C. Ethe, G. Madec)  F90, mpp 
    6970      !!------------------------------------------------------------------- 
    70       USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    71       USE wrk_nemo, ONLY: wrk_1d_1, wrk_1d_2, wrk_1d_3, wrk_1d_4, wrk_1d_5, wrk_1d_6 
    72       ! 
    7371      INTEGER , INTENT(IN)::  & 
    7472         kideb          ,   &  ! start point on which the the computation is applied 
     
    8179         iiceform       ,   &  !  1 = ice formed   ; 0 = no ice formed 
    8280         ihemis                !  dummy indice 
    83       REAL(wp), POINTER, DIMENSION(:) :: & 
    84          zqbgow           ,  &  !  heat budget of the open water (negative) 
    85          zfrl_old         ,  &  !  previous sea/ice fraction 
    86          zhice_old        ,  &  !  previous ice thickness 
    87          zhice0           ,  &  !  thickness of newly formed ice in leads 
    88          zfrlmin          ,  &  !  minimum fraction for leads 
    89          zdhicbot               !  part of thickness of newly formed ice in leads which  
     81      REAL(wp), POINTER, DIMENSION(:) ::   zqbgow      !  heat budget of the open water (negative) 
     82      REAL(wp), POINTER, DIMENSION(:) ::   zfrl_old    !  previous sea/ice fraction 
     83      REAL(wp), POINTER, DIMENSION(:) ::   zhice_old   !  previous ice thickness 
     84      REAL(wp), POINTER, DIMENSION(:) ::   zhice0      !  thickness of newly formed ice in leads 
     85      REAL(wp), POINTER, DIMENSION(:) ::   zfrlmin     !  minimum fraction for leads 
     86      REAL(wp), POINTER, DIMENSION(:) ::   zdhicbot    !  part of thickness of newly formed ice in leads which  
    9087                                !  has been already used in transport for example 
    9188      REAL(wp)  ::  & 
     
    104101      !!---------------------------------------------------------------------       
    105102                
    106       IF( wrk_in_use(1, 1,2,3,4,5,6) ) THEN 
    107          CALL ctl_stop('lim_thd_lac_2 : requestead workspace arrays unavailable')   ;   RETURN 
    108       ENDIF 
    109       ! Set-up pointers to sub-arrays of workspace arrays 
    110       zqbgow    => wrk_1d_1(1:jpij) 
    111       zfrl_old  => wrk_1d_2(1:jpij)          
    112       zhice_old => wrk_1d_3(1:jpij)         
    113       zhice0    => wrk_1d_4(1:jpij)         
    114       zfrlmin   => wrk_1d_5(1:jpij)         
    115       zdhicbot  => wrk_1d_6(1:jpij)  
     103      CALL wrk_alloc( jpij, zqbgow, zfrl_old, zhice_old, zhice0, zfrlmin, zdhicbot ) 
    116104       
    117105      !-------------------------------------------------------------- 
     
    232220      END DO 
    233221       
    234       IF( wrk_not_released(1, 1,2,3,4,5,6) )   CALL ctl_stop('lim_thd_lac_2 : failed to release workspace arrays.') 
     222      CALL wrk_dealloc( jpij, zqbgow, zfrl_old, zhice_old, zhice0, zfrlmin, zdhicbot ) 
    235223      ! 
    236224   END SUBROUTINE lim_thd_lac_2 
Note: See TracChangeset for help on using the changeset viewer.