Changeset 9695


Ignore:
Timestamp:
2018-05-30T18:02:43+02:00 (2 years ago)
Author:
dancopsey
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_merge_2017_CICE_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r9675 r9695  
    367367         IF (ksbc == jp_flx) THEN 
    368368            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) 
    370370            ENDDO 
    371371         ELSE IF (ksbc == jp_purecpl) THEN 
     
    375375    ELSE 
    376376           !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) 
    378378         ENDIF 
    379379 
     
    741741         CALL cice2nemo(trcrn(:,:,nt_hpnd,jl,:),v_ip(:,:,jl),'T', 1. ) 
    742742      ENDDO 
     743       
     744      v_ip(:,:,:) = v_ip(:,:,:) * a_i(:,:,:) 
    743745#endif 
    744746 
Note: See TracChangeset for help on using the changeset viewer.