[Mitgcm-support] Re: pkg/seaice and pkg/exf

mitgcm-support at dev.mitgcm.org mitgcm-support at dev.mitgcm.org
Wed Jul 9 15:39:51 EDT 2003


Tom, would you be able to plot FU, FV, EmPmR, Qsw, and Qnet, and see if
there are any differences in Gulf of Mexico, with useSEAICE=.FALSE. and
with useSEAICE=.TRUE..

With SEAICE_EXTERNAL_FLUXES defined, the surface fluxes should be
identical everywhere where there is no sea-ice.

The surface fluxes are dumped automatically by seaice_do_diags.F
when useSEAICE=.TRUE. and SEAICEwriteState=.TRUE. in data.seaice.

For pkg/exf, you will need to add the following lines right after
completion of EXF_GETFORCING in forward_step.F:

      CHARACTER*(MAX_LEN_MBUF) suff

            WRITE(suff,'(I10.10)') myIter
            _BARRIER
            _BEGIN_MASTER( myThid )
            CALL WRITE_FLD_XY_RS( 'FU.',suff,fu,myIter,myThid)
            CALL WRITE_FLD_XY_RS( 'FV.',suff,fv,myIter,myThid)
            CALL WRITE_FLD_XY_RS( 'EmPmR.',suff,EmPmR,myIter,myThid)
            CALL WRITE_FLD_XY_RS( 'Qnet.',suff,Qnet,myIter,myThid)
            CALL WRITE_FLD_XY_RS( 'Qsw.',suff,Qsw,myIter,myThid)
            _END_MASTER( myThid )
            _BARRIER

Dimitris

-- 
Dimitris Menemenlis                      menemenlis at jpl.nasa.gov
Jet Propulsion Lab, MS 300-323           tel: 818-354-1656
4800 Oak Grove Dr, Pasadena CA 91109     fax: 818-393-6720



More information about the MITgcm-support mailing list