Changeset 13452


Ignore:
Timestamp:
2020-09-07T18:52:08+02:00 (5 months ago)
Author:
dford
Message:

Fix for compiling with ifort.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update_utils366_fabmv1/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90

    r12610 r13452  
    349349                  fbdata%ivlqc(ik,jo,jvar) = IBSET(profdata%var(jvar)%nvqc(jk),2) 
    350350                  fbdata%ivlqcf(1,ik,jo,jvar) = profdata%var(jvar)%nvqcf(1,jk) 
    351                   fbdata%ivlqcf(2,ik,jo,jvar) = IAND(profdata%var(jvar)%nvqc(jk),b'0000 0000 1111 1111') 
     351                  fbdata%ivlqcf(2,ik,jo,jvar) = IAND(profdata%var(jvar)%nvqc(jk),b'0000000011111111') 
    352352               ELSE 
    353353                  fbdata%ivlqc(ik,jo,jvar) = profdata%var(jvar)%nvqc(jk) 
     
    724724            fbdata%ioqc(jo)    = 4 
    725725            fbdata%ioqcf(1,jo) = 0 
    726             fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000 0000 1111 1111') 
     726            fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000000011111111') 
    727727         ELSE 
    728728            fbdata%ioqc(jo)    = surfdata%nqc(jo) 
     
    759759            fbdata%ivlqc(1,jo,1)    = 4 
    760760            fbdata%ivlqcf(1,1,jo,1) = 0 
    761             fbdata%ivlqcf(2,1,jo,1) = IAND(surfdata%nqc(jo),b'0000 0000 1111 1111') 
     761            fbdata%ivlqcf(2,1,jo,1) = IAND(surfdata%nqc(jo),b'0000000011111111') 
    762762         ELSE 
    763763            fbdata%ivqc(jo,1)       = surfdata%nqc(jo) 
Note: See TracChangeset for help on using the changeset viewer.