Changeset 9695 for branches/UKMO/dev_merge_2017_CICE_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

Timestamp:

2018-05-30T18:02:43+02:00 (6 years ago)

Author:

dancopsey

Message:

Apply -Lsub to all cases of zevap_ice. Multiply v_ip by a_i.

File:

• branches/UKMO/dev_merge_2017_CICE_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 (modified) (3 diffs)

branches/UKMO/dev_merge_2017_CICE_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

@@ -367 +367 @@
          IF (ksbc == jp_flx) THEN
             DO jl=1,ncat
-               ztmpn(:,:,jl)=zevap_ice(:,:,1)*a_i(:,:,jl)
+               ztmpn(:,:,jl)=zevap_ice(:,:,1)*a_i(:,:,jl) * (-1.0*Lsub)
             ENDDO
          ELSE IF (ksbc == jp_purecpl) THEN
@@ -375 +375 @@
     ELSE
            !In coupled mode - zevap_ice calculated in sbc_cpl for each category
-           ztmpn(:,:,1:ncat)=zevap_ice(:,:,1:ncat)
+           ztmpn(:,:,1:ncat)=zevap_ice(:,:,1:ncat) * (-1.0*Lsub)
          ENDIF
 
@@ -741 +741 @@
          CALL cice2nemo(trcrn(:,:,nt_hpnd,jl,:),v_ip(:,:,jl),'T', 1. )
       ENDDO
+      
+      v_ip(:,:,:) = v_ip(:,:,:) * a_i(:,:,:)
 #endif