/[MITgcm]/MITgcm/pkg/thsice/thsice_get_exf.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_get_exf.F

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

revision 1.10 by jmc, Wed May 9 12:46:10 2007 UTC revision 1.11 by jmc, Mon May 14 20:48:26 2007 UTC
# Line 152  C     copy a few variables to names used Line 152  C     copy a few variables to names used
152        Tsf    =  tsfCel+cen2kel        Tsf    =  tsfCel+cen2kel
153        Ts2    = Tsf*Tsf        Ts2    = Tsf*Tsf
154  C     wind speed  C     wind speed
155        ws     = us(i,j,bi,bj)        ws     = wspeed(i,j,bi,bj)
156  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
157  CADJ STORE sh(i,j,bi,bj)     = comlev1_exf_1, key = ikey_1  CADJ STORE sh(i,j,bi,bj)     = comlev1_exf_1, key = ikey_1
158  #endif  #endif
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22