[MITgcm-cvs] MITgcm/pkg/thsice CVS Commit

[Martin Losch]

Update of /u/gcmpack/MITgcm/pkg/thsice
In directory forge:/tmp/cvs-serv32329/pkg/thsice

Modified Files:
	thsice_solve4temp.F 
Log Message:
- make this routine vectorize:
 move most of the WRITE statements into the debugging flags
 move a "stop" outside the loops (similar to update_r_star.F etc)

- one loop still does not vectorize because of the statement
  iterate4Tsf = iterate4Tsf .OR. iceFlag(i,j)
  within the iteration loop. This will also become a problem for TAF,
  I am sure, but I do not have a good solution now