Changeset 13499


Ignore:
Timestamp:
2020-09-21T17:24:07+02:00 (12 months ago)
Author:
dford
Message:

Update qsr3d diagnostic for spectral case.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1_v2/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r13496 r13499  
    171171            END DO 
    172172         END DO 
    173          CALL iom_put( 'qsr3d', etot3 )   ! Shortwave Radiation 3D distribution 
     173         zea(:,:,:) = etot3(:,:,:) * tmask(:,:,:) 
     174         DO jk = jpkm1, 1, -1 
     175            zea(:,:,jk) = zea(:,:,jk) + zea(:,:,jk+1) 
     176         END DO 
     177         CALL iom_put( 'qsr3d', zea )   ! Shortwave Radiation 3D distribution 
    174178         IF ( ln_qsr_ice ) THEN 
    175179            DO jj = 1, jpj 
Note: See TracChangeset for help on using the changeset viewer.