/[MITgcm]/MITgcm/model/src/dynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/dynamics.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.168 by jmc, Fri Jan 3 16:19:04 2014 UTC revision 1.169 by gforget, Thu Feb 6 23:16:46 2014 UTC
# Line 482  C--       kDown  Cycles through 2,1 to p Line 482  C--       kDown  Cycles through 2,1 to p
482           kkey = (idynkey-1)*Nr + k           kkey = (idynkey-1)*Nr + k
483  CADJ STORE totPhiHyd (:,:,k,bi,bj)  CADJ STORE totPhiHyd (:,:,k,bi,bj)
484  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
485    CADJ STORE phiHydLow (:,:,bi,bj)
486    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte    
487  CADJ STORE theta (:,:,k,bi,bj)  CADJ STORE theta (:,:,k,bi,bj)
488  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
489  CADJ STORE salt  (:,:,k,bi,bj)  CADJ STORE salt  (:,:,k,bi,bj)
Legend:
Removed from v.1.168  
changed lines
  Added in v.1.169
  ViewVC Help
Powered by ViewVC 1.1.22