Changeset 13491


Ignore:
Timestamp:
2020-09-18T09:04:56+02:00 (6 months ago)
Author:
smasson
Message:

trunk: minor bugfix in sbcflx following 13485

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbcflx.F90

    r13485 r13491  
    127127 
    128128         IF( ln_dm2dc ) THEN   ! modify now Qsr to include the diurnal cycle 
    129             DO_2D( 0, 0, 0, 0 ) 
    130                qsr(ji,jj) = sbc_dcy( sf(jp_qsr)%fnow(ji,jj,1) ) * tmask(ji,jj,1) 
    131             END_2D 
     129            qsr(:,:) = sbc_dcy( sf(jp_qsr)%fnow(:,:,1) ) * tmask(ji,jj,1) 
    132130         ELSE 
    133131            DO_2D( 0, 0, 0, 0 ) 
Note: See TracChangeset for help on using the changeset viewer.