- Timestamp:
- 2016-04-27T16:01:22+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90
r6488 r6498 445 445 ! Calculate freezing temperature 446 446 zpress = grav*rau0*fsdept(ji,jj,ik)*1.e-04 447 zt_frz = eos_fzp(tsb(ji,jj,ik,jp_sal), zpress)447 CALL eos_fzp(tsb(ji,jj,ik,jp_sal), zt_frz, zpress) 448 448 zt_sum = zt_sum + (tsn(ji,jj,ik,jp_tem)-zt_frz) * fse3t(ji,jj,ik) * tmask(ji,jj,ik) ! sum temp 449 449 ENDDO … … 527 527 zti(:,:)=tinsitu( ttbl, stbl, zpress ) 528 528 ! Calculate freezing temperature 529 zfrz(:,:)=eos_fzp( sss_m(:,:), zpress )529 CALL eos_fzp( sss_m(:,:), zfrz(:,:), zpress ) 530 530 531 531
Note: See TracChangeset
for help on using the changeset viewer.