Changeset 9216


Ignore:
Timestamp:
2018-01-12T15:58:51+01:00 (3 years ago)
Author:
dford
Message:

Bug fixes to previous commit.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update_bgc3d/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90

    r9211 r9216  
    3636      & sbc_dcy, nday_qsr 
    3737   USE obs_grid,      ONLY : &  
    38       & obs_level_search    
    39    USE dom_oce                  ! Ocean space and time domain variables   
     38      & obs_level_search      
    4039 
    4140   IMPLICIT NONE 
     
    281280      CALL obs_int_comm_2d( 2, 2, ipro, kpi, kpj, igrdi, igrdj, plam, zglam ) 
    282281      CALL obs_int_comm_2d( 2, 2, ipro, kpi, kpj, igrdi, igrdj, pphi, zgphi ) 
     282      CALL obs_int_comm_3d( 2, 2, ipro, kpi, kpj, kpk, igrdi, igrdj, pmask, zmask ) 
    283283      CALL obs_int_comm_3d( 2, 2, ipro, kpi, kpj, kpk, igrdi, igrdj, pvar,   zint ) 
    284284 
     
    345345 
    346346                  ! vertically interpolate all 4 corners  
    347                   ista = prodatqc%npvsta(jobs,1)  
    348                   iend = prodatqc%npvend(jobs,1)  
     347                  ista = prodatqc%npvsta(jobs,kvar)  
     348                  iend = prodatqc%npvend(jobs,kvar)  
    349349                  inum_obs = iend - ista + 1  
    350350                  ALLOCATE(interp_corner(2,2,inum_obs),iv_indic(inum_obs))  
Note: See TracChangeset for help on using the changeset viewer.