Only in src: a.out
Only in src: asdf
Only in src: coupling_api.inc
Only in src: d
Only in src: m.f
Only in src: m_acden.mod
Only in src: m_wcap.mod



diff -r src/mcel_filt.F src.orig/mcel_filt.F
11c11,13
< 
---
>       character*80 var_name
>       if (var .eq. 'uwind' ) var_name = 'U10'
>       if (var .eq. 'vwind' ) var_name = 'V10'
14,15c16,17
<       call AddSources (id_interp(mcelio), MCEL_SERVER, var, nvar,
<      $   MCEL_DATATYPE_REAL, ierr)
---
>       call AddSources (id_interp(mcelio), MCEL_SERVER, var_name, 
>      $   nvar,MCEL_DATATYPE_REAL, ierr)
23,24c25,26
<       call AddOutputs (id_interp(mcelio), var, nvar, MCEL_DATATYPE_REAL,
<      &   ierr)
---
>       call AddOutputs (id_interp(mcelio), var_name, nvar, 
>      &   MCEL_DATATYPE_REAL,ierr)



diff -r src/mcel_get.F src.orig/mcel_get.F
12a13
>       character*80 var_name
14,15c15,20
<       if (TIMCO < 0.0) DTIMCO = 0.0
<       call GetData (id_interp(mcelio), var, array,
---
> !      if (TIMCO < 0.0) DTIMCO = 0.0
> 
>       if (var .eq. 'uwind' ) var_name = 'U10'
>       if (var .eq. 'vwind' ) var_name = 'V10'
> 
>       call GetData (id_interp(mcelio), var_name, array,



diff -r src/mcel_grid.F src.orig/mcel_grid.F
18,153d17
< #ifdef API
<       include 'swcomm1.inc'
<       include 'coupling_api.inc'
<       CHARACTER*256  tstr, sysdepinfo
<       CHARACTER*256  dimnames(3)
<       INTEGER, DIMENSION(3) :: DomainStart, DomainEnd
<       INTEGER, DIMENSION(3) :: MemoryStart, MemoryEnd
<       INTEGER, DIMENSION(3) ::  PatchStart,  PatchEnd
< #endif
< 
< #ifdef API
< 
<        sysdepinfo = 'LANDMASK_I=MASK'
<        write(tstr,'(f15.8)')deltax
<        sysdepinfo = sysdepinfo // ',MCEL_DELTA_X=' // tstr
<        write(tstr,'(f15.8)')deltay
<        sysdepinfo = sysdepinfo // ',MCEL_DELTA_Y=' // tstr
<        write(tstr,'(f15.8)')xoffset
<        sysdepinfo = sysdepinfo // ',MCEL_ORIGIN_X=' // tstr
<        write(tstr,'(f15.8)')yoffset
<        sysdepinfo = sysdepinfo // ',MCEL_ORIGIN_Y=' // tstr
< 
<        DimNames(1) = ' ' ; DimNames(2) = ' ' ; DimNames(3) = ' '
<        DomainStart(1) = 1 ; DomainEnd(1) = MXC
<        MemoryStart(1) = 1 ; MemoryEnd(1) = MXC
<         PatchStart(1) = 1 ;  PatchEnd(1) = MXC
<        DomainStart(2) = 1 ; DomainEnd(2) = MYC
<        MemoryStart(2) = 1 ; MemoryEnd(2) = MYC
<         PatchStart(2) = 1 ;  PatchEnd(2) = MYC
<        DomainStart(3) = 1 ; DomainEnd(3) = 1
<        MemoryStart(3) = 1 ; MemoryEnd(3) = 1
<         PatchStart(3) = 1 ;  PatchEnd(3) = 1
<        if ( mcelio .EQ. 0 ) then
<         CALL ext_mcel_open_for_write_begin ( 'SWANOUT'           ,
<      +                                       idum , idum      ,
<      +                                       sysdepinfostr    ,
<      +                                       api_grids(mcelio)     ,
<      +                                       ierr               )
< 
< !these are training writes
<            if (OVSVTY(IVTYPE) .lt. 3) then
<              CALL ext_mcel_write_field ( api_grids(mcelio),
<      &                                   '1999-11-09_12:00:00',   ! dummy date
<      &                                   OVSNAM(IVTYPE),          ! VarName
<      &                                   idum,                    ! DUMMY Field
<      &                                   WRF_REAL,                ! TYPE
<      &                                   idum, idum, idum,        ! dummy comms and desc
<      &                                   'XY',                    ! Mem order (unstructured)
<      &                                   ' ',                     ! Stagger (not)
<      &                                   DimNames ,
<      &                                   DomainStart , DomainEnd ,
<      &                                   MemoryStart , MemoryEnd ,
<      &                                   PatchStart , PatchEnd ,
<      &                                   ierr )
<            else
<              CALL ext_mcel_write_field ( api_grids(mcelio),
<      &                                   '1999-11-09_12:00:00',   ! dummy date
<      &                                   'U'//OVSNAM(IVTYPE),     ! VarName
<      &                                   idum,                    ! Dummy Field
<      &                                   WRF_REAL,                ! TYPE
<      &                                   idum, idum, idum,        ! dummy comms and desc
<      &                                   'XY',                    ! Mem order (unstructured)
<      &                                   ' ',                     ! Stagger (not)
<      &                                   DimNames ,
<      &                                   DomainStart , DomainEnd ,
<      &                                   MemoryStart , MemoryEnd ,
<      &                                   PatchStart , PatchEnd ,
<      &                                   ierr )
<              CALL ext_mcel_write_field ( api_grids(mcelio),
<      &                                   '1999-11-09_12:00:00',   ! dummy date
<      &                                   'V'//OVSNAM(IVTYPE),     ! VarName
<      &                                   idum,                    ! Dummy Field
<      &                                   WRF_REAL,                ! TYPE
<      &                                   idum, idum, idum,        ! dummy comms and desc
<      &                                   'XY',                    ! Mem order (unstructured)
<      &                                   ' ',                     ! Stagger (not)
<      &                                   DimNames ,
<      &                                   DomainStart , DomainEnd ,
<      &                                   MemoryStart , MemoryEnd ,
<      &                                   PatchStart , PatchEnd ,
<      &                                   ierr )
< 
<            endif
<          else
<         CALL ext_mcel_open_for_read_begin ( 'SWANIN'           ,
<      +                                       idum , idum      ,
<      +                                       sysdepinfostr    ,
<      +                                       api_grids(mcelio)     ,
<      +                                       ierr               )
<         endif
< 
<          ! Set grid mask (0:land ; 1:water)
<          mask = 0
<          do ix = 1, nx
<            do iy = 1, ny
<              xp = xgrid(ix, iy)
<              yp = ygrid(ix, iy)
<              newdepths(ix, iy) = SVALQI (xp, yp, 1, depths ,1 ,ix ,iy)
<            end do
<          end do
<          where (newdepths .ge. 1.) mask = 1
< 
<        if ( mcelio .EQ. 0 ) then
<              CALL ext_mcel_write_field ( api_grids(mcelio),
<      &                                   '1999-11-09_12:00:00',   ! dummy date
<      &                                   'MASK',                  ! VarName
<      &                                   mask,                    ! Dummy Field
<      &                                   WRF_INTEGER,             ! TYPE
<      &                                   idum, idum, idum,        ! dummy comms and desc
<      &                                   'XY',                    ! Mem order (unstructured)
<      &                                   ' ',                     ! Stagger (not)
<      &                                   DimNames ,
<      &                                   DomainStart , DomainEnd ,
<      &                                   MemoryStart , MemoryEnd ,
<      &                                   PatchStart , PatchEnd ,
<      &                                   ierr )
<            CALL ext_mcel_open_for_write_commit (api_grids(mcelio),ierr)
<        else
<              CALL ext_mcel_read_field (  api_grids(mcelio),
<      &                                   '1999-11-09_12:00:00',   ! dummy date
<      &                                   'MASK',                  ! VarName
<      &                                   mask,                    ! Dummy Field
<      &                                   WRF_INTEGER,             ! TYPE
<      &                                   idum, idum, idum,        ! dummy comms and desc
<      &                                   'XY',                    ! Mem order (unstructured)
<      &                                   ' ',                     ! Stagger (not)
<      &                                   DimNames ,
<      &                                   DomainStart , DomainEnd ,
<      &                                   MemoryStart , MemoryEnd ,
<      &                                   PatchStart , PatchEnd ,
<      &                                   ierr )
<            CALL ext_mcel_open_for_read_commit (api_grids(mcelio),ierr)
<        endif
< 
< 
< #else
161a26
> 
240d104
< #endif
Only in src: ocp_plotdata.mod



diff -r src/ocpmix.F src.orig/ocpmix.F
1213a1214
> 	print*,"case1"
1217a1219
> 	print*,"done with case 1"
1218a1221
> 	print*,"case2"
1221a1225
> 	print*,"case3"
1226a1231
> 	print*,"case4"
1229a1235
> 	print*,"case5"
1234a1241
> 	print*,"case6"
1241a1249
> 	print*,"case1f"
1246a1255
> 	print*,"case2f"
1249a1259
> 	print*,"case3f"
1254a1265
> 	print*,"case4f"
1257a1269
> 	print*,"case5f"
1262a1275
> 	print*,"case6f"
1300a1314
> 	print*,"conting"
1302a1317
> 	print*,"numfil",numfil
1339a1355
> 	print*,"Here",ix,iy,mxa,mya,ndsl
1347a1364
> 	print*,"Error is",ierr
Only in src: outp_data.mod
Only in src: swan.ex



diff -r src/swan.pkg src.orig/swan.pkg
27c27
< LIBLOCATIONS += -L/usr/X11/lib  -L../MCEL -L../../WRFV2/external/io_mcel
---
> LIBLOCATIONS += -L/usr/X11/lib  -L../MCEL
32c32
< XTRALIBS := -L$(TOP)/MCEL -lMCEL $(XTRALIBS) -lwrfio_mcel
---
> XTRALIBS := -L$(TOP)/MCEL -lMCEL $(XTRALIBS)
36c36
< F90FLAGS += -qstrict -qnosave # -WF,-DAPI
---
> F90FLAGS += -qstrict -qnosave



diff -r src/swanpre1.F src.orig/swanpre1.F
43,45d42
< #ifdef API
<       include 'coupling_api.inc'
< #endif
373,375d369
< #ifdef API
<       CHARACTER*256  tstr, sysdepinfo
< #endif
1488,1503d1481
< #ifdef API
<         write(tstr,'(f15.8)')dx
<         sysdepinfo = 'MCEL_DELTA_X=' // TRIM(tstr)
<         write(tstr,'(f15.8)')dy
<         sysdepinfo = sysdepinfo // ',MCEL_DELTA_Y=' // TRIM(tstr)
<         write(tstr,'(f15.8)')xoffs
<         sysdepinfo = 'MCEL_ORIGIN_X=' // TRIM(tstr)
<         write(tstr,'(f15.8)')yoffs
<         sysdepinfo = sysdepinfo // ',MCEL_ORIGIN_Y=' // TRIM(tstr)
< ! the commit will occur elsewhere
<         CALL ext_mcel_open_for_write_begin ( 'SWAN'           ,
<      +                                       idum , idum      ,
<      +                                       sysdepinfostr    ,
<      +                                       api_grids(0)     ,
<      +                                       ierr               )
< #else
1508d1485
< #endif
5439,5457d5415
< 
< #ifdef API
<       SUBROUTINE wrf_sizeof_integer( ret )
<         INTEGER ret
<         ret = 4
<       END
<       SUBROUTINE wrf_sizeof_real( ret )
<         INTEGER ret
<         ret = 4
<       END
<       SUBROUTINE wrf_error_fatal( str )
<         CHARACTER*(*) str
<         WRITE(0,*)str
<         WRITE(*,*)str
<         STOP
<       END
< #endif
< 
< 



diff -r src/swanpre2.F src.orig/swanpre2.F
1095,1097d1094
< #ifdef API
<       include 'poolcomm.inc'
< #endif
Only in src/o: OPT
