Changeset 13573 for branches

Timestamp:

2020-10-07T11:36:26+02:00 (4 years ago)

Author:

frrh

Message:

Avoid segfault in trdtra.F90

File:

• branches/UKMO/dev_r5518_GO6_package_cce877/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_cce877/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90

@@ -88 +88 @@
       !
       INTEGER  ::   jk   ! loop indices
-      REAL(wp), POINTER, DIMENSION(:,:,:)  ::   zwt, zws, ztrdt, ztrds   ! 3D workspace
-      !!----------------------------------------------------------------------
-      !
-      CALL wrk_alloc( jpi, jpj, jpk, ztrds )
+      REAL(wp), POINTER, DIMENSION(:,:,:)  ::   zwt, zws, ztrdt  ! 3D workspace
+      REAL(wp), DIMENSION(jpi,jpj,jpk)  ::   ztrds   ! 3D workspace ! RSRH special work space
+                                                                    ! Converting this from "standard" pointer
+                                                                    ! workspace avoids crash with Cray cce8.7.7
+                                                                    ! for no obvious reason. 
+                                                                    ! However, there's no point allocating 
+                                                                    ! and deallocating this separately
+                                                                    ! as it's not optional, AS PER
+                                                                    ! CURRENT NEMO 4.0 trunk!
+      !!----------------------------------------------------------------------
+      !
       !      
       IF( .NOT. ALLOCATED( trdtx ) ) THEN      ! allocate trdtra arrays
@@ -200 +207 @@
 # endif
       !
-      CALL wrk_dealloc( jpi, jpj, jpk, ztrds )
       !
    END SUBROUTINE trd_tra