Changeset 13153 for NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DYN/dynldf_lap_blp.F90

Timestamp:

2020-06-24T15:23:31+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2482: fixes after testing with ifort

File:

• NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DYN/dynldf_lap_blp.F90 (modified) (4 diffs)

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DYN/dynldf_lap_blp.F90

@@ -25 +25 @@
    PUBLIC dyn_ldf_lap  ! called by dynldf.F90
    PUBLIC dyn_ldf_blp  ! called by dynldf.F90
+
+   REAL(wp), ALLOCATABLE, DIMENSION(:, :, :) :: zulap, zvlap
+   REAL(wp), ALLOCATABLE, DIMENSION(:, :) :: zcur, zdiv
 
    !! * Substitutions
@@ -55 +58 @@
       REAL(wp) ::   zsign        ! local scalars
       REAL(wp) ::   zua, zva     ! local scalars
-      REAL(wp), DIMENSION(jpi,jpj) ::   zcur, zdiv
-!     REAL(wp), ALLOCATABLE, DIMENSION(:, :) :: zcur, zdiv
+!     REAL(wp), DIMENSION(jpi,jpj) ::   zcur, zdiv
       !!----------------------------------------------------------------------
       !
@@ -65 +67 @@
             WRITE(numout,*) '~~~~~~~ '
          ENDIF
-!        ALLOCATE(zcur(jpi,jpj), zdiv(jpi,jpj))
+         IF(kpass == 1) ALLOCATE(zcur(jpi,jpj), zdiv(jpi,jpj))
       ENDIF
       !
@@ -127 +129 @@
       !
 !     REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zulap, zvlap   ! laplacian at u- and v-point
-      REAL(wp), ALLOCATABLE, DIMENSION(:, :, :) :: zulap, zvlap
       !!----------------------------------------------------------------------
       !