When all three my_trc components are added, the tracer.stat increases too rapidly:
tail tracer.stat
1 0.7895863787E+03
2 0.3124101036E+04
3 0.1067765821E+13
4 0.2180091013E+27
5 0.8173235638E+41
This still occurs even I remove the icedms component:
1 0.7895863787E+03
2 0.3056491046E+04
3 0.1034367164E+13
4 0.2180090884E+27
5 0.8173235638E+41
When I removed the chunk of code about ice ablation/accretion, the tracer.stat became normal:
1 0.7895862638E+03
2 0.7895870356E+03
3 0.7913792876E+03
4 0.7936409329E+03
5 0.7949360900E+03
Thus, the problem is here:
! Lateral accretion/ablation
IF(frld(ji,jj)-pfrld(ji,jj) > 0.) THEN ! In case of accretion, newly formed ice will have a tracer concentration of an underlying seawater value.
icechl(ji,jj) = (1.-pfrld(ji,jj))/(1.-frld(ji,jj)+epsilon10)*icechl(ji,jj) + ((1.-frld(ji,jj))-(1.-pfrld(ji,jj)))/(1.-frld(ji,jj)+epsilon10)*trn(ji,jj,1,jpdch)
iceno3(ji,jj) = (1.-pfrld(ji,jj))/(1.-frld(ji,jj)+epsilon10)*iceno3(ji,jj) + ((1.-frld(ji,jj))-(1.-pfrld(ji,jj)))/(1.-frld(ji,jj)+epsilon10)*trn(ji,jj,1,jpno3)
icenh4(ji,jj) = (1.-pfrld(ji,jj))/(1.-frld(ji,jj)+epsilon10)*icenh4(ji,jj) + ((1.-frld(ji,jj))-(1.-pfrld(ji,jj)))/(1.-frld(ji,jj)+epsilon10)*trn(ji,jj,1,jpnh4)
END IF
0 件のコメント:
コメントを投稿