Changeset 9828


Ignore:
Timestamp:
2018-06-21T17:33:12+02:00 (2 years ago)
Author:
dancopsey
Message:

Stop multiplying zevap_ice by -1.

File:
1 edited

Legend:

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

    r9819 r9828  
    320320         IF(lwp) WRITE(numout,*)'cice_sbc_in' 
    321321      ENDIF 
    322       WRITE(numout,*)'zevap_ice 7: min, max = ', MINVAL(zevap_ice(:,:,:)), MAXVAL(zevap_ice(:,:,:)) 
    323322 
    324323      ztmp(:,:)=0.0 
     
    369368         IF (ksbc == jp_flx) THEN 
    370369            DO jl=1,ncat 
    371                ztmpn(:,:,jl)=zevap_ice(:,:,1)*a_i(:,:,jl) * (-1.0*Lsub) 
     370               ztmpn(:,:,jl)=zevap_ice(:,:,1)*a_i(:,:,jl) * Lsub 
    372371            ENDDO 
    373372         ELSE IF (ksbc == jp_purecpl) THEN 
    374373            DO jl=1,ncat 
    375                ztmpn(:,:,jl)=zevap_ice(:,:,jl)*a_i(:,:,jl) * (-1.0*Lsub) 
     374               ztmpn(:,:,jl)=zevap_ice(:,:,jl)*a_i(:,:,jl) * Lsub 
    376375            ENDDO 
    377376    ELSE 
    378377           !In coupled mode - zevap_ice calculated in sbc_cpl for each category 
    379            ztmpn(:,:,1:ncat)=zevap_ice(:,:,1:ncat) * (-1.0*Lsub) 
     378           ztmpn(:,:,1:ncat)=zevap_ice(:,:,1:ncat) * Lsub 
    380379         ENDIF 
    381380 
Note: See TracChangeset for help on using the changeset viewer.