Changeset 9865


Ignore:
Timestamp:
2018-07-02T17:26:33+02:00 (2 years ago)
Author:
mathiot
Message:

zpress undefined in sbcisf/sbc_isf_bg03

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbcisf.F90

    r9728 r9865  
    443443               ! 1. -----------the average temperature between 200m and 600m --------------------- 
    444444               DO jk = misfkt(ji,jj),misfkb(ji,jj) 
    445                   ! freezing point temperature  at ice shelf base BG eq. 2 (JMM sign pb ??? +7.64e-4 !!!) 
    446                   ! after verif with UNESCO, wrong sign in BG eq. 2 
    447445                  ! Calculate freezing temperature 
     446                  zpress = grav*rau0*gdept_n(ji,jj,ik)*1.e-04 
    448447                  CALL eos_fzp(stbl(ji,jj), zt_frz, zpress)  
    449448                  zt_sum = zt_sum + (tsn(ji,jj,jk,jp_tem)-zt_frz) * e3t_n(ji,jj,jk) * tmask(ji,jj,jk)  ! sum temp 
Note: See TracChangeset for help on using the changeset viewer.