Changeset 13487 for branches/UKMO/dev_r5518_obs_oper_update_utils366_fabmv1_v2/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90
- Timestamp:
- 2020-09-17T19:09:49+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update_utils366_fabmv1_v2/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90
r13393 r13487 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) … … 743 743 fbdata%ioqc(jo) = 4 744 744 fbdata%ioqcf(1,jo) = 0 745 fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000 0000 11111111')745 fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000000011111111') 746 746 ELSE 747 747 fbdata%ioqc(jo) = surfdata%nqc(jo) … … 784 784 fbdata%ivlqc(1,jo,jv) = 4 785 785 fbdata%ivlqcf(1,1,jo,jv) = 0 786 fbdata%ivlqcf(2,1,jo,jv) = IAND(surfdata%nqc(jo),b'0000 0000 11111111')786 fbdata%ivlqcf(2,1,jo,jv) = IAND(surfdata%nqc(jo),b'0000000011111111') 787 787 ELSE 788 788 fbdata%ivqc(jo,jv) = surfdata%nqc(jo)
Note: See TracChangeset
for help on using the changeset viewer.