Changeset 12510
- Timestamp:
- 2020-03-05T08:40:51+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ZDF/zdfiwm.F90
r12501 r12510 458 458 459 459 ! ! read necessary fields 460 CALL fld_read( 1, 1, sf_iwm )460 CALL fld_read( nit000, 1, sf_iwm ) 461 461 462 462 ebot_iwm(:,:) = sf_iwm(1)%fnow(:,:,1) * ssmask(:,:) ! energy flux for high-mode wave breaking [W/m2]
Note: See TracChangeset
for help on using the changeset viewer.