Changeset 4856 for branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
- Timestamp:
- 2014-11-13T17:07:43+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r4731 r4856 544 544 CALL blk_clio_qsr_ice( palb_cs, palb_os, p_qsr ) 545 545 546 DO jl = 1, jpl546 DO jl = 1, ijpl 547 547 palb(:,:,jl) = ( palb_cs(:,:,jl) * ( 1.e0 - sf(jp_ccov)%fnow(ji,jj,1) ) & 548 548 & + palb_os(:,:,jl) * sf(jp_ccov)%fnow(ji,jj,1) )
Note: See TracChangeset
for help on using the changeset viewer.