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

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

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

revision 1.14 by jmc, Tue Mar 14 15:58:27 2006 UTC revision 1.15 by jmc, Sun Mar 26 00:45:40 2006 UTC
# Line 155  C--    Update Sea-Ice state : Line 155  C--    Update Sea-Ice state :
155            Qice1(i,j,bi,bj)=qicen(1)            Qice1(i,j,bi,bj)=qicen(1)
156            Qice2(i,j,bi,bj)=qicen(2)            Qice2(i,j,bi,bj)=qicen(2)
157            IF ( dBug ) THEN            IF ( dBug ) THEN
158             WRITE(6,1010) 'ThSI_FWD: Tsf, Tice(1,2), frzmltMxL =',             WRITE(6,1010) 'ThSI_FWD: Tsf, Tice(1,2), TFrzOce =',
159       &                              Tsf, Tice, frzmltMxL       &                              Tsf, Tice, TFrzOce
160             WRITE(6,1010) 'ThSI_FWD: sHeat,fxCndBt, fxAtm,evAtm=',             WRITE(6,1010) 'ThSI_FWD: sHeat,fxCndBt, fxAtm,evAtm=',
161       &                  sHeating(i,j,bi,bj), flxCndBt(i,j,bi,bj),       &                  sHeating(i,j,bi,bj), flxCndBt(i,j,bi,bj),
162       &                  flxAtm(i,j), evpAtm(i,j)       &                  flxAtm(i,j), evpAtm(i,j)
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22