Changeset 8746

Timestamp:

2017-11-20T10:37:30+01:00 (6 years ago)

Author:

timgraham

Message:

Added obs_averg_h2d.F90 to the branch and Bug fixes to get AGRIF sette tests to compile

Location:

branches/2017/dev_r8657_UKMO_OBSoper/NEMOGCM/NEMO/OPA_SRC/OBS

Files:

• obs_averg_h2d.F90 (added)
• obs_write.F90 (modified) (3 diffs)

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

@@ -239 +239 @@
                   fbdata%ivlqc(ik,jo,jvar) = IBSET(profdata%var(jvar)%nvqc(jk),2)
                   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')
+!$AGRIF_END_DO_NOT_TREAT
                ELSE
                   fbdata%ivlqc(ik,jo,jvar) = profdata%var(jvar)%nvqc(jk)
@@ -469 +471 @@
             fbdata%ioqc(jo)    = 4
             fbdata%ioqcf(1,jo) = 0
+!$AGRIF_DO_NOT_TREAT
             fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000 0000 1111 1111')
+!$AGRIF_END_DO_NOT_TREAT
          ELSE
             fbdata%ioqc(jo)    = surfdata%nqc(jo)
@@ -505 +509 @@
             fbdata%ivlqc(1,jo,1)    = 4
             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')
+!$AGRIF_END_DO_NOT_TREAT
          ELSE
             fbdata%ivqc(jo,1)       = surfdata%nqc(jo)