remove compiler warnings for CICE; fix missing j-loop index (NOAA-EMC#75

)

* fix dummy arguments w/o values
* fix missing j-loop in export 4d

cicecore/drivers/nuopc/cmeps/ice_import_export.F90

@@ -1773,9 +1773,11 @@ subroutine state_setexport_4d(state, fldname, input, index, lmask, ifrac, ungrid
  end do
  end do
  else
- do i = ilo, ihi
- n = n+1
- dataPtr1d(n) = input(i,j,index,iblk)
+ do j = jlo, jhi
+ do i = ilo, ihi
+ n = n+1
+ dataPtr1d(n) = input(i,j,index,iblk)
+ end do
  end do
  end if
  end do

cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90

@@ -7,7 +7,8 @@ module ice_prescribed_mod
  ! Ice/ocean fluxes are set to zero, and ice dynamics are not calculated.
  ! Regridding and data cycling capabilities are included.
 
- use ESMF
+ use ESMF, only : ESMF_Clock, ESMF_Mesh, ESMF_SUCCESS, ESMF_FAILURE
+ use ESMF, only : ESMF_LogFoundError, ESMF_LOGERR_PASSTHRU, ESMF_Finalize, ESMF_END_ABORT
 
 #ifndef CESMCOUPLED
 
@@ -23,6 +24,7 @@ subroutine ice_prescribed_init(clock, mesh, rc)
  type(ESMF_Mesh) , intent(in) :: mesh
  integer , intent(out) :: rc
  ! do nothing
+ rc = ESMF_SUCCESS
  end subroutine ice_prescribed_init
 
 #else

cicecore/shared/ice_init_column.F90

@@ -829,7 +829,7 @@ subroutine init_bgc()
 
  endif ! .not. restart
 
- !$OMP PARALLEL DO PRIVATE(iblk,i,j,k,n,ilo,ihi,jlo,jhi,this_block)
+ !$OMP PARALLEL DO PRIVATE(iblk,i,j,n,ilo,ihi,jlo,jhi,this_block)
  do iblk = 1, nblocks
 
  this_block = get_block(blocks_ice(iblk),iblk)