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/p4zmicro.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/p4zmicro.F90

    r9124 r9125  
    6969      REAL(wp) :: zgrazp, zgrazm, zgrazsd 
    7070      REAL(wp) :: zgrazmf, zgrazsf, zgrazpf 
    71       REAL(wp), POINTER, DIMENSION(:,:,:) :: zgrazing, zw3d 
     71      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zgrazing  
     72      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: zw3d 
    7273      CHARACTER (len=25) :: charout 
    7374      !!--------------------------------------------------------------------- 
    7475      ! 
    7576      IF( ln_timing )   CALL timing_start('p4z_micro') 
    76       ! 
    77       CALL wrk_alloc( jpi, jpj, jpk, zgrazing ) 
    7877      ! 
    7978      DO jk = 1, jpkm1 
     
    177176      IF( lk_iomput ) THEN 
    178177         IF( knt == nrdttrc ) THEN 
    179            CALL wrk_alloc( jpi, jpj, jpk, zw3d ) 
     178           ALLOCATE( zw3d(jpi,jpj,jpk) ) 
    180179           IF( iom_use( "GRAZ1" ) ) THEN 
    181180              zw3d(:,:,:) = zgrazing(:,:,:) * 1.e+3 * rfact2r * tmask(:,:,:)  !  Total grazing of phyto by zooplankton 
    182181              CALL iom_put( "GRAZ1", zw3d ) 
    183182           ENDIF 
    184            CALL wrk_dealloc( jpi, jpj, jpk, zw3d ) 
     183           DEALLOCATE( zw3d ) 
    185184         ENDIF 
    186185      ENDIF 
     
    191190         CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm) 
    192191      ENDIF 
    193       ! 
    194       CALL wrk_dealloc( jpi, jpj, jpk, zgrazing ) 
    195192      ! 
    196193      IF( ln_timing )   CALL timing_stop('p4z_micro') 
Note: See TracChangeset for help on using the changeset viewer.