Changeset 7644

Timestamp:

2017-02-03T17:34:00+01:00 (8 years ago)

Author:

cbricaud

Message:

fix ticket #1843 in dev_merge_2016

File:

• branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90 (modified) (2 diffs)

branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90

@@ -1251 +1251 @@
 
       ! At the end of the day get interpolated means
-      IF ( idayend == 0 .AND. ldnightav ) THEN
-
-         ALLOCATE( &
-            & zsurfm(2,2,isurf)  &
-            & )
-
-         CALL obs_int_comm_2d( 2, 2, isurf, kpi, kpj, igrdi, igrdj, &
-            &               surfdataqc%vdmean(:,:), zsurfm )
-
+      IF (ldnightav ) THEN
+         IF ( idayend == 0 ) THEN
+
+            ALLOCATE( &
+               & zsurfm(2,2,isurf)  &
+               & )
+
+            CALL obs_int_comm_2d( 2, 2, isurf, kpi, kpj, igrdi, igrdj, &
+               &               surfdataqc%vdmean(:,:), zsurfm )
+
+         ENDIF
       ENDIF
 
@@ -1322 +1324 @@
 
       ! At the end of the day also deallocate night-time mean array
-      IF ( idayend == 0 .AND. ldnightav ) THEN
-         DEALLOCATE( &
-            & zsurfm  &
-            & )
+      IF ( ldnightav ) THEN
+         IF ( idayend == 0 ) THEN
+            DEALLOCATE( &
+               & zsurfm  &
+               & )
+         ENDIF
       ENDIF