[Mitgcm-support] checkpoint.F, dynamics.F (PR#19)
mitgcm-support at dev.mitgcm.org
mitgcm-support at dev.mitgcm.org
Wed Jul 9 15:31:55 EDT 2003
- checkpoint.F is broken if used with
#defined OLD_STYLE_WITH_MANY_FILES
myIt is declared, but myIter is used.
Also, argument list in
CALL READ_REC_XY_RL
& ( 'cg2d_xNM1',suff, cg2d_xNM1, 1,myIter, myThid)
is wrong. ****
- dynamics.F for
#defined ALLOW_AUTODIFF_TAMC
#defined ALLOW_GMREDI
CADJ STORE Kwx(:,:,:,myThid) = comlev1_bibj, key=ikey, byte=isbyte
CADJ STORE Kwy(:,:,:,myThid) = comlev1_bibj, key=ikey, byte=isbyte
CADJ STORE Kwz(:,:,:,myThid) = comlev1_bibj, key=ikey, byte=isbyte
wrong field declarations; should be
CADJ STORE Kwx(:,:,:,bi,bj) = comlev1_bibj, key=ikey, byte=isbyte
CADJ STORE Kwy(:,:,:,bi,bj) = comlev1_bibj, key=ikey, byte=isbyte
CADJ STORE Kwz(:,:,:,bi,bj) = comlev1_bibj, key=ikey,
byte=isbyte
--
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
Patrick Heimbach FON: +1 / 617 / 253-5259
Massachusetts Institute of Technology FAX: +1 / 617 / 253-4464
EAPS, Room 54-1518
77 Massachusetts Avenue mailto:heimbach at mit.edu
Cambridge MA 02139, U.S.A. http://www.mit.edu/~heimbach/
More information about the MITgcm-support
mailing list