[MITgcm-devel] removing SEAICE_GET_FORCING ?
Martin Losch
Martin.Losch at awi.de
Wed Dec 5 03:52:45 EST 2007
Dimitris,
do we still need all of this in seaice_model?
> C-- Atmospheric state and runoff are from
> C pkg/exf, which does not update edges.
> CALL EXCH_UV_AGRID_3D_RL( uwind, vwind, .TRUE., 1, myThid )
> # ifdef ALLOW_ATM_TEMP
> _EXCH_XY_R8( atemp, myThid )
> _EXCH_XY_R8( aqh, myThid )
> _EXCH_XY_R8( precip, myThid )
> _EXCH_XY_R8( evap, myThid )
> # else /* ALLOW_ATM_TEMP */
> STOP 'ABNORMAL END: S/R SEAICE_MODEL: ALLOW_ATM_TEMP undef'
> # endif /* ALLOW_ATM_TEMP */
> # ifdef ALLOW_DOWNWARD_RADIATION
> _EXCH_XY_R8( lwdown, myThid )
> _EXCH_XY_R8( swdown, mythid )
> # else /* ALLOW_DOWNWARD_RADIATION */
> STOP 'ABNORMAL END: S/R SEAICE_MODEL: DOWNWARD_RADIATION undef'
> # endif /* ALLOW_DOWNWARD_RADIATION */
> # ifdef ALLOW_RUNOFF
> _EXCH_XY_R8( runoff, myThid )
> # else /* ALLOW_DOWNWARD_RADIATION */
> STOP 'ABNORMAL END: S/R SEAICE_MODEL: ALLOW_RUNOFF undef'
> # endif /* ALLOW_RUNOFF */
I think all we need is the exchange of the wind fields, the rest is
not used outside the 1:sNx,1:sNy, right?
Martin
More information about the MITgcm-devel
mailing list