Changeset 9003

Timestamp:

2017-12-13T11:02:16+01:00 (7 years ago)

Author:

timgraham

Message:

Fix for ifort issue in obs_write

File:

• branches/2017/dev_METO_MERCATOR_2017_agrif/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90 (modified) (3 diffs)

branches/2017/dev_METO_MERCATOR_2017_agrif/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90

@@ -240 +240 @@
                   fbdata%ivlqcf(1,ik,jo,jvar) = profdata%var(jvar)%nvqcf(1,jk)
 !$AGRIF_DO_NOT_TREAT
-                  fbdata%ivlqcf(2,ik,jo,jvar) = IAND(profdata%var(jvar)%nvqc(jk),b'0000 0000 1111 1111')
+                  fbdata%ivlqcf(2,ik,jo,jvar) = IAND(profdata%var(jvar)%nvqc(jk),b'0000000011111111')
 !$AGRIF_END_DO_NOT_TREAT
                ELSE
@@ -472 +472 @@
             fbdata%ioqcf(1,jo) = 0
 !$AGRIF_DO_NOT_TREAT
-            fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000 0000 1111 1111')
+            fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000000011111111')
 !$AGRIF_END_DO_NOT_TREAT
          ELSE
@@ -510 +510 @@
             fbdata%ivlqcf(1,1,jo,1) = 0
 !$AGRIF_DO_NOT_TREAT
-            fbdata%ivlqcf(2,1,jo,1) = IAND(surfdata%nqc(jo),b'0000 0000 1111 1111')
+            fbdata%ivlqcf(2,1,jo,1) = IAND(surfdata%nqc(jo),b'0000000011111111')
 !$AGRIF_END_DO_NOT_TREAT
          ELSE