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

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

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

revision 1.3 by jmc, Fri Dec 17 04:29:07 2004 UTC revision 1.4 by jmc, Mon Jan 31 19:37:06 2005 UTC
# Line 67  C-        fluxes : Line 67  C-        fluxes :
67              sHeating(i,j,bi,bj) = 0. _d 0              sHeating(i,j,bi,bj) = 0. _d 0
68              flxCndBt(i,j,bi,bj) = 0. _d 0              flxCndBt(i,j,bi,bj) = 0. _d 0
69              snowPrc(i,j,bi,bj)  = 0. _d 0              snowPrc(i,j,bi,bj)  = 0. _d 0
70                siceAlb(i,j,bi,bj)  = 0. _d 0
71  #ifdef COUPLE_MODEL  #ifdef COUPLE_MODEL
72              dFdT(i,j,bi,bj)     = 0. _d 0              dFdT(i,j,bi,bj)     = 0. _d 0
73  #endif  #endif
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22