Changeset 9003 for branches/2017/dev_METO_MERCATOR_2017_agrif/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90
- Timestamp:
- 2017-12-13T11:02:16+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_METO_MERCATOR_2017_agrif/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90
r8992 r9003 240 240 fbdata%ivlqcf(1,ik,jo,jvar) = profdata%var(jvar)%nvqcf(1,jk) 241 241 !$AGRIF_DO_NOT_TREAT 242 fbdata%ivlqcf(2,ik,jo,jvar) = IAND(profdata%var(jvar)%nvqc(jk),b'0000 0000 11111111')242 fbdata%ivlqcf(2,ik,jo,jvar) = IAND(profdata%var(jvar)%nvqc(jk),b'0000000011111111') 243 243 !$AGRIF_END_DO_NOT_TREAT 244 244 ELSE … … 472 472 fbdata%ioqcf(1,jo) = 0 473 473 !$AGRIF_DO_NOT_TREAT 474 fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000 0000 11111111')474 fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000000011111111') 475 475 !$AGRIF_END_DO_NOT_TREAT 476 476 ELSE … … 510 510 fbdata%ivlqcf(1,1,jo,1) = 0 511 511 !$AGRIF_DO_NOT_TREAT 512 fbdata%ivlqcf(2,1,jo,1) = IAND(surfdata%nqc(jo),b'0000 0000 11111111')512 fbdata%ivlqcf(2,1,jo,1) = IAND(surfdata%nqc(jo),b'0000000011111111') 513 513 !$AGRIF_END_DO_NOT_TREAT 514 514 ELSE
Note: See TracChangeset
for help on using the changeset viewer.