Changeset 13491 for NEMO/trunk/src/OCE
- Timestamp:
- 2020-09-18T09:04:56+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcflx.F90
r13485 r13491 127 127 128 128 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) 132 130 ELSE 133 131 DO_2D( 0, 0, 0, 0 )
Note: See TracChangeset
for help on using the changeset viewer.