- Timestamp:
- 2015-02-11T16:15:11+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90
r5076 r5078 337 337 DO jl = 1, jpl 338 338 DO jk = 1, nlay_i 339 e_i(:,:,jk,jl) = e_i(:,:,jk,jl) * a_i(:,:,jl) * ht_i(:,:,jl) / REAL( nlay_i )339 e_i(:,:,jk,jl) = e_i(:,:,jk,jl) * a_i(:,:,jl) * ht_i(:,:,jl) * r1_nlay_i 340 340 END DO 341 341 END DO … … 347 347 DO jl = 1, jpl 348 348 DO jk = 1, nlay_s 349 e_s(:,:,jk,jl) = e_s(:,:,jk,jl) * a_i(:,:,jl) * ht_s(:,:,jl) / REAL( nlay_s )349 e_s(:,:,jk,jl) = e_s(:,:,jk,jl) * a_i(:,:,jl) * ht_s(:,:,jl) * r1_nlay_s 350 350 END DO 351 351 END DO … … 479 479 ! Conversion q(S,T) -> T (second order equation) 480 480 zaaa = cpic 481 zbbb = ( rcp - cpic ) * ( ztmelts - rtt ) + q_i_1d(ji,jk) /rhoic - lfus481 zbbb = ( rcp - cpic ) * ( ztmelts - rtt ) + q_i_1d(ji,jk) * r1_rhoic - lfus 482 482 zccc = lfus * ( ztmelts - rtt ) 483 483 zdiscrim = SQRT( MAX( zbbb * zbbb - 4._wp * zaaa * zccc, 0._wp ) )
Note: See TracChangeset
for help on using the changeset viewer.