Changeset 5785


Ignore:
Timestamp:
2015-10-09T16:45:05+02:00 (5 years ago)
Author:
mattmartin
Message:

Updated obs_prep.F90 based on reviewers comment about the call to obs_coo_grd. This change was tested with SETTE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

    r5704 r5785  
    365365      ! ----------------------------------------------------------------------- 
    366366 
    367       CALL obs_coo_grd( profdata%nprof,   profdata%mi, profdata%mj, & 
    368          &              profdata%nqc,     igrdobs                ) 
     367      CALL obs_coo_grd( profdata%nprof,   profdata%mi(:,1), profdata%mj(:,1), & 
     368         &              profdata%nqc,     igrdobs                         ) 
     369      CALL obs_coo_grd( profdata%nprof,   profdata%mi(:,2), profdata%mj(:,2), & 
     370         &              profdata%nqc,     igrdobs                         ) 
    369371 
    370372      CALL obs_mpp_sum_integer( igrdobs, igrdobsmpp ) 
Note: See TracChangeset for help on using the changeset viewer.