Changeset 10857

Timestamp:

2019-04-10T10:16:08+02:00 (6 years ago)

Author:

andmirek

Message:

fix for segfault error found by pgi compiler

File:

• NEMO/branches/UKMO/2018_NEMO4_beta_mirror_10037_Benchmark/src/OCE/SBC/sbcdcy.F90 (modified) (1 diff)

NEMO/branches/UKMO/2018_NEMO4_beta_mirror_10037_Benchmark/src/OCE/SBC/sbcdcy.F90

@@ -239 +239 @@
       END DO  
       !
-      IF( PRESENT(l_mask) .AND. l_mask ) THEN
-         zqsrout(:,:) = float(imask_night(:,:))
+      IF( PRESENT(l_mask) ) THEN
+         IF(l_mask) zqsrout(:,:) = float(imask_night(:,:))
       ENDIF
       !