Changeset 9125 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/C14/trcwri_c14.F90

Timestamp:

2017-12-19T09:47:17+01:00 (7 years ago)

Author:

timgraham

Message:

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

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/C14/trcwri_c14.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/C14/trcwri_c14.F90

@@ -36 +36 @@
       INTEGER              :: ji,jj,jk,jn   ! dummy loop indexes
       REAL(wp)             :: zage,zarea,ztemp   ! temporary
-      REAL(wp), POINTER, DIMENSION(:,:)   :: zres, z2d ! temporary storage 2D
-      REAL(wp), POINTER, DIMENSION(:,:,:) :: z3d , zz3d ! temporary storage 3D
+      REAL(wp), ALLOCATABLE, DIMENSION(:,:)   :: zres, z2d ! temporary storage 2D
+      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: z3d , zz3d ! temporary storage 3D
       !!---------------------------------------------------------------------
  
@@ -50 +50 @@
       IF( iom_use("DeltaC14") .OR. iom_use("C14Age") .OR. iom_use("RAge")   ) THEN
          !
-         CALL wrk_alloc( jpi, jpj     , z2d, zres )
-         CALL wrk_alloc( jpi, jpj, jpk, z3d, zz3d )
+         ALLOCATE( z2d(jpi,jpj), zres(jpi,jpj) )
+         ALLOCATE( z3d(jpi,jpj,jpk), zz3d(jpi,jpj,jpk) )
          !
          zage = -1._wp / rlam14 / rsiyea  ! factor for radioages in year
@@ -87 +87 @@
          CALL iom_put( "RAge" , zage * z2d(:,:) )                     ! Reservoir age [yr]
          !
-         CALL wrk_dealloc( jpi, jpj     , z2d, zres )
-         CALL wrk_dealloc( jpi, jpj, jpk, z3d, zz3d )
+         DEALLOCATE( z2d, zres, z3d, zz3d )
          !
       ENDIF