Changeset 13066


Ignore:
Timestamp:
2020-06-09T09:16:47+02:00 (4 months ago)
Author:
smasson
Message:

r4.0-HEAD: sbccpl bugfix when sending 'oce and ice' without ice categories, see #2434

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbccpl.F90

    r12926 r13066  
    17861786            ENDDO 
    17871787         ELSE 
    1788             qns_tot(:,:) = qns_tot(:,:) + picefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) 
     1788            zqns_tot(:,:) = zqns_tot(:,:) + picefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) 
    17891789            DO jl = 1, jpl 
    1790                zqns_tot(:,:   ) = zqns_tot(:,:) + picefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) 
    17911790               zqns_ice(:,:,jl) = frcv(jpr_qnsice)%z3(:,:,1) 
    17921791            END DO 
     
    19271926            END DO 
    19281927         ELSE 
    1929             qsr_tot(:,:   ) = qsr_tot(:,:) + picefr(:,:) * frcv(jpr_qsrice)%z3(:,:,1) 
     1928            zqsr_tot(:,:) = zqsr_tot(:,:) + picefr(:,:) * frcv(jpr_qsrice)%z3(:,:,1) 
    19301929            DO jl = 1, jpl 
    1931                zqsr_tot(:,:   ) = zqsr_tot(:,:) + picefr(:,:) * frcv(jpr_qsrice)%z3(:,:,1) 
    19321930               zqsr_ice(:,:,jl) = frcv(jpr_qsrice)%z3(:,:,1) 
    19331931            END DO 
Note: See TracChangeset for help on using the changeset viewer.