283c283
<      &       'U10',nvar,MCEL_DATATYPE_DOUBLE,ierr)
---
>      &       'UWForce',nvar,MCEL_DATATYPE_DOUBLE,ierr)
285c285
<              print *, 'Added a U10 source'
---
>              print *, 'Added a UWForce source'
292c292
<      &       'V10',nvar,MCEL_DATATYPE_DOUBLE,ierr)
---
>      &       'VWForce',nvar,MCEL_DATATYPE_DOUBLE,ierr)
294c294
<              print *, 'Added a V10 source'
---
>              print *, 'Added a VWForce source'
302c302
< 	   call addoutputs(STRS_INTERP_ID,'U10',nvar,
---
> 	   call addoutputs(STRS_INTERP_ID,'UWForce',nvar,
305c305
< 	     print *, 'Added an MCEL output U10 (wave stress)'
---
> 	     print *, 'Added an MCEL output UWForce (wave stress)'
311c311
< 	   call addoutputs(STRS_INTERP_ID,'V10',nvar,
---
> 	   call addoutputs(STRS_INTERP_ID,'VWForce',nvar,
314c314
< 	     print *, 'Added an MCEL output V10 (wave stress)'
---
> 	     print *, 'Added an MCEL output VWForce (wave stress)'
316c316
< 	     print *, 'Error while adding an MCEL output, V10'
---
> 	     print *, 'Error while adding an MCEL output, VWForce'
346,347c346
< 	   real*8 umag(NP)
< 
---
> 	   
365c364
< 	       call getData(STRS_INTERP_ID,"U10",uWForceRet,      
---
> 	       call getData(STRS_INTERP_ID,"UWForce",uWForceRet,      
374c373
< 	       call getData(STRS_INTERP_ID,"V10",vWForceRet,      
---
> 	       call getData(STRS_INTERP_ID,"VWForce",vWForceRet,      
396,399d394
<            umag = sqrt(uWForceRet*uWForceRet+vWForceRet*vWForceRet)
<            uWForceRet=1.3d-3*(.44+.063*umag)*umag*uWForceRet
<            vWForceRet=1.3d-3*(.44+.063*umag)*umag*vWForceRet
< 
496c491
<          subroutine READ_MCEL_SSH(TIME,ESBIN,GET)
---
>          subroutine READ_MCEL_SSH(TIME,ESBIN)
499c494
< 	   integer ierr,GET
---
> 	   integer ierr,ITHS
511,523c506,515
<            if (GET.eq.1) then
<              call getData(SSH_INTERP_ID,"SSH_NCOM",ESBINTMP,	      	        
<      &       reltime,reltime,MCEL_TIMECENT_POINT,ADCIRC_MASK_BOUNDRY,	        
<      &       MCEL_FETCHPOLICY_BLOCK,ierr)				        
<              if (ierr.eq.0) then  				      	        
<                 print *, 'Got SSH_NCOM from MCEL for (abs)TIME',reltime          
<              else 						      	        
<                 print *, 'HALT: Data not present in SSH_NCOM ..',reltime 				        
<                 stop		
<              endif      		
<            else
< 	     print *, "Skipping MCEL request...."					        
< 	   endif					        
---
>            call getData(SSH_INTERP_ID,"SSH_NCOM",ESBINTMP,	      	        
>      &      reltime,reltime,MCEL_TIMECENT_POINT,ADCIRC_MASK_BOUNDRY,	        
>      &      MCEL_FETCHPOLICY_BLOCK,ierr)				        
>            if (ierr.eq.0) then  				      	        
>               print *, 'Got SSH_NCOM from MCEL for (abs)TIME', reltime          
>            else 						      	        
>               print *, 'HALT: Data not present in SSH_NCOM 		        
>      &  	at (abs)TIME?', reltime 				        
>               stop							        
>            endif      							        
