Changeset 13452
- Timestamp:
- 2020-09-07T18:52:08+02:00 (4 years ago)
- 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 349 349 fbdata%ivlqc(ik,jo,jvar) = IBSET(profdata%var(jvar)%nvqc(jk),2) 350 350 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 11111111')351 fbdata%ivlqcf(2,ik,jo,jvar) = IAND(profdata%var(jvar)%nvqc(jk),b'0000000011111111') 352 352 ELSE 353 353 fbdata%ivlqc(ik,jo,jvar) = profdata%var(jvar)%nvqc(jk) … … 724 724 fbdata%ioqc(jo) = 4 725 725 fbdata%ioqcf(1,jo) = 0 726 fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000 0000 11111111')726 fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000000011111111') 727 727 ELSE 728 728 fbdata%ioqc(jo) = surfdata%nqc(jo) … … 759 759 fbdata%ivlqc(1,jo,1) = 4 760 760 fbdata%ivlqcf(1,1,jo,1) = 0 761 fbdata%ivlqcf(2,1,jo,1) = IAND(surfdata%nqc(jo),b'0000 0000 11111111')761 fbdata%ivlqcf(2,1,jo,1) = IAND(surfdata%nqc(jo),b'0000000011111111') 762 762 ELSE 763 763 fbdata%ivqc(jo,1) = surfdata%nqc(jo)
Note: See TracChangeset
for help on using the changeset viewer.