Changeset 14715 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/TRA/traqsr.F90
- Timestamp:
- 2021-04-15T13:41:16+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/TRA/traqsr.F90
r13331 r14715 281 281 zetot(:,:,nksr+1:jpk) = 0._wp ! below ~400m set to zero 282 282 DO jk = nksr, 1, -1 283 zetot(:,:,jk) = zetot(:,:,jk+1) + qsr_hc(:,:,jk) * rau0_rcp 284 END DO 283 DO jj = 2, jpjm1 284 DO ji = fs_2, fs_jpim1 285 zetot(ji,jj,jk) = zetot(ji,jj,jk+1) + qsr_hc(ji,jj,jk) * rau0_rcp 286 ENDDO 287 ENDDO 288 END DO 289 CALL lbc_lnk( 'traqsr', zetot, 'T', 1._wp ) 285 290 CALL iom_put( 'qsr3d', zetot ) ! 3D distribution of shortwave Radiation 286 291 DEALLOCATE( zetot )
Note: See TracChangeset
for help on using the changeset viewer.