- Timestamp:
- 2013-03-12T15:55:32+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90
r3211 r3837 235 235 IF( zdf_ddm_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'zdf_ddm_init : unable to allocate arrays' ) 236 236 ! 237 ! Initialise new array 238 avs(:,:,:) = 0.0_wp 239 237 240 END SUBROUTINE zdf_ddm_init 238 241
Note: See TracChangeset
for help on using the changeset viewer.