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/TOP_SRC/PISCES/P4Z/p4zpoc.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/TOP_SRC/PISCES/P4Z/p4zpoc.F90

    r9124 r9125  
    6363      REAL(wp) ::   zrfact2 
    6464      CHARACTER (len=25) :: charout 
    65       REAL(wp), POINTER, DIMENSION(:,:  )   :: totprod, totthick, totcons  
    66       REAL(wp), POINTER, DIMENSION(:,:,:)   :: zremipoc, zremigoc, zorem3, ztremint 
    67       REAL(wp), POINTER, DIMENSION(:,:,:,:) :: alphag 
     65      REAL(wp), DIMENSION(jpi,jpj  )   :: totprod, totthick, totcons  
     66      REAL(wp), DIMENSION(jpi,jpj,jpk)   :: zremipoc, zremigoc, zorem3, ztremint 
     67      REAL(wp), DIMENSION(jpi,jpj,jpk,jcpoc) :: alphag 
    6868      !!--------------------------------------------------------------------- 
    6969      ! 
    7070      IF( ln_timing )  CALL timing_start('p4z_poc') 
    7171      ! 
    72       ! Allocate temporary workspace 
    73       CALL wrk_alloc( jpi, jpj,      totprod,  totthick, totcons ) 
    74       CALL wrk_alloc( jpi, jpj, jpk, zremipoc, zremigoc, zorem3, ztremint ) 
    75       ALLOCATE( alphag(jpi,jpj,jpk,jcpoc) ) 
    76  
    7772      ! Initialization of local variables 
    7873      ! --------------------------------- 
     
    465460      ENDIF 
    466461      ! 
    467       CALL wrk_dealloc( jpi, jpj,      totprod,  totthick, totcons ) 
    468       CALL wrk_dealloc( jpi, jpj, jpk, zremipoc, zremigoc, zorem3, ztremint ) 
    469       DEALLOCATE( alphag ) 
    470462      ! 
    471463      IF( ln_timing )   CALL timing_stop('p4z_poc') 
Note: See TracChangeset for help on using the changeset viewer.