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

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

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

revision 1.106 by heimbach, Thu Jun 22 21:31:09 2006 UTC revision 1.107 by heimbach, Thu Jul 6 00:22:30 2006 UTC
# Line 500  C Line 500  C
500  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
501  # if (defined NONLIN_FRSURF) || (defined ALLOW_DEPTH_CONTROL)  # if (defined NONLIN_FRSURF) || (defined ALLOW_DEPTH_CONTROL)
502  cph-test  cph-test
503  CADJ STORE uFld(:,:), vFld(:,:), wFld(:,:) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE uFld(:,:), vFld(:,:), wFld(:,:)
504  CADJ STORE uTrans(:,:), vTrans(:,:)        = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
505  CADJ STORE xA(:,:), yA(:,:)                = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE uTrans(:,:), vTrans(:,:)
506    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
507    CADJ STORE xA(:,:), yA(:,:)
508    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
509  # endif  # endif
510  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
511  C  C
Legend:
Removed from v.1.106  
changed lines
  Added in v.1.107
  ViewVC Help
Powered by ViewVC 1.1.22