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

Timestamp:

2019-07-29T18:32:37+02:00 (5 years ago)

Author:

dancopsey

Message:

Initialise some missing ice fluxes.

File:

• NEMO/branches/UKMO/NEMO_4.0_fix_cpl_oce_only/src/OCE/SBC/sbccpl.F90 (modified) (3 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 
       CASE( 'conservative' )     ! the required fields are directly provided
          zqns_tot(:,:) = frcv(jpr_qnsmix)%z3(:,:,1)
@@ -1914 +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 
       CASE( 'conservative' )
          zqsr_tot(:,:  ) = frcv(jpr_qsrmix)%z3(:,:,1)
@@ -1992 +1998 @@
             ENDDO
          ENDIF
+      CASE( 'none'      ) 
+         zdqns_ice(:,:,:) = 0._wp
       END SELECT