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 7910 for branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90 – NEMO

Ignore:
Timestamp:
2017-04-13T16:21:08+02:00 (7 years ago)
Author:
timgraham
Message:

All wrk_alloc removed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90

    r7646 r7910  
    3636   USE par_kind 
    3737   USE crslbclnk 
    38    USE wrk_nemo       ! work arrays 
    3938   USE lib_mpp 
    4039 
     
    352351      INTEGER  ::   ji, jj, jk , ii, ij, je_2 
    353352      REAL(wp) ::   zdAm 
    354       REAL(wp), DIMENSION(:,:,:), POINTER ::   zvol, zmask       
     353      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zvol, zmask       
    355354      !!----------------------------------------------------------------   
    356355      ! 
    357       CALL wrk_alloc( jpi,jpj,jpk,   zvol, zmask ) 
    358356      ! 
    359357      p_fld1_crs(:,:,:) = 0._wp 
     
    445443      CALL crs_lbc_lnk( p_fld2_crs, cd_type, 1.0 )  
    446444      ! 
    447       CALL wrk_dealloc( jpi, jpj, jpk, zvol, zmask ) 
    448445      ! 
    449446   END SUBROUTINE crs_dom_facvol 
     
    487484      INTEGER  ::   ii, ij, ijie, ijje, je_2 
    488485      REAL(wp) ::   zflcrs, zsfcrs    
    489       REAL(wp), DIMENSION(:,:,:), POINTER ::   zsurf, zsurfmsk, zmask   
     486      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zsurf, zsurfmsk, zmask   
    490487      !!----------------------------------------------------------------   
    491488      ! 
     
    496493      CASE ( 'VOL' ) 
    497494         ! 
    498          CALL wrk_alloc( jpi,jpj,jpk,   zsurf, zsurfmsk ) 
    499495         !    
    500496         SELECT CASE ( cd_type ) 
     
    585581               END SELECT 
    586582 
    587               CALL wrk_dealloc( jpi, jpj, jpk, zsurf, zsurfmsk ) 
    588583 
    589584         CASE ( 'SUM' ) 
    590585          
    591             CALL wrk_alloc( jpi, jpj, jpk, zsurfmsk ) 
    592586 
    593587            SELECT CASE ( cd_type ) 
     
    763757              ENDIF 
    764758 
    765               CALL wrk_dealloc( jpi, jpj, jpk, zsurfmsk ) 
    766759 
    767760         CASE ( 'MAX' )    !  search the max of unmasked grid cells 
    768761 
    769             CALL wrk_alloc( jpi, jpj, jpk, zmask ) 
    770762 
    771763            SELECT CASE ( cd_type ) 
     
    934926              END SELECT 
    935927 
    936               CALL wrk_dealloc( jpi, jpj, jpk, zmask ) 
    937928 
    938929         CASE ( 'MIN' )      !   Search the min of unmasked grid cells 
    939930 
    940             CALL wrk_alloc( jpi, jpj, jpk, zmask ) 
    941931 
    942932            SELECT CASE ( cd_type ) 
     
    11041094            END SELECT 
    11051095            ! 
    1106             CALL wrk_dealloc( jpi, jpj, jpk, zmask ) 
    11071096            ! 
    11081097         END SELECT 
     
    11491138      INTEGER  :: ijie, ijje, ii, ij, je_2 
    11501139      REAL(wp) :: zflcrs, zsfcrs    
    1151       REAL(wp), DIMENSION(:,:), POINTER :: zsurfmsk    
     1140      REAL(wp), DIMENSION(jpi,jpj) :: zsurfmsk    
    11521141      !!----------------------------------------------------------------   
    11531142      ! 
     
    11581147        CASE ( 'VOL' ) 
    11591148       
    1160             CALL wrk_alloc( jpi, jpj, zsurfmsk ) 
    11611149            zsurfmsk(:,:) =  p_e12(:,:) * p_e3(:,:,1) * p_mask(:,:,1) 
    11621150 
     
    12221210            ENDDO 
    12231211 
    1224             CALL wrk_dealloc( jpi, jpj, zsurfmsk ) 
    12251212 
    12261213         CASE ( 'SUM' ) 
    12271214          
    1228             CALL wrk_alloc( jpi, jpj, zsurfmsk ) 
    12291215            IF( PRESENT( p_e3 ) ) THEN 
    12301216               zsurfmsk(:,:) =  p_e12(:,:) * p_e3(:,:,1) * p_mask(:,:,1) 
     
    13641350              ENDIF 
    13651351 
    1366               CALL wrk_dealloc( jpi, jpj, zsurfmsk ) 
    13671352 
    13681353         CASE ( 'MAX' ) 
     
    16441629      INTEGER ::  ijie, ijje, ii, ij, je_2 
    16451630      REAL(wp) :: ze3crs   
    1646       REAL(wp), DIMENSION(:,:,:), POINTER :: zmask, zsurf    
     1631      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zmask, zsurf    
    16471632 
    16481633      !!----------------------------------------------------------------   
     
    16521637    
    16531638 
    1654        CALL wrk_alloc( jpi, jpj, jpk, zmask, zsurf ) 
    16551639 
    16561640       SELECT CASE ( cd_type ) 
     
    17561740       CALL crs_lbc_lnk( p_e3_max_crs, cd_type, 1.0, pval=1.0 )   
    17571741       !               
    1758        CALL wrk_dealloc( jpi, jpj, jpk, zsurf, zmask ) 
    17591742       ! 
    17601743   END SUBROUTINE crs_dom_e3 
     
    17731756      INTEGER  :: ji, jj, jk                   ! dummy loop indices 
    17741757      INTEGER  :: ii, ij, je_2 
    1775       REAL(wp), DIMENSION(:,:,:), POINTER :: zsurf, zsurfmsk    
     1758      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zsurf, zsurfmsk    
    17761759      !!----------------------------------------------------------------   
    17771760      ! Initialize 
    17781761 
    17791762 
    1780       CALL wrk_alloc( jpi, jpj, jpk, zsurf, zsurfmsk ) 
    17811763      ! 
    17821764      SELECT CASE ( cd_type ) 
     
    18681850      CALL crs_lbc_lnk( p_surf_crs_msk, cd_type, 1.0, pval=1.0 ) 
    18691851 
    1870       CALL wrk_dealloc( jpi, jpj, jpk, zsurfmsk, zsurf ) 
    18711852 
    18721853   END SUBROUTINE crs_dom_sfc 
     
    22362217      !!  local variables 
    22372218      INTEGER  :: ji,jj,jk      ! dummy indices 
    2238       REAL(wp), DIMENSION(:,:)  , POINTER :: zmbk 
     2219      REAL(wp), DIMENSION(jpi_crs,jpj_crs)  :: zmbk 
    22392220      !!---------------------------------------------------------------- 
    22402221    
    2241       CALL wrk_alloc( jpi_crs, jpj_crs, zmbk ) 
    22422222    
    22432223      mbathy_crs(:,:) = jpkm1 
     
    22812261      zmbk(:,:) = REAL( mbkv_crs(:,:), wp )   ;   CALL crs_lbc_lnk(zmbk,'V',1.0) ; mbkv_crs  (:,:) = MAX( INT( zmbk(:,:) ), 1 )  
    22822262      ! 
    2283       CALL wrk_dealloc( jpi_crs, jpj_crs, zmbk ) 
    22842263      ! 
    22852264   END SUBROUTINE crs_dom_bat 
Note: See TracChangeset for help on using the changeset viewer.