Changeset 14845
- Timestamp:
- 2021-05-11T17:24:54+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ZDF/zdfiwm.F90
r14834 r14845 366 366 IF( iom_use("bflx_iwm") .OR. iom_use("pcmap_iwm") ) THEN 367 367 ALLOCATE( z2d(A2D(nn_hls)) , z3d(A2D(nn_hls),jpk) ) 368 z2d(:,:) = 0._wp ; z3d(:,:,:) = 0._wp 369 368 370 ! Initialisation for iom_put 369 371 DO_2D( 0, 0, 0, 0 )
Note: See TracChangeset
for help on using the changeset viewer.