- Timestamp:
- 2020-04-08T18:54:44+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/iceitd.F90
r11732 r12720 410 410 CALL tab_3d_2d( npti, nptidx(1:npti), a_ip_2d(1:npti,1:jpl), a_ip ) 411 411 CALL tab_3d_2d( npti, nptidx(1:npti), v_ip_2d(1:npti,1:jpl), v_ip ) 412 CALL tab_3d_2d( npti, nptidx(1:npti), v_il_2d(1:npti,1:jpl), v_il ) 412 413 CALL tab_3d_2d( npti, nptidx(1:npti), t_su_2d(1:npti,1:jpl), t_su ) 413 414 DO jl = 1, jpl … … 482 483 v_ip_2d(ji,jl1) = v_ip_2d(ji,jl1) - ztrans 483 484 v_ip_2d(ji,jl2) = v_ip_2d(ji,jl2) + ztrans 485 ! 486 ztrans = v_il_2d(ji,jl1) * zworka(ji) ! Pond lid volume 487 v_il_2d(ji,jl1) = v_il_2d(ji,jl1) - ztrans 488 v_il_2d(ji,jl2) = v_il_2d(ji,jl2) + ztrans 484 489 ENDIF 485 490 ! … … 526 531 ! clem: The transfer between one category to another can lead to very small negative values (-1.e-20) 527 532 ! because of truncation error ( i.e. 1. - 1. /= 0 ) 528 CALL ice_var_roundoff( a_i_2d, v_i_2d, v_s_2d, sv_i_2d, oa_i_2d, a_ip_2d, v_ip_2d, ze_s_2d, ze_i_2d )533 CALL ice_var_roundoff( a_i_2d, v_i_2d, v_s_2d, sv_i_2d, oa_i_2d, a_ip_2d, v_ip_2d, v_il_2d, ze_s_2d, ze_i_2d ) 529 534 530 535 ! at_i must be <= rn_amax … … 554 559 CALL tab_2d_3d( npti, nptidx(1:npti), a_ip_2d(1:npti,1:jpl), a_ip ) 555 560 CALL tab_2d_3d( npti, nptidx(1:npti), v_ip_2d(1:npti,1:jpl), v_ip ) 561 CALL tab_2d_3d( npti, nptidx(1:npti), v_il_2d(1:npti,1:jpl), v_il ) 556 562 CALL tab_2d_3d( npti, nptidx(1:npti), t_su_2d(1:npti,1:jpl), t_su ) 557 563 DO jl = 1, jpl
Note: See TracChangeset
for help on using the changeset viewer.