Changeset 9125 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90

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:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90 (modified) (5 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRD/trdpen.F90

@@ -24 +24 @@
    USE iom            ! I/O manager library
    USE lib_mpp        ! MPP library
-   USE wrk_nemo       ! Memory allocation
 
    IMPLICIT NONE
@@ -70 +69 @@
       !
       INTEGER ::   jk                                            ! dummy loop indices
-      REAL(wp), POINTER, DIMENSION(:,:)      ::   z2d            ! 2D workspace 
-      REAL(wp), POINTER, DIMENSION(:,:,:)    ::   zpe            ! 3D workspace 
+      REAL(wp), ALLOCATABLE, DIMENSION(:,:)      ::   z2d            ! 2D workspace 
+      REAL(wp), DIMENSION(jpi,jpj,jpk)           ::   zpe            ! 3D workspace 
       !!----------------------------------------------------------------------
       !
-      CALL wrk_alloc( jpi, jpj, jpk, zpe )
       zpe(:,:,:) = 0._wp
       !
@@ -96 +94 @@
       CASE ( jptra_zad  )   ;   CALL iom_put( "petrd_zad", zpe )   ! vertical advection
                                 IF( ln_linssh ) THEN                   ! cst volume : adv flux through z=0 surface
-                                   CALL wrk_alloc( jpi, jpj, z2d )
+                                   ALLOCATE( z2d(jpi,jpj) )
                                    z2d(:,:) = wn(:,:,1) * ( &
                                      &   - ( rab_n(:,:,1,jp_tem) + rab_pe(:,:,1,jp_tem) ) * tsn(:,:,1,jp_tem)    &
@@ -102 +100 @@
                                      & ) / e3t_n(:,:,1)
                                    CALL iom_put( "petrd_sad" , z2d )
-                                   CALL wrk_dealloc( jpi, jpj, z2d )
+                                   DEALLOCATE( z2d )
                                 ENDIF
       CASE ( jptra_ldf  )   ;   CALL iom_put( "petrd_ldf" , zpe )   ! lateral  diffusion
@@ -115 +113 @@
       CASE ( jptra_atf  )   ;   CALL iom_put( "petrd_atf" , zpe )   ! asselin time filter (last trend)
                                 !IF( ln_linssh ) THEN                   ! cst volume : ssh term (otherwise include in e3t variation)
-                                !   CALL wrk_alloc( jpi, jpj, z2d )
+                                !   ALLOCATE( z2d(jpi,jpj) )
                                 !   z2d(:,:) = ( ssha(:,:) - sshb(:,:) )                 &
                                 !      &     * (   dPE_dt(:,:,1) * tsn(:,:,1,jp_tem)    &
                                 !      &         + dPE_ds(:,:,1) * tsn(:,:,1,jp_sal)  ) / ( e3t_n(:,:,1) * pdt )
                                 !   CALL iom_put( "petrd_sad" , z2d )
-                                !   CALL wrk_dealloc( jpi, jpj, z2d )
+                                !   DEALLOCATE( z2d )
                                 !ENDIF
          !
       END SELECT
       !
-      CALL wrk_dealloc( jpi, jpj, jpk, zpe )
       !
    END SUBROUTINE trd_pen