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

Ignore:
Timestamp:
2017-12-19T09:47:17+01:00 (6 years ago)
Author:
timgraham
Message:

Removed wrk_arrays from whole code. No change in SETTE results from this.

File:
1 edited

Legend:

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

    r9019 r9125  
    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(:,:,:), ALLOCATABLE ::   zsurf, zsurfmsk, zmask   
    490487      !!----------------------------------------------------------------   
    491488      ! 
     
    496493      CASE ( 'VOL' ) 
    497494         ! 
    498          CALL wrk_alloc( jpi,jpj,jpk,   zsurf, zsurfmsk ) 
     495         ALLOCATE( zsurf(jpi,jpj,jpk), zsurfmsk(jpi,jpj,jpk) ) 
    499496         !    
    500497         SELECT CASE ( cd_type ) 
     
    585582               END SELECT 
    586583 
    587               CALL wrk_dealloc( jpi, jpj, jpk, zsurf, zsurfmsk ) 
     584              DEALLOCATE( zsurf, zsurfmsk ) 
    588585 
    589586         CASE ( 'SUM' ) 
    590587          
    591             CALL wrk_alloc( jpi, jpj, jpk, zsurfmsk ) 
     588            ALLOCATE( zsurfmsk(jpi,jpj,jpk) ) 
    592589 
    593590            SELECT CASE ( cd_type ) 
     
    763760              ENDIF 
    764761 
    765               CALL wrk_dealloc( jpi, jpj, jpk, zsurfmsk ) 
     762              DEALLOCATE( zsurfmsk ) 
    766763 
    767764         CASE ( 'MAX' )    !  search the max of unmasked grid cells 
    768765 
    769             CALL wrk_alloc( jpi, jpj, jpk, zmask ) 
     766            ALLOCATE( zmask(jpi,jpj,jpk) ) 
    770767 
    771768            SELECT CASE ( cd_type ) 
     
    934931              END SELECT 
    935932 
    936               CALL wrk_dealloc( jpi, jpj, jpk, zmask ) 
     933              DEALLOCATE( zmask ) 
    937934 
    938935         CASE ( 'MIN' )      !   Search the min of unmasked grid cells 
    939936 
    940             CALL wrk_alloc( jpi, jpj, jpk, zmask ) 
     937            ALLOCATE( zmask(jpi,jpj,jpk) ) 
    941938 
    942939            SELECT CASE ( cd_type ) 
     
    11041101            END SELECT 
    11051102            ! 
    1106             CALL wrk_dealloc( jpi, jpj, jpk, zmask ) 
     1103            DEALLOCATE( zmask ) 
    11071104            ! 
    11081105         END SELECT 
     
    11491146      INTEGER  :: ijie, ijje, ii, ij, je_2 
    11501147      REAL(wp) :: zflcrs, zsfcrs    
    1151       REAL(wp), DIMENSION(:,:), POINTER :: zsurfmsk    
     1148      REAL(wp), DIMENSION(:,:), ALLOCATABLE :: zsurfmsk    
    11521149      !!----------------------------------------------------------------   
    11531150      ! 
     
    11581155        CASE ( 'VOL' ) 
    11591156       
    1160             CALL wrk_alloc( jpi, jpj, zsurfmsk ) 
     1157            ALLOCATE( zsurfmsk(jpi,jpj) ) 
    11611158            zsurfmsk(:,:) =  p_e12(:,:) * p_e3(:,:,1) * p_mask(:,:,1) 
    11621159 
     
    12221219            ENDDO 
    12231220 
    1224             CALL wrk_dealloc( jpi, jpj, zsurfmsk ) 
     1221            DEALLOCATE( zsurfmsk ) 
    12251222 
    12261223         CASE ( 'SUM' ) 
    12271224          
    1228             CALL wrk_alloc( jpi, jpj, zsurfmsk ) 
     1225            ALLOCATE( zsurfmsk(jpi,jpj) ) 
    12291226            IF( PRESENT( p_e3 ) ) THEN 
    12301227               zsurfmsk(:,:) =  p_e12(:,:) * p_e3(:,:,1) * p_mask(:,:,1) 
     
    13641361              ENDIF 
    13651362 
    1366               CALL wrk_dealloc( jpi, jpj, zsurfmsk ) 
     1363              DEALLOCATE( zsurfmsk ) 
    13671364 
    13681365         CASE ( 'MAX' ) 
     
    16441641      INTEGER ::  ijie, ijje, ii, ij, je_2 
    16451642      REAL(wp) :: ze3crs   
    1646       REAL(wp), DIMENSION(:,:,:), POINTER :: zmask, zsurf    
     1643      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zmask, zsurf    
    16471644 
    16481645      !!----------------------------------------------------------------   
     
    16511648       p_e3_max_crs(:,:,:) = 1. 
    16521649    
    1653  
    1654        CALL wrk_alloc( jpi, jpj, jpk, zmask, zsurf ) 
    16551650 
    16561651       SELECT CASE ( cd_type ) 
     
    17561751       CALL crs_lbc_lnk( p_e3_max_crs, cd_type, 1.0, pval=1.0 )   
    17571752       !               
    1758        CALL wrk_dealloc( jpi, jpj, jpk, zsurf, zmask ) 
    17591753       ! 
    17601754   END SUBROUTINE crs_dom_e3 
     
    17731767      INTEGER  :: ji, jj, jk                   ! dummy loop indices 
    17741768      INTEGER  :: ii, ij, je_2 
    1775       REAL(wp), DIMENSION(:,:,:), POINTER :: zsurf, zsurfmsk    
     1769      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zsurf, zsurfmsk    
    17761770      !!----------------------------------------------------------------   
    17771771      ! Initialize 
    17781772 
    1779  
    1780       CALL wrk_alloc( jpi, jpj, jpk, zsurf, zsurfmsk ) 
    17811773      ! 
    17821774      SELECT CASE ( cd_type ) 
     
    18671859      CALL crs_lbc_lnk( p_surf_crs    , cd_type, 1.0, pval=1.0 ) 
    18681860      CALL crs_lbc_lnk( p_surf_crs_msk, cd_type, 1.0, pval=1.0 ) 
    1869  
    1870       CALL wrk_dealloc( jpi, jpj, jpk, zsurfmsk, zsurf ) 
    18711861 
    18721862   END SUBROUTINE crs_dom_sfc 
     
    22362226      !!  local variables 
    22372227      INTEGER  :: ji,jj,jk      ! dummy indices 
    2238       REAL(wp), DIMENSION(:,:)  , POINTER :: zmbk 
     2228      REAL(wp), DIMENSION(jpi_crs, jpj_crs) :: zmbk 
    22392229      !!---------------------------------------------------------------- 
    2240     
    2241       CALL wrk_alloc( jpi_crs, jpj_crs, zmbk ) 
    22422230    
    22432231      mbathy_crs(:,:) = jpkm1 
     
    22812269      zmbk(:,:) = REAL( mbkv_crs(:,:), wp )   ;   CALL crs_lbc_lnk(zmbk,'V',1.0) ; mbkv_crs  (:,:) = MAX( INT( zmbk(:,:) ), 1 )  
    22822270      ! 
    2283       CALL wrk_dealloc( jpi_crs, jpj_crs, zmbk ) 
    2284       ! 
    22852271   END SUBROUTINE crs_dom_bat 
    22862272 
Note: See TracChangeset for help on using the changeset viewer.