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 8373 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90 – NEMO

Ignore:
Timestamp:
2017-07-25T19:44:54+02:00 (7 years ago)
Author:
clem
Message:

remove most of wrk_alloc

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r8316 r8373  
    8383      INTEGER    :: i_hemis, i_fill, jl0 
    8484      REAL(wp)   :: zarg, zV, zconv, zdv 
    85       REAL(wp), POINTER, DIMENSION(:,:)   :: zswitch    ! ice indicator 
    86       REAL(wp), POINTER, DIMENSION(:,:)   :: zht_i_ini, zat_i_ini, zvt_i_ini            !data from namelist or nc file 
    87       REAL(wp), POINTER, DIMENSION(:,:)   :: zts_u_ini, zht_s_ini, zsm_i_ini, ztm_i_ini !data from namelist or nc file 
    88       REAL(wp), POINTER, DIMENSION(:,:,:) :: zh_i_ini, za_i_ini                         !data by cattegories to fill 
    89       INTEGER , POINTER, DIMENSION(:)     :: itest 
    90       !-------------------------------------------------------------------- 
    91  
    92       CALL wrk_alloc( jpi, jpj, jpl, zh_i_ini,  za_i_ini ) 
    93       CALL wrk_alloc( jpi, jpj,      zht_i_ini, zat_i_ini, zvt_i_ini, zts_u_ini, zht_s_ini, zsm_i_ini, ztm_i_ini ) 
    94       CALL wrk_alloc( jpi, jpj,      zswitch ) 
    95       Call wrk_alloc( 4,             itest ) 
     85      REAL(wp), DIMENSION(jpi,jpj)     :: zswitch    ! ice indicator 
     86      REAL(wp), DIMENSION(jpi,jpj)     :: zht_i_ini, zat_i_ini, zvt_i_ini            !data from namelist or nc file 
     87      REAL(wp), DIMENSION(jpi,jpj)     :: zts_u_ini, zht_s_ini, zsm_i_ini, ztm_i_ini !data from namelist or nc file 
     88      REAL(wp), DIMENSION(jpi,jpj,jpl) :: zh_i_ini, za_i_ini                         !data by cattegories to fill 
     89      INTEGER , DIMENSION(4)           :: itest 
     90      !-------------------------------------------------------------------- 
    9691 
    9792      IF(lwp) WRITE(numout,*) 
    … …  
    503498!!!       
    504499 
    505       CALL wrk_dealloc( jpi, jpj, jpl, zh_i_ini,  za_i_ini ) 
    506       CALL wrk_dealloc( jpi, jpj,      zht_i_ini, zat_i_ini, zvt_i_ini, zts_u_ini, zht_s_ini, zsm_i_ini, ztm_i_ini ) 
    507       CALL wrk_dealloc( jpi, jpj,      zswitch ) 
    508       Call wrk_dealloc( 4,             itest ) 
    509  
    510500   END SUBROUTINE lim_istate 
    511501 
Note: See TracChangeset for help on using the changeset viewer.