Longwave up and down

Changes to get longwave up and down HYCOM_GlueFieldsDataImport and changes in the
calculation of the fluxes in thermf.F

Should be:
#ifdef NUOPC

HYCOM_IN_CESM stuff is only at the very top level in hycom_nuopc.F90 and
hycom_nuopc_glue.F90

Could you please also commit the corner coordinate code changes? Thanks!

- Fei



On Tue, Oct 21, 2014 at 3:00 PM, abozec <notifications@github.com> wrote:

> In sorc/thermf.F:
>
> > @@ -22,6 +22,14 @@ subroutine thermf_oi(m,n)
> >          if     (iceflg.ne.0) then
> >            do l=1,isp(j)
> >              do i=max(1-margin,ifp(j,l)),min(ii+margin,ilp(j,l))
> > +#ifdef HYCOM_IN_CESM
>
> I don't know if it should be #ifdef HYCOM_IN_CESM or #ifdef NUOPC. Is it
> equivalent ?
>
> —
> Reply to this email directly or view it on GitHub
> <https://github.com/feiliuesmf/hycom_cesm/pull/1/files#r19170872>.
>