Changeset 11369


Ignore:
Timestamp:
2019-07-29T18:32:37+02:00 (14 months ago)
Author:
dancopsey
Message:

Initialise some missing ice fluxes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_fix_cpl_oce_only/src/OCE/SBC/sbccpl.F90

    r10888 r11369  
    17841784      CASE( 'oce only' )         ! the required field is directly provided 
    17851785         zqns_tot(:,:) = frcv(jpr_qnsoce)%z3(:,:,1) 
     1786         DO jl=1,jpl  
     1787            zqns_ice(:,:,jl) = zqns_tot(:,:) * a_i(:,:,jl)  
     1788         ENDDO  
    17861789      CASE( 'conservative' )     ! the required fields are directly provided 
    17871790         zqns_tot(:,:) = frcv(jpr_qnsmix)%z3(:,:,1) 
     
    19141917      CASE( 'oce only' ) 
    19151918         zqsr_tot(:,:  ) = MAX( 0._wp , frcv(jpr_qsroce)%z3(:,:,1) ) 
     1919         DO jl=1,jpl  
     1920            zqsr_ice(:,:,jl) = zqsr_tot(:,:) * a_i(:,:,jl)  
     1921         ENDDO  
    19161922      CASE( 'conservative' ) 
    19171923         zqsr_tot(:,:  ) = frcv(jpr_qsrmix)%z3(:,:,1) 
     
    19921998            ENDDO 
    19931999         ENDIF 
     2000      CASE( 'none'      )  
     2001         zdqns_ice(:,:,:) = 0._wp 
    19942002      END SELECT 
    19952003       
Note: See TracChangeset for help on using the changeset viewer.