Changeset 9695
- Timestamp:
- 2018-05-30T18:02:43+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_merge_2017_CICE_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r9675 r9695 367 367 IF (ksbc == jp_flx) THEN 368 368 DO jl=1,ncat 369 ztmpn(:,:,jl)=zevap_ice(:,:,1)*a_i(:,:,jl) 369 ztmpn(:,:,jl)=zevap_ice(:,:,1)*a_i(:,:,jl) * (-1.0*Lsub) 370 370 ENDDO 371 371 ELSE IF (ksbc == jp_purecpl) THEN … … 375 375 ELSE 376 376 !In coupled mode - zevap_ice calculated in sbc_cpl for each category 377 ztmpn(:,:,1:ncat)=zevap_ice(:,:,1:ncat) 377 ztmpn(:,:,1:ncat)=zevap_ice(:,:,1:ncat) * (-1.0*Lsub) 378 378 ENDIF 379 379 … … 741 741 CALL cice2nemo(trcrn(:,:,nt_hpnd,jl,:),v_ip(:,:,jl),'T', 1. ) 742 742 ENDDO 743 744 v_ip(:,:,:) = v_ip(:,:,:) * a_i(:,:,:) 743 745 #endif 744 746
Note: See TracChangeset
for help on using the changeset viewer.