Changeset 11370 for NEMO

Timestamp:

2019-07-30T10:56:40+02:00 (5 years ago)

Author:

dancopsey

Message:

Correction. oce only fluxes shoudl be just for open ocean. Setting sea ice fluxes to zero.

File:

• NEMO/branches/UKMO/NEMO_4.0_fix_cpl_oce_only/src/OCE/SBC/sbccpl.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0_fix_cpl_oce_only/src/OCE/SBC/sbccpl.F90

@@ -1784 +1784 @@
       CASE( 'oce only' )         ! the required field is directly provided
          zqns_tot(:,:) = frcv(jpr_qnsoce)%z3(:,:,1)
-         DO jl=1,jpl 
-            zqns_ice(:,:,jl) = zqns_tot(:,:) * a_i(:,:,jl) 
-         ENDDO 
+         ! For Met Office sea ice non-solar fluxes are already delt with by JULES so setting to zero
+         ! here so the only flux is the ocean only one.
+         zqns_ice(:,:,:) = 0._wp 
       CASE( 'conservative' )     ! the required fields are directly provided
          zqns_tot(:,:) = frcv(jpr_qnsmix)%z3(:,:,1)
@@ -1917 +1917 @@
       CASE( 'oce only' )
          zqsr_tot(:,:  ) = MAX( 0._wp , frcv(jpr_qsroce)%z3(:,:,1) )
-         DO jl=1,jpl 
-            zqsr_ice(:,:,jl) = zqsr_tot(:,:) * a_i(:,:,jl) 
-         ENDDO 
+         ! For Met Office sea ice solar fluxes are already delt with by JULES so setting to zero
+         ! here so the only flux is the ocean only one.
+         zqsr_ice(:,:,:) = 0._wp
       CASE( 'conservative' )
          zqsr_tot(:,:  ) = frcv(jpr_qsrmix)%z3(:,:,1)