[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