79 ( kinit,intype, omsg,tpdom,tzsit,psalt_a,pice_a)
88 INTEGER,
INTENT(in) :: &
90 CHARACTER(*),
INTENT(in) :: &
92 TYPE(t_dom),
DIMENSION(np),
INTENT(in) :: &
94 TYPE(t_sit),
DIMENSION(intype,nt,np),
INTENT(in) :: &
96 REAL,
INTENT(inout) :: &
99 REAL,
DIMENSION(np) :: &
102 zice_a, zdmice, zdmsalt, zsalt_a
103 zice(:) = rhoice*sum(sum(&
104 tzsit(:,:,:)%fsi*tzsit(:,:,:)%hsi, dim=2 ), dim=1 )
107 zsalt(:) = rhoice*sum(sum( &
108 tzsit(:,:,:)%fsi*tzsit(:,:,:)%hsi*tzsit(:,:,:)%ssi, &
109 dim=2 ), dim=1 )*1.e-3
112 zdmice = ( zice_a - pice_a) / dtt
113 zdmsalt = ( zsalt_a - psalt_a) / dtt
116 '--------------------------------------------------------------------'
117 WRITE(noutlu,*) omsg,
' Salt Content :', zsalt_a
118 WRITE(noutlu,*)
' Change in ice mass content :', zdmice
119 WRITE(noutlu,*)
' Change in Salt content :', zdmsalt
122 IF(lwg)
WRITE(noutlu,*) omsg,
' Salt Content :', zsalt_a
subroutine glt_updice_mix_r(kinit, intype, omsg, tpdom, tzsit, psalt_a, pice_a)