Changeset 9828 for branches

Timestamp:

2018-06-21T17:33:12+02:00 (6 years ago)

Author:

dancopsey

Message:

Stop multiplying zevap_ice by -1.

File:

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

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

@@ -320 +320 @@
          IF(lwp) WRITE(numout,*)'cice_sbc_in'
       ENDIF
-      WRITE(numout,*)'zevap_ice 7: min, max = ', MINVAL(zevap_ice(:,:,:)), MAXVAL(zevap_ice(:,:,:))
 
       ztmp(:,:)=0.0
@@ -369 +368 @@
          IF (ksbc == jp_flx) THEN
             DO jl=1,ncat
-               ztmpn(:,:,jl)=zevap_ice(:,:,1)*a_i(:,:,jl) * (-1.0*Lsub)
+               ztmpn(:,:,jl)=zevap_ice(:,:,1)*a_i(:,:,jl) * Lsub
             ENDDO
          ELSE IF (ksbc == jp_purecpl) THEN
             DO jl=1,ncat
-               ztmpn(:,:,jl)=zevap_ice(:,:,jl)*a_i(:,:,jl) * (-1.0*Lsub)
+               ztmpn(:,:,jl)=zevap_ice(:,:,jl)*a_i(:,:,jl) * Lsub
             ENDDO
     ELSE
            !In coupled mode - zevap_ice calculated in sbc_cpl for each category
-           ztmpn(:,:,1:ncat)=zevap_ice(:,:,1:ncat) * (-1.0*Lsub)
+           ztmpn(:,:,1:ncat)=zevap_ice(:,:,1:ncat) * Lsub
          ENDIF