Changeset 11409
- Timestamp:
- 2019-08-06T16:41:22+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_fix_cpl_oce_only/src/OCE/SBC/sbccpl.F90
r11408 r11409 1712 1712 ENDIF 1713 1713 1714 IF ( TRIM( sn_rcv_emp%cldes == 'conservative' ) THEN1714 IF ( TRIM( sn_rcv_emp%cldes ) == 'conservative' ) THEN 1715 1715 ! For conservative case zemp_ice has not been defined yet. Do it now. 1716 zemp_ice(:,:) = zevap_ice_total(:,:) - frcv(jpr_snow)%z3(:,:,1) )* picefr(:,:)1716 zemp_ice(:,:) = zevap_ice_total(:,:) - frcv(jpr_snow)%z3(:,:,1) * picefr(:,:) 1717 1717 END IF 1718 1718
Note: See TracChangeset
for help on using the changeset viewer.