Changeset 7150 for branches/UKMO
- Timestamp:
- 2016-10-27T18:03:23+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r5936_hadgem3_cplfld/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r7139 r7150 1758 1758 ! 1759 1759 SELECT CASE( sn_snd_temp%cldes) 1760 CASE( 'none' ) ! nothing to do1761 1760 CASE( 'oce only' ) ; ztmp1(:,:) = ztmp1(:,:) + rt0 1762 1761 CASE( 'oce and ice' ) ; ztmp1(:,:) = ztmp1(:,:) + rt0 … … 1788 1787 ztmp1(:,:) = ztmp1(:,:) + tn_ice(:,:,jl) * a_i(:,:,jl) 1789 1788 ENDDO 1789 CASE( 'none' ) ! nothing to do 1790 1790 CASE default ; CALL ctl_stop( 'sbc_cpl_snd: wrong definition of sn_snd_temp%cldes' ) 1791 1791 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.