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

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

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

revision 1.3 by jmc, Thu Jul 8 15:56:36 2004 UTC revision 1.4 by jmc, Mon Jan 31 19:37:06 2005 UTC
# Line 119  C--     Mixed layer thickness: take the Line 119  C--     Mixed layer thickness: take the
119             evpAtm(i,j) = 0.             evpAtm(i,j) = 0.
120             flxSW (i,j) = 0.             flxSW (i,j) = 0.
121             snowPrc(i,j,bi,bj) = 0. _d 0             snowPrc(i,j,bi,bj) = 0. _d 0
122               siceAlb(i,j,bi,bj) = 0. _d 0
123  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
124             prcAtm(i,j) = ( rain(i,j,bi,bj)+runoff(i,j,bi,bj) )*rhofw             prcAtm(i,j) = ( rain(i,j,bi,bj)+runoff(i,j,bi,bj) )*rhofw
125             flxSW (i,j) = solar(i,j,bi,bj)             flxSW (i,j) = solar(i,j,bi,bj)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22