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

[Gael Forget]

Update of /u/gcmpack/MITgcm/pkg/seaice
In directory faulks.csail.mit.edu:/u/u2/gforget/MITgcm/pkg/seaice

Modified Files:
	seaice_growth.F 
Log Message:

Merging seaice_growth codes -- part 2 -- actual changes.

- changing the sign of heat flux terms (*Qby* that are in ice m)
to match that of the thickness terms (*HEFF*, *HSNOW*, etc.).
Hence everything >0 corresponds to more ice and/or snow.
- rid of inessential arrays. Now it becomes clear that my earlier
additions were a bit overkill. Also it appeared that temporary scalar
can be used instead of saltWtrIce and frWtrIce -- those global
arrays could eventually be removed from SEAICE.h
- compute budget terms (to include in EmPmR, QNET, and 
in area derivative) using d_HEFF*/d_HSNOW* tendendcy terms.
This allowed getting rid of d_Qby* arrays. It will allow moving 
blocks of code to more logical organization (upcoming revision).

This is only cosmetic change. Yet, on faulks with g77, I got
Y Y Y Y>10<16 16 16 16 16 16 16 16 14 16 13 16 16 16 11 16  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . FAIL  lab_sea
Y Y Y Y>11<16 16 16 16 16 16 16 16 16 16 13 13 16 16 13 16  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . FAIL  lab_sea.fd
Y Y Y Y> 3< 8  9  7  6 13 11  8  6  5  7  2  4  6  6  3  4  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . FAIL  lab_sea.hb87
Y Y Y Y>12<16 16 16 16 16 16 16 16 16 16 13 16 16 16 13 14  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . FAIL  lab_sea.salt_plume
Y Y Y Y -- 16 16 16 16 16 16 16 16 22 22 22 22 22 22 22 22 16 16 16>16< .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . pass  offline_exf_seaice
Y Y Y Y -- 16 16 16 16 16 16 16 16 22 22 22 22 22 22 22 22 16 16 16 16 16 16 16>16< .  .  .  .  .  .  .  .  .  .  .  . pass  offline_exf_seaice.seaicetd
Y Y Y Y>13<16 16 16 16 16 16 16 16 16 14 14 16 14 16 16 14  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . pass  seaice_obcs
Y Y Y Y 13> 4<FAIL  lab_sea
Y Y Y Y  4> 4<FAIL  lab_sea.evp
Y Y Y Y 16>16<pass  lab_sea.noseaice
Y Y Y Y 10> 4<FAIL  lab_sea.noseaicedyn
Y Y Y Y 16>16<pass  offline_exf_seaice
So I will update results.