New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9003 for branches/2017/dev_METO_MERCATOR_2017_agrif/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90 – NEMO

Ignore:
Timestamp:
2017-12-13T11:02:16+01:00 (7 years ago)
Author:
timgraham
Message:

Fix for ifort issue in obs_write

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_METO_MERCATOR_2017_agrif/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90

    r8992 r9003  
    240240                  fbdata%ivlqcf(1,ik,jo,jvar) = profdata%var(jvar)%nvqcf(1,jk) 
    241241!$AGRIF_DO_NOT_TREAT 
    242                   fbdata%ivlqcf(2,ik,jo,jvar) = IAND(profdata%var(jvar)%nvqc(jk),b'0000 0000 1111 1111') 
     242                  fbdata%ivlqcf(2,ik,jo,jvar) = IAND(profdata%var(jvar)%nvqc(jk),b'0000000011111111') 
    243243!$AGRIF_END_DO_NOT_TREAT 
    244244               ELSE 
     
    472472            fbdata%ioqcf(1,jo) = 0 
    473473!$AGRIF_DO_NOT_TREAT 
    474             fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000 0000 1111 1111') 
     474            fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000000011111111') 
    475475!$AGRIF_END_DO_NOT_TREAT 
    476476         ELSE 
     
    510510            fbdata%ivlqcf(1,1,jo,1) = 0 
    511511!$AGRIF_DO_NOT_TREAT 
    512             fbdata%ivlqcf(2,1,jo,1) = IAND(surfdata%nqc(jo),b'0000 0000 1111 1111') 
     512            fbdata%ivlqcf(2,1,jo,1) = IAND(surfdata%nqc(jo),b'0000000011111111') 
    513513!$AGRIF_END_DO_NOT_TREAT 
    514514         ELSE 
Note: See TracChangeset for help on using the changeset viewer.