/[MITgcm]/MITgcm/pkg/gmredi/gmredi_calc_tensor.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_calc_tensor.F

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

revision 1.31 by gforget, Sat Feb 2 02:35:53 2008 UTC revision 1.32 by heimbach, Fri Mar 28 18:48:05 2008 UTC
# Line 450  CADJ STORE Kwz(:,:,k,bi,bj) = comlev1_bi Line 450  CADJ STORE Kwz(:,:,k,bi,bj) = comlev1_bi
450  #else  #else
451           Kgm_tmp = GM_isopycK           Kgm_tmp = GM_isopycK
452  #endif  #endif
453  #ifdef ALLOW_KAPGM_CONTROL  #if (defined (ALLOW_AUTODIFF) && defined (ALLOW_KAPGM_CONTROL))
454       &           + GM_skewflx*kapgm(i,j,k,bi,bj)       &           + GM_skewflx*kapgm(i,j,k,bi,bj)
455  #else  #else
456       &           + GM_skewflx*GM_background_K       &           + GM_skewflx*GM_background_K
# Line 609  CADJ STORE taperFct(:,:)     = comlev1_b Line 609  CADJ STORE taperFct(:,:)     = comlev1_b
609  #else  #else
610       &     ( GM_isopycK       &     ( GM_isopycK
611  #endif  #endif
612  #ifdef ALLOW_KAPGM_CONTROL  #if (defined (ALLOW_AUTODIFF) && defined (ALLOW_KAPGM_CONTROL))
613       &     - GM_skewflx*kapgm(i,j,k,bi,bj)       &     - GM_skewflx*kapgm(i,j,k,bi,bj)
614  #else  #else
615       &     - GM_skewflx*GM_background_K       &     - GM_skewflx*GM_background_K
# Line 797  CADJ STORE taperFct(:,:)     = comlev1_b Line 797  CADJ STORE taperFct(:,:)     = comlev1_b
797  #else  #else
798       &     ( GM_isopycK       &     ( GM_isopycK
799  #endif  #endif
800  #ifdef ALLOW_KAPGM_CONTROL  #if (defined (ALLOW_AUTODIFF) && defined (ALLOW_KAPGM_CONTROL))
801       &     - GM_skewflx*kapgm(i,j,k,bi,bj)       &     - GM_skewflx*kapgm(i,j,k,bi,bj)
802  #else  #else
803       &     - GM_skewflx*GM_background_K       &     - GM_skewflx*GM_background_K

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

  ViewVC Help
Powered by ViewVC 1.1.22