Changeset 8882 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

Timestamp:

2017-12-01T18:44:09+01:00 (6 years ago)

Author:

flavoni

Message:

dev_CNRS_2017 branch: merged dev_r7881_ENHANCE09_RK3 with trunk r8864

File:

• branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90 (modified) (5 diffs)

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

@@ -28 +28 @@
    USE oce_trc         ! ocean dynamics and tracers variables
    USE trc             ! ocean passive tracers variables
-   USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
-   USE prtctl_trc      ! Print control for debbuging
    USE trd_oce
    USE trdtra
@@ -38 +36 @@
    USE agrif_top_interp
 # endif
+   !
+   USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
+   USE prtctl_trc      ! Print control for debbuging
 
    IMPLICIT NONE
    PRIVATE
 
-   PUBLIC   trc_nxt          ! routine called by step.F90
+   PUBLIC   trc_nxt   ! routine called by step.F90
 
    REAL(wp) ::   rfact1, rfact2
@@ -82 +83 @@
       REAL(wp) ::   zfact            ! temporary scalar
       CHARACTER (len=22) :: charout
-      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::  ztrdt 
+      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) ::   ztrdt    ! 4D workspace
       !!----------------------------------------------------------------------
       !
@@ -102 +103 @@
 
       IF( l_trdtrc )  THEN             ! trends: store now fields before the Asselin filter application
-         CALL wrk_alloc( jpi, jpj, jpk, jptra, ztrdt )
+         ALLOCATE( ztrdt(jpi,jpj,jpk,jptra) )
          ztrdt(:,:,:,:)  = trn(:,:,:,:)
       ENDIF
@@ -138 +139 @@
             END DO
          END DO
-         CALL wrk_dealloc( jpi, jpj, jpk, jptra, ztrdt ) 
+         DEALLOCATE( ztrdt ) 
       END IF
       !