- Timestamp:
- 2017-10-30T10:28:45+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8657_UKMO_OBSoper/NEMOGCM/NEMO/OPA_SRC/OBS/obs_mpp.F90
r6140 r8667 142 142 !! 143 143 144 iobsp =kobsp144 iobsp(:)=kobsp(:) 145 145 146 146 WHERE( iobsp(:) == -1 ) … … 148 148 END WHERE 149 149 150 iobsp =-1*iobsp150 iobsp(:)=-1*iobsp(:) 151 151 152 152 CALL obs_mpp_max_integer( iobsp, kno ) 153 153 154 kobsp =-1*iobsp154 kobsp(:)=-1*iobsp(:) 155 155 156 156 isum=0
Note: See TracChangeset
for help on using the changeset viewer.