Changeset 8746


Ignore:
Timestamp:
2017-11-20T10:37:30+01:00 (3 years ago)
Author:
timgraham
Message:

Added obs_averg_h2d.F90 to the branch and Bug fixes to get AGRIF sette tests to compile

Location:
branches/2017/dev_r8657_UKMO_OBSoper/NEMOGCM/NEMO/OPA_SRC/OBS
Files:
1 added
1 edited

Legend:

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

    r8667 r8746  
    239239                  fbdata%ivlqc(ik,jo,jvar) = IBSET(profdata%var(jvar)%nvqc(jk),2) 
    240240                  fbdata%ivlqcf(1,ik,jo,jvar) = profdata%var(jvar)%nvqcf(1,jk) 
     241!$AGRIF_DO_NOT_TREAT 
    241242                  fbdata%ivlqcf(2,ik,jo,jvar) = IAND(profdata%var(jvar)%nvqc(jk),b'0000 0000 1111 1111') 
     243!$AGRIF_END_DO_NOT_TREAT 
    242244               ELSE 
    243245                  fbdata%ivlqc(ik,jo,jvar) = profdata%var(jvar)%nvqc(jk) 
     
    469471            fbdata%ioqc(jo)    = 4 
    470472            fbdata%ioqcf(1,jo) = 0 
     473!$AGRIF_DO_NOT_TREAT 
    471474            fbdata%ioqcf(2,jo) = IAND(surfdata%nqc(jo),b'0000 0000 1111 1111') 
     475!$AGRIF_END_DO_NOT_TREAT 
    472476         ELSE 
    473477            fbdata%ioqc(jo)    = surfdata%nqc(jo) 
     
    505509            fbdata%ivlqc(1,jo,1)    = 4 
    506510            fbdata%ivlqcf(1,1,jo,1) = 0 
     511!$AGRIF_DO_NOT_TREAT 
    507512            fbdata%ivlqcf(2,1,jo,1) = IAND(surfdata%nqc(jo),b'0000 0000 1111 1111') 
     513!$AGRIF_END_DO_NOT_TREAT 
    508514         ELSE 
    509515            fbdata%ivqc(jo,1)       = surfdata%nqc(jo) 
Note: See TracChangeset for help on using the changeset viewer.