Changeset 5796 for branches/UKMO
- Timestamp:
- 2015-10-15T12:44:50+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r5663 r5796 377 377 378 378 ! Surface downward latent heat flux (CI_5) 379 IF (ksbc == jp_flx .OR. ksbc == jp_purecpl) THEN379 IF (ksbc == jp_flx) THEN 380 380 DO jl=1,ncat 381 381 ztmpn(:,:,jl)=qla_ice(:,:,1)*a_i(:,:,jl) 382 382 ENDDO 383 ELSE 383 ELSE IF (ksbc == jp_purecpl) THEN 384 DO jl=1,ncat 385 ztmpn(:,:,jl)=qla_ice(:,:,jl)*a_i(:,:,jl) 386 ENDDO 387 ELSE 384 388 !In coupled mode - qla_ice calculated in sbc_cpl for each category 385 389 ztmpn(:,:,1:ncat)=qla_ice(:,:,1:ncat)
Note: See TracChangeset
for help on using the changeset viewer.